cSFML

[G-Rom]

Arf , c'est moi qui est mal codé le sample....

essaye ce code :

Code : Tout sélectionner

;
; ------------------------------------------------------------
;
;   PureBasic - cSFML Binding 
;
;    2011 - Cpl.Bator
;
; ------------------------------------------------------------
;

XIncludeFile "../../include/cSFML.pbi"


Dim TextString.s(5)
index = 0
TextString(0) = "cSFML - Binding For PureBasic 4.5x"
TextString(1) = "SFML By Laurent Gomilla"
TextString(2) = "Binding for PureBasic By Cpl.Bator"
TextString(3) = "[F1 to F3] For Change shader"
TextString(4) = "this is a powerfull api !"
TextString(5) = ":)"

;-Embeded shader

; Blur
Blur_ShaderCode$ = "uniform sampler2D texture;" + Chr(10)
Blur_ShaderCode$ + "uniform float offset;"+ Chr(10)
Blur_ShaderCode$ + "void main()"+ Chr(10)
Blur_ShaderCode$ +"{"+ Chr(10)
Blur_ShaderCode$ +"	vec2 offx = vec2(offset, 0.0);"+ Chr(10)
Blur_ShaderCode$ +"	vec2 offy = vec2(0.0, offset);"+ Chr(10)
Blur_ShaderCode$ +"	vec4 pixel = texture2D(texture, gl_TexCoord[0].xy)               * 1 +"+ Chr(10)
Blur_ShaderCode$ +"                 texture2D(texture, gl_TexCoord[0].xy - offx)        * 2 +"+ Chr(10)
Blur_ShaderCode$ +"                 texture2D(texture, gl_TexCoord[0].xy + offx)        * 2 +"+ Chr(10)
Blur_ShaderCode$ +"                 texture2D(texture, gl_TexCoord[0].xy - offy)        * 2 +"+ Chr(10)
Blur_ShaderCode$ +"                 texture2D(texture, gl_TexCoord[0].xy + offy)        * 2 +"+ Chr(10)
Blur_ShaderCode$ +"                 texture2D(texture, gl_TexCoord[0].xy - offx - offy) * 1 +"+ Chr(10)
Blur_ShaderCode$ +"                 texture2D(texture, gl_TexCoord[0].xy - offx + offy) * 1 +"+ Chr(10)
Blur_ShaderCode$ +"                 texture2D(texture, gl_TexCoord[0].xy + offx - offy) * 1 +"+ Chr(10)
Blur_ShaderCode$ +"                 texture2D(texture, gl_TexCoord[0].xy + offx + offy) * 1;"+ Chr(10)
Blur_ShaderCode$ +"	gl_FragColor =  gl_Color * (pixel / 13.0);"+ Chr(10)
Blur_ShaderCode$ +"}"+ Chr(10)

; Stereo
Stereo_ShaderCode$ = "#define textureW 1024.0"+ Chr(10)
Stereo_ShaderCode$ + "uniform sampler2D colorMap;"+ Chr(10)
Stereo_ShaderCode$ + "void main (void)"+ Chr(10)
Stereo_ShaderCode$ + "{"+ Chr(10)
Stereo_ShaderCode$ + "	float dec 			 = fract(10 / textureW);"+ Chr(10)
Stereo_ShaderCode$ + "	vec4  ColorLeft  = texture2D( colorMap, gl_TexCoord[0].st + vec2(dec,0) );"+ Chr(10)
Stereo_ShaderCode$ + "	vec4  ColorRight = texture2D( colorMap, gl_TexCoord[0].st - vec2(dec,0) );"+ Chr(10)
Stereo_ShaderCode$ + "	float red        = ColorLeft.x;"+ Chr(10)
Stereo_ShaderCode$ + "	float green			 = (ColorRight.y + ColorRight.z)/2;"+ Chr(10)
Stereo_ShaderCode$ + "	float blue			 = (ColorRight.z + ColorLeft.z)/2;"+ Chr(10)
Stereo_ShaderCode$ + "	gl_FragColor = vec4(red, green, blue, 1);"+ Chr(10)
Stereo_ShaderCode$ + "}"+ Chr(10)

