18 octobre 2022
DEUULIGNE#06 POUR AMSTRAD.EU : 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) * Un seul deux lignes par disquette * Un petit résumé et explicatif du programme dans un fichier ALIRE.BAS si nécessaire. * Envoyez le tout à: concours(@)amstrad.eu avant le 20 du mois en cours pour l’édito du mois d’après. 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) : |
Publicité
Publicité
Commentaires