*********************
PAYS-SAGE
*********************
La nature a bien des façons de nous montrer toute sa puissance. Ne serait-ce que par la beauté d’un couché de soleil au bord de l’eau !
Ce programme dessinera devant vous un couché de soleil au bord de l’eau.
L’appui sur une touche, relancera le programme.
L’appui sur une touche, relancera le programme.
Listing :
10 INK 1,11:INK 4,9:MODE 0:PEN 1:PRINT STRING$(240,&CF),,:PEN 6:PRINT STRING$(240,&CF);:FOR i=5 TO 99:y=SQR(10816-i*i):MOVE 456+i,216+y:DRAWR-i*2,0,11:MOVE 448+i+RND*16,228-y*1.4:DRAWR-i*2,0:NEXT:l=2:WHILE z<640:z=z+3:y=y+l*2:MOVE z,224+y:DRAW z,216,5
20 DRAWR 0,-y*1.4,0:f=RND*185:MOVE z-12,f:DRAWR 4+RND*30,RND*3,0:DRAWR-4,2,11+(z<360 OR z>520 OR f>99):l=l*(1+2*(y<34 OR y>40+RND*50)):WEND:FOR a=0 TO 60:c=RND*50:h=60+RND*250:MOVE-20+c*4,0:DRAWR c,h,4+RND:DRAWR c/2,h/8:DRAWR c/2,h/16:NEXT:CALL &BB06:RUN
Téléchargement : Le Deuligne De RetroPoke6
1 Commentaire
Soumettre un commentaire
Vous devez vous connecter pour publier un commentaire.
Tout simplement wouah, juste 2 lignes pour avoir un paysage de carte postal comme ici chez moi en Camargue. Trop fort notre Noël 🙂