diff --git a/src/ludus/postlude.ld b/src/ludus/postlude.ld index df81818..2594255 100644 --- a/src/ludus/postlude.ld +++ b/src/ludus/postlude.ld @@ -5,7 +5,7 @@ if turtle_state() :visible? then render_turtle! () else nil -make! (turtle_states, [turtle_init]) +reset_turtle! () let console_msgs = flush! () diff --git a/src/ludus/prelude.ld b/src/ludus/prelude.ld index 06247f4..53724d9 100644 --- a/src/ludus/prelude.ld +++ b/src/ludus/prelude.ld @@ -857,6 +857,11 @@ ref turtle_commands = [] & and a list of turtle states ref turtle_states = [turtle_init] +fn reset_turtle! { + "Resets the turtle to its original state." + () -> make! (turtle_states, [turtle_init]) +} + & and a list of calls to p5--at least for now ref p5_calls = [] @@ -1208,5 +1213,5 @@ ns prelude { heading/vector turtle_state p5_calls, turtle_states, turtle_commands, bgcolor - render_turtle! + render_turtle!, reset_turtle! }