
Weet iemand wat de fout is?
Code: Selecteer alles
MODULE B_S5;
<* NOOPTIMIZE + *> (* For the Debugger *)
FROM IO IMPORT WrStr, WrLn, RdKey, WrCard, RdLn;
(* de graphics library vind je onder C:/Bin/Xds/Def/Ts/Graph.def *)
FROM Graph IMPORT Init, Rectangle, Circle, Disc;
FROM Graph IMPORT _clrBLACK, _clrBLUE, _clrGREEN, _clrCYAN, _clrRED, _clrMAGENTA;
FROM Graph IMPORT _clrBROWN, _clrWHITE, _clrGRAY, _clrLIGHTBLUE, _clrLIGHTGREEN;
FROM Graph IMPORT _clrLIGHTCYAN, _clrLIGHTRED, _clrLIGHTMAGENTA, _clrLIGHTYELLOW, _clrBRIGHTWHITE;
(* deze 16 kleuren zijn constantes gaande van 0 tot 15 *)
VAR
x:CHAR;
i,j:INTEGER;
BEGIN
(* Initialise graphics *)
IF NOT Init(1, 1 , 800, 800) THEN (* creates a drawing window of 500 by 500 *)
WrStr("Sorry, graphics doesn't work");WrLn;
RETURN;
END;
(* coordinatenstelsel: (0,0) is in linkerbovenhoek *)
Rectangle(0, 0, 800, 800, _clrBLACK, TRUE);
FOR i := 0 TO 800 BY 200 DO
FOR j := 0 TO 600 BY 200 DO
Rectangle(100 + j, i ,200 + j, 100 + i, _clrCYAN, TRUE);
END;
END;
FOR i := 100 TO 700 BY 200 DO
FOR j := 0 TO 600 BY 200 DO
Rectangle( j , i , i , 200 + j, _clrCYAN, TRUE);
END;
END;
(* Show graphics until user presses a key *)
WrStr("Press any key to finish the program");
x := RdKey();
WrLn; RdLn;
END B_S5.