Microsoft Small Basic

Sample: Turtle plus Flickr

Modified: 2008/12/19 02:48 by admin - Categorized as: Samples
Edit

Code

GraphicsWindow.Show()   
  
pic = Flickr.GetRandomPicture("lightning")   
gw = GraphicsWindow.Width   
gh = GraphicsWindow.Height   
GraphicsWindow.DrawResizedImage(pic, 0, 0, gw, gh)   
  
distance = 50   
Turtle.Speed = 9   
  
For sides = 3 To 20   
  DrawPolygon()   
EndFor   
  
Sub DrawPolygon   
  angle = 360 / sides   
  For i = 1 To sides   
    GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()   
    Turtle.Move(distance)   
    Turtle.Turn(angle)   
  EndFor   
EndSub  

Edit

Screenshot

Image

ScrewTurn Wiki version 2.0.35. Some of the icons created by FamFamFam.