; Sepia
Sepia_ShaderCode$ = "uniform sampler2D texture;"+ Chr(10)
Sepia_ShaderCode$ + "uniform float 		alpha;"+ Chr(10)
Sepia_ShaderCode$ + "void main()"+ Chr(10)
Sepia_ShaderCode$ + "{"+ Chr(10)
Sepia_ShaderCode$ + "	vec4 FragColor = texture2D(texture, gl_TexCoord[0].xy);"+ Chr(10)
Sepia_ShaderCode$ + "	vec4 Texel	   = max(FragColor,max(FragColor.g,FragColor.b)); "+ Chr(10)
Sepia_ShaderCode$ + "	Texel[0] = dot(vec3(FragColor.x,FragColor.y,FragColor.z), vec3(0.393, 0.769, 0.189));"+ Chr(10)
Sepia_ShaderCode$ + "	Texel[1] = dot(vec3(FragColor.x,FragColor.y,FragColor.z), vec3(0.349, 0.686, 0.168));"+ Chr(10)
Sepia_ShaderCode$ + "	Texel[2] = dot(vec3(FragColor.x,FragColor.y,FragColor.z), vec3(0.272, 0.534, 0.131));"+ Chr(10)
Sepia_ShaderCode$ + "	gl_FragColor 	= vec4(Texel[0],Texel[1],Texel[2],alpha);"+ Chr(10)
Sepia_ShaderCode$ + "}"+ Chr(10)



