KTurtle - Heighway Dragon

Commands for Heighway Dragon -


reset
canvassize 500, 500
go 320, 400
tr 90
$size = 7
learn X $depth {
if $depth>0 {
X $depth-1
tl 90
Y $depth-1
fw $size}}
learn Y $depth {
if $depth>0 {
fw $size
X $depth-1
tr 90
Y $depth-1}}
pencolor 0,255,0
fw $size
X 10
tl 90
pencolor 255,0,0
Y 10
fw $size
go 50,450