26 lines
668 B
Plaintext
26 lines
668 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)
|
||
|
make! (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)
|
||
|
}
|