Dim r(1)=(1,0)
Dim d(1)=(Cos(Rad(60)),-Sin(Rad(60)))
Dim u(1)=(Cos(Rad(60)),Sin(Rad(60)))
Dim c(1),e(1),f(1)
Dim xy(1,12)
CLS
hat
Math scale xy(),MM.HRes/9,xy()
For i=0 To 11
 Line xy(0,i)+MM.HRes*.6,MM.VRes\2-xy(1,i),xy(0,i+1)+MM.HRes*.6,MM.VRes\2-xy(1,i+1)
 Circle xy(0,i)+MM.HRes*.6,MM.VRes\2-xy(1,i),3,,,RGB(white),RGB(white)
 Pause 1000
Next
 Circle xy(0,12)+MM.HRes*.6,MM.VRes\2-xy(1,12),3,,,RGB(white),RGB(white)
 Line xy(0,12)+MM.HRes*.6,MM.VRes\2-xy(1,12),xy(0,0)+MM.HRes*.6,  MM.VRes\2-xy(1,0)
'
Text MM.HRes*0.7,MM.VRes/6,"HAT",C,,MM.HRes/200
Pause 1000
turtle
Math scale xy(),MM.HRes/16,xy()
For i=0 To 11
 Line xy(0,i)+MM.HRes*.1,MM.VRes*.3-xy(1,i),xy(0,i+1)+MM.HRes*.1,MM.VRes*.3-xy(1,i+1)
 Circle xy(0,i)+MM.HRes*.1,MM.VRes*.3-xy(1,i),3,,,RGB(white),RGB(white)
 Pause 1000
Next
 Circle xy(0,12)+MM.HRes*.1,MM.VRes*.3-xy(1,12),3,,,RGB(white),RGB(white)
 Line xy(0,12)+MM.HRes*.1,MM.VRes*.3-xy(1,12),xy(0,0)+MM.HRes*.1,MM.VRes*.3-xy(1,0)
'
Math scale xy(),40,xy()
Text MM.HRes*0.2,MM.VRes/6,"TURTLE",C,,MM.HRes/200


Do :Loop
'
Sub hat
 xy(0,0)=0
 xy(1,0)=0
'
 scale r(),0.5,c()
 xy(0,1)=c(0)
 xy(1,1)=c(1)
'
 xy(0,2)=u(0)
 xy(1,2)=u(1)
'
 scale u(),2,c()
 scale d(),0.5,e()
 add c(),e(),f()
 xy(0,3)=f(0)
 xy(1,3)=f(1)
'
 add r(),u(),c()
 xy(0,4)=c(0)
 xy(1,4)=c(1)
'
 scale u(),1,c()
 scale r(),1.5,e()
 add c(),e(),f()
 xy(0,5)=f(0)
 xy(1,5)=f(1)
'
 scale r(),2,c()
 xy(0,6)=c(0)
 xy(1,6)=c(1)
'
 scale u(),-0.5,c()
 scale r(),3,e()
 add c(),e(),f()
 xy(0,7)=f(0)
 xy(1,7)=f(1)
'
 scale r(),2,e()
 add d(),e(),f()
 xy(0,8)=f(0)
 xy(1,8)=f(1)
'
 add r(),d(),f()
 xy(0,9)=f(0)
 xy(1,9)=f(1)
'
 scale d(),0.5,e()
 add r(),e(),f()
 xy(0,10)=f(0)
 xy(1,10)=f(1)
'
 xy(0,11)=d(0)
 xy(1,11)=d(1)
'
 scale u(),-0.5,c()
 xy(0,12)=c(0)
 xy(1,12)=c(1)
'

End Sub

Sub turtle
 xy(0,0)=0
 xy(1,0)=0
'
 xy(0,1)=r(0)
 xy(1,1)=r(1)
'
 add r(),d(),c()
 xy(0,2)=c(0)
 xy(1,2)=c(1)
'
 scale r(),3,c()
 xy(0,3)=c(0)
 xy(1,3)=c(1)
'
 scale r(),5,c()
 scale d(),2,e()
 add c(),e(),f()
 xy(0,4)=f(0)
 xy(1,4)=f(1)
'
 scale r(),4,c()
 scale d(),4,e()
 add c(),e(),f()
 xy(0,5)=f(0)
 xy(1,5)=f(1)
'
 scale r(),3,c()
 scale d(),4,e()
 add c(),e(),f()
 xy(0,6)=f(0)
 xy(1,6)=f(1)
'
 scale r(),2,c()
 scale d(),5,e()
 add c(),e(),f()
 xy(0,7)=f(0)
 xy(1,7)=f(1)
'
 scale d(),4,e()
 add r(),e(),f()
 xy(0,8)=f(0)
 xy(1,8)=f(1)
'
 scale r(),-1,c()
 scale d(),5,e()
 add c(),e(),f()
 xy(0,9)=f(0)
 xy(1,9)=f(1)
'
 scale r(),-1,c()
 scale d(),4,e()
 add c(),e(),f()
 xy(0,10)=f(0)
 xy(1,10)=f(1)
'
 scale d(),3,e()
 xy(0,11)=e(0)
 xy(1,11)=e(1)
'
 scale r(),-1,c()
 scale d(),2,e()
 add c(),e(),f()
 xy(0,12)=f(0)
 xy(1,12)=f(1)
End Sub

Sub mul a(),b(),c()
 c(0)=a(0)*b(0)
 a(1)=a(1)*b(1)
End Sub

Sub add a(),b(),c()
 c(0)=a(0)+b(0)
 c(1)=a(1)+b(1)
End Sub

Sub scale a(),b,c()
 c(0)=a(0)*b
 c(1)=a(1)*b
End Sub