Warning, /education/kturtle/scripts/flocke.turtle is written in an unsupported language. File is not indexed.
0001 kturtle-script-v1.0
0002 @(reset)
0003 @(penup)
0004 @(go) 125@(,) 130
0005 @(pendown)
0006 @(turnleft) 90
0007
0008 @(learn) koch $length@(,) $step {
0009 @(if) $step > 0 {
0010 $step = $step - 1
0011 $length = $length / 3
0012 koch $length@(,) $step
0013 @(turnleft) 60
0014 koch $length@(,) $step
0015 @(turnright) 120
0016 koch $length@(,) $step
0017 @(turnleft) 60
0018 koch $length@(,) $step
0019 } @(else) {
0020 @(forward) 3 * $length
0021 }
0022 }
0023
0024 @(repeat) 3 {
0025 koch 150@(,) 5
0026 @(turnleft) 120
0027 }