6t)~~ - The Sharp MZ-Series
6t)~~ - The Sharp MZ-Series
6t)~~ - The Sharp MZ-Series
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
- Kapitel 3 <br />
Allgemein brauchbar wird die Prozedur erst, wenn wir die Schrittweite, also<br />
damit die Gr~Be des Kreises, eingeben können. Das sieht so aus:<br />
PR KREIS3 :SCHRITT <br />
WH 36 [VW :SCHRITT RE 10] <br />
ENDE <br />
Wenn wir jetzt nicht die Schrittgr~Be eingeben wollen, sondern den Radius<br />
des Kreises, so müssen wir den Radius erst umrechnen:<br />
(<br />
SCHRITT<br />
2 * Pi * RADIUS / 36 <br />
Pi / 18 * RADIUS <br />
0.174533 * RADIUS<br />
Die Schrittweite ergibt sich also aus dem Produkt<br />
PR KREIS4 :RADIUS <br />
WH 36 [VW (:RADIUS * 0.174533) RE 10] <br />
ENDE <br />
0.174533 * RADIUS.<br />
Wir haben in der Wiederhole-Zeile :SCHRITT durch das Produkt (:RADIUS<br />
0.174533) ersetzt. Die Prozedur KREIS4 zeichnet einen Kreis mit dem eingegebenen<br />
RADIUS.<br />
Noch besser wäre es, wenn der Kreis von seinem Mittelpunkt aus gezeichnet<br />
werden könnte. Dies wird in der Prozedur KREIS verwirklicht. Es wird hier<br />
erst vom Mittelpunkt zum Rand des Kreises gesprungen (mit STFTHOCH), dann<br />
der Kreis gezeichnet und schließlich wieder in die Mitte des Kreises gesprungen.<br />
Es in dieser Prozedur KREIS noch eine weitere Feinheit eingefügt worden, um<br />
den Kreis ganz genau um die Igelposition zu zeichnen. Um die Prozedur noch<br />
etwas schneller zu machen, könnte man noch den Befehl VERSTECKIGEL (und am<br />
Ende der Prozedur ZEIGIGEL) aufrufen.<br />
PR KREIS :RADIUS <br />
STIFTHOCH <br />
VORWAERTS :RADIUS <br />
STIFTAB <br />
RECHTS 90 <br />
VW :RADIUS * 0.174533 / 2 <br />
RE 10 <br />
WH 35 [VW (:RADIUS * 0.174533) RE 10] <br />
VW :RADIUS * 0.174533 / 2<br />
(<br />
LINKS 90 <br />
STIFTHOCH <br />
RUECKWAERTS :RADIUS <br />
STIFTAB <br />
ENDE<br />
AlP - LOGO Seite 42