repeating

repeating.fsx

#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"