Publicité
new
10 CLS
20 FOR a=l TO 360
30 ORIGIN 196, 282
40 PLOT 5 0I COS( a ) , 5 0I SI N( a )
50 ORIGIN 442, 282
60 PLOT 5 0I CQS( a ) , 5 0 * SI N(a)
70 ORIGIN 196, 116
80 PLOT 5 0 I CQS( a ) , 5 0I SI N( a )
90 ORIGIN 442, 116
100 PLOT 5 0I COS( a ) , 5 0 I SI N( a )
110 NEXT
run
new
10 M ODE 1
20 ORIGIN 320,200
30 DEG
40 M O VE 0,190
50 FOR a=0 TO 360 STEP 10
60 D R AW 1 9 0 I SI N ( a ) , 190*COS(a)
70 NEXT
run
30
FILL
new
10 CLS
20 M O VE 20,20
30 D R A W 620,20
40 D R A W 310,380
50 D R A W 20,20
run
Chapitre 1 P age 60
(DRAW)
[CTRL] [SHIFT]
DEG
[ESC],
Cours élém entaire
Publicité
