Probleme SPRITES entre PURE 5.71 et 6.21

[drfloyd]

bah c'est un .PNG classique...

Mais bon il faudrait peut etre que je donne l'ensemble du code.... sauf que c'est bordelique

Ou faire un vrai petit programme qui presente le meme probleme

[threedslider]

Comme dit SPH sans ton image png on ne le saura pas de quoi est le problème....

j'ai testé ton code sur une autre image il marche donc je vois pas où le problème

[SPH]

bah c'est un .PNG classique...

Ou ça tombe, une de tes couleurs est transparente... ou pas ! Et paf, ça fait une erreur.

... QUOI QUE : si tu dis que ça marche avec PB 5, c'est que c'est l'Upgrade de PB 6.21 qui bloque.

Mais bon, pour tester ta routine, j'ai besoin de ton PNG. Sinon, on en reste là

[drfloyd]

voici une de mes images

https://i11.servimg.com/u/f11/11/03/61/79/td00110.png

[SPH]

Désolé pour la réponse tardive...

Bon, j'ai essayé et je ne comprend pas pourquoi le code ne fonctionne pas sur PB 6.21

Quelqu'un pourrait dire ce que veux dire ce debuggage :

[15 :18 :16] Attente du démarrage du programme...
[15 :18 :16] Type d'exécutable: Windows - x64 (64bit, Unicode)
[15 :18 :16] Exécutable démarré.
[15 :18 :17] [ERREUR] sprite_png_6_21.pb (Ligne: 17)
[15 :18 :17] [ERREUR] DisplayTransparentSprite(): A sprite should be created with the flag #PB_Sprite_AlphaBlending to use this command.

Code : Tout sélectionner

