Frontcolor() Avec Zoomsprite3d(), scintillement du texte
Publié : mar. 10/févr./2004 8:11
Je profite de l'ouverture du musée par Cederavic , pour recopier ici un bug .
Si je mets Frontcolor(0,0,0) , le texte scintille , par contre si je mets n'importe quelle autre valeur , ça passe bcp mieux
Si je mets Frontcolor(0,0,0) , le texte scintille , par contre si je mets n'importe quelle autre valeur , ça passe bcp mieux
Code : Tout sélectionner
#ScreenWidth = 800 : #ScreenHeight = 600 : #ScreenDepth = 32
InitSprite() : InitKeyboard() :InitSprite3D()
OpenScreen( #ScreenWidth , #ScreenHeight , #ScreenDepth , "Démo" )
FontComics12ID = LoadFont(1, "Comics", 12 ,#PB_Font_Bold )
CreateSprite(1,#ScreenWidth,#ScreenHeight,#PB_Sprite_Texture)
StartDrawing(SpriteOutput(1))
Coul = 220 : Box(0,0,SpriteWidth(1),SpriteHeight(1),RGB(Coul,Coul,Coul))
DrawingFont(FontComics12ID)
;/Ici Avec frontColor(0,0,0) ç a déconne !!
FrontColor(0,0,0)
DrawingMode(1)
Texte$="Essai de texte , bien étrange !"
Locate(55,55) : DrawText(Texte$)
;/ Ici dès que FrontColor() n'est plus à zéro , ça va déjà beaucoup mieux
FrontColor(0,1,0)
;DrawingMode(1)
Texte$="Essai de texte , bien normal !"
Locate(55,75) : DrawText(Texte$)
StopDrawing()
CreateSprite3D(1,1)
Repeat
;ClearScreen(200,200,200)
Start3D()
DisplaySprite3D(1,0,0)
ZoomSprite3D(1,#ScreenWidth,#ScreenHeight)
Stop3D()
FlipBuffers()
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_All)
