l

Primer: 100 I-1
110 PRINT " "
l20 HIRES 0,1
130 FOR X-0 TO 320 STEP 0.5
140: Ysl00-00S (X/33)x90
450: PIOT X,X,1
160: S-TEST (X,100)
170: IF S-l1 THEN GOSUB 1000
180: PLOT X,101,1
190 NEXT X
200 PAUSE 30
210 END |
1000 REM 4444444 PODPROGRAM ttttta4
1010 N(I)<INT X)

1020 IF N(I)<N(I-1) THEN RETURN O |
1030 PRINT " TOČKA NE OBSTAJA NA X-"; N(I)
1040 IsIt1l |
1050 RETURN
5.9. LINE
— Format: LINE š,I,Xl, Ti,
Namen: Risanje črte
Delovanje: Z ukazom LINE rišemo črte, katere začetek oz-

načujeta spremenljivki X in Y, konec pa spre-

menljivki Xl in Yl. Spremenljivka T določa bar-

vo točke.

Primer: 100 HIRES 1,6
110 FOR X-0 TO 320 STEP 8
120: M:-100/320xX
130: LINE 320-X,M,X,1004M1
140 NEXT X
150 GO TO 150

Le 5.10. CIROLE
Format: CIROLE X,Y,X1,Y1,1
Namen: Risanje kroĹžnih oblik
Delovanje: Z ukazom CIRCOLE riĹĄemo kroĹžne oblike na ekra-
.o nu. Spremenljivki X in Y nam določata središče

lika, Xl in Yl pa določata radijusa. Vidimo
torej, da nam ta ukaz v osnovi riše elipso. Če
Ĺželimo narisati kroĹžnico, potem moremo upoĹĄte-
vati naslednje popravke radijev:

HIRES grafika Xl < 1,15xY1
MULTI grafika Xl - 0,575xY1
TISKALNIK kl is JI]

|Âť/.