Page 1 sur 1
Mon Scrolltext
Publié : ven. 23/janv./2009 14:58
par jbernard13
bonjour
j'ai etudier quelques bouts d'exemples et j'ai crée un scrolltext 2D comme
y avait dans les démos d'amiga et atari ..
Code : Tout sélectionner
;** ScrollText , par Jbernard**
; On iniallise tout
InitSprite()
InitKeyboard()
; Creation de l'ecran
OpenScreen(320,200,32,"Scrolltext")
; on charge la police d'ecriture et on crée un sprite
LoadFont(1,"impact", 50)
CreateSprite(0,250+320,60)
; on dessine et affiche le texte
StartDrawing(SpriteOutput(0))
DrawingMode(#PB_2DDrawing_Transparent)
DrawingFont(FontID(1))
DrawText(0,-14,"SCROLLTEXT DEMO ..",RGB($FF,$0,$0))
StopDrawing()
; Boucle du programme
Repeat
ClearScreen(0)
; animation du texte
text = text+2
If text > 250
text = 0
EndIf
ClipSprite(0,text,0,320,60)
DisplaySprite(0,0,70)
FlipBuffers()
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
Publié : ven. 23/janv./2009 15:18
par Backup
pas mal mais ton clip sprite sert a rien !!
regarde comment on peut faire sans :
de plus je te conseille d'utiliser des noms explicites pour tes variables
cela permet de pouvoir changer la taille de la resolution de l'ecran par exemple
le code suivant s'adapte a la resolution en cours !!
c'est toujours mieux que d'imposer une resolution qui peut mettre
le bazar dans les icones de bureau !!
Code : Tout sélectionner
;** ScrollText , par Jbernard**
#sprite_text=1
; On iniallise tout
InitSprite()
InitKeyboard()
; Creation de l'ecran
largeur_ecran=GetSystemMetrics_(#SM_CXSCREEN):; largeur de l'ecran
hauteur_ecran=GetSystemMetrics_(#SM_CYSCREEN) ; hauteur de l'ecran
OpenScreen(largeur_ecran,hauteur_ecran,32,"Scrolltext")
; on charge la police d'ecriture et on crée un sprite
LoadFont(1,"impact", 50)
CreateSprite(#sprite_text,250+largeur_ecran,60)
; on dessine et affiche le texte
text$="SCROLLTEXT DEMO .."
StartDrawing(SpriteOutput(#sprite_text))
DrawingMode(#PB_2DDrawing_Transparent)
DrawingFont(FontID(1))
DrawText(0,-14,text$,RGB($FF,$0,$0))
Longueur_text = TextWidth(text$)
StopDrawing()
; Boucle du programme
Repeat
ClearScreen(0)
; animation du texte
x=x-2
If x<0-Longueur_text
x=largeur_ecran
EndIf
y=hauteur_ecran/2
; ClipSprite(0,text,0,320,60) ; < ------------------- sert a rien !!
DisplaySprite(#sprite_text,x,y)
FlipBuffers()
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
Publié : ven. 23/janv./2009 16:13
par jbernard13
merci dobro pour tes conseils , j'en apprend tous les jours , c'est mon premier scrolltext en 2d