Musterlösung zu Aufgabe 5

MODULE Aufgabe5;

IMPORT C:=ColorPlane;

PROCEDURE ProgMain*;
VAR ch:CHAR; 
          i:INTEGER;

BEGIN
      C. Open ();
      FOR i:=255 TO 0 BY -1 DO
            C. SetForeColor (255-i,i,0);
            C. Box (100,100,100+i,100+i,1);
      END ;
      ch:= C. ReadKey();
END ProgMain;

END Aufgabe5.

Zurück zum Thema Grafik