MCVSM00_a MiscellaneousP_'¯*900_agClick to insert.&æÀ &çð &æØCzCzC¡C¡ ¨ ¨  ¨<¨<>  ùùùùùùùùùùùùùùùùùùùùùùìììùùìììùùìììùùùùùùùùùùùùùùùùùùùùùù€€€ü@@@@C„C„C„@@@@ü Ú  ˆ ¡ ºÓì7popophallohallohalloneinneinoh dochoh doch holduderadio radio stumm radio ein radio ein radio aus radio aus radio stumm radio stumm radio dumm radio dummnummber9innteger2bhuulien1spitzenabstand45 spitzenhoehe20 anzahlspitzen4dicke50tiefe30(*PtInPoly(pX, pY:REAL; h:HANDLE):BOOLEAN;*) PROCEDURE a00a; (* Kommentar *) VAR i,ii:INTEGER; anzahl:INTEGER; abstand:REAL; radius:REAL; text:STRING; aktXPositionZigzag1,aktYPositionZigzag1,aktXPositionZigzag2,aktYPositionZigzag2,aktXPositionUmh1,aktYPositionUmh1:REAL; aktXPositionUmh2,aktYPositionUmh2:REAL; anzahlSpitzen:INTEGER; (* 1,2,3,4,....*) spitzenHoehe,spitzenAbstand,dicke,tiefe:REAL; (*1.2,1.24,....*) spitzenAbstandw:REAL; aktZigZagLaenge:REAL; BEGIN dicke:=PDICKE; spitzenHoehe := PSPITZENHOEHE; spitzenAbstand := PSPITZENABSTAND; tiefe := PTIEFE; IF (PANZAHLSPITZEN < 1) THEN anzahlSpitzen := 1 ELSE anzahlSpitzen := PANZAHLSPITZEN; aktXPositionZigzag1 := 0; aktYPositionZigzag1 := 0; aktXPositionZigzag2 := 0; aktYPositionZigzag2 := -tiefe; aktXPositionUmh1 := 0; aktYPositionUmh1 := 0; aktXPositionUmh2 := dicke; aktYPositionUmh2 := 0; text := 'Jonas'; abstand:= 2; anzahl:= 4; Rect(0, 0, dicke, -tiefe); ArcByCenter(0,0,2,0,360); FOR i:=1 TO anzahlSpitzen DO BEGIN aktZigZagLaenge := Sqrt(((spitzenAbstand/2)^2)+(spitzenHoehe^2)); (*////////////////////////////////////////////////////////////////////////////// Zigzag1*) MoveTo(aktXPositionZigzag1,aktYPositionZigzag1); Line(spitzenHoehe,spitzenAbstand/2); MoveTo(aktXPositionZigzag1+dicke,aktYPositionZigzag1); Line(spitzenHoehe,spitzenAbstand/2); aktXPositionZigzag1 := aktXPositionZigzag1 + spitzenHoehe; aktYPositionZigzag1 := aktYPositionZigzag1 + spitzenAbstand/2; (*Line(-dicke,0); Faltlinie*) MoveTo(aktXPositionZigzag1,aktYPositionZigzag1); Line(-spitzenHoehe,spitzenAbstand/2); MoveTo(aktXPositionZigzag1+dicke,aktYPositionZigzag1); Line(-spitzenHoehe,spitzenAbstand/2); aktXPositionZigzag1 := aktXPositionZigzag1 - spitzenHoehe; aktYPositionZigzag1 := aktYPositionZigzag1 + spitzenAbstand/2; (*Line(-dicke,0); Faltlinie*) MoveTo(aktXPositionZigzag1,aktYPositionZigzag1); (*////////////////////////////////////////////////////////////////////////////// Ummantelung1*) FOR ii:=1 TO 2 DO BEGIN MoveTo(aktXPositionUmh1,aktYPositionUmh1); Line(-aktZigZagLaenge,0); (*Kleblasche*) MoveTo(aktXPositionUmh1,aktYPositionUmh1); Line(-5,5); Line(-aktZigZagLaenge + 10,0); Line(-5,-5); MoveTo(aktXPositionUmh1,aktYPositionUmh1-tiefe); Line(-aktZigZagLaenge,0); (*Kleblasche*) MoveTo(aktXPositionUmh1,aktYPositionUmh1-tiefe); Line(-5,-5); Line(-aktZigZagLaenge + 10,0); Line(-5,5); aktXPositionUmh1 := aktXPositionUmh1-aktZigZagLaenge; MoveTo(aktXPositionUmh1,aktYPositionUmh1); Line(0,-tiefe); END; (*////////////////////////////////////////////////////////////////////////////// Zigzag2*) MoveTo(aktXPositionZigzag2,aktYPositionZigzag2); Line(spitzenHoehe,-spitzenAbstand/2); MoveTo(aktXPositionZigzag2+dicke,aktYPositionZigzag2); Line(spitzenHoehe,-spitzenAbstand/2); aktXPositionZigzag2 := aktXPositionZigzag2 + spitzenHoehe; aktYPositionZigzag2 := aktYPositionZigzag2 - spitzenAbstand/2; (*Line(-dicke,0); Faltlinie*) MoveTo(aktXPositionZigzag2,aktYPositionZigzag2); Line(-spitzenHoehe,-spitzenAbstand/2); MoveTo(aktXPositionZigzag2+dicke,aktYPositionZigzag2); Line(-spitzenHoehe,-spitzenAbstand/2); aktXPositionZigzag2 := aktXPositionZigzag2 - spitzenHoehe; aktYPositionZigzag2 := aktYPositionZigzag2 - spitzenAbstand/2; (*Line(-dicke,0); Faltlinie*) MoveTo(aktXPositionZigzag2,aktYPositionZigzag2); (*////////////////////////////////////////////////////////////////////////////// Ummantelung2*) FOR ii:=1 TO 2 DO BEGIN MoveTo(aktXPositionUmh2,aktYPositionUmh2); Line(aktZigZagLaenge,0); (*Kleblasche*) MoveTo(aktXPositionUmh2,aktYPositionUmh2); Line(5,5); Line(aktZigZagLaenge - 10,0); Line(5,-5); MoveTo(aktXPositionUmh2,aktYPositionUmh2-tiefe); Line(aktZigZagLaenge,0); (*Kleblasche*) MoveTo(aktXPositionUmh2,aktYPositionUmh2-tiefe); Line(5,-5); Line(aktZigZagLaenge - 10,0); Line(5,5); aktXPositionUmh2 := aktXPositionUmh2+ aktZigZagLaenge; MoveTo(aktXPositionUmh2,aktYPositionUmh2); Line(0,-tiefe); END; END; (* RechtecksflŠche Boden: *) Rect(aktXPositionZigzag2, aktYPositionZigzag2, aktXPositionZigzag2 + dicke, aktYPositionZigzag2 - tiefe); MoveTo(aktXPositionZigzag1,aktYPositionZigzag1); Line(dicke,0); MoveTo(aktXPositionZigzag1,aktYPositionZigzag1); Line(5,5); Line(dicke-10,0); Line(5,-5); MoveTo(aktXPositionZigzag2,aktYPositionZigzag2); Line(dicke,0); (*Kleblasche Ende*) MoveTo(aktXPositionUmh1,aktYPositionUmh1); Line(-5,-5); Line(0,-tiefe+10); Line(5,-5); MoveTo(aktXPositionUmh2,aktYPositionUmh2); Line(5,-5); Line(0,-tiefe+10); Line(-5,-5); (* Message('Hello ',text); Wait(i); ClrMessage;*) (* FOR i:=0 TO anzahl DO BEGIN PenFore(200,Random*65535,0); FillBack(0,Random*65535,0); Rect(0,0,durchmesser-(i*abstand),durchmesser-(i*abstand)); END; Arc(0,0,50,50,10,40); *) END; RUN(a00a);Spitzenabstand Spitzenhšhe Anz. SpitzenDicke der WurstTiefe der Wursthihihi ¸ nedd waahr ¹yep