CONST
                      MaxColors = 15;

                   TYPE

                      PaletteType = Record
                         Size   : Byte;
                         Colors : Array[1..MaxColors] of ShortInt;
                      end;

                      CharSizeType = 1..10;

                      TextSettingsType = Record
                         Font      : Word;
                         Direction : Word;
                         CharSize  : CharSizeType;
                         Horiz     : Word;
                         Vert      : Word;
                      end;

                      FillSettingsType = Record
                        Pattern  : Word;
                        Color    : Word;
                     end;

                     FillPatternType  = Array[1..8] of Byte;

                     PointType = Record
                        X, Y, Word;
                     end;

                     ViewPortType = Record
                       X1, Y1, X2, Y2  : Word;
                       Clip            : Boolean;
                     end;

                     ArcCoordsType = Record
                        X, Y               : Integer;
                        Xs, Ys, Xend, Yend : Word;
                     end;

    Var
      GraphGetMemPtr    : Pointer { allows user to steal heap allocation }
      GraphFreeMemPtr   : Pointer { allows user to steal heap deallocation }