MCVSIKarte4 VectorScripts= Karte4gZIn diesem Bereich bestimmen Sie, unter welchen Bedingungen das Objekt neu gezeichnet wird. ثث) @@@@CCC@@@@@@@@CCC@@@@   6 Oh anzboegen5ecken5whoehe100bhoehe50breite100rwhoehe50rwbreite20tiefe70PROCEDURE faltkarte; VAR anzahlboegen, ecken, i: integer; wandhoehe, bogenhoehe, breite, rwhoehe, rwbreite, steg, tiefe, bogenabstz, bogenabstx, bogenabsty, y, pageWidth, blattmitte: real; PROCEDURE bogen(e: integer; rx, ry, x, y: real); VAR i:integer; winkel: real; BEGIN For i:=1 to (e+1) do begin winkel := Deg2Rad((180 / (e+1))*(i-1)); moveto(x+rx*cos(winkel),y+ry*sin(winkel)); winkel := Deg2Rad((180 / (e+1))*i); lineto(x+rx*cos(winkel),y+ry*sin(winkel)); end; END; PROCEDURE blatt(objektbreite, falthoehe: real); VAR pageWidth, pageHeight, pageFoldY, width, depth, height: real; BEGIN pageWidth:=210; pageHeight:=297; pageFoldY:= falthoehe; width := objektbreite; {*blatt faltkanten zeichnen*} moveto(0,pageFoldY); lineto((pagewidth-width)/2,pageFoldY); moveto(pagewidth-(pagewidth-width)/2,pageFoldY); lineto(pageWidth,pageFoldY); moveto(0,y*0.5); lineto(pagewidth,y*0.5); {*Stift einstellen*} penPat(2); penFore(0,0,65535); {*blatt zeichnen*} moveto(0,0); lineto(pageWidth,0); lineto(pageWidth,pageHeight); lineto(0,pageHeight); lineto(0,0); END; PROCEDURE wand(b, h, bogenh, steg, y, abstz: real; e: integer); VAR i:integer; blattmitte,pageWidth:real; BEGIN pageWidth:=210; blattmitte:=pagewidth/2; {*Stift einstellen*} penPat(2); penFore(0,0,65535); {*linke seite*} moveto(blattmitte-(b/2),y); lineto(blattmitte-(b/2),y+h); {*rechte seite*} moveto(blattmitte+(b/2),y); lineto(blattmitte+(b/2),y+h); {*bogen*} bogen(e,(b-2*steg)/2,bogenh,blattmitte,y+h); {*stege*} moveto(blattmitte-b/2+steg,y+h); lineto(blattmitte-b/2+steg,y+h-abstz); moveto(blattmitte+b/2-steg,y+h); lineto(blattmitte+b/2-steg,y+h-abstz); {*Stift einstellen*} penFore(65535,0,0); penPat(-2); moveto(blattmitte-(b/2),y+h); lineto(blattmitte-(b/2)+steg,y+h); moveto(blattmitte+(b/2),y+h); lineto(blattmitte+(b/2)-steg,y+h); moveto(blattmitte-b/2+steg,y+h-abstz); lineto(blattmitte-b/2,y+h-abstz); moveto(blattmitte+b/2-steg,y+h-abstz); lineto(blattmitte+b/2,y+h-abstz); moveto(blattmitte-b/2+steg,y); lineto(blattmitte-b/2,y); moveto(blattmitte+b/2- steg,y); lineto(blattmitte+b/2,y); END; BEGIN Units(7); pageWidth:=210; blattmitte:=pagewidth/2; anzahlboegen := panzboegen; IF anzahlboegen < 1 then anzahlboegen := 1; ecken := pecken; IF ecken < 0 then ecken := 0; wandhoehe := pwhoehe; IF wandhoehe < 10 then wandhoehe := 10; bogenhoehe := pbhoehe; breite := pbreite; IF breite < 10 then breite := 10; rwhoehe := prwhoehe; IF rwhoehe < 10 then rwhoehe := 10; rwbreite := prwbreite; IF rwbreite < 5 then rwbreite := 5; tiefe := ptiefe; IF tiefe < 10 then tiefe := 10; steg := (breite-rwbreite)/(2*anzahlboegen); bogenabstz := tiefe/(anzahlboegen); bogenabstx := steg; bogenabsty := (wandhoehe-rwhoehe)/(anzahlboegen+1); y:=tiefe*2; for i:=1 to anzahlboegen do wand( breite - ((i-1)*bogenabstx*2), wandhoehe - ((i-1)*bogenabsty), (bogenhoehe/(breite-(2*steg))) * ((breite-(2*steg)) - ((i-1)*bogenabstx*2)), steg, y - ((i)*bogenabstz), bogenabstz, ecken ); blatt(breite,y); END; RUN(faltkarte); Anzahl EbenenPunkte pro Bogen Sulenhoehe Bogenhhe Bogenbreite RckwandhheRckwandbreiteTiefe