T W12.5.0 VW12.5.0D2XNWC-G01KKEVectorWorks  Yh @2"I?ډÜSmHO$H|~zlH@bcD@ t@ @(\b'@I?RQ@R#E?v.> Zentimetercmqcmccm Quadratmeterqm Kubikmetercm24?HHQuickDraw 3D Interactived? Fu und Zoll"'- sq ftcu ft??$@$@@h@H%m@Ҷ$@ffffff9@??$@$@p,y!AR2~< 8,yL@Rwrdr@,,yL@RlgdrT,yA@R$ j,y@R@b@N0A ((((((((((*,y|@R(,yJARAIGDTw$ww4|www4|>4|4|!4|$"" $4| "ॐ  Nw>jwإngsdaten\Nemetsc觐VectorWorks\(ŐIƐN x8n",yX@Rb ,y@R 6 (?6 (?6 (?6 (?6 (?6 (?6 (?6 (?6 (?6 (?6 (?:;? '?:;?:;?:;?:;?:;?:;?:;?:;?:;?}(?:;?}(?}(?}(?}(?}(?}(?}(?}(?}(?:;?N1?:;?:;?:;?:;?:;?:;?:;?:;?:;?6 (? x?6 (?6 (?6 (?6 (?6 (?6 (?6 (?6 (?6 (???:;?}(?E???????????????Đ?:;?}(?/h!?}(?/ ?Đ?Đ?Đ?Đ?Đ?`6?:;?}(?E???=+J ?`6?`6?`6?`6?`6?6`?; 2?,`?"M % ~ Q9pFp@ ((y ;_ _p:W-뤠 چcY}^[E2U4e2HR+g_ ZxC&9bR^6*A`^Y?yhβٳ.83zo,AVޡXr_jW6c̸c2@f ԊX+^G}kG>]ŵQș2# &+?^UCi]%~5{hYiRTU$ڻ-#zQpigO%9;@z KO6/:xގXdFA8!(񜿻ĺNNr8%=|?2L|?2L kV :L$g!b['&g>y߈b5 u ݵi,,wݝnWxXmu{;˂䬖vnp0 sr:8\ݏ=wo(z}@%Q@Q@ߊ?9 +G<a?y]%C +MQEQEC ̟osMPmBk+9. %LmhG#Àq\%AfQq07^n ?)g+6 # ]y/;nݞsoS3(Dӿ*J5K湻l<ɸK91=vdIX$iOqK^8C%hJ a > @%03ea > @%03ea > @%sv?Pi>L^ԴcZmVR< Y`X% FHI9@?J0AbKKV,y3 @((b,y1 APROCEDURE faltkarte; VAR Falt,Faltwinkel, Breite, Hhe, Tiefe, Position, xOffset, Alpha, Beta, Gamma, Delta,picolo,Omega,Epsylon : REAL; XX, YY : ARRAY [1..10] of REAL; m : ARRAY [1..10] of REAL; nVolumes,i:INTEGER; BEGIN { vorige linien lschen} DeleteObjs; { STIFT } penPat(2); penFore(0,0,65535); { BLATT } moveto(0,0); lineto(210,0); lineto(210,297); lineto(0,297); lineto(0,0); { WERTE } Falt := 148.5; Breite := 130; Hhe := 40; Tiefe := 20; xOffset := 20; Position := (210-(breite+xoffset))/2; nVolumes := 8; Alpha := 15 / 180 * PI; Picolo:=1; XX[1] := 0; XX[2] := 210; { SCHLEIFE } FOR i:=0 TO nVolumes-1 DO BEGIN { WINKEL } Beta := ArcTan ( Hhe * Sin(Alpha) / ( Cos(Alpha) * Tiefe + Sin(Alpha) * xOffset ) ); Gamma := ArcTan ( xOffset / ( Hhe + Tiefe ) ); Delta := Beta - Alpha; { PUNKTE} YY[1] := Falt; YY[2] := Falt -( XX[2]-XX[1]) * Tan(Faltwinkel); XX[3] := xx[1]+(Position + Tan(Gamma) * Tiefe) * Cos(Faltwinkel); YY[3] := Falt - (Position + Tan(Gamma) * Tiefe) * Sin(Faltwinkel); XX[4] := xx[1]+(Position + Tan(Gamma) * Tiefe + Breite) * Cos(Faltwinkel); YY[4] := Falt - (Position + Tan(Gamma) * Tiefe + Breite) * Sin(Faltwinkel); XX[5] := xx[1]+(Position) * Cos(Faltwinkel) - (Tiefe) * Sin(Faltwinkel); YY[5] := Falt - (Position) * Sin(Faltwinkel) - Tiefe * Cos(Faltwinkel); XX[6] := xx[1]+( Position + Breite - Tan(Gamma) * Sin(Alpha) * Cos(Gamma) * Breite / Cos(Alpha - Gamma) ) * Cos(Faltwinkel) - ( Tiefe + Sin(Alpha) * Cos(Gamma) * Breite / Cos(Alpha - Gamma) ) * Sin(Faltwinkel); YY[6] := Falt - (Position + Breite) * Sin(Faltwinkel) - ( Tiefe + Sin(Alpha) * Cos(Gamma) * Breite / Cos(Alpha - Gamma) ) * Cos(Faltwinkel) + ( Tan(Gamma) * Sin(Alpha) * Cos(Gamma) * Breite / Cos(Alpha - Gamma) ) * Sin(Faltwinkel); XX[7] := xx[1]+(Position + xOffset) * Cos(Faltwinkel) + Hhe * Sin(Faltwinkel); YY[7] := Falt - Position * Sin(Faltwinkel) + Hhe * Cos(Faltwinkel) - xOffset * Sin(Faltwinkel); XX[8] := xx[1]+( Position + Breite + xOffset + Sin(Beta) * Sin(Gamma) * Breite / Cos(Beta + Gamma) ) * Cos(Faltwinkel) + ( Hhe + Sin(Beta) * Cos(Gamma) * Breite / Cos(Beta + Gamma) ) * Sin(Faltwinkel); YY[8] := Falt - (Position+Breite) * Sin(Faltwinkel) + ( Hhe + Sin(Beta) * Cos(Gamma) * Breite / Cos(Beta + Gamma) ) * Cos(Faltwinkel) - xOffset * Sin(Faltwinkel) - ( Sin(Beta) * Sin(Gamma) * Breite / Cos(Beta + Gamma) ) * Sin(Faltwinkel); IF Alpha = 0 THEN BEGIN XX[9] := XX[3] + (Hhe - Tiefe) * Sin(Faltwinkel); YY[9] := YY[3] + (Hhe - Tiefe) * Cos(Faltwinkel) ; XX[10] := XX[4] + (Hhe - Tiefe) * Sin(Faltwinkel); YY[10] := YY[4] + (Hhe - Tiefe) * Cos(Faltwinkel); END ELSE BEGIN XX[9] := XX[3] + ( Sin(Delta) * Sin(Gamma) * ( Tiefe / Tan(Alpha) + Tan(Gamma) * Tiefe) / Cos(Delta + Gamma) ) * Cos(Faltwinkel) + ( Sin(Delta) * Cos(Gamma) * ( Tiefe / Tan(Alpha) + Tan(Gamma) * Tiefe) / Cos(Delta + Gamma) ) * Sin(Faltwinkel); YY[9] := YY[3] - ( Sin(Delta) * Sin(Gamma) * ( Tiefe / Tan(Alpha) + Tan(Gamma) * Tiefe) / Cos(Delta + Gamma) ) * Sin(Faltwinkel) + ( Sin(Delta) * Cos(Gamma) * ( Tiefe / Tan(Alpha) + Tan(Gamma) * Tiefe) / Cos(Delta + Gamma) ) * Cos(Faltwinkel); XX[10] := XX[4] + ( Sin(Delta) * Sin(Gamma) * ( Tiefe / Tan(Alpha) + Tan(Gamma) * Tiefe + Breite ) / Cos(Delta + Gamma) ) * Cos(Faltwinkel) + ( Sin(Delta) * Cos(Gamma) * ( Tiefe / Tan(Alpha) + Tan(Gamma) * Tiefe + Breite ) / Cos(Delta + Gamma) ) * Sin(Faltwinkel); YY[10] := YY[4] - ( Sin(Delta) * Sin(Gamma) * ( Tiefe / Tan(Alpha) + Tan(Gamma) * Tiefe + Breite ) / Cos(Delta + Gamma) ) * Sin(Faltwinkel) + ( Sin(Delta) * Cos(Gamma) * ( Tiefe / Tan(Alpha) + Tan(Gamma) * Tiefe + Breite ) / Cos(Delta + Gamma) ) * Cos(Faltwinkel); END; { SCHNITT } { STIFT } penPat(2); penFore(0,0,65535); moveto(XX[5],YY[5]); lineto(XX[7],YY[7]); moveto(XX[6],YY[6]); lineto(XX[8],YY[8]); { STIFT } penFore(65535,0,0); penPat(-2); { FALT } moveto(XX[1], YY[1]); lineto(XX[3], YY[3]); moveto(XX[4], YY[4]); lineto(XX[2], YY[2]); {moveto(XX[5],YY[5]); lineto(XX[6],YY[6]);} moveto(XX[7],YY[7]); lineto(XX[8],YY[8]); moveto(XX[9],YY[9]); lineto(XX[10],YY[10]); { STIFT } penPat(2); {neue werte fr schleife} ; Omega := ArcTAN ( COS(Gamma) * ( (yy[8]-YY[4])^2 + (xx[8]-xx[4])^2 )^(1/2) / ( Breite + SIN(Gamma) * ( (yy[8]-YY[4])^2 + (xx[8]-xx[4])^2 )^(1/2) ) ); Picolo := COS(Alpha) - SIN(Alpha)*TAN(omega + Gamma); Breite :=Breite*picolo; Hhe :=Hhe*picolo; Tiefe := Tiefe*picolo; xOffset:= xOffset*picolo; Faltwinkel :=Alpha*(i+1); Falt :=YY[5]; {Position:=0;} Position :=((XX[6]-XX[5])/cos(alpha*(1+i))-Breite)/8; XX[2] := XX[6]; XX[1] := XX[5]; Alpha:=(alpha+i*0.0001); END; penFore(65535,0,0); penPat(-2); moveto(XX[5],YY[5]); lineto(XX[6],YY[6]); END; RUN(faltkarte); $ YT,yNA$|io,ypAd6&6& BCB'Adobe PDFUTER\LANIER LD118 PCLS 4dA4(210 x 297 mm)PRIV ''''0P4(Dk0EBDAStandardwinspool Adobe PDFUEigene Dateien\*.pdf6\IP_192.168.1.1\,y^A@\,y^A@,yf / ABreite"$":Hhew"$":Tiefe"$": Alpha"$":xOffset"$":nVolumes$":>0A  RWx(\,y^A$p1 PRATV}/kff33̙ff̙ `D33ff333333ffff33ffffԙ33ffff̙ffff33ffݻwwwwwwUUUUUUDDDDDD""""""Fݎҙ׻ff2g;q*LPDeeff33UUUUUUUUffUU33UUqq::TYYYTYYYTff33UUUUUUUUffUU33UUVV,,2;;;2;;;2̙ff33UUUU̙UUUUffUU33UUweffffffffffff33ffffUUffUUffUUffUUffffUU33ffUU33333333ff33333333UU33UU33UU33UUff33UU3333UUvff33UUUUUUUUffUU33UUb2sff33ff33DOL̪̪̪̪ff̪33̪ff33elw7wwwwww̙ff33̙ff33S*UUUUUUffffffffffff33ffffffffffffff33ffY:DDDDDD33333333ff33333333333333ff33333333!""""""ff33h,yLARc-@c-c-c-@c-@c-@c-@c-c-c-Konstruktionsebene-1$Uf)ftP" X&D"،f@?uX?#<71t@cؑH}@W<7@rf\p,'2u=\@???rhn@uöEn@rh^@rh^rh^rh^@ffffff????Y@^,yL@2mgplI?ډÜSmHO$H|~zlH@bcD@6,@2$2~$RT