sinon,
Code : Tout sélectionner
Code:
;**********************************************
;*
;* étoiles02.pb on ouvre un écran
;* on va le faire en coordonnées polaires
;* le 29/01/2004
;* Merci à Polux pour le coup de main au départ
;**********************************************
InitKeyboard() ;initialisation du clavier
InitSprite() ; et du moteur de sprite (je crois que ça teste DirectX 7 )
nbretoiles = 700
pi2=6.28318531 ; valeur de 2*pi car cosinus et sinus ont besoin d'angles en radians
Dim stars.f(nbretoiles,54) ;4 dimensions r,angle,vitesser
For i=3 To nbretoiles
stars (i,1)= Random(10) ; rayon
stars (i,2)= Random(360) ; angle en degré
stars (i,3)= Random(1)+1 ; vitesse d'incrémentation du rayon
Next i
SetRefreshRate(75) ; là on tente de fixer le taux de rafraichissement à 60 écrans par seconde.
If OpenScreen(640,480,32,"") ; si l'ecran s'ouvre, c'est good
Goto play ; on peut y aller
Else
SetRefreshRate(0) ; sinon, on le laisse par défaut
If OpenScreen(1024,768,32,"") ; si l'ecran s'ouvre
SetFrameRate(60) ; on limite l'affichage à 60fps via pure
EndIf
EndIf
play:
Delay(1000) ; on laisse un petit temps au prog pour se retourner...
;-------------------BOUCLE PRINCIPALE----------------------------
Repeat ; debut de la boucle
ClearScreen(0,0,0) ; on efface l'ecran
StartDrawing(ScreenOutput())
For i=1 To nbretoiles
x=512+stars(i,1)*Cos(stars (i,2)/pi2) ; calcul de l'abscisse
y=384+stars(i,1)*Sin(stars (i,2)/pi2) ; calcul de l'ordonnée
If x>0 And x<1024 And y>0 And y<768 ; si ça ne sort pas de l'écran
Plot (x,y,RGB (45,200,89))
Plot (x,y,RGB (80,255,100)) ; ; on trace l'étoile
Else
stars (i,1)= Random(10) ; sinon on ré-initialise
stars (i,2)= Random(360)
stars (i,3)= Random(10)+1
EndIf
stars(i,1)=stars(i,1)+stars(i,3) ; incrémentation du rayon
Next i
StopDrawing()
ExamineKeyboard() ; on examine l'etat du clavier
FlipBuffers() ; on bascule les buffers ( l'affichage passe sur l'ecran ouvert )
Until KeyboardPushed(#PB_Key_Escape) ; on continue tant que la touche escape n'est pas pressée.
