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

Removed dead code

Browse source
This commit is contained in:
Justin Ethier 2016-04-20 00:06:43 -04:00
parent 9f163aa8b3
commit dbcac26402
1 changed files with 0 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -22,17 +22,7 @@
((3) #t) ((3) #t)
((2) (ref grid i j)) ((2) (ref grid i j))
(else #f))) (else #f)))
; (define (clear-vt100)
; (display
; (string
; (integer->char #x1B)
; #\[
; #\H
; (integer->char #x1B)
; #\[
; #\J)))
(define (life-print grid iteration) (define (life-print grid iteration)
;(clear-vt100)
(let ((img (png:init (cols grid) (rows grid))) (let ((img (png:init (cols grid) (rows grid)))
(path (string-append (path (string-append
"life-" "life-"
@ -41,9 +31,6 @@
".png"))) ".png")))
(each grid (each grid
(lambda (i j v) (lambda (i j v)
;(display (if v "*" " "))
;(when (= j (- (cols grid) 1))
; (newline))
(if v (if v
(png:set! img i j 0 250 0)) (png:set! img i j 0 250 0))
)) ))