twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Actually fix turtle angles and states

Browse Source
This commit is contained in:
Scott Richmond 2023-12-08 17:30:33 -05:00
parent 8b593c1492
commit 1b67bab4fe
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ludus/postlude.ld
View File

@ -5,7 +5,7 @@
if turtle_state() :visible? then render_turtle! () else nil if turtle_state() :visible? then render_turtle! () else nil
make! (turtle_states, [turtle_init]) reset_turtle! ()
let console_msgs = flush! () let console_msgs = flush! ()

7
src/ludus/prelude.ld
View File

@ -857,6 +857,11 @@ ref turtle_commands = []
& and a list of turtle states & and a list of turtle states
ref turtle_states = [turtle_init] 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 & and a list of calls to p5--at least for now
ref p5_calls = [] ref p5_calls = []
@ -1208,5 +1213,5 @@ ns prelude {
heading/vector heading/vector
turtle_state turtle_state
p5_calls, turtle_states, turtle_commands, bgcolor p5_calls, turtle_states, turtle_commands, bgcolor
render_turtle! render_turtle!, reset_turtle!
} }