MODULE Aufgabe1;
IMPORT C:=ColorPlane;
PROCEDURE ProgMain*;
VAR ch:CHAR;
BEGIN
C. Open ();
C. SetForeColor (0,150,0);
C. SetBackColor (0,100,255);
C. Box (100,100,200,200,0);
C.Bar (102,102,198,198,1);
C. SetForeColor (128,0,128);
C. Line (102,102,198,198,1);
C. SetBackColor (255,255,255);
C. Dot (150,150,0);
ch:=C.ReadKey();
END ProgMain;
END Aufgabe1.
Zurück zum Thema Grafik