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

Reset state after each run

Browse Source
This commit is contained in:
Scott Richmond 2023-12-04 12:12:05 -05:00
parent c9ccffa067
commit efb33cc1be
2 changed files with 21 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/ludus/postlude.ld
View File

@ -3,9 +3,18 @@
if turtle_state() :visible? then render_turtle! () else nil
let console_msgs = deref (console)
set! (console, [])
let (r, g, b, a) = deref (bgcolor)
set! (bgcolor, colors :black)
let draw_calls = deref (p5_calls)
set! (p5_calls, [])
#{
& :result result is provided elsewhere
:errors [] & if we get here there are no errors
:console deref (console)
:draw deref (p5_calls)
& :errors [] & if we get here there are no errors
:console console_msgs
:draw concat ([(:background, r, g, b, a)], draw_calls)
}

19
src/ludus/prelude.ld
View File

@ -658,12 +658,13 @@ fn range {
&&& Turtle & other graphics
let colors = @{
:white (255, 255, 255)
:light_gray (150, 150, 150)
:dark_gray (50, 50, 50)
:red (255, 0, 0)
:green (0, 255, 0)
:blue (0, 0, 255)
:white (255, 255, 255, 255)
:light_gray (150, 150, 150, 255)
:dark_gray (50, 50, 50, 255)
:red (255, 0, 0, 255)
:green (0, 255, 0, 255)
:blue (0, 0, 255, 255)
:black (0, 0, 0, 255)
}
& the initial turtle state
@ -683,11 +684,9 @@ ref turtle_commands = []
& and a list of turtle states
ref turtle_states = [turtle_init]
ref p5_calls = [
(:background, 0)
]
ref p5_calls = []
ref bgcolor = (0, 0, 0, 255)
ref bgcolor = colors :black
fn add_call! (call) -> update! (p5_calls, append (_, call))