From 595895c0bf1565510ed23e5c95863cafae1daea7 Mon Sep 17 00:00:00 2001 From: Henrique Alves Date: Sun, 5 May 2024 01:13:04 +0300 Subject: basic GoL --- sources/rl/shapes.h | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'sources/rl/shapes.h') diff --git a/sources/rl/shapes.h b/sources/rl/shapes.h index 0033a5b..10d38eb 100644 --- a/sources/rl/shapes.h +++ b/sources/rl/shapes.h @@ -6,10 +6,10 @@ static s7_pointer rl_draw_rectangle(s7_scheme *s7, s7_pointer args) { Color *c = (Color *)s7_c_object_value(s7_car(s7_cdr(s7_cdr(s7_cdr(s7_cdr(args)))))); - DrawRectangle(s7_integer(s7_car(args)), - s7_integer(s7_car(s7_cdr(args))), - s7_integer(s7_car(s7_cdr(s7_cdr(args)))), - s7_integer(s7_car(s7_cdr(s7_cdr(s7_cdr(args))))), + DrawRectangle(s7_real(s7_car(args)), + s7_real(s7_car(s7_cdr(args))), + s7_real(s7_car(s7_cdr(s7_cdr(args)))), + s7_real(s7_car(s7_cdr(s7_cdr(s7_cdr(args))))), *c); return(NULL); -- cgit v1.2.3