PureBasic

Code : Tout sélectionner

InitSprite()
OpenScreen(800,600,32,"Sprite")

;Sprite Cible.
CreateSprite(0,100,100)
StartDrawing(SpriteOutput(0))
Circle(50,50,49,RGB(255,255,0))
Circle(50,50,40,RGB(0,255,0))
Circle(50,50,30,RGB(0,255,255))
Circle(50,50,20,RGB(0,0,255))
Circle(50,50,10,RGB(255,0,0))
StopDrawing()

;Sprite Cible.
CreateSprite(1,100,100)
;Qualité de rendue meilleure ?
SpriteQuality(#PB_Sprite_BilinearFiltering)
StartDrawing(SpriteOutput(1))
Circle(50,50,49,RGB(255,255,0))
Circle(50,50,40,RGB(0,255,0))
Circle(50,50,30,RGB(0,255,255))
Circle(50,50,20,RGB(0,0,255))
Circle(50,50,10,RGB(255,0,0))
StopDrawing()


DisplaySprite(0, 200, 160)

;SpriteQuality(#PB_Sprite_BilinearFiltering)
DisplaySprite(1, 500, 160)


;Affichage à l'écran  
FlipBuffers()


;Attendre 3 secondes
Delay(5000)

Code : Tout sélectionner

InitSprite()
InitKeyboard()
OpenScreen(800,600,32,"Sprite")

;Sprite Cible.
CreateSprite(0,100,100)
StartDrawing(SpriteOutput(0))
Circle(50,50,49,RGB(255,255,0))
Circle(50,50,40,RGB(0,255,0))
Circle(50,50,30,RGB(0,255,255))
Circle(50,50,20,RGB(0,0,255))
Box(40,40,20,20, RGB(255,0,0))
StopDrawing()

;Sprite Cible.
CreateSprite(1,100,100)
;Qualité de rendue meilleure ?
;SpriteQuality(#PB_Sprite_BilinearFiltering)
StartDrawing(SpriteOutput(1))
Circle(50,50,49,RGB(255,255,0))
Circle(50,50,40,RGB(0,255,0))
Circle(50,50,30,RGB(0,255,255))
Circle(50,50,20,RGB(0,0,255))
Box(40,40,20,20, RGB(255,0,0))
StopDrawing()


Repeat
  ClearScreen(0)
  ExamineKeyboard()
  SpriteQuality(#PB_Sprite_NoFiltering)
  RotateSprite(0, 0.5, #PB_Relative)
  ;ZoomSprite(0, 300, 300)
  DisplayTransparentSprite(0, 350, 160)
 
  SpriteQuality(#PB_Sprite_BilinearFiltering)
  RotateSprite(1, 0.5, #PB_Relative)
  ;ZoomSprite(1, 300, 300)
  DisplayTransparentSprite(1, 450, 160)
 
 
  ;Affichage à l'écran
  FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)