Sunday, February 19, 2012

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

1 comment:

  1. yelwo mi frend mihir. mi nome ees Krasjojijfiw. i luve yur cummandz for Kturtle. eet vary gud. oo rokc. go fook yursalf.

    ReplyDelete

Click here to add comments. Please use appropriate words. Thanks.