massage prelude into multiturtles; wip
This commit is contained in:
parent
4988ea6626
commit
f1f954de46
|
@ -1071,49 +1071,49 @@ fn add_command! (turtle_id, command) -> {
|
|||
}
|
||||
|
||||
fn forward! {
|
||||
"Moves the turtle forward by a number of steps. Alias: fd!"
|
||||
"Moves the turtle forward by a number of steps. Alias: `fd!`"
|
||||
(steps as :number) -> add_command! (:turtle_0, (:forward, steps))
|
||||
}
|
||||
|
||||
let fd! = forward!
|
||||
|
||||
fn back! {
|
||||
"Moves the turtle backward by a number of steps. Alias: bk!"
|
||||
"Moves the turtle backward by a number of steps. Alias: `bk!`"
|
||||
(steps as :number) -> add_command! (:turtle_0, (:back, steps))
|
||||
}
|
||||
|
||||
let bk! = back!
|
||||
|
||||
fn left! {
|
||||
"Rotates the turtle left, measured in turns. Alias: lt!"
|
||||
"Rotates the turtle left, measured in turns. Alias: `lt!`"
|
||||
(turns as :number) -> add_command! (:turtle_0, (:left, turns))
|
||||
}
|
||||
|
||||
let lt! = left!
|
||||
|
||||
fn right! {
|
||||
"Rotates the turtle right, measured in turns. Alias: rt!"
|
||||
"Rotates the turtle right, measured in turns. Alias: `rt!`"
|
||||
(turns as :number) -> add_command! (:turtle_0, (:right, turns))
|
||||
}
|
||||
|
||||
let rt! = right!
|
||||
|
||||
fn penup! {
|
||||
"Lifts the turtle's pen, stopping it from drawing. Alias: pu!"
|
||||
"Lifts the turtle's pen, stopping it from drawing. Alias: `pu!`"
|
||||
() -> add_command! (:turtle_0, (:penup))
|
||||
}
|
||||
|
||||
let pu! = penup!
|
||||
|
||||
fn pendown! {
|
||||
"Lowers the turtle's pen, causing it to draw. Alias: pd!"
|
||||
"Lowers the turtle's pen, causing it to draw. Alias: `pd!`"
|
||||
() -> add_command! (:turtle_0, (:pendown))
|
||||
}
|
||||
|
||||
let pd! = pendown!
|
||||
|
||||
fn pencolor! {
|
||||
"Changes the turtle's pen color. Takes a single grayscale value, an rgb tuple, or an rgba tuple. Alias: pc!"
|
||||
"Changes the turtle's pen color. Takes a single grayscale value, an rgb tuple, or an rgba tuple. Alias: `pencolour!`, `pc!`"
|
||||
(color as :keyword) -> add_command! (:turtle_0, (:pencolor, color))
|
||||
(gray as :number) -> add_command! (:turtle_0, (:pencolor, (gray, gray, gray, 255)))
|
||||
((r as :number, g as :number, b as :number)) -> add_command! (:turtle_0, (:pencolor, (r, g, b, 255)))
|
||||
|
@ -1125,14 +1125,14 @@ let pencolour! = pencolor!
|
|||
let pc! = pencolor!
|
||||
|
||||
fn penwidth! {
|
||||
"Sets the width of the turtle's pen, measured in pixels. Alias: pw!"
|
||||
"Sets the width of the turtle's pen, measured in pixels. Alias: `pw!`"
|
||||
(width as :number) -> add_command! (:turtle_0, (:penwidth, width))
|
||||
}
|
||||
|
||||
let pw! = penwidth!
|
||||
|
||||
fn background! {
|
||||
"Sets the background color behind the turtle and path. Alias: bg!"
|
||||
"Sets the background color behind the turtle and path. Alias: `bg!`"
|
||||
(color as :keyword) -> add_command! (:turtle_0, (:background, color))
|
||||
(gray as :number) -> add_command! (:turtle_0, (:background, (gray, gray, gray, 255)))
|
||||
((r as :number, g as :number, b as :number)) -> add_command! (:turtle_0, (:background, (r, g, b, 255)))
|
||||
|
@ -1234,7 +1234,7 @@ fn pendown? {
|
|||
}
|
||||
|
||||
fn pencolor {
|
||||
"Returns the turtle's pen color as an (r, g, b, a) tuple or keyword."
|
||||
"Returns the turtle's pen color as an (r, g, b, a) tuple or keyword. Alias: `pencolour`."
|
||||
() -> do turtle_states > unbox > :turtle_0 > :pencolor
|
||||
}
|
||||
|
||||
|
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user