Box(a,b,c,d,couleur) [Résolu]

[SPH]

Je repasse dans la section debutant avec un code simple mais qui ne marche pas sur ma machine.
J'essaye d'afficher un simple carré mais ca ne marche pas !!!
Serais je fatigué apres avoir codé tout un jeu

Ce code fonctionne t''il chez vous ? :

Code : Tout sélectionner

If InitSprite() And InitMouse() And InitKeyboard() And InitSound()
Else
MessageRequester("Erreur", "InitSprite() And InitMouse() And InitKeyboard() And InitSound() : impossible")
End 
EndIf

If ExamineDesktops()
  scr_w = DesktopWidth(0)
  scr_h = DesktopHeight(0)
;  scr_w = 1024
;  scr_h = 768
OpenScreen(scr_w,scr_h,32,"")
Else
MessageRequester("Erreur", "OpenScreen impossible")
End
EndIf 

;*********************************************************************************
Repeat
ClearScreen(0)

ExamineMouse() 
mx=MouseX()
my=MouseY()
Mb_Left=MouseButton(#PB_MouseButton_Left)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
StartDrawing(ScreenOutput()) 
Box(100,100,200,150,RGB(255,0,0))
StopDrawing() 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ExamineKeyboard() 
Until KeyboardPushed(#PB_Key_Escape) 

[Fred]

FlipBuffer() ?

[SPH]

FlipBuffer() ?

OOPS, evidemment !!!!