From b61322bbfd5045623f42022a158897f11ecc4aea Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Fri, 8 Dec 2023 17:20:57 -0500 Subject: [PATCH] Fix turtle angles, states, and colors. --- src/ludus/postlude.ld | 2 ++ src/ludus/prelude.ld | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/src/ludus/postlude.ld b/src/ludus/postlude.ld index d82f206..df81818 100644 --- a/src/ludus/postlude.ld +++ b/src/ludus/postlude.ld @@ -5,6 +5,8 @@ if turtle_state() :visible? then render_turtle! () else nil +make! (turtle_states, [turtle_init]) + let console_msgs = flush! () let (r, g, b, a) = deref (bgcolor) diff --git a/src/ludus/prelude.ld b/src/ludus/prelude.ld index efbe17d..06247f4 100644 --- a/src/ludus/prelude.ld +++ b/src/ludus/prelude.ld @@ -882,7 +882,7 @@ let turtle_radius = 20 let turtle_angle = 0.375 -let turtle_color = (100, 100, 100, 100) +let turtle_color = (150, 150, 150, 200) fn render_turtle! () -> { let state = do turtle_states > deref > last @@ -894,7 +894,7 @@ fn render_turtle! () -> { add_call! ((:noStroke)) let #{heading, :position (x, y)} = state add_call! ((:translate, x, y)) - add_call! ((:rotate, turn/deg (heading))) + add_call! ((:rotate, turn/rad (heading))) add_call! ((:beginShape)) let head_unit = heading/vector (heading) let first = mult (head_unit, turtle_radius)