From 4edf38aa25fc7ca83510013e4c47ab56478a7671 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 19 Apr 2016 22:23:33 -0400 Subject: [PATCH] Cleanup image output --- examples/game-of-life-png/example/life.sld | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/examples/game-of-life-png/example/life.sld b/examples/game-of-life-png/example/life.sld index 518206dc..d1a0f84f 100644 --- a/examples/game-of-life-png/example/life.sld +++ b/examples/game-of-life-png/example/life.sld @@ -31,8 +31,12 @@ ; #\J))) (define (life-print grid iteration) ;(clear-vt100) - (let ((img (png:init 100 100)) - (path (string-append "life-" (number->string iteration) ".png"))) + (let ((img (png:init (cols grid) (rows grid))) + (path (string-append + "life-" + (if (< iteration 10) "0" "") + (number->string iteration) + ".png"))) (each grid (lambda (i j v) ;(display (if v "*" " "))