Procedure firstPoly;
CONST
numberOfVertexes = 17;
VAR
i : INTEGER;
BEGIN
BeginPoly;
AddPoint(0, 0);
AddPoint(185, 0);
AddPoint(185, 15);
AddPoint(190, 0);
AddPoint(190, 60);
AddPoint(185, 45);
AddPoint(185, 60);
AddPoint(190, 60);
AddPoint(190, 120);
AddPoint(5, 120);
AddPoint(105, 5);
AddPoint(0, 120);
AddPoint(0, 60);
AddPoint(5, 75);
AddPoint(5, 60);
AddPoint(0, 60);
AddPoint(0, 0);
EndPoly;
FillBack(Random * 65535, Random * 65535, Random * 65535);
BeginPoly;
AddPoint(5, 15);
AddPoint(5, 45);
EndPoly;
BeginPoly;
AddPoint(60, 5);
Curvethrou(30,95);
AddPoint(60, 185);
EndPoly;
BeginPoly;
AddPoint(60, 5);
Curvethrou(90,95);
AddPoint(60, 185);
EndPoly;
BeginPoly;
AddPoint(185,75);
AddPoint(185,105);
EndPoly;
Procedure CustTool;
VAR
Name:STRING;
Result:BOOLEAN;
BEGIN
PenSize(1);
PenPat(2);
Marker(1, 1.125000, 15);
END;
Run(CustTool);
Poly(
0, 0,
185, 0,
185, 15,
190, 0,
190, 60,
185, 45,
185, 60,
190, 60,
190, 120,
5, 120,
105, 5,
0, 120,
0, 60,
5, 75,
5, 60,
0, 60,
0, 0,
);
Poly(
5, 15,
5, 45,
);
Poly(
185, 75
185, 105
);
END;
Run(firstPoly);