PureBasic

salut

Je crois que ce n'est pas encore possible, mais peut faire du rendertotexture avec un screen et des sprites ?
Voici ce que j'aimerai obtenir comme effet (pour les jeux ou les applications graphiques) :
- affichage de sprite de dessous
- RenderTotexture : affichage d'une texture (=surface directX), sur laquelle j'affiche des sprite, et sur laquelle je peux mettre un shader par exemple
- affichage de sprite au dessus.

Est-ce possible ?
Si non, est-ce prévu

?
Car le render to texture en 2D dans les jeux, ça permet quand même de faire des trucs excellent (par exemple, un effet (shader) d'eau sur un écran de titre (pour modifié l'image du fond, mais pas le titre ou les boutons, etc...)

EDIT :
J'ai trouvé ce code sur CodeArchiv, qui permet de faire du rendertotexture avec pb. J'ai testé avec pb5.30 et en modifiant 2 lignes, ça fonctionne, mais ça ne m'affiche rien par contre ^^. En plus, je ne vois vraiment pas comment l'utiliser avec un screen par exemple.

Code : Tout sélectionner

; www.PureArea.net
; Author: jammin (updated for PB 4.00 by Andre)
; Date: 17. August 2003
; OS: Windows
; Demo: No

;render to texture demo
;programmed by jammin 2003
;saw this effect in a demo by UNIK


; IncludeFile "..\..\Includes+Macros\Includes\OpenGL\OpenGL.pbi"
Global start.b
Global textu.l
Global Dim rot.l(4)
Global Dim gelb.l(4)
Global Dim blau.l(4)
Global Dim gruen.l(4)

