Etape 3/5: A la découverte des SHAPES

L'un des concepts essentiels pour la création de jeux en Small Basic est celui des SHAPES (ou formes). Il s'apparente quelque peu à la notion de "sprites" autrement dit d'objets que l'on anime et que l'on déplace à l'écran.

Les "Shapes" sont des formes géométriques: Rectangle, Ellipse, Triangle et Line.

En premier lieu, ces formes peuvent être dessinées (commandes Draw) et remplies (commandes Fill).

' Préparation des couleurs
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
' On s'assure que la couleur de dessin est différente de la couleur de fond
While GraphicsWindow.PenColor = GraphicsWindow.BackgroundColor
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
EndWhile
' On prépare la fenêtre
GraphicsWindow.Top = 10
GraphicsWindow.Left = 10
H = Desktop.Height - 100
GraphicsWindow.Width = H
GraphicsWindow.Height = H
' On dessine
H = H/2
For i = 1 To H Step 4
GraphicsWindow.DrawEllipse(H - i, H - i, i * 2, i * 2)
EndFor

Mais elles peuvent aussi être assignées à des variables et êtres déplacées à l'écran grâce à la fonction MoveShape:

GraphicsWindow.Top = 10
GraphicsWindow.Left = 10
GraphicsWindow.Width = 600
GraphicsWindow.Height = 400
' Préparation des Shapes et nommage des Shapes
GraphicsWindow.PenColor = "Blue"
Ligne = GraphicsWindow.AddLine(10,10,100,10)
GraphicsWindow.PenColor = "Yellow"
Rect = GraphicsWindow.AddRectangle(20,50)
GraphicsWindow.PenColor = "Red"
Cercle = GraphicsWindow.AddEllipse(30,50)
GraphicsWindow.PenColor = "Green"
Trian = GraphicsWindow.AddTriangle(10,200,60,200,35,250)
For i=1 To 200
GraphicsWindow.MoveShape(Ligne, i+1,i+1)
GraphicsWindow.MoveShape(Rect, i+2, 50)
GraphicsWindow.MoveShape(Cercle, 30, i+2)
GraphicsWindow.MoveShape(Trian, 10, 200-i)
Program.Delay(20)
EndFor