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

Bug fixes

Browse source
This commit is contained in:
Justin Ethier 2016-04-19 21:19:54 -04:00
parent 0a189792f6
commit 56851b6129
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -39,7 +39,7 @@
;(when (= j (- (cols grid) 1))
; (newline))
(if v
(png:set! i j 0 250 0))
(png:set! img i j 0 250 0))
))
(png:save img path)
(png:free img)
@ -57,22 +57,22 @@
;(set! grid1 j k a))))
(life-print grid1 i)))
(define-c png:init
"(void *data, int argc, closure _, object width, object height)"
"(void *data, int argc, closure _, object k, object width, object height)"
" RGBBitmap *img = malloc(sizeof(RGBBitmap));
make_c_opaque(opq, (void *)img);
bitmap_init(img, (int)(unbox_number(width)), (int)(unbox_number(height)));
return_closcall1(data, k, &opq);
")
(define-c png:free
"(void *data, int argc, closure _, object opq)"
" RGBBitmap *img = opaque_ptr(opq);
"(void *data, int argc, closure _, object k, object opq)"
" RGBBitmap *img = (RGBBitmap *)opaque_ptr(opq);
free(img->pixels);
free(img);
return_closcall1(data, k, boolean_t);
")
(define-c png:set!
"(void *data, int argc, closure _, object opq, object x, object y, object r, object g, object b)"
" RGBBitmap *img = opaque_ptr(opq);
"(void *data, int argc, closure _, object k, object opq, object x, object y, object r, object g, object b)"
" RGBBitmap *img = (RGBBitmap *)opaque_ptr(opq);
bitmap_set(img,
((int)(unbox_number(x))),
((int)(unbox_number(y))),
@ -81,8 +81,8 @@
((int)(unbox_number(b))));
return_closcall1(data, k, boolean_t); ")
(define-c png:save
"(void *data, int argc, closure _, object opq, object path)"
" RGBBitmap *img = opaque_ptr(opq);
"(void *data, int argc, closure _, object k, object opq, object path)"
" RGBBitmap *img = (RGBBitmap *)opaque_ptr(opq);
bitmap_save_to_png(img, string_str(path));
return_closcall1(data, k, boolean_t);
")