★ APPLICATIONS ★ DIVERS ★ RSX ELLIPSE (COMPUTING PROGRAMMING USING) ★ |
| RSX Ellipse (Computing Programming Using) | Applications Divers |
Basic-Befehlserweitemng für den Schneider CPC 464 um den Befehl Bei dieser Maschinenroutine handelt es sich um eine RSX-Erweiterung für den Schneider CPC 464, das den Basic-Be-fehlssatz um den Befehl ELLIPSE erweitert. Der Basic-Lader kann nach einmaligem Aufruf gelöscht werden (vorher, wenn nicht schon geschehen, abspeichern!). Hat man die Befehlserweiterung einmal im Speicher, so kann diese auch direkt als Binärfile mit SAVE “ELLIPSE“,B,&A32D,&140auf Disc oder Cassette gespeichert werden.Vor dem erneuten Laden des Binärfiles ist der HIMEM durch MEMORY &A2FF neu zu setzen, näch dem Laden muß die Routine einmal durch CALL &A32D aufgerufen werden; danach befindet sie sich in der RSX-Erweiterung. Der Befehlsaufruf vom Basic aus geschieht durch: |ELLIPSE , < X-ORIGIN > , < Y-ORIGIN > , < RADIUS(X) >, < RADIUS(Y) >,< WINKEL > , [ < PEN > ]"|" (Balken über dem Klammeraffen) ist wie bei allen RSX-Erweiterungen beim Schneider CPC 464 dem Befehl voranzustellen, weiterhin muß unbedingt das Komma hinter dem Befehlswort eingegeben werden.Die Routine erwartet mindestens 5 Parameter, die beiden Werte zur Bestimmung des Mittelpunks, die beiden Radien, sowie den Winkel um den die Ellipse gegenüber der normalen Lage [ liegend, wenn r(x) > r(y) , stehend, wenn r(y) > r(x) ] sein soll. Als sechster Parameter kann die PEN-Farbe eingegeben werden. Wird dieser Parameter angegeben, so stellt die Routine nach dem Zeichen der Ellipse, die alte PEN-Farbe wieder ein. Wird die PEN-Farbe nicht angegeben, so wird in der jeweils aktuellen Farbe gezeichnet. Bei allen einzugebenden Parametern muß es sich um natürliche Zahlen handeln. Die Drehung der Ellipse wird über die folgende Formel berechnet: x1 = x * cos (phi) + y * sin (phi)
|
