10 '**********************************
20 '**** BOUQUET **** 30 '**** Par J.Reingot Fev.86 **** 40 '********************************** 50 CLS:MODE 0:DEG:st=-3 60 RANDOMIZE TIME 70 BORDER 0:INK 0,0:PAPER 0 80 CLS:st=st+9:IF st>50 THEN st=-3 90 FOR z=1 TO 9 100 IF z=9 GOTO 300 110 ON z GOSUB 220,230,240,250,260,270,280,290 120 ORIGIN h,v 130 FOR R=100 TO 12 STEP -22 140 q=q+90 150 C=INT(RND*25)+1 160 I=I+1:IF i>14 THEN i=1:INK i,c 170 FOR a=0+q TO 360+q STEP st 180 x=COS(A/2)*SIN(A*2) 190 y=SIN(A*2)*SIN(A/2) 200 ORIGIN h,v:DRAW x*r,y*r,i 210 NEXT:NEXT:NEXT 220 h=100:v=250:RETURN 230 h=190:v=270:RETURN 240 h=310:v=300:RETURN 250 h=430:v=270:RETURN 260 h=530:v=210:RETURN 270 h=180:v=120:RETURN 280 h=290:v=160:RETURN 290 h=400:v=110:RETURN 300 FOR n=1 TO st*3 310 FOR i=1 TO 15 320 FOR t=1 TO INT(300/st):NEXT 330 w=INT(RND*26)+1:INK i,w 340 NEXT:NEXT:GOTO 80 |