Procedure _CreateTexture(pData.l,  mipmapping.b, bmpWidth.l, bmpHeight.l)
  mode.s="rgb"
  If pData = 0
    MessageBox_(0, "unable to load texture", ":textureLib", #MB_OK | #MB_ICONERROR)
  Else
    
    glGenTextures_(1, @textu)
    glBindTexture_(#GL_TEXTURE_2D, textu)
    glTexEnvi_(#GL_TEXTURE_ENV, #GL_TEXTURE_ENV_MODE, #GL_MODULATE)       ; Texture blends with object background
    
    
    If mipmapping = 1
      glTexParameteri_(#GL_TEXTURE_2D, #GL_TEXTURE_MIN_FILTER, #GL_LINEAR_MIPMAP_LINEAR)  ; all of the above can be used
    Else
      glTexParameteri_(#GL_TEXTURE_2D, #GL_TEXTURE_MIN_FILTER, #GL_LINEAR)  ; all of the above can be used
    EndIf
    
    
    Select mode
    Case LCase("rgb")
      If mipmapping = 1
        gluBuild2DMipmaps_(#GL_TEXTURE_2D, #GL_RGB, bmpWidth, bmpHeight, #GL_RGB, #GL_UNSIGNED_BYTE, pData):
      Else
        glTexImage2D_(#GL_TEXTURE_2D, 0, #GL_RGB, bmpWidth, bmpHeight, 0, #GL_RGB, #GL_UNSIGNED_BYTE, pData)   ; Use when not wanting mipmaps to be built by openGL
      EndIf
      
    Case LCase("rgba")
      If mipmapping = 1
        gluBuild2DMipmaps_(#GL_TEXTURE_2D, #GL_RGBA, bmpWidth, bmpHeight, #GL_RGBA, #GL_UNSIGNED_BYTE, pData)   ;
      Else
        glTexImage2D_(#GL_TEXTURE_2D, 0, #GL_RGBA, bmpWidth, bmpHeight, 0, #GL_RGBA, #GL_UNSIGNED_BYTE, pData)   ; Use when not wanting mipmaps to be built by openGL
      EndIf
      
    Case LCase("luminance")
      If mipmapping = 1
        gluBuild2DMipmaps_(#GL_TEXTURE_2D, #GL_LUMINANCE, bmpWidth, bmpHeight, #GL_LUMINANCE, #GL_UNSIGNED_BYTE, pData)
      Else
        glTexImage2D_(#GL_TEXTURE_2D, 0, #GL_LUMINANCE, bmpWidth, bmpHeight, 0, #GL_LUMINANCE, #GL_UNSIGNED_BYTE, pData)   ; Use when not wanting mipmaps to be built by openGL
      EndIf
      
    EndSelect
    
  EndIf
  ProcedureReturn textu
  
EndProcedure




Procedure loadBMPTextureMem()
  
  
  Dim bitmapImage.b (12188)
  
  
  For i.l=0 To 12188
    
    
    bitmapImage(i) = 0
    
  Next
  
  
  ; create texture
  textu = _CreateTexture(bitmapImage(),  0, 64, 64)
  
  
  ;  FreeMemory(0)
  Dim bitmapImage.b(0)
  
  ProcedureReturn textu
EndProcedure













Procedure Rendercube(Size.f)
  
  
  glBegin_(#GL_QUADS);
  
  glNormal3f_( -1.0,  0.0,  0.0);
  glVertex3f_( Size, -Size, -Size);
  glVertex3f_( Size,  Size, -Size);
  glVertex3f_( Size,  Size,  Size);
  glVertex3f_( Size, -Size,  Size);
  
  glNormal3f_(1.0,  0.0,  0.0);
  glVertex3f_(-Size, -Size,  Size);
  glVertex3f_(-Size, -Size, -Size);
  glVertex3f_(-Size,  Size, -Size);
  glVertex3f_(-Size,  Size,  Size);
  
  glNormal3f_( 0.0,  0.0, 1.0);
  glVertex3f_(-Size,  Size, -Size);
  glVertex3f_( Size,  Size, -Size);
  glVertex3f_( Size, -Size, -Size);
  glVertex3f_(-Size, -Size, -Size);
  
  glNormal3f_( 0.0,  0.0,  -1.0);
  glVertex3f_(-Size, -Size,  Size);
  glVertex3f_(-Size,  Size,  Size);
  glVertex3f_( Size,  Size,  Size);
  glVertex3f_( Size, -Size,  Size);
  
  glNormal3f_( 0.0,  -1.0,  0.0);
  glVertex3f_( Size,  Size, -Size);
  glVertex3f_( Size,  Size,  Size);
  glVertex3f_(-Size,  Size,  Size);
  glVertex3f_(-Size,  Size, -Size);
  
  glNormal3f_( 0.0, 1.0,  0.0);
  glVertex3f_( Size, -Size,  Size);
  glVertex3f_(-Size, -Size,  Size);
  glVertex3f_(-Size, -Size, -Size);
  glVertex3f_( Size, -Size, -Size);
  
  glEnd_();
  
EndProcedure

Procedure DrawCube2()
  
  glBegin_(#GL_QUADS)
  
  
  
  
  One.f = 1.0
  Null.f = 0.0
  Minus.f = -0.0045
  One1.f = 0.0
  Minus1.f = -0.25
  glColor3f_(1.0,1.0,1.0)
  glNormal3f_( 0.0, 0.0, 1.0 )
  glTexCoord2f_( 0.0, 0.0 ) : glVertex3f_( minus1,minus1, 1.0 )
  glTexCoord2f_( 1.0, 0.0 ) : glVertex3f_(  0.0,minus1, 1.0 )
  glTexCoord2f_( 1.0, 1.0 ) : glVertex3f_(  0.0, 0.0, 1.0 )
  glTexCoord2f_( 0.0, 1.0 ) : glVertex3f_( minus1, 0.0, 1.0 )
  glEnd_()
  
  
EndProcedure




Procedure RenderScene(colorr.f,colorg.f,colorb.f);
  
  
  glColor3f_(colorr.f, colorg.f, colorb.f);
  RenderCube(0.1);
  glTranslatef_(0.25,0.0,0.0)
  
  RenderCube(0.1);
  glTranslatef_(0.25,0.0,0.0)
  RenderCube(0.1);
  glTranslatef_(0.25,0.0,0.0)
  RenderCube(0.1);
  glTranslatef_(-1.0,0.0,0.0)
  RenderCube(0.1);
  glTranslatef_(-0.25,0.0,0.0)
  RenderCube(0.1);
  glTranslatef_(-0.25,0.0,0.0)
  RenderCube(0.1);
  
  
  EndProcedure;
  
  
  
  
Procedure DrawCube(hdc)
  
  If start=0
    
    glMatrixMode_(#GL_PROJECTION);					// Select Projection
    glPushMatrix_();							// Push The Matrix
    glLoadIdentity_();						// Reset The Matrix
    glOrtho_(0,640,480,0,-100,100); ,0,0,0,0,0,0);				// Select Ortho Mode (640x480)
    glMatrixMode_(#GL_MODELVIEW);					// Select Modelview Matrix
    glPushMatrix_();							// Push The Matrix
    glLoadIdentity_();	
    
    
    ;speicher für texturen erstellen
    
    For i=1 To 4
      
      rot(i)=loadbmptexturemem()
      gelb(i)=loadbmptexturemem()
      blau(i)=loadbmptexturemem()
      gruen(i)=loadbmptexturemem()
      
    Next
    
    
    
    
    
    
    
    
    start=1
    
  EndIf
  
  
  glEnable_(#GL_LIGHT0);
  glEnable_(#GL_LIGHTING);
  glEnable_(#GL_COLOR_MATERIAL);
  glEnable_(#GL_DEPTH_TEST);
  glEnable_(#GL_TEXTURE_2D)
  glDepthFunc_(#GL_LEQUAL);
  
  glShadeModel_(#GL_SMOOTH)
  glClearColor_( 1.0, 1.0, 1.0, 0.0 )
  glClear_(#GL_COLOR_BUFFER_BIT);
  glViewport_(0, 0, 256, 256)
  t1.f = GetTickCount_() / 1000;
  
  
  
  
  glClear_(#GL_DEPTH_BUFFER_BIT);
  
  t2.f = t1.f + i / 15 * 0.25;
  
  glLoadIdentity_();
  ;glPolygonMode_(#GL_FRONT, #GL_LINE);
  ;glPolygonMode_(#GL_BACK, #GL_LINE);
  
  glPushMatrix_()
  glRotatef_(t2.f * 70.0, 1.0, 0.0, 0.0);
  glRotatef_(t2.f * 80.0, 0.0, 1.0, 0.0);
  glRotatef_(t2.f * 90.0, 0.0, 0.0, 1.0);
  ;erste scene als textur kopieren -> rendertex
  
  glPolygonMode_(#GL_FRONT, #GL_LINE);
  glPolygonMode_(#GL_BACK, #GL_LINE);
  
  glDisable_(#GL_LIGHTING);
  RenderScene(0.0,0.0,0.0);
  up=0
  For i= 1 To 4
    
    glBindTexture_(#GL_TEXTURE_2D, rot(i));
    glCopyTexImage2D_(#GL_TEXTURE_2D, 0, #GL_RGB, 0, 0+up, 64,64, 0);
    up=up+64
    
  Next
  glEnable_(#GL_LIGHTING);
  glPopMatrix_()
  
  ;erste scene löschen u. 2. rendern
  glClear_(#GL_COLOR_BUFFER_BIT);
  glClear_(#GL_DEPTH_BUFFER_BIT);
  ;glPolygonMode_(#GL_FRONT, #GL_FILL);
  ;glPolygonMode_(#GL_BACK, #GL_FILL);
  
  
  ;glLoadIdentity_();
  glPushMatrix_()
  glRotatef_(t2.f * 70.0, 1.0, 0.0, 0.0);
  glRotatef_(t2.f * 80.0, 0.0, 1.0, 0.0);
  glRotatef_(t2.f * 90.0, 0.0, 0.0, 1.0);
  glPolygonMode_(#GL_FRONT, #GL_FILL);
  glPolygonMode_(#GL_BACK, #GL_FILL);
  ;glDisable_(#GL_COLOR_MATERIAL);
  
  
  
  RenderScene(0.8,0.8,0.8);
  
  glBindTexture_(#GL_TEXTURE_2D, gelb(1));
  glCopyTexImage2D_(#GL_TEXTURE_2D, 0, #GL_RGB, 64, 192, 64,64, 0);
  glBindTexture_(#GL_TEXTURE_2D, gelb(2));
  glCopyTexImage2D_(#GL_TEXTURE_2D, 0, #GL_RGB, 128, 192, 64,64, 0);
  glBindTexture_(#GL_TEXTURE_2D, gelb(3));
  glCopyTexImage2D_(#GL_TEXTURE_2D, 0, #GL_RGB, 64, 128, 64,64, 0);
  glBindTexture_(#GL_TEXTURE_2D, gelb(4));
  glCopyTexImage2D_(#GL_TEXTURE_2D, 0, #GL_RGB, 128, 128, 64,64, 0);
  
  glPopMatrix_()
  
  ;zweite scene löschen u. 3. rendern
  
  glClear_(#GL_COLOR_BUFFER_BIT);
  glClear_(#GL_DEPTH_BUFFER_BIT);
  ;glLoadIdentity_();
  ;glClearColor_( 1.0, 1.0, 1.0, 0.0 )
  ;glEnable_(#GL_COLOR_MATERIAL);
  
  glPushMatrix_()
  glRotatef_(t2.f * 70.0, 1.0, 0.0, 0.0);
  glRotatef_(t2.f * 80.0, 0.0, 1.0, 0.0);
  glRotatef_(t2.f * 90.0, 0.0, 0.0, 1.0);
  
  RenderScene(0.5,0.5,0.5);
  
  glBindTexture_(#GL_TEXTURE_2D, blau(1));
  glCopyTexImage2D_(#GL_TEXTURE_2D, 0, #GL_RGB, 64, 64, 64,64, 0);
  glBindTexture_(#GL_TEXTURE_2D, blau(2));
  glCopyTexImage2D_(#GL_TEXTURE_2D, 0, #GL_RGB, 128, 64, 64,64, 0);
  glBindTexture_(#GL_TEXTURE_2D, blau(3));
  glCopyTexImage2D_(#GL_TEXTURE_2D, 0, #GL_RGB, 64, 0, 64,64, 0);
  glBindTexture_(#GL_TEXTURE_2D, blau(4));
  glCopyTexImage2D_(#GL_TEXTURE_2D, 0, #GL_RGB, 128, 0, 64,64, 0);
  
  
  glPopMatrix_()
  
  
  
  
  ;dritte scene löschen u. 4. rendern
  glClear_(#GL_COLOR_BUFFER_BIT);
  glClear_(#GL_DEPTH_BUFFER_BIT);
  
  ;glLoadIdentity_();
  glPushMatrix_()
  glRotatef_(t2.f * 70.0, 1.0, 0.0, 0.0);
  glRotatef_(t2.f * 80.0, 0.0, 1.0, 0.0);
  glRotatef_(t2.f * 90.0, 0.0, 0.0, 1.0);
  glPolygonMode_(#GL_FRONT, #GL_LINE);
  glPolygonMode_(#GL_BACK, #GL_LINE);
  
  glDisable_(#GL_LIGHTING);
  RenderScene(0.0,0.0,0.0);
  
  up=0
  For i= 1 To 4
    
    glBindTexture_(#GL_TEXTURE_2D, gruen(i));
    glCopyTexImage2D_(#GL_TEXTURE_2D, 0, #GL_RGB, 192, 0+up, 64,64, 0);
    up=up+64
    
  Next
  
  glPopMatrix_()
  
  glEnable_(#GL_LIGHTING);
  
  
  
  
  glViewport_(150, 0, 640, 480)
  glClear_(#GL_COLOR_BUFFER_BIT);
  glClear_(#GL_DEPTH_BUFFER_BIT);
  
  
  glTranslatef_(-0.75,-0.55,0.0)
  glPushMatrix_()  ;glBindTexture_(#GL_TEXTURE_2D, rendertex3);
  For i=1 To 4
    glTranslatef_(0.0,0.25,0.0)
    glBindTexture_(#GL_TEXTURE_2D, rot(i))
    glPolygonMode_(#GL_FRONT, #GL_FILL);
    glPolygonMode_(#GL_BACK, #GL_FILL);
    
    
    
    drawcube2()
    
  Next
  glPopMatrix_()
  
  glTranslatef_(0.95,1.0,0.0)
  glPushMatrix_()
  glTranslatef_(-0.695,0.0,0.0)
  glBindTexture_(#GL_TEXTURE_2D, gelb(1))
  drawcube2()
  glTranslatef_(0.244,0.0,0.0)
  glBindTexture_(#GL_TEXTURE_2D, gelb(2))
  drawcube2()
  glTranslatef_(-0.244,-0.249,0.0)
  glBindTexture_(#GL_TEXTURE_2D, gelb(3))
  drawcube2()
  glTranslatef_(0.244,0.0,0.0)
  glBindTexture_(#GL_TEXTURE_2D, gelb(4))
  drawcube2()
  glPopMatrix_()
  
  
  
  
  glTranslatef_(-0.695,-0.50,0.0)
  glPushMatrix_()
  glBindTexture_(#GL_TEXTURE_2D, blau(1))
  drawcube2()
  glTranslatef_(0.244,0.0,0.0)
  glBindTexture_(#GL_TEXTURE_2D, blau(2))
  drawcube2()
  glTranslatef_(-0.244,-0.25,0.0)
  glBindTexture_(#GL_TEXTURE_2D, blau(3))
  drawcube2()
  glTranslatef_(0.244,0.0,0.0)
  glBindTexture_(#GL_TEXTURE_2D, blau(4))
  drawcube2()
  glPopMatrix_()
  
  
  ;glDisable_(#GL_TEXTURE_2D)
  glTranslatef_(0.5,-0.5,0.0)
  
  glPushMatrix_()
  
  
  For i=1 To 4
    glTranslatef_(0.0,0.25,0.0)
    glBindTexture_(#GL_TEXTURE_2D, gruen(i))
    
    drawcube2()
    
  Next
  glPopMatrix_()
  
  glDisable_(#GL_TEXTURE_2D)
  
  
  
  
  ; // draw a square border sothat you can see where the square is
  
  
  
  
  
  glPolygonMode_(#GL_FRONT, #GL_LINE);
  glPolygonMode_(#GL_BACK, #GL_LINE);
  
  glTranslatef_(-0.5,0.0,0.0)
  
  glLineWidth_(1.0);         // set a thick line for square border
  glColor3f_(0.0, 0.0, 0.0);     // draw a black boder
  glBegin_(#GL_QUADS);      // draw the square borders
  ;
  glVertex3f_(-0.244 , -0.0,  0.0);
  glVertex3f_( 0.244, -0.0 ,  0.0);
  glVertex3f_( 0.244 ,0.495,  0.0);
  glVertex3f_(-0.244 ,  0.495 ,  0.0);
  glEnd_();
  
  
  glTranslatef_(0.0,0.5,0.0)
  
  glLineWidth_(1.0);         // set a thick line for square border
  glColor3f_(0.0, 0.0, 0.0);     // draw a black boder
  glBegin_(#GL_QUADS);      // draw the square borders
  ;
  glVertex3f_(-0.244 , 0.005,  0.0);
  glVertex3f_( 0.244, 0.005 ,  0.0);
  glVertex3f_( 0.244 ,0.495,  0.0);
  glVertex3f_(-0.244 ,  0.495 ,  0.0);
  glEnd_();
  
  glTranslatef_(-0.4,0.0,0.0)
  
  glLineWidth_(1.0);         // set a thick line for square border
  glColor3f_(0.0, 0.0, 0.0);     // draw a black boder
  glBegin_(#GL_QUADS);      // draw the square borders
  ;
  glVertex3f_(-0.1 , -0.5,  0.0);
  glVertex3f_( 0.144, -0.5 ,  0.0);
  glVertex3f_( 0.144 ,0.495,  0.0);
  glVertex3f_(-0.1 ,  0.495 ,  0.0);
  glEnd_();
  
  glTranslatef_(0.755,0.0,0.0)
  
  glLineWidth_(1.0);         // set a thick line for square border
  glColor3f_(0.0, 0.0, 0.0);     // draw a black boder
  glBegin_(#GL_QUADS);      // draw the square borders
  ;
  glVertex3f_(-0.1 , -0.5,  0.0);
  glVertex3f_( 0.144, -0.5 ,  0.0);
  glVertex3f_( 0.144 ,0.495,  0.0);
  glVertex3f_(-0.1 ,  0.495 ,  0.0);
  glEnd_();
  
  
  
  glPolygonMode_(#GL_FRONT, #GL_FILL);
  glPolygonMode_(#GL_BACK, #GL_FILL);
  
  
  
  glTranslatef_(-0.105,0.0,0.0)
  
  glLineWidth_(1.0);         // set a thick line for square border
  glColor3f_(1.0, 1.0, 1.0);     // draw a black boder
  glBegin_(#GL_QUADS);      // draw the square borders
  ;
  glVertex3f_(-0.0020 , -0.5,  0.0);
  glVertex3f_( 0.004, -0.5 ,  0.0);
  glVertex3f_( 0.004 ,0.495,  0.0);
  glVertex3f_(-0.0020 ,  0.495 ,  0.0);
  glEnd_();
  
  glTranslatef_(-0.5,0.0,0.0)
  
  glLineWidth_(1.0);         // set a thick line for square border
  glColor3f_(1.0, 1.0, 1.0);     // draw a black boder
  glBegin_(#GL_QUADS);      // draw the square borders
  ;
  glVertex3f_(-0.0020 , -0.5,  0.0);
  glVertex3f_( 0.004, -0.5 ,  0.0);
  glVertex3f_( 0.004 ,0.495,  0.0);
  glVertex3f_(-0.0020 ,  0.495 ,  0.0);
  glEnd_();
  
  glTranslatef_(-0.0,0.0,0.0)
  
  glLineWidth_(1.0);         // set a thick line for square border
  glColor3f_(1.0, 1.0, 1.0);     // draw a black boder
  glBegin_(#GL_QUADS);      // draw the square borders
  ;
  glVertex3f_(0.5 , -0.00480,  0.0);
  glVertex3f_( 0.0, -0.00480 ,  0.0);
  glVertex3f_( 0.0 ,0.005,  0.0);
  glVertex3f_(0.5 ,  0.005 ,  0.0);
  glEnd_();
  
  
  SwapBuffers_(hdc)
  
EndProcedure


Procedure HandleError (Result, Text$)
  If Result = 0
    MessageRequester("Error", Text$, 0)
    End
  EndIf
EndProcedure


pfd.PIXELFORMATDESCRIPTOR

FlatMode = 0

WindowWidth = 640
WindowHeight = 480




hWnd = OpenWindow(0, 0, 0, WindowWidth, WindowHeight, "Render to texture demo", #PB_Window_SystemMenu)

hdc = GetDC_(hWnd)

pfd\nSize = SizeOf(PIXELFORMATDESCRIPTOR)
pfd\nVersion = 1
pfd\dwFlags = #PFD_SUPPORT_OPENGL | #PFD_DOUBLEBUFFER | #PFD_DRAW_TO_WINDOW
pfd\dwLayerMask = #PFD_MAIN_PLANE
pfd\iPixelType = #PFD_TYPE_RGBA
pfd\cColorBits = 24
pfd\cDepthBits = 16

pixformat = ChoosePixelFormat_(hdc, pfd)

HandleError( SetPixelFormat_(hdc, pixformat, pfd), "SetPixelFormat()")

hrc = wglCreateContext_(hdc)

HandleError( wglMakeCurrent_(hdc,hrc), "vglMakeCurrent()")

HandleError( glViewport_ (0, 0, WindowWidth, WindowHeight), "GLViewPort()") ; A rectangle which define the OpenGL output zone

While Quit = 0
  
  Repeat
    EventID = WindowEvent()
    
    Select EventID
    Case #PB_Event_CloseWindow
      Quit = 1
    EndSelect
    
  Until EventID = 0
  
  DrawCube(hdc)
Wend

Je sais que le moteur MP3D engine de mpz permet aussi de le faire, mais j'aurais vraiment aimé avoir la possibilité de faire ça en interne avec les commandes purebasic à vrai dire ^^.

Le faire en PB avec les commandes "natives" est possible, en revanche , tu devras refaire la gestions des sprites , des textures , des vues , etc...
autant utilisé quelque chose d'existant en le "wrappant" si il le faut : SDL , SFML , allegro , etc...

En fait, quand je parlais de le faire en natif, je me demandais si c'était possible, mais sans tout refaire le reste quand même ^^.
Par exemple, j'ai lu quelque part qu'il existait un include permettant d'utiliser les surfaces DirectX, pour faire du render to texture dessus (et y afficher des sprites par exemple), mais je n'ai pas retrouver.

Il est prévu par la suite d'ajouter cette fonction (le rendertotexture ou les surfaces) ?
On pourrait même y afficher les shaders je pense.
Car pour les jeux et même les applications graphiques c'est hyper important et intéressant.

EDIT :
ApplePi sur le forum Anglais a fait un code pour faire un renduOpenGl sans effacer l'écran (mais pour le moment, j'ai une ima avec son fichier).
Du coup, je me demandais si on ne pouvait pas utiliser sa technique pour dessiner sur une texture (créée avec CreateRenderTexture()) ?
Dommage que que textureoutput() ne support par les texture par CreateRenderTexture()

Par exemple, j'ai lu quelque part qu'il existait un include permettant d'utiliser les surfaces DirectX, pour faire du render to texture dessus (et y afficher des sprites par exemple), mais je n'ai pas retrouver.

Alors là, je ne peu pas te répondre , j'en ai aucune idée.

Il est prévu par la suite d'ajouter cette fonction (le rendertotexture ou les surfaces) ?

Idem, j'aurais bien voulu mettre à jour la partie 2D, le hic , c'est que je connais que opengl.

On pourrait même y afficher les shaders je pense.
Car pour les jeux et même les applications graphiques c'est hyper important et intéressant.

C'est pour ca que je n'utilise plus PB pour les jeux ^^

Il est prévu par la suite d'ajouter cette fonction (le rendertotexture ou les surfaces) ?
Idem, j'aurais bien voulu mettre à jour la partie 2D, le hic , c'est que je connais que opengl.

En openGL, ça me va (si on peut utiliser le reste les sprites/blendmode notamment

Bon, j'ai tenté un truc, mais ça ne marche pas pour le moment.

Code : Tout sélectionner

; basé sur le code d'applepi et pj
; 31/05/2015

InitEngine3D()
InitKeyboard()
InitSprite()
InitMouse()

Enumeration ; Window
  #Window_Main
EndEnumeration

Structure System
  Width.i
  Height.i
  Event.i
  Exit.i

  App_CurrentTime.i
  App_StartTime.i
 
  FPS_Timer.i
  Frames.i
  FPS.i
EndStructure
Global System.System

Procedure FPS()
  
  System\Frames + 1
  If System\App_CurrentTime > System\FPS_Timer
    System\FPS = System\Frames
    System\Frames = 0
    System\FPS_Timer = System\App_CurrentTime  + 1000
    SetWindowTitle(#Window_Main," render to texture test - FPS: "+Str(System\FPS))
  EndIf
 
EndProcedure

 
  System\Width.i = 1024
  System\Height = 768
 
  OpenWindow(#Window_Main,0,0,System\Width, System\Height,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  OpenWindowedScreen(WindowID(#Window_Main), 0, 0, WindowWidth(#Window_Main)-170, WindowHeight(#Window_Main))
 
  CreateCamera(0,0,0,100,100)
  MoveCamera(0,0,0,20,#PB_Absolute)
  CameraLookAt(0, 0, 0, 0)
  
  CreateRenderTexture(9, CameraID(0), CameraViewWidth(0), CameraViewHeight(0)); #PB_Texture_AutomaticUpdate)
  ;CreateMaterial(9, TextureID(9))

  UsePNGImageDecoder()
  LoadSprite(0,"sprite.png",#PB_Sprite_AlphaBlending)
  System\App_StartTime = ElapsedMilliseconds()
  
  ClearScreen(RGB(100,100,100))

Repeat
 
  Repeat
    
    System\Event = WindowEvent()
    
    Select System\Event
        
      Case #PB_Event_CloseWindow       
        System\Exit = #True
        
    EndSelect
    
    
  Until System\Event = 0
   
  System\App_CurrentTime = ElapsedMilliseconds()
  FPS()
  
  DisplayTransparentSprite(0,WindowMouseX(0),WindowMouseY(0)) ; marche po :(
  
  FlipBuffers()
  RenderWorld()
  
  ExamineKeyboard()
  
If KeyboardReleased(#PB_Key_Space)   
   No + 1
   SaveRenderTexture(9, "test2" + Str(No) + ".png")   
EndIf
 
Until System\Exit

Pour le moment, ça ne marche pas, la position du sprite ne bouge pas, il reste bloqué

(sauf si je supprime le createrendertexture()).
Pourtant, je croyais qu'on pouvait afficher un sprite avec engine3D() d'activé.
Mais peut-on ne pas effacer le renderworld?

En openGL, ça me va (si on peut utiliser le reste les sprites/blendmode notamment )

Tu voudrais que je te fasse ça ?

ça va te coûter cher

Le mélange Ogre / Sprite , je ne peu pas te dire non plus, j'ai pas vu les sources pour les sprites , je ne maîtrise pas non plus.

G-Rom a écrit :
En openGL, ça me va (si on peut utiliser le reste les sprites/blendmode notamment )
Tu voudrais que je te fasse ça ? ça va te coûter cher

lol
Je parlais pour l'ajout dans purebasic.
Je pense que ce serait bien que Fred ajoute le RenderToTexture avec le screen et les sprites

.
Comme je le disais, pour les jeux et applications graphiques, ce serait un ajout vraiment considérable et alors la librairie screen/sprites serait enfin complète.
Par exemple, le CanvasOpenGL, c'est sympa et ça a un gros potentiel, mais comme c'est très incomplet pour le moment, ce n'est pas encore réellement utilisable. Alors que si on avait un renderTotexture (avec possibilité d'y afficher des shaders, des sprites...), là, ça serait vraiment énorme

.

Je viens de faire 2-3 tests avec la SFML & PB, ca à l'air de marché (csfml) , je te propose que je m'occupe de wrappé la SFML 2.2 complement , et toi tu t'occupes des exemples basique PB & la doc ( je t'aiderais à comprendre la SFML ).

T'est partant ?

G-Rom a écrit :Je viens de faire 2-3 tests avec la SFML & PB, ça à l'air de marché (csfml)

Un test de RenderToTexture ?Tu dessines des sprites, puis d'autres sprites sur ta texture, voire tu utilises des shaders sur ta texture et au dessus tu peux mettre encore d'autres sprites ?

je te propose que je m'occupe de wrapper la SFML 2.2 complètement , et toi tu t'occupes des exemples basique PB & la doc (je t'aiderais à comprendre la SFML).

T'es partant ?

Si c'est des exemples simples, je peux toujours essayer ^^.
Il faudrait quoi comme exemples ?
Pour la doc, je n'y connais rien avec la SFML, mais avec les exemples, je pourrais déjà expliquer ce que j'ai compris ^^.

un test avec le systeme de base SFML , pas de segfault , donc pour le reste ca marchera. rtt , shader , etc...
J'avais wrappé y a quelque temps la SFML , j'avais fait une démo et kelebrindae avait rajouté des "blob monster" :
http://keleb.free.fr/codecorner/downloa ... erdemo.zip

edit:

La doc existe déjà , il faudra juste l'adapté à PureBasic.

j'ai retesté ta démo, avec pb4.60, mais sur mon pc (windows8), ça ne fait rien après cette ligne (j'ai mis des debug avant et après) :

Code : Tout sélectionner

_SFML_API_ = OpenLibrary(#PB_Any,"pbsfml-"+#MAJOR_VERSION+"."+#LIB_SUFFIX )

J'ai attendu près de deux minutes et il ne se passe rien ^^.
Lorsque je lance l'exécutable c'est pareil, il ne se passe rien.

teste l'exe directement. c'est du x86

il ne se passe rien lorsque je le lance. Dans le gestionnaires des tâches, l'appli est bien lancée, mais rien ne se produit, la fenêtre ne s'ouvre pas.

C'est pas grave. ca marchera de nouveau avec le wrapping que je fait.
J'ai wrappé la partie System à 100% , tout marche via des includes , il me reste l'audio, les fenetres , le reseau , et le graphisme.
je posterais les sources sur github dans la semaine car c'est gros, très gros ^^

PureBasic

Screen, sprite et rendertotexture

Screen, sprite et rendertotexture

Re: Screen, sprite et rendertotexture

Re: Screen, sprite et rendertotexture

Re: Screen, sprite et rendertotexture

Re: Screen, sprite et rendertotexture

Re: Screen, sprite et rendertotexture

Re: Screen, sprite et rendertotexture

Re: Screen, sprite et rendertotexture

Re: Screen, sprite et rendertotexture

Re: Screen, sprite et rendertotexture

Re: Screen, sprite et rendertotexture

Re: Screen, sprite et rendertotexture

Re: Screen, sprite et rendertotexture

Re: Screen, sprite et rendertotexture