about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lib/Fornax/CLI.rakumod23
1 files changed, 15 insertions, 8 deletions
diff --git a/lib/Fornax/CLI.rakumod b/lib/Fornax/CLI.rakumod
index 7297903..b2fb629 100644
--- a/lib/Fornax/CLI.rakumod
+++ b/lib/Fornax/CLI.rakumod
@@ -17,6 +17,7 @@ proto MAIN(|) is export { unless so @*ARGS { put $*USAGE; exit }; {*} }
 multi sub MAIN(
     File $input, #= fornax format file (solved)
     Directory :$output = 'output', #= output directory (existing)
+    Int :$frame-rate = 1, #= frame rate
     Bool :$verbose = True, #= verbosity
 ) is export {
     my Str @lines = $input.IO.lines;
@@ -47,24 +48,27 @@ multi sub MAIN(
     my Int %cell = width => %CANVAS<width> div %meta<cols>,
                    height => %CANVAS<height> div %meta<rows>;
 
+    my Int $side;
+    my Int %excess = :0width, :0height;
+
     # Consider width if cells with dimension (width * width) fit
     # within the canvas, otherwise consider the height.
     if (%cell<width> * %meta<rows>) < %CANVAS<height> {
-        %cell<height> = %cell<width>;
+        %excess<height> = abs %CANVAS<width> - %CANVAS<height>;
+        $side = %cell<width>;
     } else {
-        %cell<width> = %cell<height>;
+        %excess<width> = abs %CANVAS<width> - %CANVAS<height>;
+        $side = %cell<height>;
     }
 
     enum IterStatus <Walking Blocked Completed>;
 
     for @lines.skip.kv -> $idx, $iter is rw {
-
         my IterStatus $status;
         given $iter.substr(0, 1) {
             when '|' { $status = Completed }
             when '!' { $status = Blocked }
             default { $status = Walking }
-
         };
 
         # Remove marker.
@@ -82,13 +86,16 @@ multi sub MAIN(
                 # Paint the entire canvas white.
                 .rgb: |%C<white>;
                 .rectangle(0, 0, %CANVAS<width>, %CANVAS<height>);
-                .fill :preserve;
+                .fill;
                 .stroke;
 
                 for ^%meta<rows> -> $r {
                     for ^%meta<cols> -> $c {
-                        .rectangle($c * %cell<height>, $r * %cell<width>, %cell<height>, %cell<width>);
+                        my Int @target = %excess<width> div 2 + $c * $side,
+                                         %excess<height> div 2 + $r * $side,
+                                         $side, $side;
 
+                        .rectangle: |@target;
                         given @grid[$r][$c] -> $cell {
                             when $cell eq $VIS|$CUR {
                                 .rgba: |%C<cyan>, 0.64;
@@ -102,7 +109,7 @@ multi sub MAIN(
                         .fill :preserve;
 
                         .rgb: |%C<black>;
-                        .rectangle($c * %cell<height>, $r * %cell<width>, %cell<height>, %cell<width>);
+                        .rectangle: |@target;
                         .stroke;
                     }
                 }
@@ -114,7 +121,7 @@ multi sub MAIN(
 
     put "[fornax] Generated images.";
     put "[fornax] Creating a slideshow.";
-    run «ffmpeg -loglevel error -r 1 -i "$output/\%08d.png"
+    run «ffmpeg -loglevel error -r "$frame-rate" -i "$output/\%08d.png"
                 -vcodec libx264 -crf 28 -pix_fmt yuv420p "$output/solution.mp4"»;
 }