MCVSMTeamMisa VectorScripts²¤VTeamMisagZIn diesem Bereich bestimmen Sie, unter welchen Bedingungen das Objekt neu gezeichnet wird. \À\ÀD  ùùùùùùùùùùùùùùùùùùùùùùìììùùìììùùìììùùùùùùùùùùùùùùùùùùùùùùü@@@@C„C„C„@@@@üü@@@@C„C„C„@@@@üPROCEDURE misa; CONST pageWidth=209.9; pageHeight=297; pageFoldY=297/2; VAR objectX1,objectX2,objectY1,objectY2,objectY3:REAL; width,depth,height,distance:REAL; nVolumes:INTEGER; i:INTEGER; makeRandomVariable:BOOLEAN; BEGIN {*werte in variablen speichern*} nVolumes:=9+Random*5; distance:=5; makeRandomVariable:=true; {*breite der volumen*} width:= (pageWidth-(nVolumes+1)*distance)/(nVolumes); {*a4 zeichnen*} penFore(0,0,65535); moveto(0,0); lineto(pageWidth,0); lineto(pageWidth,pageHeight); lineto(0,pageHeight); lineto(0,0); {*zum ersten papierfaltpunkt bewegen*} moveto(0,pageFoldY); {*in dieser schleife werden die volumen gezeichnet*} FOR i:=0 TO nVolumes-1 DO BEGIN {*hšhe und tiefe zufŠllig berechnen*} IF (makerandomvariable=true) THEN BEGIN height:=100-20*i; depth:=100-20*i; END; {*schnittlinien*} objectX1:=i*(distance+width)+distance; objectX2:=objectX1+width; {*faltungslinien*} objectY1:=pageFoldY-depth; objectY3:=pageFoldY+height; objectY2:=objectY3-depth; {*papier faltkanten zeichnen*} penFore(65535,0,0); lineTo(objectX1,pageFoldY); {*schnittlinien zeichnen*} penFore(0,0,65535); moveto(objectX1,objectY1); lineto(objectX1,objectY3); moveto(objectX2,objectY1); lineto(objectX2,objectY3); {*volumen faltlinien zeichnen*} penFore(65535,0,0); moveto(objectX1,objectY1); lineto(objectX2,objectY1); moveto(objectX1,objectY2); lineto(objectX2,objectY2); moveto(objectX1,objectY3); lineto(objectX2,objectY3); {*zum nŠchsten papierfaltpunkt bewegen*} moveto(objectX2,pageFoldY); END; {*letzten papierfaltpunkt zeichen*} lineTo(pageWidth,pageFoldY); END; RUN(misa);