Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 08:47:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Cleanup image output

Browse source
This commit is contained in:
Justin Ethier 2016-04-19 22:23:33 -04:00
parent 41bd27ca1b
commit 4edf38aa25
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
examples/game-of-life-png/example/life.sld
View file

@ -31,8 +31,12 @@
; #\J))) ; #\J)))
(define (life-print grid iteration) (define (life-print grid iteration)
;(clear-vt100) ;(clear-vt100)
(let ((img (png:init 100 100)) (let ((img (png:init (cols grid) (rows grid)))
(path (string-append "life-" (number->string iteration) ".png"))) (path (string-append
"life-"
(if (< iteration 10) "0" "")
(number->string iteration)
".png")))
(each grid (each grid
(lambda (i j v) (lambda (i j v)
;(display (if v "*" " ")) ;(display (if v "*" " "))