ludus-scripts/koch.ld

& koch curve

let length = 10
let angle = 0.25

fn koch! {
  (0) -> fd! (length)
  (n) -> {
    koch! (dec (n))
    lt! (angle)
    koch! (dec (n))
    rt! (angle)
    koch! (dec (n))
    rt! (angle)
    koch! (dec (n))
    lt! (angle)
    koch! (dec (n))
  }
}

& koch! (3)
adding initial scripts 2024-06-11 21:37:04 +00:00			`& koch curve`

			`let length = 10`
adding scott's examples from the computer class repo 2024-06-11 21:55:57 +00:00			`let angle = 0.25`
adding initial scripts 2024-06-11 21:37:04 +00:00
			`fn koch! {`
			`(0) -> fd! (length)`
			`(n) -> {`
			`koch! (dec (n))`
adding scott's examples from the computer class repo 2024-06-11 21:55:57 +00:00			`lt! (angle)`
adding initial scripts 2024-06-11 21:37:04 +00:00			`koch! (dec (n))`
adding scott's examples from the computer class repo 2024-06-11 21:55:57 +00:00			`rt! (angle)`
adding initial scripts 2024-06-11 21:37:04 +00:00			`koch! (dec (n))`
adding scott's examples from the computer class repo 2024-06-11 21:55:57 +00:00			`rt! (angle)`
adding initial scripts 2024-06-11 21:37:04 +00:00			`koch! (dec (n))`
adding scott's examples from the computer class repo 2024-06-11 21:55:57 +00:00			`lt! (angle)`
adding initial scripts 2024-06-11 21:37:04 +00:00			`koch! (dec (n))`
			`}`
			`}`

			`& koch! (3)`