Le deuligne de RetroPoke #06 PAYS-SAGE

*********************

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.

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

ludovic-thomas@hotmail.fr on 5 février 2026 at 14:06

Tout simplement wouah, juste 2 lignes pour avoir un paysage de carte postal comme ici chez moi en Camargue. Trop fort notre Noël 🙂
Connectez-vous pour répondre

Envoyer un commentaire Annuler la réponse

Vous devez vous connecter pour publier un commentaire.

Evènements

Live en cours Jeu 29 Oct · 12h Sortie de ùCPM #8 Autre
Aujourd'hui Lun 9 Nov · 20h30 Geekorex Twitch
À venir Ven 13 Nov · 22h Xyphoe YouTube
À venir Ven 17 Sep 2027 · 9h → dim 19 Sep 2027 · 18h Amstrad Connection 86120 Saint-Léger-de-Montbrillais