Source position: xforms.pp line 1096
procedure fl_polygon(
p1: LongInt;
p2: PFL_Point;
p3: LongInt;
p4: TFL_COLOR
);