Forum
Hello,
Voici mon dernier deuuligne pour ma participation du mois de Mars 2023.
Ce sera ma dernière participation, sauf si d'autres participants se manifestent... ...
| 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
|
| AMSTRAIT (RETROPOKE) |
| AMSTRAIT est un générateur d'images abstraites réalisées uniquement à partir de traits verticaux de différentes couleurs. Ce programme créait des images abstraites dans le MODE 0 et 1 de l'Amstrad CPC. Certaines oeuvres ainsi obtenues, vous donnerons l'illusion de plus de couleurs que l'Amstrad peut afficher dans le MODE choisi. Il est possible se sauvegarder l'image obtenue sous le nom de "T.BIN" en appuyant sur la touche La touche [ESPACE] relancera un nouveau processus avec des paramètres différents. Pour réutiliser une image avec ses paramètres, le fichier "MATOILE.BAS" vous livrera quelques astuces. Queques captures d'écran :
Vidéo : https://youtu.be/pal58BBI21Y
|
| Listing & Téléchargement |
|
1 DEFINT a-x:RANDOMIZE TIME:DIM l(32),m(32),p(32):BORDER 13:f=RND:MODE f:POKE &FFE0,f:f=8-4*f:FOR i=0 TO 15:j=RND*26:POKE &FFD0+i,j:INK i,j:NEXT:w=RND*30:FOR n=1 TO 13+RND*13:l(n)=RND*120/n:m(n)=RND*6:p(n)=1+RND*14:NEXT:FOR x=319 TO 11 STEP-f:FOR s=0 TO 1
2 FOR t=0 TO 1:u=s*637+x+2*x*(s=1)+f/2*(t=1)-f*(s+t=2):MOVE u,8:y=8:FOR g=1 TO n:DRAW u,399*t+y-y*t*2,p(g):y=MIN(390,y+l(g)*(2+SIN(g*x/80+w+m(g)))):NEXT g,t,s:NEXT:WHILE INKEY(47):WHILE INKEY(60)=0:SAVE"t",b,&C000,&4000:CALL &BBFF:CAT:END:WEND:WEND:RUN |
Bien dommage que cela ne soit plus d'actualité ! J'aime beaucoup découvrir les oeuvres réalisées avec seulement deux lignes (même si j'en suis moi-même incapable). Merci à toi pour ce projet intéressant !
