File : minifuns.adb

with Reps.IO;
use Reps.IO;

package body MiniFuns is

  procedure Show1(N: in String; A: in Args) is
  begin
    Show1(N & " t center: ",A.T0);
    Show1(N & " s center: ",A.S0);
    Show1(N & "  coeff B: ",A.B);
    Show1(N & "  coeff A: ",A.A);
  end Show1;

  procedure Show2(N: in String; A1,A2: in Args) is
  begin
    Show2(N & " t centers:",A1.T0,A2.T0);
    Show2(N & " s centers:",A1.S0,A2.S0);
    Show2(N & "  coeffs B:",A1.B,A2.B);
    Show2(N & "  coeffs A:",A1.A,A2.A);
  end Show2;

end MiniFuns;