Jump to content

Translations:KTurtle/Examples/19/da

From KDE UserBase Wiki

Revision as of 16:22, 4 September 2012 by Claus chr (talk | contribs) (Created page with "{{Input|1=<span style="color: #a0a0a4;"># Koch curve</span><br /><br /><span style="color: #000080;">reset</span><br /><span style="color: #000080;">canvassize</span> <sp...")

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

# Koch curve

reset
canvassize 850, 550
go 125, 350
turnright 90

learn koch $x, $t {
  if $t>0  {
    $t=$t-1
    $x=$x/3
    koch $x, $t
    turnleft 60
    koch $x, $t
    turnright 120
    koch $x, $t
    turnleft 60
    koch $x, $t
  } else {
  forward 3*$x 
  }
}
koch 200, 6

Retrieved from "https://userbase.kde.org/index.php?title=Translations:KTurtle/Examples/19/da&oldid=265971"