voila mon code. mais rien ne s'affiche . quelqu'un pourrait-il m'aider s'il vous plait?
le logo.jepg se trouve dans le meme repertoire que le programe.
Enumeration
#Herdelia
EndEnumeration
;
;
;
ScreenWidth = GetSystemMetrics_(#SM_CXSCREEN)
ScreenHeight = GetSystemMetrics_(#SM_CYSCREEN)
ScreenDepth = 32
If InitSprite() And InitMouse() And InitKeyboard()
If OpenScreen(ScreenWidth, ScreenHeight, ScreenDepth, "")
;
; Génère n'importe nawak pour replacer le LoadSprite
;
CreateSprite(#Herdelia, 64, 64, #PB_Sprite_Texture)
StartDrawing(SpriteOutput(#Herdelia))
For i = 1 To 100
Plot(Random(63), Random(63), Random($FFFFFF))
Next
StopDrawing()
Quit = #False
Repeat
FlipBuffers()
ClearScreen(0, 0, 0)
DisplaySprite(#Herdelia, MouseX(), MouseY())
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Escape) : Quit = #True : EndIf
ExamineMouse()
Until Quit
EndIf
EndIf
End
Mon avatar reproduit l'image de 4x1.8m présentée au 'Salon international du meuble de Paris' en janvier 2004, dans l'exposition 'Shades' réunisant 22 créateurs autour de Matt Sindall. L'original est un stratifié en 150 dpi.