Skip to content

Instantly share code, notes, and snippets.

@theburningmonk
Last active Mar 29, 2016
Embed
What would you like to do?
let cmdsStripe =
[
curve3rd 60.0 5
turn -170.0
move 80
curve3rd 60.0 -5
]
let cmdsGen = seq { while true do yield! cmdsStripe }
let innerCmds = cmdsGen |> Seq.take 70
let cmds =
seq {
yield moveTo(250.0, 250.0)
yield! innerCmds
yield saveAs "basic-loop"
}
|> Seq.toList
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment