Tabla de contenido
1230
RETURN
1240
' C
1250
IF
ind=1
THEN
1260
ro=1:GOSUB
2240
1270 tempx=x:tempy=y:ind=1
1280
RETURN
1290
IF tempx=x AND tempy=y THEN
1300
PLOT
x,y,1
1310
tix=MAX(x,tempx)-MIN(tempx,x):tiy=MAX(y,tempy)-MIN(tempy,y)
1320
ti=SQR((tix^2)+(tiy^2))
1330
ORIGIN tempx,tempy
1340
PLOT 0,0,pn,0:MOVE 0,-ti
1350
FOR
z=0
TO
PI*2+0.01
1360
DRAW SIN(z+PI)*ti,COS(z+PI)*ti,pn,norx
1370
NEXT z
1380
ORIGIN
0,0
1390 x=tempx:y=tempy:tempx=0:tempy=0:ind=0
1400
RETURN
1410
' R
1420
ind=2
IF
THEN
1430
ro=2:GOSUB
2240
1440 tempx=x:tempy=y:ind=2
1450 x=0:y=0
1460
RETURN
1470
IF
norx=1
THEN
1480
MOVE tempx,tempy:DRAW tempx+x,tempy,norx
1490
DRAW tempx+x,tempy+y:DRAW tempx,tempy+y:DRAW tempx,tempy
1500 x=tempx:y=tempy:ind=0
1510
RETURN
1520
' . (rellenar)
1530
ro=3:GOSUB
2240
1540
GOSUB 1620:IF
1550
colorlim=VAL(i$)
1560
ro=4:GOSUB
2240
1570
GOSUB 1620:IF
1580
rellenador=VAL(i$)
1590
MOVE x,y,colorlim:FILL rellenador
1600
ind=0:i$=""
1610
RETURN
1620
i$=INKEY$:IF
1630
RETURN
1640
' T
1650
IF
ind=3
THEN
1660
ind=3:ro=5:GOSUB
1670
tempx=x:tempy=y
1680 x=0:y=0
1690
RETURN
1700
IF
treslados<>0
1710
ro=6:GOSUB
2240
1720
MOVE 0,0,pn,1:GOSUB
1730 tempxx=tempx+x:tempyy=tempy+y:x=x/2:y=20
1740 treslados=1
1750
GOSUB 550:GOSUB
1760
RETURN
1770
norx=1
IF
THEN
1290
1390
STEP
PI/(ti/2)
1470
1500
i$=" "
THEN
1600
i$=" "
THEN
1600
(i$<"0"
OR
i$>"3")
1700
2240
THEN
1770
590
590
1800
Manual de Amstrad CPC 6128 (revisión 2008) - Página 367
AND
i$<>" "
THEN
1620
Tabla de contenido
