Code : Tout sélectionner
If ExamineDesktops() = 0
End
Else
Width = DesktopWidth(0)
Height = DesktopHeight(0)
Depth = DesktopDepth(0)
EndIf
;- Initialisation de DirectX
If InitSprite() = 0 Or InitKeyboard() = 0
MessageRequester("Erreur", "Impossible d'initialiser DirectX", 0)
End
EndIf
;- Ouverture de la fenêtre et de l'écran
OpenScreen(Width,Height,Depth,"")
sensX1 = 4 : sensY1 = 8
sensX2 = 7 : sensY2 = 7
sensX3 = 5 : sensY3 = 11
sensX4 = 9 : sensY4 = 10
;- début de la boucle
Repeat
ClearScreen(0, 0, 0) : ExamineKeyboard()
StartDrawing(ScreenOutput())
DrawingMode(4)
Circle(X1, Y1, 12, RGB($0,$FF,$0))
Circle(X2, Y2, 12, RGB($0,$FF,$0))
Circle(X3, Y3, 12, RGB($0,$FF,$0))
Circle(X4, Y4, 12, RGB($0,$FF,$0))
DrawingMode(1)
LineXY(X1,Y1,X2,Y2,RGB($0,$FF,$FF))
LineXY(X2,Y2,X3,Y3,RGB($0,$FF,$FF))
LineXY(X3,Y3,X4,Y4,RGB($0,$FF,$FF))
LineXY(X4,Y4,X1,Y1,RGB($0,$FF,$FF))
StopDrawing()
X1 + sensX1 : Y1 + sensY1
X2 + sensX2 : Y2 + sensY2
X3 + sensX3 : Y3 + sensY3
X4 + sensX4 : Y4 + sensY4
FlipBuffers()
Delay(1)
If X1 <=0 Or X1 >= Width : sensX1 = -sensX1 : EndIf
If Y1 <=0 Or Y1 >= Height : sensY1 = -sensY1 : EndIf
If X2 <=0 Or X2 >= Width : sensX2 = -sensX2 : EndIf
If Y2 <=0 Or Y2 >= Height : sensY2 = -sensY2 : EndIf
If X3 <=0 Or X3 >= Width : sensX3 = -sensX3 : EndIf
If Y3 <=0 Or Y3 >= Height : sensY3 = -sensY3 : EndIf
If X4 <=0 Or X4 >= Width : sensX4 = -sensX4 : EndIf
If Y4 <=0 Or Y4 >= Height : sensY4 = -sensY4 : EndIf
If KeyboardPushed(#PB_Key_Escape) : quit = 1 : EndIf
Until quit = 1
