DEFINITION MODULE bgTriangle;

IMPORT

  i : IntuitionD,
  u : UtilityD;

CONST trPen = 22H;                  (* Farbe des Feldes *)
      trStonePen = 23H;             (* Farbe der Steine *)
      trBottom = 24H;               (* Flag, unten *)
      trWhite = 25H;                (* Anzahl weisse Steine *)
      trBlack = 26H;                (* # schwarze Steine *)

VAR TriangleClass : i.IClassPtr;


END bgTriangle.