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