PureBasic

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

essaye ce code :

;
; ------------------------------------------------------------
;
;   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

non ça plante là

Code : Tout sélectionner

 sfShader_SetParameter1(ShaderSepia,"alpha", 1.0)

memoire invalide erreur adresse 0

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.

Juste pour informations :

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

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

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

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 )

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.

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.

C'est une agréable nouvelle!

cool ^^

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 ?

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

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.

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 ^^

PureBasic

cSFML

Re: cSFML

Re: cSFML

Re: cSFML

Re: cSFML

Re: cSFML

Re: cSFML

Re: cSFML

Re: cSFML

Re: cSFML

Re: cSFML

Re: cSFML

Re: cSFML

Re: cSFML

Re: cSFML

Re: cSFML