dane/graphgif
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Actually make webp

Browse Source
This commit is contained in:
Dane Johnson 2024-10-23 09:13:50 -05:00
parent 2da23e143c
commit 495e4ac5a5
3 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@ -1,4 +1,5 @@
*.png *.png
*.gif *.gif
*.webp
cgif/libguilecgif.so cgif/libguilecgif.so
cgif/config.scm cgif/config.scm

11
demo.scm
View File

@ -1,10 +1,13 @@
(use-modules (graphgif) (use-modules (graphgif)
(srfi srfi-9 gnu) (srfi srfi-9 gnu)
(ice-9 copy-tree)) (ice-9 copy-tree)
(d-))
(define red (create-color 1 0 0)) (define red (create-color 1 0 0))
(define graph1 (generate-web 10 10)) (define graph1 (generate-web 10 10))
(define graph2 (remove-rect (copy-tree graph1) 10 3 3 4 5)) (define graph2
(assq-set! graph2 0 (set-node-color (assq-ref graph2 0) red)) (~> (copy-tree graph1)
(write-graphs-to-file (vector graph1 graph2) "graph.gif") (remove-rect 10 3 3 4 5)
(remove-rect 10 3 3 6 4)))
(write-graphs-to-file (vector graph1 graph2) "graph.webp")

3
graphgif.scm
View File

@ -148,7 +148,8 @@
surface surface
(string-append pngdir "/img-" (number->string i) ".png"))) (string-append pngdir "/img-" (number->string i) ".png")))
surfaces) surfaces)
(system* "ffmpeg" "-i" (string-append pngdir "/img-%d.png") "-r" "1" filename)) (system* "ffmpeg" "-i" (string-append pngdir "/img-%d.png")
"-r" "1" "-loop" "0" filename))
(define-public (write-graphs-to-file graphs filename) (define-public (write-graphs-to-file graphs filename)
(output-to-file (vector-map (lambda (_ graph) (draw-abstract-graph graph)) graphs) filename)) (output-to-file (vector-map (lambda (_ graph) (draw-abstract-graph graph)) graphs) filename))