Docela zajimavy, z nostalgie jsem si s tim chvilku hral ale docela me stve/limituje nemoznost predavat prommenne do "subrutin". Ja snad tu holku zacnu ucit Ccko ;-)
GraphicsWindow.PenColor=GraphicsWindow.GetColorFromRGB(255,0,0)
GraphicsWindow.PenWidth=2
Turtle.Show()
Turtle.Speed=10
For k=1 To 1024
TurtleAngle=Math.GetRandomNumber(360)
PosX=60+Math.GetRandomNumber(300)
PosY=60+Math.GetRandomNumber(300)
KresliSrdicko()
EndFor
Sub KresliSrdicko
GraphicsWindow.PenColor = GraphicsWindow.GetColorFromRGB(Math.GetRandomNumber(255),Math.GetRandomNumber(255),Math.GetRandomNumber(255))
Turtle.Angle=TurtleAngle
Turtle.Hide()
Turtle.PenUp()
Turtle.MoveTo(PosX,PosY)
Turtle.Show()
Turtle.PenDown()
For i=1 To 30
Turtle.Turn(8)
Turtle.Move(2)
EndFor
Turtle.Move(26)
Turtle.PenUp()
Turtle.MoveTo(PosX,PosY)
Turtle.PenDown()
For i=1 To 30
Turtle.Turn(-8)
Turtle.Move(2)
EndFor
Turtle.Move(26)
Turtle.PenUp()
EndSub