MCVSIstuhl VectorScriptsá9(;c=stuhlgZIn diesem Bereich bestimmen Sie, unter welchen Bedingungen das Objekt neu gezeichnet wird.À@`@P^x@@_È@N@@ø\ˆ@ˆø |€" ùùùùùùùùùùùùùùùùùùùùùùìììùùìììùùìììùùùùùùùùùùùùùùùùùùùùùùü@@@@C„C„C„@@@@üü@@@@C„C„C„@@@@ü Öï  ! : Sl…È lehnenhoehe8 lehnentiefe1 sitzbreite7 sitztiefe6 sitzhoehe1 beinhoehe5 beinbreite1scroll mit Lehne mit Lehne mit Lehne ohne Lehne ohne Lehne3D DarstellungtruePROCEDURE stuhl; BEGIN IF (PSCROLL= 'mit Lehne') AND (P3D_DARSTELLUNG=FALSE) THEN BEGIN Move (0,0); Line (-PLEHNENTIEFE,0); Line (-.5,.5); Line (0,PLEHNENHOEHE-1); Line (.5,.5); Line (PLEHNENTIEFE,0); Line (0,PLEHNENTIEFE); Line (0,PLEHNENHOEHE+PSITZHOEHE); Line (-.5,-.5); Line (-(PBEINBREITE-1),0); Line (-.5,.5); Line (-.5,-.5); Line (-(PBEINBREITE-1),0); Line (-.5,.5); Line (-.5,-.5); Line (-(PBEINBREITE-1),0); Line (-.5,.5); Line (-.5,.5); Line (0,PBEINHOEHE-1); Line (.5,.5); Line (PBEINBREITE,0); Line (PBEINBREITE,0); Line (PBEINBREITE,0); Line (-.5,.5); Line (0,PBEINBREITE-1); Line (1,1); Line (PBEINBREITE-1,0); Line (1,-1); Line (0,-(PBEINBREITE-1)); Line (-.5,-.5); Line (0,-PBEINHOEHE); Line (PSITZBREITE-2*PBEINBREITE,0); MoveTo (PSITZBREITE,0); Line (PLEHNENTIEFE,0); Line (.5,.5); Line (0,PLEHNENHOEHE-1); Line (-.5,.5); Line (-PLEHNENTIEFE,0); Line (0,PLEHNENTIEFE); Line (0,PLEHNENHOEHE+PSITZHOEHE); Line (.5,-.5); Line ((PBEINBREITE-1),0); Line (.5,.5); Line (.5,-.5); Line ((PBEINBREITE-1),0); Line (.5,.5); Line (.5,-.5); Line ((PBEINBREITE-1),0); Line (.5,.5); Line (.5,.5); Line (0,PBEINHOEHE-1); Line (-.5,.5); Line (-PBEINBREITE,0); Line (-PBEINBREITE,0); Line (-PBEINBREITE,0); Line (.5,.5); Line (0,PBEINBREITE-1); Line (-1,1); Line (-(PBEINBREITE-1),0); Line (-1,-1); Line (0,-(PBEINBREITE-1)); Line (.5,-.5); Line (0,-PBEINHOEHE); MoveTo (0,0); Line (-PSITZHOEHE,0); Line (-.5,-.5); Line (0,-(PSITZTIEFE-1)); Line (.5,-.5); Line (PSITZHOEHE,0); Line (0,-PSITZHOEHE); Line (-PBEINHOEHE,0); Line (-.5,.5); Line (-(PBEINBREITE-1),0); Line (-1,-1); Line (0,-(PBEINBREITE-1)); Line (.5,-.5); Line (-2*PBEINBREITE,0); Line (-.5,-.5); Line (0,-(PBEINHOEHE-1)); Line (1,-1); Line (PBEINBREITE-1,0); Line (.5,.5); Line (.5,-.5); Line (PBEINBREITE-1,0); Line (.5,.5); Line (.5,-.5); Line (PBEINBREITE-1,0); Line (1,1); Line (0,PBEINHOEHE-1); Line (-.5,.5); Line (PBEINHOEHE,0); Line (0,-(PSITZTIEFE-PBEINBREITE)); Line (-PSITZHOEHE,0); Line (-.5,-.5); Line (0,-(PLEHNENTIEFE-1)); Line (.5,-.5); Line (PSITZHOEHE,0); Line (.5,-.5); Line (PSITZBREITE-1,0); MoveTo (PSITZBREITE,0); Line (PSITZHOEHE,0); Line (.5,-.5); Line (0,-(PSITZTIEFE-1)); Line (-.5,-.5); Line (-PSITZHOEHE,0); Line (0,-PSITZHOEHE); Line (PBEINHOEHE,0); Line (.5,.5); Line ((PBEINBREITE-1),0); Line (1,-1); Line (0,-(PBEINBREITE-1)); Line (-.5,-.5); Line (2*PBEINBREITE,0); Line (.5,-.5); Line (0,-(PBEINHOEHE-1)); Line (-1,-1); Line (-(PBEINBREITE-1),0); Line (-.5,.5); Line (-.5,-.5); Line (-(PBEINBREITE-1),0); Line (-.5,.5); Line (-.5,-.5); Line (-(PBEINBREITE-1),0); Line (-1,1); Line (0,PBEINHOEHE-1); Line (.5,.5); Line (-PBEINHOEHE,0); Line (0,-(PSITZTIEFE-PBEINBREITE)); Line (PSITZHOEHE,0); Line (.5,-.5); Line (0,-(PLEHNENTIEFE-1)); Line (-.5,-.5); Line (-PSITZHOEHE,0); Line (-.5,-.5); PenPat(-5); Move (.5,.5); Line (-PSITZBREITE,0); Move (PBEINHOEHE+PSITZBREITE,PSITZTIEFE-PBEINBREITE+PLEHNENTIEFE); Line (0,PBEINBREITE); Line (PBEINBREITE,0); Line (0,-PBEINBREITE); Line (-PBEINBREITE,0); Line (0,-PBEINHOEHE); Line (3*PBEINBREITE,0); Line (0,PBEINHOEHE); Move (-PBEINBREITE,0); Line (0,-PBEINHOEHE); Move (-PBEINBREITE,0); Line (0,PBEINHOEHE); Move (-(PBEINBREITE+2*PBEINHOEHE+PSITZBREITE),0); Line (0,PBEINBREITE); Line (-PBEINBREITE,0); Line (0,-PBEINBREITE); Line (PBEINBREITE,0); Line (0,-PBEINHOEHE); Line (-3*PBEINBREITE,0); Line (0,PBEINHOEHE); Move (PBEINBREITE,0); Line (0,-PBEINHOEHE); Move (PBEINBREITE,0); Line (0,PBEINHOEHE); Move (PBEINBREITE+PBEINHOEHE,0); Line (0,PBEINBREITE); Line (PSITZBREITE,0); Line (0,-PBEINBREITE); Move (0,PBEINBREITE+PSITZHOEHE); Line (-PSITZBREITE,0); Line (0,PSITZTIEFE+PLEHNENHOEHE); Move (-PLEHNENTIEFE,0); Line (0,-PLEHNENHOEHE); Move (PLEHNENTIEFE-PSITZHOEHE,0); Line (0,-PSITZTIEFE); Move (PSITZHOEHE+PSITZBREITE,0); Line (0,PSITZTIEFE+PLEHNENHOEHE); Move (PLEHNENTIEFE,0); Line (0,-PLEHNENHOEHE); Move (-(PLEHNENTIEFE-PSITZHOEHE),0); Line (0,-PSITZTIEFE); Move (-PSITZHOEHE,PSITZTIEFE); Line (-PSITZBREITE,0); Move (0,PLEHNENHOEHE); Line (PSITZBREITE,0); Move (0,PLEHNENTIEFE); Line (-PSITZBREITE,0); Move (0,PLEHNENHOEHE+PSITZHOEHE+PBEINHOEHE); Line (PBEINBREITE,0); Line (0,PBEINBREITE); Line (-PBEINBREITE,0); Line (0,-(PBEINBREITE+PBEINHOEHE)); Line (-3*PBEINBREITE,0); Line (0,PBEINHOEHE); Move (PBEINBREITE,0); Line (0,-PBEINHOEHE); Move (PBEINBREITE,0); Line (0,PBEINHOEHE); Move (PBEINBREITE,-PBEINHOEHE); Move (PSITZBREITE,PBEINHOEHE); Line (-PBEINBREITE,0); Line (0,PBEINBREITE); Line (PBEINBREITE,0); Line (0,-(PBEINBREITE+PBEINHOEHE)); Line (3*PBEINBREITE,0); Line (0,PBEINHOEHE); Move (-PBEINBREITE,0); Line (0,-PBEINHOEHE); Move (-PBEINBREITE,0); Line (0,PBEINHOEHE); Move (-PBEINBREITE,-PBEINHOEHE); MoveTo (0,-(PSITZTIEFE+PSITZHOEHE+PSITZTIEFE)); Line (0,-PLEHNENTIEFE); Move (-PSITZHOEHE,0); Line (0,PLEHNENTIEFE); Move (PSITZHOEHE+PSITZBREITE,0); Line (0,-PLEHNENTIEFE); Move (PSITZHOEHE,0); Line (0,PLEHNENTIEFE); END; IF (PSCROLL= 'ohne Lehne') AND (P3D_DARSTELLUNG=FALSE) THEN BEGIN Move (0,0); Line (0,PSITZHOEHE); Line (-.5,-.5); Line (-(PBEINBREITE-1),0); Line (-.5,.5); Line (-.5,-.5); Line (-(PBEINBREITE-1),0); Line (-.5,.5); Line (-.5,-.5); Line (-(PBEINBREITE-1),0); Line (-.5,.5); Line (-.5,.5); Line (0,PBEINHOEHE-1); Line (.5,.5); Line (PBEINBREITE,0); Line (PBEINBREITE,0); Line (PBEINBREITE,0); Line (-.5,.5); Line (0,PBEINBREITE-1); Line (1,1); Line (PBEINBREITE-1,0); Line (1,-1); Line (0,-(PBEINBREITE-1)); Line (-.5,-.5); Line (0,-PBEINHOEHE); Line (PSITZBREITE-2*PBEINBREITE,0); MoveTo (PSITZBREITE,0); Line (0,PSITZHOEHE); Line (.5,-.5); Line ((PBEINBREITE-1),0); Line (.5,.5); Line (.5,-.5); Line ((PBEINBREITE-1),0); Line (.5,.5); Line (.5,-.5); Line ((PBEINBREITE-1),0); Line (.5,.5); Line (.5,.5); Line (0,PBEINHOEHE-1); Line (-.5,.5); Line (-PBEINBREITE,0); Line (-PBEINBREITE,0); Line (-PBEINBREITE,0); Line (.5,.5); Line (0,PBEINBREITE-1); Line (-1,1); Line (-(PBEINBREITE-1),0); Line (-1,-1); Line (0,-(PBEINBREITE-1)); Line (.5,-.5); Line (0,-PBEINHOEHE); MoveTo (0,0); Line (-PSITZHOEHE,0); Line (-.5,-.5); Line (0,-(PSITZTIEFE-1)); Line (.5,-.5); Line (PSITZHOEHE,0); Line (0,-PSITZHOEHE); Line (-PBEINHOEHE,0); Line (-.5,.5); Line (-(PBEINBREITE-1),0); Line (-1,-1); Line (0,-(PBEINBREITE-1)); Line (.5,-.5); Line (-2*PBEINBREITE,0); Line (-.5,-.5); Line (0,-(PBEINHOEHE-1)); Line (1,-1); Line (PBEINBREITE-1,0); Line (.5,.5); Line (.5,-.5); Line (PBEINBREITE-1,0); Line (.5,.5); Line (.5,-.5); Line (PBEINBREITE-1,0); Line (1,1); Line (0,PBEINHOEHE-1); Line (-.5,.5); Line (PBEINHOEHE,0); Line (0,-(PSITZTIEFE-PBEINBREITE)); Line (.5,-.5); Line (PSITZBREITE-1,0); MoveTo (PSITZBREITE,0); Line (PSITZHOEHE,0); Line (.5,-.5); Line (0,-(PSITZTIEFE-1)); Line (-.5,-.5); Line (-PSITZHOEHE,0); Line (0,-PSITZHOEHE); Line (PBEINHOEHE,0); Line (.5,.5); Line ((PBEINBREITE-1),0); Line (1,-1); Line (0,-(PBEINBREITE-1)); Line (-.5,-.5); Line (2*PBEINBREITE,0); Line (.5,-.5); Line (0,-(PBEINHOEHE-1)); Line (-1,-1); Line (-(PBEINBREITE-1),0); Line (-.5,.5); Line (-.5,-.5); Line (-(PBEINBREITE-1),0); Line (-.5,.5); Line (-.5,-.5); Line (-(PBEINBREITE-1),0); Line (-1,1); Line (0,PBEINHOEHE-1); Line (.5,.5); Line (-PBEINHOEHE,0); Line (0,-(PSITZTIEFE-PBEINBREITE)); Line (-.5,-.5); PenPat(-5); Move (.5,.5); Line (-PSITZBREITE,0); Move (PBEINHOEHE+PSITZBREITE,PSITZTIEFE-PBEINBREITE); Line (0,PBEINBREITE); Line (PBEINBREITE,0); Line (0,-PBEINBREITE); Line (-PBEINBREITE,0); Line (0,-PBEINHOEHE); Line (3*PBEINBREITE,0); Line (0,PBEINHOEHE); Move (-PBEINBREITE,0); Line (0,-PBEINHOEHE); Move (-PBEINBREITE,0); Line (0,PBEINHOEHE); Move (-(PBEINBREITE+2*PBEINHOEHE+PSITZBREITE),0); Line (0,PBEINBREITE); Line (-PBEINBREITE,0); Line (0,-PBEINBREITE); Line (PBEINBREITE,0); Line (0,-PBEINHOEHE); Line (-3*PBEINBREITE,0); Line (0,PBEINHOEHE); Move (PBEINBREITE,0); Line (0,-PBEINHOEHE); Move (PBEINBREITE,0); Line (0,PBEINHOEHE); Move (PBEINBREITE+PBEINHOEHE,0); Line (0,PBEINBREITE); Line (PSITZBREITE,0); Line (0,-PBEINBREITE); Move (0,PSITZHOEHE+PBEINBREITE); Line (-PSITZBREITE,0); Line (0,PSITZTIEFE); Move (-PSITZHOEHE,0); Line (0,-PSITZTIEFE); Move (PSITZHOEHE+PSITZBREITE,0); Line (0,PSITZTIEFE); Move (PSITZHOEHE,0); Line (0,-PSITZTIEFE); Move (-PSITZHOEHE,PSITZTIEFE); Line (-PSITZBREITE,0); Move (0,PSITZHOEHE+PBEINHOEHE); Line (PBEINBREITE,0); Line (0,PBEINBREITE); Line (-PBEINBREITE,0); Line (0,-(PBEINBREITE+PBEINHOEHE)); Line (-3*PBEINBREITE,0); Line (0,PBEINHOEHE); Move (PBEINBREITE,0); Line (0,-PBEINHOEHE); Move (PBEINBREITE,0); Line (0,PBEINHOEHE); Move (PBEINBREITE+PSITZBREITE,0); Line (-PBEINBREITE,0); Line (0,PBEINBREITE); Line (PBEINBREITE,0); Line (0,-(PBEINBREITE+PBEINHOEHE)); Line (3*PBEINBREITE,0); Line (0,PBEINHOEHE); Move (-PBEINBREITE,0); Line (0,-PBEINHOEHE); Move (-PBEINBREITE,0); Line (0,PBEINHOEHE); END; IF (PSCROLL= 'mit Lehne') AND (P3D_DARSTELLUNG=TRUE) THEN BEGIN BeginXtrd (0,PBEINHOEHE); Rect (0,PBEINBREITE,PBEINBREITE,0); Rect (0,PSITZTIEFE+PLEHNENTIEFE,PBEINBREITE,PSITZTIEFE+PLEHNENTIEFE-PBEINBREITE); Rect (PSITZBREITE-PBEINBREITE,PBEINBREITE,PSITZBREITE,0); Rect (PSITZBREITE-PBEINBREITE,PSITZTIEFE+PLEHNENTIEFE,PSITZBREITE,PSITZTIEFE+PLEHNENTIEFE-PBEINBREITE); EndXtrd; BeginXtrd (PBEINHOEHE,PBEINHOEHE+PSITZHOEHE); Rect (0,PSITZTIEFE+PLEHNENTIEFE,PSITZBREITE,0); EndXtrd; BeginXtrd (PBEINHOEHE+PSITZHOEHE,PBEINHOEHE+PSITZHOEHE+PLEHNENHOEHE); Rect (0,PSITZTIEFE+PLEHNENTIEFE,PSITZBREITE,PSITZTIEFE); EndXtrd; END; IF (PSCROLL= 'ohne Lehne') AND (P3D_DARSTELLUNG=TRUE) THEN BEGIN BeginXtrd (0,PBEINHOEHE); Rect (0,PBEINBREITE,PBEINBREITE,0); Rect (0,PSITZTIEFE,PBEINBREITE,PSITZTIEFE-PBEINBREITE); Rect (PSITZBREITE-PBEINBREITE,PBEINBREITE,PSITZBREITE,0); Rect (PSITZBREITE-PBEINBREITE,PSITZTIEFE,PSITZBREITE,PSITZTIEFE-PBEINBREITE); EndXtrd; BeginXtrd (PBEINHOEHE,PBEINHOEHE+PSITZHOEHE); Rect (0,PSITZTIEFE,PSITZBREITE,0); EndXtrd; END; END; RUN(stuhl); Lehnenhšhe Lehnentiefe Sitzbreite SitztiefeSitzhšheBeinhšhe BeinbreiteMšbelart