Crazy Sheep

MetalOS · Message par **MetalOS** » ven. 26/sept./2014 1:42

J'ai remis à jour mon code mais franchement je galère pour rendre transparent le tritre du jeu qui est un fichier PNG avec une transparence. Voici mon code:

Code : Tout sélectionner

;***********************
;      Crazy Sheep
;     Version 1.0.0
;      By MetalOS
;***********************

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

Enumeration
  #Camera
  #EntityPlanet
  #Light
  #ImageTitre
  #SpriteTitre
  #Light2
EndEnumeration

Add3DArchive("Data\Textures", #PB_3DArchive_FileSystem)
Add3DArchive("Data\Models", #PB_3DArchive_FileSystem)
Add3DArchive("Data\Scripts", #PB_3DArchive_FileSystem)
Add3DArchive("Data\GUI", #PB_3DArchive_FileSystem)

Parse3DScripts()

OpenScreen(1366,768,32,"")
SkyDome("cloud.jpg", 30)
  
CreateCamera(#Camera,0,0,100,100)
MoveCamera(#Camera,0.2,0,5, #PB_Absolute)
CameraBackColor(#Camera, RGB(42, 90, 183))
CameraLookAt(#Camera,0,0,0)

 ;-Entity
 CreateEntity(#EntityPlanet, LoadMesh(0, "Planete.mesh"),  #PB_Material_None)
 RotateEntity(#EntityPlanet, 30, -20, 0)
 CreateLight(#Light, RGB(255, 255, 255),  10, 0, 30, #PB_Light_Point)  ; Light blanc
 
 ;Sprit
 UsePNGImageDecoder()
 LoadImage(#ImageTitre, "Data\Textures\Titre.png")
 If CreateSprite(#SpriteTitre, 674, 200, #PB_Sprite_AlphaBlending)
   StartDrawing(SpriteOutput(#SpriteTitre))
    DrawImage(ImageID(#ImageTitre),0,0)
   StopDrawing()
 EndIf
  
Repeat
  ExamineKeyboard()
  
  RenderWorld()
  
  
  DisplaySprite(#SpriteTitre, 355, 10)
  DisplayTransparentSprite(#SpriteTitre, 355, 10, 0, RGB(0, 0, 0))
  TransparentSpriteColor(#SpriteTitre, RGB(0, 0, 0))

   
   FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)

Et voici le résultat:

Le fond noir du texte ne devrais pas apparaître normalement mais je ne sais pas comment m'y prendre. Création d'un sprite, d'un material... franchement je ne voie pas.

raven · Message par **raven** » ven. 26/sept./2014 5:43

Code : Tout sélectionner

;DisplaySprite(#SpriteTitre, 355, 10)
 DisplayTransparentSprite(#SpriteTitre, 355, 10, 0, RGB(0, 0, 0))
 TransparentSpriteColor(#SpriteTitre, RGB(0, 0, 0))

tu l'affiche pas 2 fois?

Cool Dji · Message par **Cool Dji** » ven. 26/sept./2014 8:11

Raven a raison; enlève le displaysprite...

MetalOs, dans ton code, tu affiches une fois le titre avec le noir autour,
puis tu affiches une fois avec le DisplaytransparentSprite mais comme tu a affiché juste avant sans transparent, on voit le contour noir.

MetalOS · Message par **MetalOS** » ven. 26/sept./2014 13:12

Ça ne change rien j'ai toujours le fond du titre reste noir. Sur Mac c'est tous le skydome qui devient noir.

MetalOS · Message par **MetalOS** » ven. 26/sept./2014 16:09

Voici une video du problème:

http://www.dailymotion.com/video/x26oj4 ... te-pb_tech

MetalOS · Message par **MetalOS** » ven. 26/sept./2014 21:05

Personne n'a d'idée sur le problème ?

Cool Dji · Message par **Cool Dji** » ven. 26/sept./2014 21:25

Ok, je pense avoir trouvé mais je n'ai pas essayé pour vérifier.
Si c'est pas ça, tu peux faire une archive avec les fichiers ?

Tu perds l'alphablanding avec le drawimage

Code : Tout sélectionner

LoadImage(#ImageTitre, "Data\Textures\Titre.png")
If CreateSprite(#SpriteTitre, 674, 200, #PB_Sprite_AlphaBlending)
   StartDrawing(SpriteOutput(#SpriteTitre))
    DrawImage(ImageID(#ImageTitre),0,0)
   StopDrawing()
EndIf

fait directement un loadsprite(#SpriteTitre, "Data\Textures\Titre.png",#PB_Sprite_AlphaBlending)

MetalOS · Message par **MetalOS** » ven. 26/sept./2014 23:46

Ca ne change rien, si j'ai deux minutes je ferais une archive.

MetalOS · Message par **MetalOS** » sam. 27/sept./2014 10:20

Archive à télécharger ici:

Télécharger

Merci de votre aide.

falsam · Message par **falsam** » sam. 27/sept./2014 10:42

De cette maniére ça fonctionne.

Code : Tout sélectionner

;***********************
;      Crazy Sheep
;     Version 1.0.0
;      By MetalOS
;***********************

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

Enumeration
  #Camera
  #EntityPlanet
  #Light
  #ImageTitre
  #SpriteTitre
EndEnumeration

Add3DArchive("Data/Textures", #PB_3DArchive_FileSystem)
Add3DArchive("Data/Models", #PB_3DArchive_FileSystem)
Add3DArchive("Data/Scripts", #PB_3DArchive_FileSystem)
Add3DArchive("Data/GUI", #PB_3DArchive_FileSystem)

Parse3DScripts()

AntialiasingMode(#PB_AntialiasingMode_x6)

OpenScreen(1366,768,32,"")
SkyDome("cloud.jpg", 30)
  
CreateCamera(#Camera,0,0,100,100)
MoveCamera(#Camera,0.2,0,5, #PB_Absolute)
CameraBackColor(#Camera, RGB(42, 90, 183))
CameraLookAt(#Camera,0,0,0)

 ;-Entity
 CreateEntity(#EntityPlanet, LoadMesh(0, "Planete.mesh"),  #PB_Material_None)
 RotateEntity(#EntityPlanet, 30, -20, 0)
 CreateLight(#Light, RGB(255, 255, 255),  10, 0, 30, #PB_Light_Point)  ; Light blanc
 
 ;Sprit
 UsePNGImageDecoder()
 LoadImage(#ImageTitre, "Data/Textures/Titre.png")
 If CreateSprite(#SpriteTitre, 674, 200)
   StartDrawing(SpriteOutput(#SpriteTitre))
   DrawImage(ImageID(#ImageTitre),0,0)
   StopDrawing()
 EndIf
  
 Repeat
   
  ExamineKeyboard()
  
  RenderWorld()
  DisplayTransparentSprite(#SpriteTitre, 355, 10, 255)
  FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)

Le chargement du sprite pourrait être plus simple, mais peut être que tu as tes raisons pour procéder de cette manière

J'aurai remplacé

Code : Tout sélectionner

;Sprit
 UsePNGImageDecoder()
 LoadImage(#ImageTitre, "Data/Textures/Titre.png")
 If CreateSprite(#SpriteTitre, 674, 200)
   StartDrawing(SpriteOutput(#SpriteTitre))
   DrawImage(ImageID(#ImageTitre),0,0)
   StopDrawing()
 EndIf

par

Code : Tout sélectionner

 ;Sprit
 UsePNGImageDecoder()
 LoadSprite(#SpriteTitre, "Data/Textures/Titre.png", #PB_Sprite_AlphaBlending)

De plus ça évite le bug du Pure Black que tu as peut être constater lors de l’exécution de mon précédent code.

MetalOS · Message par **MetalOS** » sam. 27/sept./2014 11:57

Oui ce code là fonctionne à merveille

Code : Tout sélectionner

;***********************
;      Crazy Sheep
;     Version 1.0.0
;      By MetalOS
;***********************

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

Enumeration
  #Camera
  #EntityPlanet
  #Light
  #ImageTitre
  #SpriteTitre
EndEnumeration

Add3DArchive("Data/Textures", #PB_3DArchive_FileSystem)
Add3DArchive("Data/Models", #PB_3DArchive_FileSystem)
Add3DArchive("Data/Scripts", #PB_3DArchive_FileSystem)
Add3DArchive("Data/GUI", #PB_3DArchive_FileSystem)

Parse3DScripts()

AntialiasingMode(#PB_AntialiasingMode_x6)

OpenScreen(1366,768,32,"")
SkyDome("cloud.jpg", 30)
  
CreateCamera(#Camera,0,0,100,100)
MoveCamera(#Camera,0.2,0,5, #PB_Absolute)
CameraBackColor(#Camera, RGB(42, 90, 183))
CameraLookAt(#Camera,0,0,0)

;-Entity
CreateEntity(#EntityPlanet, LoadMesh(0, "Planete.mesh"),  #PB_Material_None)
RotateEntity(#EntityPlanet, 30, -20, 0)
CreateLight(#Light, RGB(255, 255, 255),  10, 0, 30, #PB_Light_Point)  ; Light blanc

;Sprit
;Sprit
UsePNGImageDecoder()
LoadSprite(#SpriteTitre, "Data/Textures/Titre.png", #PB_Sprite_AlphaBlending)
  
Repeat
   
  ExamineKeyboard()
  
  RenderWorld()
  DisplayTransparentSprite(#SpriteTitre, 355, 10, 255)
  FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)

Autrement je n'est aucune raison particulière d'avoir procédé ainsi, j'ai essayer de suivre d'autres exemples qui mon conduit à cette erreur. Merci de ton aide falsam

falsam · Message par **falsam** » sam. 27/sept./2014 14:40

falsam a écrit :Merci de ton aide falsam

De rien et vivement la suite

MetalOS · Message par **MetalOS** » sam. 27/sept./2014 14:55

Quoi ça ne suiffe pas...

falsam · Message par **falsam** » sam. 27/sept./2014 15:09

MetalOS a écrit :Quoi ça ne suiffe pas...

Tssss .... tu nous fais saliver avec une belle intro et ça s'arrete là ! Il y a des filles avec qui ça fonctionne de la même manière

MetalOS · Message par **MetalOS** » sam. 27/sept./2014 15:11

PureBasic

Crazy Sheep

Re: Crazy Sheep

Re: Crazy Sheep

Re: Crazy Sheep

Re: Crazy Sheep

Re: Crazy Sheep

Re: Crazy Sheep

Re: Crazy Sheep

Re: Crazy Sheep

Re: Crazy Sheep

Re: Crazy Sheep

Re: Crazy Sheep

Re: Crazy Sheep

Re: Crazy Sheep

Re: Crazy Sheep

Re: Crazy Sheep