Publicité
new
10 M ODE 1
20 ORIGIN 320, 200
30 DEG
40 MOVE 0, 190
50 FOR d=0 TO 360 STEP 10
60 DRAW 190I COS( d) , 190*S 1N(d >
70 NEXT
80 MOVE - 1 8 8 , 0
90 FILL 3
run
45 GRAPHICS PEN 2 : INK 2, 1
run
GRAPHICS PEN
Compléments d'information...
10 BORDER 0 : GRAPHICS PEN 1
20 m = CINT ( RNDI 2) ! MODE m
30 i 1=RND*26:i2=RND*26
40 IF ABS(i 1 - 1 2 X 1 8 THEN 30
50 INK 0 , i 1 : INK 1,12
60 s=RND*5+3:0RIGIN 3 20 , - 1 00
70 FOR x=-1000 TO 0 STEP s
80 MOVE 0 , 0 : DRAW x,300:DRAW 0, 600
90 MOVE 0 , 0 : DRAW -x,300:DRAW 0, 600
100 NEXT: FOR t = l TO 2000:NEXT :G0TÛ 20
run
Chapitre 1 P age 62
1
Cours élém entaire
Publicité
