Musterlösung zu Aufgabe 1

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