diff options
| author | henriquelalves <henriquelalves@gmail.com> | 2024-05-26 14:39:55 +0300 |
|---|---|---|
| committer | henriquelalves <henriquelalves@gmail.com> | 2024-05-26 14:39:55 +0300 |
| commit | 56a3d75bbbd80512f76817a05eebaabdcaf37ae2 (patch) | |
| tree | f6e3b87c484ebe3df51d6e43d9e76b4ded9efb01 /sources/rl/types.h | |
| parent | 0a89a84956311f17648bb443e429dab25d35f0cc (diff) | |
| download | gamejam-slgj-2024-56a3d75bbbd80512f76817a05eebaabdcaf37ae2.tar.gz gamejam-slgj-2024-56a3d75bbbd80512f76817a05eebaabdcaf37ae2.tar.bz2 gamejam-slgj-2024-56a3d75bbbd80512f76817a05eebaabdcaf37ae2.zip | |
Update for SLGJ 2024
Diffstat (limited to 'sources/rl/types.h')
| -rw-r--r-- | sources/rl/types.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sources/rl/types.h b/sources/rl/types.h index 4a7244f..da426ae 100644 --- a/sources/rl/types.h +++ b/sources/rl/types.h @@ -21,7 +21,7 @@ static s7_pointer make_color(s7_scheme *sc, s7_pointer args) c->r = s7_integer(s7_car(args)); c->g = s7_integer(s7_cadr(args)); c->b = s7_integer(s7_caddr(args)); - c->a = 255; + c->a = s7_integer(s7_cadddr(args)); return(s7_make_c_object(sc, color_type_tag, (void *)c)); } @@ -92,7 +92,7 @@ static void rl_register_types(s7_scheme *s7) { s7_c_type_set_gc_free(s7, color_type_tag, free_color); s7_c_type_set_to_string(s7, color_type_tag, color_to_string); - s7_define_function(s7, "make-color", make_color, 3, 0, false, "(make-color r g b) makes a new color"); + s7_define_function(s7, "make-color", make_color, 4, 0, false, "(make-color r g b a) makes a new color"); s7_define_function(s7, "color?", is_color, 1, 0, false, "(color? anything) returns #t if its argument is a color object"); |