Small Basic: Exemple - Tortue avec Flickr (fr-FR)

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

• Référence : L'objet Flick
• Référence : L'objet Turtle

Autres Langues

• Article original :  Small Basic Sample: Turtle Plus Flickr (en-US)