|
4. Galaxall Date de l'epoque ou je tatonnais avec des courbes parametrées sur un Atari ST. Courbe créée avec un petit programme en Basic, avec un coup de flou pour créer le relief. Programme en GFA Basic: SETCOLOR 0,0 SETCOLOR 3,7,7,7 m=0 FOR T=0 TO 40400 x=100*(1-m/2)*COS(120*t) y=2*(1-m)*SIN(120*t) i=x+320 j=-3*y+95 PLOT i,j t=t+1 m=m+0.001 NEXT t VOIDINP(2) Programme en Quick Basic SCREEN 8 m=0 FOR T=0 TO 40400 x=100*(1-m/2)*COS(120*t) y=2*(1-m)*SIN(120*t) i=x+320 j=-3*y+95 PSET ( i , j ) , 7 t=t+1 m=m+0.001 NEXT t |