; INIT
InitSprite():InitKeyboard():UsePNGImageDecoder() :InitSound() :InitMouse()
; CREATION FENETRE JEU
OpenWindow(0, 0, 0, 640, 400, "",#PB_Window_BorderLess|#PB_Window_ScreenCentered)  ;#PB_Window_TitleBar | #PB_Window_ScreenCentered|#PB_Window_SystemMenu  
OpenWindowedScreen(WindowID(0), 0, 0, 640, 400, 1, 0, 0)

; DECOUPE DES SPRITES
ClearScreen(RGB(0,0,0))
CatchSprite(9999,?sprite9999,#PB_Sprite_AlphaBlending)
DisplayTransparentSprite (9999,0,0,255)
GrabSprite(0,0,0,32,32,#PB_Sprite_PixelCollision)
dessinmaria=0

; AFFICHAGE
Repeat
  ClearScreen(RGB(0,0,0))
  DisplayTransparentSprite (dessinmaria,150,60,200,255)
  FlipBuffers()
  ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape) 

; FICHIERS
DataSection 
    sprite9999:
    IncludeBinary "d:/td00110.png"
  EndDataSection

[case]

Code : Tout sélectionner

GrabSprite(0,0,0,32,32,#PB_Sprite_PixelCollision|#PB_Sprite_AlphaBlending)

[SPH]

Code : Tout sélectionner

GrabSprite(0,0,0,32,32,#PB_Sprite_PixelCollision|#PB_Sprite_AlphaBlending)

Grand merci à toi !

Jamais je n'aurais pensé à le fourrer la-bas !

Code : Tout sélectionner

; INIT
InitSprite():InitKeyboard():UsePNGImageDecoder() :InitSound() :InitMouse()
; CREATION FENETRE JEU
OpenWindow(0, 0, 0, 640, 400, "",#PB_Window_BorderLess|#PB_Window_ScreenCentered)  ;#PB_Window_TitleBar | #PB_Window_ScreenCentered|#PB_Window_SystemMenu  
OpenWindowedScreen(WindowID(0), 0, 0, 640, 400, 1, 0, 0)

; DECOUPE DES SPRITES
ClearScreen(RGB(0,0,0))
CatchSprite(9999,?sprite9999,#PB_Sprite_AlphaBlending)
DisplayTransparentSprite (9999,0,0,255)
GrabSprite(0,0,0,32,32,#PB_Sprite_PixelCollision|#PB_Sprite_AlphaBlending)
dessinmaria=0

; AFFICHAGE
Repeat
  ClearScreen(RGB(0,0,0))
  DisplayTransparentSprite (dessinmaria,150,60,200)
  FlipBuffers()
  ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape) 

; FICHIERS
DataSection 
    sprite9999:
    IncludeBinary "d:/td00110.png"
  EndDataSection

[drfloyd]

bon moi j'ai toujours le probleme : les sprites ne s'affichent pas.

Du coup, pas grave, je code en 5.71, là tout va bien.

[SPH]

bon moi j'ai toujours le probleme : les sprites ne s'affichent pas.

Chez moi, mon code fonctionne sur 6.21

Mais bon, je préfère bosser sur PB 6.12

[drfloyd]

est ce que le fait de coder en 5.71 est un probleme ????

Pas en terme de nombre de commandes dispo, je suis tres heureux avec 5.71, mais plutot :

En terme de compatibilité avec Windows 11 par exemple ?
En terme de bugs ?
d'optimisation de la compilation ?

[SPH]

est ce que le fait de coder en 5.71 est un probleme ????

Non, aucun problème

[SPH]

D'ailleurs, les "vieux" PB (genre 5.x) compilent des codes en fichier EXE moins lourds.
Donc, c'est utile d'en avoir un ancien !

[threedslider]

@drfloyd : J'ai fixé ton truc mais c'est bizarre quand même

Code : Tout sélectionner

; INIT
InitSprite():InitKeyboard():UsePNGImageDecoder() :InitSound() :InitMouse()
; CREATION FENETRE JEU
OpenWindow(0, 0, 0, 640, 400, "",#PB_Window_BorderLess|#PB_Window_ScreenCentered)  ;#PB_Window_TitleBar | #PB_Window_ScreenCentered|#PB_Window_SystemMenu  
OpenWindowedScreen(WindowID(0), 0, 0, 640, 400, 1, 0, 0)

; DECOUPE DES SPRITES
ClearScreen(RGB(0,0,0))
CatchSprite(9999,?sprite9999,#PB_Sprite_AlphaBlending)
DisplayTransparentSprite (9999,0,0,255)
GrabSprite(0,-5,-210,58,58, #PB_Sprite_PixelCollision|#PB_Sprite_AlphaBlending)
dessinmaria=0

; AFFICHAGE
Repeat
  ClearScreen(RGB(0,0,0))
  DisplayTransparentSprite (dessinmaria,150,60,200)
  FlipBuffers()
  ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape) 

; FICHIERS
DataSection 
    sprite9999:
    IncludeBinary "DATA/td00110.png"
  EndDataSection

Est ce que cela marche pour toi sinon ?

[Itsy Bitsy]

Tout d'abord, félicitation à tous les heureux possesseurs d'ordinateurs quantiques, à base de mémoire sans limites.

En attendant aussi ce jour, chez moi l'image apparait bien avant que la fenêtre fige, pour finir par proposer de fermer le programme ou bien d'attendre la réponse du programme.

On peut deviner dans ce cas, d'un problème d'empilement d'évènements non traités.

Un simple While WindowEvent():Wend dans la boucle, semble avoir résolu le problème.

Code : Tout sélectionner

; INIT
InitSprite():InitKeyboard():UsePNGImageDecoder() :InitSound() :InitMouse()
; CREATION FENETRE JEU
OpenWindow(0, 0, 0, 640, 400, "",#PB_Window_BorderLess|#PB_Window_ScreenCentered)  ;#PB_Window_TitleBar | #PB_Window_ScreenCentered|#PB_Window_SystemMenu  
OpenWindowedScreen(WindowID(0), 0, 0, 640, 400, 1, 0, 0)

; DECOUPE DES SPRITES
ClearScreen(RGB(0,0,0))
CatchSprite(9999,?sprite9999,#PB_Sprite_AlphaBlending)
DisplayTransparentSprite (9999,0,0,255)
GrabSprite(0,0,0,32,32,#PB_Sprite_PixelCollision|#PB_Sprite_AlphaBlending)
dessinmaria=0

; AFFICHAGE
Repeat

  While WindowEvent() ; modif
  Wend
 
  ClearScreen(RGB(0,0,0))
  DisplayTransparentSprite (dessinmaria,150,60,200)
  FlipBuffers()
  ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape) 

; FICHIERS
DataSection 
    sprite9999:
    IncludeBinary "d:/td00110.png"
  EndDataSection

Exemple pour le visionner en mode debug :

Code : Tout sélectionner

; INIT
InitSprite():InitKeyboard():UsePNGImageDecoder() :InitSound() :InitMouse()
; CREATION FENETRE JEU
OpenWindow(0, 0, 0, 640, 400, "",#PB_Window_BorderLess|#PB_Window_ScreenCentered)  ;#PB_Window_TitleBar | #PB_Window_ScreenCentered|#PB_Window_SystemMenu  
OpenWindowedScreen(WindowID(0), 0, 0, 640, 400, 1, 0, 0)

; DECOUPE DES SPRITES
ClearScreen(RGB(0,0,0))
CatchSprite(9999,?sprite9999,#PB_Sprite_AlphaBlending)
DisplayTransparentSprite (9999,0,0,255)
GrabSprite(0,0,0,32,32,#PB_Sprite_PixelCollision|#PB_Sprite_AlphaBlending)
dessinmaria=0

; AFFICHAGE
Repeat

  While WindowEvent() ; modif
    u+1
    Debug u
  Wend
 
  ClearScreen(RGB(0,0,0))
  DisplayTransparentSprite (dessinmaria,150+u,60,200) ; modif +u
  FlipBuffers()
  ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape) 

; FICHIERS
DataSection 
    sprite9999:
    IncludeBinary "d:/td00110.png"
  EndDataSection

En ce qui concerne les versions PB, je les vois comme ça :

Code : Tout sélectionner

- 5.42 dernière version ASCII/UNICODE
- 5.73 dernière version Mac X86
- 4.00 dernière version Amiga
- 3.94 dernière version Mac PPC ?

[threedslider]

@drfloyd: Avec ton code si tu veux faire marcher avec PB 6.21, je crois avoir trouver où est le problème, c'est à cause de DPI que tu vois pas, donc va sur menu compiler -> compiler options -> desactive le "Enable DPI..." et là paf tu vois ton perso comme si c'etait en PB 5.71 !

Voilà c'est résolu