MCVSM villa savoye VectorScripts &ê villa savoyegZIn diesem Bereich bestimmen Sie, unter welchen Bedingungen das Objekt neu gezeichnet wird. Ý.Ý.D  ùùùùùùùùùùùùùùùùùùùùùùìììùùìììùùìììùùùùùùùùùùùùùùùùùùùùùùü@@@@C„C„C„@@@@üü@@@@C„C„C„@@@@üÂ Û ô ANZAHL_S€ULEN5 S€ULENH…HE3 K…RPERH…HE4 S€ULENDICKE0.25PROCEDURE savoye; VAR ANZAHL_S€ULEN:INTEGER; S€ULENH…HE:REAL; K…RPERH…HE:REAL; cStartX:REAL; saeulenStartX: REAL; saeulendicke:REAL; saeulenAbstand:REAL; gebaeudebreite:REAL; gebaeudeRand:REAL; i: INTEGER; BEGIN ANZAHL_S€ULEN:=PANZAHL_S€ULEN; S€ULENH…HE:=PS€ULENH…HE; K…RPERH…HE:=PK…RPERH…HE; saeulendicke:=PS€ULENDICKE; {*Stift einstellen*} penPat(2); penFore(0,0,65535); {*blatt zeichnen*} moveto(-10.5,-15); lineto(-10.5,15); lineto(10.5,15); lineto(10.5,-15); lineto(-10.5,-15); (*schnittlinien zeichnen*) (*gebŠudekšrper zeichnen*) moveto(-6.5,0); lineto(-6.5,K…RPERH…HE); moveto(6.25,K…RPERH…HE); lineto(6.25,0); moveto(-6.5,K…RPERH…HE); lineto(-6.5,K…RPERH…HE + S€ULENH…HE); moveto(6.25,K…RPERH…HE); lineto(6.25,K…RPERH…HE + S€ULENH…HE); moveto(-6.5,0); lineto(-6.25,0); (*sŠulen zeichnen*) moveto(6.25,0); lineto(6,0); saeulenStartX:=6; gebaeudebreite:=12.75; gebaeudeRand:=0.25; saeulenAbstand:=((gebaeudebreite-2*gebaeudeRand)-saeulendicke)/(ANZAHL_S€ULEN-1); FOR i:=0 TO ANZAHL_S€ULEN-1 DO BEGIN cStartX:= saeulenstartX-i* saeulenAbstand; {*Stift einstellen*} penFore(0,0,65535); penPat(2); moveto(cStartX,0); lineto(cStartX,-S€ULENH…HE); moveto(cStartX-saeulendicke,0); lineto(cStartX-saeulendicke,-S€ULENH…HE); moveto(cStartX-saeulendicke,0); lineto(cStartX-saeulendicke+saeulenAbstand,0); {*Stift einstellen*} penFore(65535,0,0); penPat(-2); moveto(cStartX,-S€ULENH…HE); lineto(cStartX-saeulendicke,-S€ULENH…HE); END; FOR i:=0 TO ANZAHL_S€ULEN-2 DO BEGIN cStartX:= saeulenstartX-i* saeulenAbstand; {*Stift einstellen*} penFore(0,0,65535); penPat(2); moveto(cStartX-saeulendicke,0.2*K…RPERH…HE); lineto(cStartX-saeulendicke,0.5*K…RPERH…HE); lineto(cStartX-saeulenAbstand,0.5*K…RPERH…HE); lineto(cStartX-saeulenAbstand,0.2*K…RPERH…HE); lineto(cStartX-saeulendicke,0.2*K…RPERH…HE); END; {*Stift einstellen*} penFore(65535,0,0); penPat(-2); {*blatt faltkanten zeichnen*} moveto(-10.5,0); lineto(-6.5,0); moveto(10.5,0); lineto(6.25,0); (*gebŠude faltkanten zeichnen*) moveto(-6.5,K…RPERH…HE); lineto(6.25,K…RPERH…HE); moveto(-6.5,K…RPERH…HE + S€ULENH…HE); lineto(6.25,K…RPERH…HE + S€ULENH…HE); END; RUN(savoye); Anzahl SŠulen SŠulenhšhe Kšrperhšhe S€ULENDICKE