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);