<* WOFF + *>
MODULE Bomen;
  FROM IO IMPORT RdChar, WrChar, WrStr, RdStr, WrLn, RdKey, RdLn, RdCard, WrCard, RdInt, WrInt, RdReal, WrReal;
  FROM Graph IMPORT Init, Rectangle, Ellipse;
  FROM Graph IMPORT _clrBROWN, _clrWHITE, _clrGRAY, _clrLIGHTBLUE, _clrGREEN;

  CONST AANTAL = 10;
  TYPE  (*1.  BoomRc *)	
	
  PROCEDURE TekenBoom(boom: BoomRc);
  BEGIN
  (* 1 teken de gegeven boom *)
  END TekenBoom;

  (* 4 bereken boomvolume procedure *)
	
  VAR
   x:CHAR;
   boom: BoomRc;
   i, j: CARDINAL;
BEGIN
  IF NOT Init(1, 1, 600, 600) THEN
    WrStr("Sorry, graphics doesn't work");WrLn;
    RETURN;
  END;

  (* 2 teken een boom in het midden van het scherm *)
  boom.dikte := 30;

  (* 3 teken een bos *)


  WrStr("Press any key to finish the program");
  x := RdKey();  WrLn; RdLn;
END Bomen.