26 lines
673 B
Plaintext
26 lines
673 B
Plaintext
& this file runs after any given interpretation
|
|
& even if the original interpretation panics
|
|
& the goal is to output any global state held in Ludus
|
|
& this does not have base loaded into it, only prelude: must be pure Ludus
|
|
|
|
if turtle_state () :visible? then render_turtle! () else nil
|
|
|
|
reset_turtle! ()
|
|
|
|
& let console_msgs = flush! ()
|
|
|
|
let (r, g, b, a) = unbox (bgcolor)
|
|
store! (bgcolor, colors :black)
|
|
|
|
let draw_calls = unbox (p5_calls)
|
|
store! (p5_calls, [])
|
|
|
|
#{
|
|
& :result result is provided elsewhere
|
|
& :errors [] & if we get here there are no errors
|
|
& :console console_msgs
|
|
:draw concat (
|
|
[(:background, r, g, b, a), (:stroke, 255, 255, 255, 255)]
|
|
draw_calls)
|
|
}
|