Commits

Anonymous committed f0f0924 Draft

showing template too

Comments (0)

Files changed (1)

      || bt.zmax > b.zmax
   in
   let () =
-    printf
-      "x = %f .. %f\n\
+    let print_box title b =
+      printf
+      "box of %s:\n\
+       x = %f .. %f\n\
        y = %f .. %f\n\
-       z = %f .. %f\n\
-       step = %f\n\
+       z = %f .. %f\n"
+       title
+       b.xmin b.xmax
+       b.ymin b.ymax
+       b.zmin b.zmax
+    in
+    ( print_box "detail" b
+    ; print_box "template" bt
+    ; printf
+      "step = %f\n\
        out = %s\n\
        template = %s\n\
       "
-       b.xmin b.xmax
-       b.ymin b.ymax
-       b.zmin b.zmax
        step
        out
        template
+    )
   in
   let () = printf "check size..\n" in
   if bad