Settings.sfContextSettings          
Settings\DepthBits         = 24     ; ZBuffer de 24 bits
Settings\AntialiasingLevel = 2      ; Niveau d'antialiasing
SettingsMajorVersion       = 1      ; Version OpenGL (2.1) pour la 3 , mettre 3.0
Settings\MinorVersion      = 0
  
  
*Mode.sfVideoMode          = sfVideoMode_GetDesktopMode()  
*window                     = sfRenderWindow_Create(*Mode,"cSFML - PureBasic",#sfFullscreen,@Settings)
ClearColor                 = sfBlack

Font                       = sfFont_CreateFromFile("./data/sensation.ttf")

BackGroundImg              = sfImage_CreateFromFile("./data/BackGround.jpg")
BackGroundSprite           = sfSprite_Create()

sfSprite_SetImage(BackGroundSprite,BackGroundImg,#True)
sfSprite_Resize(BackGroundSprite,*Mode\Width, *Mode\Height)

; Creation d'une surface de rendu "OffScreen" sans z-buffer ( inutile pour de la 2D )
; Elle servira pour appliquer les shaders sur tout l'écran.

If sfRenderImage_IsAvailable()
  
  OffScreenSurface = sfRenderImage_Create(*Mode\Width, *Mode\Height , #False)   ; On crée l'image
  ImageOffScreen   = sfRenderImage_GetImage(OffScreenSurface)                   ; on va la lié à un sprite
  SpriteOffScreen  = sfSprite_Create()                                          ; on créer un sprite , qui sera le resultats des opérations
  
  sfSprite_SetImage(SpriteOffScreen,ImageOffScreen,#True)
    
Else
  OffScreenSurface = #Null
  TextString(0) = "OFFSCREEN RENDERING NOT SUPPORTED !"
EndIf 
  
If Not sfShader_IsAvailable()
  ShaderBlur   = sfShader_CreateFromMemory( @Blur_ShaderCode$)
  ShaderStereo = sfShader_CreateFromMemory( @Stereo_ShaderCode$)
  ShaderSepia  = sfShader_CreateFromMemory( @Sepia_ShaderCode$)
  
  sfShader_SetParameter1(ShaderSepia,"alpha", 1.0)
  
  Shader.a = #True 
  
Else
  ShaderBlur   = #Null
  ShaderStereo = #Null
  ShaderSepia  = #Null
  Shader       = #False 
  
  TextString(3) = "Pas de shader :/"
  
EndIf   
  

  
  
Text = sfText_Create()

; Size 78 for an screen height of 1050
CharSize = *Mode\Height * 78 / 1050
sfText_SetCharacterSize(Text,CharSize)   


  cShader = ShaderBlur
  MsgTimer = 0
  
  Repeat 

   sfRenderWindow_GetEvent(*window,@event)        ; On récupère les evenement lié à la fenetre
    input = sfRenderWindow_GetInput(*window)
    
    If sfInput_IsKeyDown(input,#sf_key_Escape)
      sfWindow_Close(*window)
    EndIf 
    
    
    If sfInput_IsKeyDown(input,#sf_key_F1)
      cShader = ShaderBlur
    EndIf 
    
    If sfInput_IsKeyDown(input,#sf_key_F2)
      cShader = ShaderStereo
    EndIf 
    
    If sfInput_IsKeyDown(input,#sf_key_F3)
      cShader = ShaderSepia
    EndIf 
    
    
    ;     On joue avec les shader en temps réel ;)
    If shader = #True
    sfShader_SetParameter1(ShaderBlur,"offset", (5 * Cos(ElapsedMilliseconds()/500))/1000  )
  EndIf 
  
    Angle.f = 10 + 5 * Cos(ElapsedMilliseconds()/250)-10
    sfText_SetRotation(Text, Angle)
    
    If MsgTimer < ElapsedMilliseconds()
      MsgTimer = ElapsedMilliseconds() + 3000
      
      sfText_SetString(Text,TextString(index))
      
;       Center Text on the screen
      *Rect.sfFloatRect = sfText_GetRect(Text)
        sfText_SetOrigin(Text,*Rect\Width / 2, *Rect\Height / 2)
        sfText_SetX(Text, *Mode\Width/2)
        sfText_SetY(Text, *Mode\Height/2)
        
        index + 1
      index % 6

    EndIf 
   
    
    ;Rendu OffScreen (si disponible)
    If OffScreenSurface<>#Null
      sfRenderImage_Clear(OffScreenSurface,ClearColor)              ; Efface la surface offscreen
        sfRenderImage_DrawSprite(OffScreenSurface,BackGroundSprite) ; Affiche le fond
        sfRenderImage_DrawText(OffScreenSurface,Text)               ; Affiche le texte
      sfRenderImage_Display(OffScreenSurface)                       ; met à jour la surface offscreen
       
    
      sfRenderWindow_Clear(*window,ClearColor)
      If Shader = #True 
        sfRenderWindow_DrawSpriteWithShader(*window,SpriteOffScreen,cShader)
      Else
        sfRenderWindow_DrawSprite(*window,SpriteOffScreen)
      EndIf 
      
      sfRenderWindow_Display(*window)
    Else
      
      
    sfRenderWindow_Clear(*window,ClearColor)
    
      sfRenderWindow_DrawSprite(*window,BackGroundSprite)
      sfRenderWindow_DrawText(*window,Text)
    
    sfRenderWindow_Display(*window)
      
      
    EndIf 

  Until sfRenderWindow_IsOpened(*window) <> #True 
      
  
  
  

[Backup]

non ça plante là

Code : Tout sélectionner

 sfShader_SetParameter1(ShaderSepia,"alpha", 1.0)

memoire invalide erreur adresse 0

[G-Rom]

Code : Tout sélectionner

sfShader_SetParameter1(ShaderSepia,"alpha", 1.0)

C'est normal , j'ai codé avec des moufles...


rajoute

Code : Tout sélectionner

If Shader = #True 

ou supprime la ligne. ca devrait marché.
Merci.

[Progi1984]

Juste pour informations :

http://code.google.com/p/rwrappers/sour ... unk%2FSFML

[G-Rom]

et ceux qui sont sous Linux ?
j'ai réuni la SFML&cSFML en une seule et même librairie.
je vais voir pour faire une userlib au lieu d'un wrapp avec un .pbi

[poshu]

je suis plutôt pro include, c'est toujours plus pratique pour les vieux codes.

[G-Rom]

Tu n'aimes pas les userlibs ? , le code source est ouvert
sinon , c'est toujours d'actu , j'ai demander à flaith & à fred de m'aider sur le sujet ( du moins pour windoz )

[blendman]

salut

je n'ai pas encore testé tout ça mais ça m'a l'air d'être une excellente nouvelle .

Si j'ai bien compris, on peut utiliser la SFML avec purebasic c'est bien ça ?

Est-ce plus intéressant pour windows que DirectX , plus performant, avec plus de fonctions ?

Encore merci pour cette nouvelle intéressante, je testerai ça dès que possible.

[G-Rom]

Salut, la sfml 2.0 est une alternative moderne a la sdl. Les possibilités actuelle sont énorme par rapport aux commandes de base de pb. ( rendu sur texture, support du glsl, etc... ) je mettrais la version qui fonctionne sous windows aujourd'hui
en ligne.

[Warkering]

C'est une agréable nouvelle!

[Ar-S]

cool ^^

[G-Rom]

J'ai suivi les conseils de poshu , les userlib pb sous windows me débecte
avant de faire une grosse release qui comprends les sources et la documentation en français avec les tutoriaux , plus des macros
qui faciliterons certaine commandes
voici une petite démo que je viens de codé pour windows :

http://code.google.com/p/csfml-purebasi ... akechanges

faite pas gaffe aux sources , c'est un peu crado , mais je suis aller vite ^^
sinon , l'include de la sfml devrais marcher chez tout le monde.


ps: sous windows , du moins sur un de mes postes , le support des thèmes XP n'est pas supporté.
il y a un bug d'openAL à la sortie du programme , il faut killé le process manuellement.



@Dobro , si tu passes dans le coin , du peut me dire si ca fonctionne avec ton nc10 stp ?

[Ar-S]

hum l'exe se lance mais il ne se passe rien... Il est juste affiché dans le gestionnaire de périph et du coup, je le tue.

7X64 + ATI HD 6850

[G-Rom]

Lance le code PB avec le debugger , ici j'ai une nvidia.
si ca marche pas essaye de rajouté

SFX.a = #False

a la ligne 173.

merci.

[Ar-S]

j'essayerai ce soir si je suis pas trop naze ou demain, faut que je file je suis à la bourre... Percu ce soir et petit demo samedi, et je suis loin d'être au point ^^