                          
              von Werner
                     ILLSINGER


Da Program CIRC berechne di Koordinate eine Lissajous-Figu 
(x,y) und zeichnet an den berechnenten Stellen eine Ellipse.

Da Program wurd i TURBO-Pasca geschrieben e sol di Ver
wendun de $I-Compilerbefehl zeigen Da Program luf nu, wen 
Si di 64  20 Punkt Colorgrafikkart i Ihre Compute einge
bau haben.

I de erste Zeile de Programm wir di Konstant P definiert 
Di nchste beide Zeile diene dazu di Variable z deklarie
ren:

             Z:  Laufvariable; aus ihr werden die x- und y- Werte
                 berechnet.
             X:  X- Koordinate der Funktion
             Y:  Y- Koordinate der Funktion

Nac de Deklarationstei wir mi Hilf de Includ Befehl di 
extern Unterprogrammbibliothe GRAPH. i da Program eingebunden 
Mi Hilf diese Befehl knne di Befehl de erweiterte Grafi 
bentz werden. 

I Hauptprogram aktivier di Standardprozedu HiRe de hochaufl
sende (64  20 Punkt  Grafikbildschirm Innerhal de Zhl
schleif werde di x- un y- Koordinate berechne un di Ellips 
wir mittel de Circle- Funktio gezeichnet I niederauflsende 
Modu zeichne di Circl Funktio eine Kreis I hochauflsende 
Modu is de Krei leide z eine Ellips verzerrt.

Syntax der Circle- Funktion : Circle (X,Y,Radius,Farbe)
       Di Paramete  un  gebe de Kreis- (Ellipsen- Mittel
punk an De Radiu gib di Anzah de Punkt vo Mittel
punk bi zu Kreislinie an.
.fi elite
(***************************************************************************)
program circ1 (input,output);
(***************************************************************************)
const
     pi = 3.1415923;
var
     x,y,z: integer;

{$I \turbo\graph.p}                            (* Erweiterte Grafik einbinden *)
begin
    HiRes;                                     (* Hochauflsende Grafik *)
    for Z:=1 to 200 do
    begin
        Y:=trunc((145*sin(pi/50*z)+200)/2);    (* y-Wert Berechnen *)
        x:=trunc( 145*sin(pi/100*z)+300);      (* x-Wert Berechnen *)
        circle (x,y,20,1);                     (* Funktion zeichnen *)
    end;
    repeat until keypressed                    (* Warten auf Tastendruck *)
end.
.fi schoen
.pa
