Forum Communauté
Des lignes de basic...
Citation de Solorenzero le 3 septembre 2019, 22 h 17 min16 MODE 0:MASK 255:FOR t=94 TO 449 STEP 15:FOR q=0 TO 2:PLOT 320+SIN(t+q)*80,16-COS(t+q)*16,(t-75)/30,0:DRAW 320+SIN(t+q)*160,384+COS(t+q)*16:NEXT q,t:FOR q=1 TO 99:b=cc(12):FOR p=12 TO 1 STEP -1:cc(p)=cc(p-1):INK p,cc(p):SOUND 7,p*p,1:NEXT:cc(0)=b:NEXT
juste de l'affichage cette fois, rien qui fait avancer le concept mais j'avais bricolé ça sur ému
du coup, j'ai édité la ligne 15 😮
plus de règles ? attention ^^
16 MODE 0:MASK 255:FOR t=94 TO 449 STEP 15:FOR q=0 TO 2:PLOT 320+SIN(t+q)*80,16-COS(t+q)*16,(t-75)/30,0:DRAW 320+SIN(t+q)*160,384+COS(t+q)*16:NEXT q,t:FOR q=1 TO 99:b=cc(12):FOR p=12 TO 1 STEP -1:cc(p)=cc(p-1):INK p,cc(p):SOUND 7,p*p,1:NEXT:cc(0)=b:NEXT
juste de l'affichage cette fois, rien qui fait avancer le concept mais j'avais bricolé ça sur ému
du coup, j'ai édité la ligne 15 😮
plus de règles ? attention ^^