diff --git a/sandbox.ld b/sandbox.ld index 653a8a6..ec9a4dc 100644 --- a/sandbox.ld +++ b/sandbox.ld @@ -1,11 +1,19 @@ -box foos = [] - -fn foo! () -> update! (foos, append (_, :foo)) - -fn foos! () -> repeat 4 { - foo! () +fn circle! () -> repeat 20 { + fd! (2) + rt! (inv (20)) } -foos! () +fn flower! () -> repeat 10 { + circle! () + rt! (inv (10)) +} -unbox (foos) +fn garland! () -> repeat 10 { + flower! () + fd! (30) +} + +garland! () + +do turtle_commands > unbox > print! +do turtle_state > unbox > print! diff --git a/src/main.rs b/src/main.rs index 18e7f31..3b26244 100644 --- a/src/main.rs +++ b/src/main.rs @@ -3,8 +3,8 @@ use imbl::HashMap; use std::env; use std::fs; -const DEBUG_SCRIPT_COMPILE: bool = true; -const DEBUG_SCRIPT_RUN: bool = true; +const DEBUG_SCRIPT_COMPILE: bool = false; +const DEBUG_SCRIPT_RUN: bool = false; const DEBUG_PRELUDE_COMPILE: bool = false; const DEBUG_PRELUDE_RUN: bool = false;