Forum
Bonjour à toutes et tous.
Dorénavant, le deuuligne du mois ainsi que vos participations, seront publiés directement dans le forum.
Vous pourrez de cette manière, commenter ou critiquer directement les deuulignes depuis le forum.
Je vous présente donc le deuuligne du mois d'octobre : PAYS-SAGE
| ****************** ********** Le Deuuligne de RetroPoke #06 **************************** |
 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 ! . |
| Voici le règlement si vous voulez vous aussi participer au deuuligne du mois ?
* Deux Lignes en BASIC (Les lignes peuvent contenir du BASIC et du langage MACHINE) amstrad.eu vous récompensera en affichant votre programme sur la page principale du site. RetroPoke
|
| PAYS-SAGE (RETROPOKE) |
| Ce programme dessinera devant vous un couché de soleil au bord de l'eau. L'appui sur une touche, relancera le programme.
|
| Listing & Téléchargement |
|
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 Retrouvez les explications super détaillées, fait par Eric Boulat (LDIR HECTOR) : |
