TAreaInfo

type TAreaInfo = record

  VctrTbl: PSmallInt;

Pointer to start of vector table

  VctrPtr: PSmallInt;

Pointer to current vertex

  FlagTbl: PShortInt;

Pointer to start of vector flag table

  FlagPtr: PShortInt;

Pointers to areafill flags

  Count: SmallInt;

Number of vertices in list

  MaxCount: SmallInt;

AreaMove/AreaDraw will not allow Count>MaxCount

  FirstX: SmallInt;

First point for this polygon (X coordinate)

  FirstY: SmallInt;

First point for this polygon (Y coordinate)

end;

InitArea

Initialize vector collection matrix

TRastPort

Basic structure for all drawing actions

AreaDraw

Add a point to a list of end points for areafill.

AreaMove

Define a new starting point for a new shape in the vector list.

AreaEllipse

Add a ellipse to areainfo list for areafill.

AreaEnd

Process table of vectors and ellipses and produce areafill.