Skip to content

Instantly share code, notes, and snippets.

@theburningmonk

theburningmonk/cmdGen

Last active March 29, 2016 03:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save theburningmonk/33e38b347ae8c66392da to your computer and use it in GitHub Desktop.
Save theburningmonk/33e38b347ae8c66392da to your computer and use it in GitHub Desktop.
Download ZIP
Raw
cmdGen
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