6t)~~ - The Sharp MZ-Series

- Kapitel 3 ­
Die Prozedur KREISBOGEN zeichnet nun immer Kreisbögen nach rechts - im
Uhrzeigersinn. Wir wollen diese Prozedur jetzt RECHTSBOGEN nennen. Wir
definieren uns dann noch die Prozedur LINKSBOGEN, in der (als Veränderung
zu RECHTSBOGEN) nur RECHTS durch LINKS ersetzt werden mu8:
PR LINKSBOGEN :RADIUS :WINKEL
VW (:RADIUS * :WINKEL * 0.174533 / 360 / 2)
LINKS (:WINKEL / 36)
WH 35 (VW (:RADIUS * :WINKEL * 0.174533 /360) LI (:WINKEL / 36)]
VW (:RADIUS * :WINKEL * 0.174533 / 360 / 2)
ENDE
Es gibt noch eine zweite Möglichkeit, die Prozedur LINKSBOGEN zu definieren:
PR LINKSBOGEN1 :RADIUS :WINKEL
RECHTSBOGEN (- :RADIUS) (- :WINKEL)
ENDE
Diese Prozedur LINKSBOGEN1 nutzt die Eigenschaft des Befehls RECHTS - da8
seine Eingabe auch negativ sein kann - aus. Ebenso können auch die Befehle
LINKS, VORWAERTS und RUECKWARTS mit negativen Zahlen aufgerufen werden.
Noch ein Hinweis:
Wenn Ihnen die Prozeduren RECHTSBOGEN und LINKSBOGEN noch zu langsam sind,
so können Sie die folgenden erheblich schnelleren Prozeduren RBOGEN und
LBOGEN benutzen. Diese beiden Prozeduren sind jedoch etwas ungenauer I
PR RBOGEN :R :W
BOGEN (:R * :W * 0.000969628) (:W / 18)
ENDE
PR LBOGEN :R :W
BOGEN (:R * :W * 0.000969628) (- :W / 18)
ENDE
PR BOGEN :SCHRITT :TEILWINKEL
VW (:SCHRITT / 2)
RE :TEILWINKEL
WH 17 (VW :SCHRITT RE :TEILWINKELl
VW (:SCHRITT / 2)
ENDE
Es bestehen zwei Unterschiede zu den Prozeduren RECHTS- und LINKS80GEN. Zum
einen werden nur noch 18 und nicht mehr 36 Schritte ausgeführt. Zum anderen
aber werden die Eingaben in der Wiederholezeile nicht mehr jedesmal neu
berechnet. Das macht diese Prozeduren erheblich schneller.
Au8erdem können Sie noch den Igel verstecken!
Wir wollen nun unsere Prozeduren RECHTSBOGEN und LINKSBOGEN (bzw. auch
RBOGEN und LBOGEN) zum Zeichnen einer Blume nutzen.
AlP - LOGO Seite 44