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  

Voir Aussi


Autres Langues