MCVSM050522TeamBescht Miscellaneous &ð050522TeamBeschtgClick to insert.~7À¹·ÀE@¸Nµ@CYB(CqCЀlƒ 1ö°1ö°1ö°~8°¹¸°Ep¸Nµp1ö°lClv`€ÿÿÿ ÿÿÿ ùùùùùùùùùùùùùùùùùùùùùùìììùùìììùùìììùùùùùùùùùùùùùùùùùùùùùù€€€ü@@@@C„C„C„@@@@üÂ Û ô HOHE30BREITE10ANZAHL10DREHUNG0.5PROCEDURE myScriptName; VAR anzahl, i, k : INTEGER; hohe, breite, drehung, sizeOfUnit, posX : REAL; PROCEDURE drawPolygon(VAR hohe, breite, drehung : REAL; anzahl : INTEGER); VAR counter : INTEGER; BEGIN BeginPoly; MoveTo(posX,0); LineTo(posX+31.4/anzahl, 31.4/anzahl*drehung); CurveTo(posX+breite, -hohe/2); LineTo(posX+31.4/anzahl, -hohe-31.4/anzahl*drehung); LineTo(posX,-hohe); LineTo(posX,0); EndPoly; Oval(posX+0.3, -0.6, posX+0.6, -0.3); Oval(posX+ (31.4/anzahl)- 0.6+ (drehung*0.3), 31.4/anzahl*drehung- 0.6- (0.5*drehung), posX+ (31.4/anzahl)- 0.3+ (drehung*0.3), (31.4/anzahl*drehung)- 0.3- (0.5*drehung)); Oval(posX+ (31.4/anzahl)- 0.6+ (drehung*0.3), -hohe- (31.4/anzahl*drehung)+ 0.3+ (0.5*drehung), posX+ (31.4/anzahl)- 0.3+ (0.3*drehung), -hohe- (31.4/anzahl*drehung)+ 0.6+ (0.5*drehung)); Oval(posX+0.3, -hohe+0.3, posX+0.6, -hohe+0.6); END; BEGIN hohe := PHOHE; breite := PBREITE; drehung := PDREHUNG; sizeOfUnit := PBREITE; anzahl := PANZAHL; FOR k := 1 TO anzahl DO BEGIN posX := k * sizeOfUnit; drawPolygon( hohe, breite, drehung, anzahl); END; END; RUN(myScriptName);HšheBreiteAnzahlDrehung