Last active
November 11, 2015 19:23
-
-
Save monkieboy/7d300413477bb9bb40d3 to your computer and use it in GitHub Desktop.
repeating
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#load "Spirograph.fs" | |
open System.Drawing | |
open FSharp.TV.Spirograph | |
//let printTurtle turtle = | |
// printfn "%A" turtle | |
// turtle | |
//let repeat (items:seq<'a>) = | |
// let generator state = | |
// let item = items.[state% (Seq.length items)] | |
// Some (item, state + 1) | |
// Seq.unfold generator 0 | |
module Seq = | |
let repeat items = | |
seq { while true do for item in items do yield item } | |
let dashedLine length turtle = | |
let dashLength = 5 | |
let cmdList = | |
[ (penDown) ] | |
|> Seq.repeat | |
|> Seq.take 1 | |
Seq.fold (fun t cmd -> cmd t) turtle cmdList | |
let clippingExample = | |
newTurtle() | |
|> moveTo (100.0,100.0) | |
|> turn 130.0 | |
|> dashedLine 60 | |
|> saveAs "logopic" |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment