From 332b4dc6b329a0e28fd81133aba49acb7f8e6cd2 Mon Sep 17 00:00:00 2001 From: Dane Johnson Date: Wed, 23 Oct 2024 09:46:15 -0500 Subject: [PATCH] Do it without asking --- demo.scm | 4 ++-- graphgif.scm | 3 ++- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/demo.scm b/demo.scm index 4af8be1..1cddeeb 100644 --- a/demo.scm +++ b/demo.scm @@ -8,6 +8,6 @@ (define graph1 (generate-web 10 10)) (define graph2 (~> (copy-tree graph1) - (remove-rect 10 3 3 4 5) - (remove-rect 10 3 3 6 4))) + (remove-rect 10 1 3 6 3) + (remove-rect 10 6 3 6 7))) (write-graphs-to-file (vector graph1 graph2) "graph.webp") diff --git a/graphgif.scm b/graphgif.scm index 5dcd6c4..4c64836 100644 --- a/graphgif.scm +++ b/graphgif.scm @@ -148,7 +148,8 @@ surface (string-append pngdir "/img-" (number->string i) ".png"))) surfaces) - (system* "ffmpeg" "-i" (string-append pngdir "/img-%d.png") + (system* "ffmpeg" "-y" + "-i" (string-append pngdir "/img-%d.png") "-r" "1" "-loop" "0" filename)) (define-public (write-graphs-to-file graphs filename)