Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
C64
Schneller zeichnen
Adressen 64 ,610/71(1
2001
7.' ')C::O I C
,:.032 ,30_'>- ,
I g.,ehrelbUf"J
CHKCOI'I
CEll CDF8 BEF5
CEFD
AEFD :/7:-:'0
Tabelle 1.
Benutzte
Unterroutin en
und
Übergabes\leicl\erzellen
..-
06C4 DbC6 [921
GETCOf<
0066 0014 0014
-- --
D!EB
B7EB B4E5
(J014 0014 0011
- --
-- --
......
BesClwei IJUlliJ
Xl, '(1
cr
IX
IY
AX
AY
DX
D'(
OF
Tabelle 2.
Die ver.
wendeten
Variablen
310 input"koordinaten 2. punkt";xl,yl
320 ifxl)3190rvl)199then310
330 ifxl~Ooryl<Othen310
340 rem inltlalisiere variable
350 av=O:iv:l:1x=1:ax=O
360 rem pruefe steigung
370 ifxl=>xOthendx=xl-xO:qoto400
~.8ü i ':=-1
390 dx=:-:O-x 1
400 ifyl=)yOthendy=vl-vO:qoto440
410 dy=vO-yl
420 Iv=-l
430 rem stei gung > 1 ?
440 i f d::=)dythen530
450 ct=dx:rem vertausche dx und dy
460 dx=dy
470 dy=ct
480 ay=i ,.:
490 ix=O
500 8>:=i y
510 i '1=0
520 rem berechne approximationswert
530 of=d~·:i2
540 ct=l:rem schleifenzaehler
550 goto660:rem plot.te ursorungspunkt
560 rem ******** approximationsschleife
570 >:ü=>:ü+i;·:
580 yO=yO+ax
590 of=of+dy
600 ct=ct+l
610 rem yO erhoehen ?
620 ifof<=dxthen660
630 of=of-d::
640 ,·:O=::O+ay
650 yO=yO+iy
660 prinb:O,yO
670 rem letzter punkt?
680 ifdx=)ctthen570
690 end
Basic-Programm »Orawlineu
Ausgabe4/April ]984
,j.jJy 67