Legerement MARRE de MemVideo !!

Anonyme · Message par **Anonyme** » mer. 30/avr./2008 23:14

Buffer = Adresse du 1° octet de la mémoire vidéo.
PF = Format du pixel , 4,3,2,ou 1
BufferP = Taille en octet d'une ligne ex : 1024*4 , le 4 est le Pixel Format

AdresseVideo = Buffer + ( x * PF ) + (BufferP/PF) * (y * PF)

Code : Tout sélectionner

InitSprite() : InitKeyboard() : InitMouse()

dw=1024
dh=768
dc=32

OpenScreen(dw,dh,dc,"")





Repeat
  ClearScreen(0)
  ExamineKeyboard()

If KeyboardPushed(#PB_Key_Escape) : Quit=1 : EndIf 


    StartDrawing(ScreenOutput())
   
    Buffer  = DrawingBuffer()
    BufferP = DrawingBufferPitch()
    PixelF  = DrawingBufferPixelFormat()
    
    
    Select PixelF
      Case  #PB_PixelFormat_8Bits       : PF=1
      Case  #PB_PixelFormat_15Bits      : PF=2
      Case  #PB_PixelFormat_16Bits      : PF=2
      Case  #PB_PixelFormat_24Bits_RGB  : PF=3
      Case  #PB_PixelFormat_24Bits_BGR  : PF=3
      Case  #PB_PixelFormat_32Bits_RGB  : PF=4
      Case  #PB_PixelFormat_32Bits_BGR  : PF=4
    EndSelect
     
    
    
    For i = 1 To 30
    x=i
    y=i
    AdresseVideo  = Buffer + ( x * PF ) + (BufferP/PF) * (y * PF)
        PokeL(AdresseVideo,$FFFFFF)
    Next
    
    
    
    
    StopDrawing()



    FlipBuffers()
  Until quit=1
End

Backup · Message par **Backup** » jeu. 01/mai/2008 10:31

donc en suivant ton info Cpl Bator, j'ai reactualisé les procedures que tu avais faite pour le rapide plot() et point()

en fait Rapide plot n'apporte rien en terme de rapidité !!
par contre le rapide point lui est nettement plus rapide !!

voici les 2 procedures
et un exemple d'utilisation pour remplacer le plot

; le CERCLE
; exemple de cercle
; bouge = bouge + 1
; PSet (6000 * Cos(bouge) + (Screen.Width / 2), 6000 * Sin(bouge) + (Screen.Height / 2))
; angle en degré = 180 * (angle en radian) / pi
; ;Plot(WindowMouseX(), WindowMouseY(), RGB(255,255,255))
; ;sin*compt*phase/nmbr de point *amplitude
;Plot (60 * Cos(bouge) + (512 / 2), 60 * Sin(bouge) + (512 / 2),RGB(2,0,255))
Declare rapide_Point(x,y)
Declare rapide_Plot(x,y,color)

#dobro =1
#Police =1
#Sprite =1
; ***********************************
Resultat = InitSprite ()
FontID = LoadFont ( #Police , "arial" , 50, #PB_Font_Bold )
EcranX = GetSystemMetrics_ ( #SM_CXSCREEN ): ;=largeur de l'ecran
EcranY = GetSystemMetrics_ ( #SM_CYSCREEN ): ;=hauteur de l'ecran
     WindowID = OpenWindow (1, 0, 0, EcranX, EcranY, "hello" , #PB_Window_SystemMenu|#PB_Window_BorderLess |#PB_Window_ScreenCentered )

     WindowID = WindowID (1)
    Result = OpenWindowedScreen ( WindowID ,0,0, EcranX, EcranY, 1, 0,0)
    Resultat = InitMouse ()
     Repeat
         ExamineMouse ()
        Event= WaitWindowEvent ()
         StartDrawing ( ScreenOutput ())
            compt+1
            y= Sin (180*(compt*1/10000)/ #PI ) * (768 / 4) +768 / 2
            x= Cos (180*(compt*1/10000)/ #PI ) * (1024 / 4)+1024 / 2

            rapide_Plot(x,y, RGB (0,255,0)) ; Procedure de Remplacement

             ;Plot(x, y,RGB(255,255,255)) ; plot ordinaire : o)

         StopDrawing ()
         FlipBuffers (): ; affiche l'ecran
         ; ClearScreen(0, 0, 0) :;efface l'ecran
        Event= WindowEvent ()
         ;}

         If MouseButton (2)
             End
         EndIf
     Until Event= #PB_Event_CloseWindow


     Procedure rapide_Point(x,y)
         ; AdresseVideo = Buffer + ( x * PF ) + (BufferP/PF) * (y * PF)
         Select DrawingBufferPixelFormat ()
             Case #PB_PixelFormat_16Bits : PF=2
                color = PeekW ( DrawingBuffer () + (x * PF) +( DrawingBufferPitch ()/PF)* ( y*PF ) )
             Case #PB_PixelFormat_32Bits_RGB : PF=4
                color= PeekL ( DrawingBuffer () + (x * PF) +( DrawingBufferPitch ()/PF)* ( y*PF ) )
             Case #PB_PixelFormat_32Bits_BGR : PF=4
                color= PeekL ( DrawingBuffer () + (x * PF) +( DrawingBufferPitch ()/PF)* ( y*PF ) )
                Rouge= Red (color)
                Vert= Green (color)
                Bleu= Blue (color)
                color= RGB (Bleu,Vert,Rouge)
         EndSelect
         ProcedureReturn color
     EndProcedure

     Procedure rapide_Plot(x,y,color)
         ; AdresseVideo = Buffer + ( x * PF ) + (BufferP/PF) * (y * PF)
         Select DrawingBufferPixelFormat ()
             Case #PB_PixelFormat_16Bits : PF=2
                Rouge= Red (color)
                Vert= Green (color)
                Bleu= Blue (color)
                color= RGB (Bleu,Vert,Rouge)
                color=color>>2
                 PokeW ( DrawingBuffer () + (x * PF) +( DrawingBufferPitch ()/PF)* ( y *PF) , color )
             Case #PB_PixelFormat_32Bits_RGB : PF=4:t=0
                 PokeL ( DrawingBuffer () + (x * PF) +( DrawingBufferPitch ()/PF)* ( y *PF) ,color )
             Case #PB_PixelFormat_32Bits_BGR : PF=4:t=1
                Rouge= Red (color)
                Vert= Green (color)
                Bleu= Blue (color)
                color= RGB (Bleu,Vert,Rouge)
                 PokeL ( DrawingBuffer () + (x * PF) +( DrawingBufferPitch ()/PF)* ( y *PF) ,color )
         EndSelect
     EndProcedure

voici les 2 procedures Seules

)

Procedure rapide_Point(x,y)
     ; AdresseVideo = Buffer + ( x * PF ) + (BufferP/PF) * (y * PF)
     Select DrawingBufferPixelFormat ()
         Case #PB_PixelFormat_16Bits : PF=2
            color = PeekW ( DrawingBuffer () + (x * PF) +( DrawingBufferPitch ()/PF)* ( y*PF ) )
         Case #PB_PixelFormat_32Bits_RGB : PF=4
            color= PeekL ( DrawingBuffer () + (x * PF) +( DrawingBufferPitch ()/PF)* ( y*PF ) )
         Case #PB_PixelFormat_32Bits_BGR : PF=4
            color= PeekL ( DrawingBuffer () + (x * PF) +( DrawingBufferPitch ()/PF)* ( y*PF ) )
            Rouge= Red (color)
            Vert= Green (color)
            Bleu= Blue (color)
            color= RGB (Bleu,Vert,Rouge)
     EndSelect
     ProcedureReturn color
EndProcedure

Procedure rapide_Plot(x,y,color)
     ; AdresseVideo = Buffer + ( x * PF ) + (BufferP/PF) * (y * PF)
     Select DrawingBufferPixelFormat ()
         Case #PB_PixelFormat_16Bits : PF=2
            Rouge= Red (color)
            Vert= Green (color)
            Bleu= Blue (color)
            color= RGB (Bleu,Vert,Rouge)
            color=color>>2
             PokeW ( DrawingBuffer () + (x * PF) +( DrawingBufferPitch ()/PF)* ( y *PF) , color )
         Case #PB_PixelFormat_32Bits_RGB : PF=4:t=0
             PokeL ( DrawingBuffer () + (x * PF) +( DrawingBufferPitch ()/PF)* ( y *PF) ,color )
         Case #PB_PixelFormat_32Bits_BGR : PF=4:t=1
            Rouge= Red (color)
            Vert= Green (color)
            Bleu= Blue (color)
            color= RGB (Bleu,Vert,Rouge)
             PokeL ( DrawingBuffer () + (x * PF) +( DrawingBufferPitch ()/PF)* ( y *PF) ,color )
     EndSelect
EndProcedure

djes · Message par **djes** » jeu. 01/mai/2008 11:37

Toujours à réinventer la roue...

Backup · Message par **Backup** » jeu. 01/mai/2008 13:11

djes a écrit :Toujours à réinventer la roue...

pas vraiment !!
fais une comparaison sur la procedure rapide_Point()
et la fonction point() de purebasic, tu verra si c'est avoir réinventé la roue !!

tiens l'exemple qui tue !!
change le point() et decomente la version rapide
tu vas comprendre

j'ai 7297 avec le point() d'origine

et 781 avec le point() de remplacement...

Alors ? la roue ? hum

Code : Tout sélectionner

Declare rapide_Point(x,y)   
Declare rapide_Plot(x,y,color) 

#dobro=1
#Police=1
#Sprite=1
; ***********************************
Resultat = InitSprite()
FontID = LoadFont(#Police, "arial", 50, #PB_Font_Bold )
EcranX = GetSystemMetrics_(#SM_CXSCREEN):;=largeur de l'ecran
EcranY = GetSystemMetrics_(#SM_CYSCREEN):;=hauteur de l'ecran
    WindowID = OpenWindow(1, 0, 0, EcranX, EcranY, "hello", #PB_Window_SystemMenu|#PB_Window_BorderLess |#PB_Window_ScreenCentered ) 
    
    WindowID = WindowID(1) 
    Result = OpenWindowedScreen(WindowID,0,0, EcranX, EcranY, 1, 0,0)  
    Resultat = InitMouse() 
    Repeat
        ExamineMouse() 
        Event=WaitWindowEvent() 
        StartDrawing( ScreenOutput())  
            TempsDepart = ElapsedMilliseconds()  ; Récupère la valeur actuelle
            For y=0 To EcranY-1
                For x=0 To EcranX-1
                    ; coul= rapide_Point(x,y)  ; Procedure de Remplacement 
                    coul= Point(x,y) 
                Next x
            Next y 
            TempsEcoule = ElapsedMilliseconds()-TempsDepart  

        StopDrawing() 
        MessageRequester("Temps","chronos="+Str(TempsEcoule),#PB_MessageRequester_Ok )
        End
        FlipBuffers():; affiche l'ecran
        ; ClearScreen(0, 0, 0) :;efface l'ecran 
        Event=WindowEvent()   
        ;}
        
        If MouseButton(2)
            End
        EndIf 
    Until Event=#PB_Event_CloseWindow 
    
    
    Procedure rapide_Point(x,y)   
        ;  AdresseVideo  = Buffer + ( x * PF ) + (BufferP/PF) * (y * PF) 
        Select DrawingBufferPixelFormat()  
            Case #PB_PixelFormat_16Bits:PF=2  
                color = PeekW( DrawingBuffer()  + (x * PF) +(DrawingBufferPitch()/PF)* ( y*PF ) )  
            Case #PB_PixelFormat_32Bits_RGB    : PF=4
                color= PeekL(DrawingBuffer() + (x * PF) +(DrawingBufferPitch()/PF)* ( y*PF )  )
            Case #PB_PixelFormat_32Bits_BGR    : PF=4
                color= PeekL(DrawingBuffer() + (x * PF) +(DrawingBufferPitch()/PF)* ( y*PF )  ) 
                Rouge=Red(color)
                Vert=Green(color)
                Bleu=Blue(color)
                color=RGB(Bleu,Vert,Rouge)  
        EndSelect   
        ProcedureReturn color 
    EndProcedure
    
    Procedure rapide_Plot(x,y,color)   
        ;  AdresseVideo  = Buffer + ( x * PF ) + (BufferP/PF) * (y * PF) 
        Select DrawingBufferPixelFormat() 
            Case #PB_PixelFormat_16Bits :PF=2 
                Rouge=Red(color)
                Vert=Green(color)
                Bleu=Blue(color)
                color=RGB(Bleu,Vert,Rouge)   
                color=color>>2   
                PokeW( DrawingBuffer()  + (x * PF) +(DrawingBufferPitch()/PF)* ( y *PF) , color ) 
            Case #PB_PixelFormat_32Bits_RGB    : PF=4:t=0 
                PokeL(DrawingBuffer() + (x * PF) +(DrawingBufferPitch()/PF)* ( y *PF) ,color ) 
            Case #PB_PixelFormat_32Bits_BGR    : PF=4:t=1  
                Rouge=Red(color)
                Vert=Green(color)
                Bleu=Blue(color)
                color=RGB(Bleu,Vert,Rouge) 
                PokeL(DrawingBuffer() + (x * PF) +(DrawingBufferPitch()/PF)* ( y *PF) ,color ) 
        EndSelect   
    EndProcedure

SPH · Message par **SPH** » jeu. 01/mai/2008 13:49

Ollivier a écrit :@SPH

D'après l'image que tu as, la pronfondeur des couleurs ne semble pas altérée.

Quelle valeur te retourne ton débogueur avec ce code ci-dessous?
Code : Tout sélectionner
openscreen(1024,768,32,"")

  startdrawing(screenoutput() )

    debug drawingbufferpitch()

  stopdrawing()

closescreen()

Ton code donne 0

Par contre, sur mon code au post 1, en inserant le debug, ca me donne 4096 !

Code : Tout sélectionner

StartDrawing(ScreenOutput()) 

MemVideo = DrawingBuffer() 
CopyMemory(@p(), MemVideo, video) 

Debug DrawingBufferPitch() 
End

StopDrawing()

poshu · Message par **poshu** » jeu. 01/mai/2008 14:13

@case:
je me suis mal exprimé, désolé, je trouve que le ton de SPH à la fois sur ce qu'il vaut et ce que vaut la communauté (je ne me permettrais pas de vous juger, vous qui m'apportez une aide précieuse assez souvent) est trop désagréable pour que j'ai envie de l'aider. Bien sur, c'est pas constructif, ce post pourrait servir à quelqu'un d'autre, mais voilà, je suis un être humain et quand on m'insulte, même indirectement, je vais pas être gentil.

SPH · Message par **SPH** » jeu. 01/mai/2008 15:26

poshu a écrit :@case:
je me suis mal exprimé, désolé, je trouve que le ton de SPH à la fois sur ce qu'il vaut et ce que vaut la communauté

J'ai beau lire et relier mon premier post, c'est bien moi contre la machine et pas moi contre la communauté. Meme les codes que l'on me donne par la suite plantent; preuve qu'il y a reellement un probleme quelque part.

Par contre, on ne peux pas dire que ton post soit ambigü; je te site :

...après avoir lu comme SPH est doué et que toute le reste de la communauté est débile, je m'en vais.

Tu n'es qu'un pauvre con !!!! Ca laisse entendre que tu as la reponse mais que finalement tu preferes ne pas la donner devant tant de débiles.
Case le resume tres bien :

si toi tu as la solution au lieu d'insulter la communauté montres nous que tu n'es pas toi même un débile juste bon a passer sur le forum pour poster des trucs encore plus stupides.

Vraiment, tu es le plus con du forum

Ar-S · Message par **Ar-S** » jeu. 01/mai/2008 15:50

Allez les enfants, on prend son chocolat et on arrête de se disputer.

SPH · Message par **SPH** » jeu. 01/mai/2008 15:53

Ar-S a écrit :Allez les enfants, on prend son chocolat et on arrête de se disputer.

Il ferait mieux de prendre son cocktail litique...

djes · Message par **djes** » jeu. 01/mai/2008 17:14

Dobro a écrit :

djes a écrit :Toujours à réinventer la roue...

pas vraiment !!
fais une comparaison sur la procedure rapide_Point()
et la fonction point() de purebasic, tu verra si c'est avoir réinventé la roue !!

tiens l'exemple qui tue !!
change le point() et decomente la version rapide
tu vas comprendre

j'ai 7297 avec le point() d'origine

et 781 avec le point() de remplacement...

Alors ? la roue ? hum

Code : Tout sélectionner

Declare rapide_Point(x,y)   
Declare rapide_Plot(x,y,color) 

#dobro=1
#Police=1
#Sprite=1
; ***********************************
Resultat = InitSprite()
FontID = LoadFont(#Police, "arial", 50, #PB_Font_Bold )
EcranX = GetSystemMetrics_(#SM_CXSCREEN):;=largeur de l'ecran
EcranY = GetSystemMetrics_(#SM_CYSCREEN):;=hauteur de l'ecran
    WindowID = OpenWindow(1, 0, 0, EcranX, EcranY, "hello", #PB_Window_SystemMenu|#PB_Window_BorderLess |#PB_Window_ScreenCentered ) 
    
    WindowID = WindowID(1) 
    Result = OpenWindowedScreen(WindowID,0,0, EcranX, EcranY, 1, 0,0)  
    Resultat = InitMouse() 
    Repeat
        ExamineMouse() 
        Event=WaitWindowEvent() 
        StartDrawing( ScreenOutput())  
            TempsDepart = ElapsedMilliseconds()  ; Récupère la valeur actuelle
            For y=0 To EcranY-1
                For x=0 To EcranX-1
                    ; coul= rapide_Point(x,y)  ; Procedure de Remplacement 
                    coul= Point(x,y) 
                Next x
            Next y 
            TempsEcoule = ElapsedMilliseconds()-TempsDepart  

        StopDrawing() 
        MessageRequester("Temps","chronos="+Str(TempsEcoule),#PB_MessageRequester_Ok )
        End
        FlipBuffers():; affiche l'ecran
        ; ClearScreen(0, 0, 0) :;efface l'ecran 
        Event=WindowEvent()   
        ;}
        
        If MouseButton(2)
            End
        EndIf 
    Until Event=#PB_Event_CloseWindow 
    
    
    Procedure rapide_Point(x,y)   
        ;  AdresseVideo  = Buffer + ( x * PF ) + (BufferP/PF) * (y * PF) 
        Select DrawingBufferPixelFormat()  
            Case #PB_PixelFormat_16Bits:PF=2  
                color = PeekW( DrawingBuffer()  + (x * PF) +(DrawingBufferPitch()/PF)* ( y*PF ) )  
            Case #PB_PixelFormat_32Bits_RGB    : PF=4
                color= PeekL(DrawingBuffer() + (x * PF) +(DrawingBufferPitch()/PF)* ( y*PF )  )
            Case #PB_PixelFormat_32Bits_BGR    : PF=4
                color= PeekL(DrawingBuffer() + (x * PF) +(DrawingBufferPitch()/PF)* ( y*PF )  ) 
                Rouge=Red(color)
                Vert=Green(color)
                Bleu=Blue(color)
                color=RGB(Bleu,Vert,Rouge)  
        EndSelect   
        ProcedureReturn color 
    EndProcedure
    
    Procedure rapide_Plot(x,y,color)   
        ;  AdresseVideo  = Buffer + ( x * PF ) + (BufferP/PF) * (y * PF) 
        Select DrawingBufferPixelFormat() 
            Case #PB_PixelFormat_16Bits :PF=2 
                Rouge=Red(color)
                Vert=Green(color)
                Bleu=Blue(color)
                color=RGB(Bleu,Vert,Rouge)   
                color=color>>2   
                PokeW( DrawingBuffer()  + (x * PF) +(DrawingBufferPitch()/PF)* ( y *PF) , color ) 
            Case #PB_PixelFormat_32Bits_RGB    : PF=4:t=0 
                PokeL(DrawingBuffer() + (x * PF) +(DrawingBufferPitch()/PF)* ( y *PF) ,color ) 
            Case #PB_PixelFormat_32Bits_BGR    : PF=4:t=1  
                Rouge=Red(color)
                Vert=Green(color)
                Bleu=Blue(color)
                color=RGB(Bleu,Vert,Rouge) 
                PokeL(DrawingBuffer() + (x * PF) +(DrawingBufferPitch()/PF)* ( y *PF) ,color ) 
        EndSelect   
    EndProcedure

Ce que je veux dire, c'est que des "plot()" et des point()" soi-disant rapides, on en a déjà fait des tonnes. Je maintiens que de nos jours, attaquer la carte graphique avec le cpu, tout recalculer à chaque point, et dire qu'on fait quelque chose de rapide est faux. Bien sûr, ton code est bon à titre d'exemple, mais il faut rappeler que cette méthode est limitée, et que si on veut faire quelque chose de vraiment rapide, il faut passer par les API. Il y avait aussi un bon code qui passait par une image avec un locksurface().

SPH · Message par **SPH** » ven. 02/mai/2008 2:46

Tiens, c'est tres curieux : quand j'essaye de mettre des points rouges dans mon dim pour les afficher à l'ecran, ce sont des points bleus qui apparaissent !!! Et quand je met des points bleus, ce sont des rouges qui apparaissent !!
Le codage n'est pas RVB mais BVR !

D'ailleurs, apres mon copymemory, j'essaye ca :

Code : Tout sélectionner

Debug DrawingBufferPixelFormat()
End

Ca me donne 7; soit : #PB_PixelFormat_32Bits_BGR

Etrange non ???? Vous, c'est pareil ???

EDIT :
Tenez, voici un code mais qui affiche ligne par ligne. Ceci dit, ligne par ligne me conviens bien. Cependant, il y a quelques bizzareries entre la théorie et la pratique. J'ai commenté mon code et voyez si cela fait pareil chez vous :

Code : Tout sélectionner

InitSprite()
InitKeyboard()
InitMouse()

dw=1280 ; essayez cette resolution, et essayez aussi 1024*768
dh=1024
dc=32

If OpenScreen(dw,dh,dc,"")=0
End
EndIf

Dim p(dh-1,dw-1) ; >>>regardez ca, pkoi je dois inverser dw avec dh ici ?

For i=0 To 100
p(i,i) = RGB(0,0,255) ; >>>ligne bleue qui est rouge chez moi !
Next
p(104,104)=(RGB(255,255,255)) ; un pixel blanc au bout de ma ligne
p(dh-1,dw-1)=(RGB(255,255,255)) ; un pixel blanc en bas a droite

;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;

Repeat

StartDrawing(ScreenOutput()) 

; tracage

MemVideo = DrawingBuffer() 
For u=0 To dh-1 ; ligne par ligne (car en bloc, impossible)
CopyMemory(@p(u,0), MemVideo+DrawingBufferPitch()*u,dw*4)
Next

;Debug DrawingBufferPixelFormat() ; >>>ce truc m'affiche le mode 7 (du BVR)
;End

StopDrawing() 
FlipBuffers()

ExamineMouse()
ExamineKeyboard()

Until KeyboardPushed(#PB_Key_Escape)

Progi1984 · Message par **Progi1984** » ven. 02/mai/2008 8:28

Ca me donne des points rouges

SPH · Message par **SPH** » ven. 02/mai/2008 8:31

Progi1984 a écrit :Ca me donne des points rouges

Etrange hein ! Car j'ai bien dit du bleu avec mon RGB(0,0,255)
La ligne rouge donc, elle est bien diagonale et en un seul morceau ?

Progi1984 · Message par **Progi1984** » ven. 02/mai/2008 10:30

SPH a écrit :
Progi1984 a écrit :Ca me donne des points rouges
Etrange hein ! Car j'ai bien dit du bleu avec mon RGB(0,0,255)
La ligne rouge donc, elle est bien diagonale et en un seul morceau ?

Affirmatif !

Neosis · Message par **Neosis** » ven. 02/mai/2008 14:56

effectivement c'est bizarre le rouge sort bleu et le bleu sort rouge