MCVSMtiere VectorScripts· ¶m!¶tieregZIn diesem Bereich bestimmen Sie, unter welchen Bedingungen das Objekt neu gezeichnet wird.ےU…‎0€ Tےےے@ءےMCD TےUïcكû4 ü,` TےQAچsےْ,`÷ TےUd {ےّ$@U… 3ےQCs{ےµ…ئإ ùùùùùùùùùùùùùùùùùùùùùùىىىùùىىىùùىىىùùùùùùùùùùùùùùùùùùùùùùü@@@@C„C„C„@@@@üü@@@@C„C„C„@@@@ü' ض ï  ! :Sl…‍hbelly20bfoot20bbelly40bhead30hfoot20hmouth15hear10hthroat10htail15PROCEDURE tiere; VAR تتتتتتت تتتتتتت pageWidth:تتتتت REAL; تتتتتتت pageHeight:تتتت REAL; تتتتتتت pageFoldY: REAL; تتتتتتت bfoot,bbelly,bhead:REAL; تتتتتتت hfoot,hmouth,hear,hthroat,htail,hbelly,oX,oY:REAL; تتتتتتت depth:ت REAL; تتتتتتت تتتتتتت BEGIN pageWidth:=210; تتتتتتت pageHeight:=297; تتتتتتت pageFoldY:=pageHeight/2; depth:=60; تتتتتتت oX:=41; oY:=pageFoldY-depth; تتتتتتت {*Variablen berechnen*} تتتتتتت تتتتتتت تتتتتتت bfoot:=pbfoot; تتتتتتت bbelly:=pbbelly; تتتتتتت bhead:=pbhead; تتتتتتت hfoot:=phfoot; تتتتتتت hmouth:=phmouth; تتتتتتت hear:=phear; تتتتتتت hthroat:=phthroat; تتتتتتت htail:=phtail; تتتتتتت hbelly:=phbelly;تتتتت تتتتتتت تتتتتتت تتتتتتت {*Stift einstellen*} تتتتتتت penPat(3); تتتتتتت penFore(0,65535,0); تتتتتتت تتتتتتت {*blatt zeichnen*} تتتتتتت moveto(0,0); تتتتتتت lineto(pageWidth,0); تتتتتتت lineto(pageWidth,pageHeight); تتتتتتت lineto(0,pageHeight); تتتتتتت lineto(0,0); تتتتتتت تتتتتتت تتتتتتتت {*faltkanten zeichnen*} moveto(oX+bHead,oY); lineTo(ox+bHead+bFoot,oY); moveto(oX+bhead+bfoot+bbelly,oY); lineto(oX+bhead+bfoot+bbelly+bfoot,oY); moveto(oX+bhead+bfoot,oY+hfoot+hbelly); lineto(oX+bhead+bfoot+bbelly+(bfoot/2),oY+hfoot+hbelly); moveto(oX+bhead+bfoot+bbelly+(bfoot/2),oY+hfoot+hbelly+htail); lineto(oX+bhead+bfoot+bbelly+bfoot,oY+hfoot+hbelly+htail); moveto(oX,oY+hfoot+hbelly+hthroat+hmouth); lineto(oX+bhead,oY+hfoot+hbelly+hthroat+hmouth); moveto(oX+bhead,oY+hfoot+hbelly+hthroat+hmouth+hear); lineto(oX+bhead+bfoot,oY+hfoot+hbelly+hthroat+hmouth+hear); moveto(oX+bhead,oY+hfoot+hbelly+hthroat+hmouth+hear+depth); lineto(oX+bhead+bfoot,oY+hfoot+hbelly+hthroat+hmouth+hear+depth); moveto(oX,oY+hfoot+hbelly+hthroat+hmouth+depth); lineto(oX+bhead,oY+hfoot+hbelly+hthroat+hmouth+depth); moveto(oX+bfoot+bbelly+(bfoot/2)+bhead,oY+hfoot+hbelly+htail+depth); lineto(oX+bfoot+bbelly+bfoot+bhead,oY+hfoot+hbelly+htail+depth); moveto(oX+bhead+bfoot,oY+hfoot+hbelly+hthroat+depth); lineto(oX+bhead+bfoot+bbelly+(bfoot/2),oY+hfoot+hbelly+hthroat+depth); {*blatt faltkanten zeichnen*} moveto(0,pageFoldY); lineto(oX+bhead,pageFoldY); moveto(oX+bhead+bfoot+bbelly+bfoot,pageFoldY); lineto(pageWidth,pageFoldY); {*Stift einstellen*} penFore(65535,0,0); penPat(-2); تتتتتتت تتتتتتتت {*schnittkanten zeichnen*} moveto(oX+bhead,oY); lineto(oX+bhead,oY+hfoot+hbelly+hthroat); moveto(oX,oY+hfoot+hbelly+hthroat); lineto(oX+bhead,oY+hfoot+hbelly+hthroat); moveto(oX,oY+hfoot+hbelly+hthroat); lineto(oX,oY+hfoot+hbelly+hthroat+hmouth+depth); moveto(oX+bhead+bfoot,oY); lineto(oX+bhead+bfoot,oY+hfoot); moveto(ox+bhead+bfoot,oY+hfoot); lineto(ox+bhead+bfoot+bbelly,oY+hfoot); moveto(ox+bhead+bfoot+bbelly,oY); lineto(ox+bhead+bfoot+bbelly,oY+hfoot); moveto(ox+bhead+bfoot+bbelly+bfoot,oY); lineto(ox+bhead+bfoot+bbelly+bfoot,oY+hfoot+hbelly+htail+depth); moveto(ox+bhead+bfoot+bbelly+(bfoot/2),oY+hfoot+hbelly); lineto(ox+bhead+bfoot+bbelly+(bfoot/2),oY+hfoot+hbelly+htail+depth); moveto(oX+bhead+bfoot,oY+hfoot+hbelly); lineto(oX+bhead+bfoot,oY+hfoot+hbelly+hthroat+hmouth+hear+depth); moveto(oX+bhead,oY+hfoot+hbelly+hthroat+hmouth); lineto(oX+bhead,oY+hfoot+hbelly+hthroat+hmouth+hear+depth); تتتتتتت END; RUN(tiere); belly height foot width belly width head width foot hight mouth height ear height throat height tail height