[purebasic]Tutoriel - Fx et blendmode

;{ ************************ Infos **************************
; purebasic 4.51
; exemple by blendman 03/2011
; effet de lumière, blendmode
;}

;{ ************************ variables, constante *************

Enumeration
  #window
  #fire
EndEnumeration
;}

;{ ************************ initialisation ******************
InitKeyboard ()
InitSprite()
InitSprite3D()

UsePNGImageDecoder()

;}



;{ ************************ open window *********************

OpenWindow(#window, 0, 0,800, 600, "Fx et blendmode" , #PB_Window_SystemMenu|#PB_Window_BorderLess |#PB_Window_ScreenCentered )
OpenWindowedScreen( WindowID (#window),0,0, 800,600, 1, 0,0)

;}


;{ ************************ sprite et loading ***************

LoadSprite(#fire,"fx.png",#PB_Sprite_AlphaBlending|#PB_Sprite_Texture)
CreateSprite3D(#fire,#fire)
;}



;{ ************************ boucle principale ***************
Repeat
FlipBuffers ()
ClearScreen ( RGB (125,125,125))
Event= WindowEvent ()

ExamineKeyboard ()


Start3D()

; mode de fusion add
Sprite3DBlendingMode(2,2)
DisplaySprite3D(#fire, 100,200)
Sprite3DBlendingMode(5,6)

;mode de fusion multiply (produit)
Sprite3DBlendingMode(9,6)
DisplaySprite3D(#fire, 200,200)
Sprite3DBlendingMode(5,6)

; mode de fusion normal
Sprite3DBlendingMode(5,6)
DisplaySprite3D(#fire, 300,200)
Sprite3DBlendingMode(5,6)

; mode de fusion screen
Sprite3DBlendingMode(9,2)
DisplaySprite3D(#fire, 100,400)
Sprite3DBlendingMode(5,6)

; mode de fusion invert
Sprite3DBlendingMode(8,4)
DisplaySprite3D(#fire, 200,400)
Sprite3DBlendingMode(5,6)


Stop3D()


Until Event= #PB_Event_CloseWindow Or KeyboardPushed ( #PB_Key_Escape )
;}