'Published ID#
'Make the tortoise go as fast as possible --#3
Tortoise.SetSpeed(10)
'Get a picture of sand from Flickr --#7.1
picture = Flickr.GetRandomPicture("sand")
'Use that picture as your background --#7
ProgramWindow.DrawBackgroundImage(picture)
'A side is 1 pixel long --#4.1
side = 1
'Do the following 200 times --#2
For i = 1 To 200
' Get the color of the pixel the tortoise is currently on --#8.1
color = ProgramWindow.GetPixelColor(Tortoise.GetX(), Tortoise.GetY())
' Use that color for the line the tortoise draws --#8
Tortoise.SetPenColor(color)
' Increase the length of a side by 1 pixel --#5
side = side + 1
' Move the tortoise the length of the current side --#4
Tortoise.Move(side)
' Turn the tortoise 1/3rd of 360 degress to the right --#1
Tortoise.Turn(360/3)
' Turn the tortoise 1 more degree --#6
Tortoise.Turn(1)
'Repeat --#2
EndFor
Program Listing: WPB966