WWSLIDE_Pendelleuchte MYSLDAEH@֟*@EPYTRDD2CSD3hCSD2!+CSD1H# CSLV`.!TXTC/vDRAP0PFFIGP4EPYTWWWWRDD2WWWWCSD3WW! Pendelleuchte SLIDE ! 2004 Helmut Winhard - winhard cad neue medien ! Version: 1.0 ! Datum: 08.02.2004 !_________________________________________________ abh= abh/1000 !! mm !! HOTSPOT 0, 0, -abh HOTSPOT -A/2, B/2, -abh HOTSPOT A/2, B/2, -abh HOTSPOT A/2, -B/2, -abh HOTSPOT -A/2, -B/2, -abh !_________________________________________________ !! Abhngung ****** ADDx -1.00/2 GOSUB 100 ! Abhngung L ADDx 1.00 GOSUB 100 ! Abhngung R DEL 2 !! Krper **** ADDz -abh GOSUB 200 ! Platten unten ADDz sh-spl GOSUB 200 ! Platten oben DEL 1 ADDz spl GOSUB 220 ! Randstreifen mit ovalen Lchern GOSUB 230 ! Farbfilter DEL 1 ADDz 0.0015 GOSUB 250 ! Optik DEL 1 ADDz 0.0130 GOSUB 300 ! U-Profil DEL 1 ADDy 0.04 GOSUB 400 ! Leuchtstoffrhre ADDy -0.08 GOSUB 400 DEL 2 GOSUB 500 ! Lichtwirkung DEL 1 END: !___________________________________________ 100: ! Abhngung MATERIAL "alu" ADDz -abh+sh !!! CYLIND 0.011, 0.0035 ! Hlse unten ADDz 0.011 CYLIND abh-sh-2*0.011, dss*0.5 ! Seil ADDz abh-sh-2*0.011 CYLIND 0.011, 0.0035 ! Hlse oben DEL 3 RETURN !**************** 200: ! Platte mit ffnung MATERIAL "alu" PRISM_ 4, spl, ! Streifen oben -A/2, B/2, 15, A/2, B/2, 15, A/2, B/2-bpl, 15, -A/2, B/2-bpl, 15 PRISM_ 4, spl, ! Streifen unten -A/2, -B/2, 15, A/2, -B/2, 15, A/2, -B/2+bpl, 15, -A/2, -B/2+bpl, 15 PRISM_ 4, spl, ! Streifen links -A/2, B/2-bpl, 15, -A/2+bpl, B/2-bpl, 15, -A/2+bpl, -B/2+bpl, 15, -A/2, -B/2+bpl, 15 PRISM_ 4, spl, ! Streifen rechts A/2, B/2-bpl, 15, A/2-bpl, B/2-bpl, 15, A/2-bpl, -B/2+bpl, 15, A/2, -B/2+bpl, 15 RETURN !**************** 220: ! Randstreifen MATERIAL "alu" FOR I = 1 TO 2 ! Lngsabschlsse ADD -A/2, -B/2 + 0.040, 0 !! Rcksprung von Auenkante 0.040 ROTx 90 ADDx 0.04 + 0.045 ! Abstand erstes Loch von 0 FOR J = 1 TO 5 ll= 0.1825 ! Lochlnge CUTPOLYA 7, 1, 0, ! ovale Lcher 0, 0.001, 79, 0, 0.006, 900, 0, -180, 4013, 0, 0.011, 13, ll, 0.011, 79, ll, 0.001, 1013, 0, 0.001, -1 ADDx ll+0.055 ! Abstand Lochanfang zu Lochanfang NEXT J DEL J PRISM_ 4, -0.005, 0.040, 0, 15, 0.040, 0.012, 15, A-0.040, 0.012, 15, A-0.040, 0, 15 BODY -1 FOR J = 1 TO 5 CUTEND NEXT J DEL 2 MULy -1 NEXT I DEL 2 FOR K = 1 TO 2 ! Querabschlsse ADD A/2 - 0.040, -B/2, 0 ROTz 90 ROTx 90 PRISM_ 12, -0.005, 0.056, 0, 15, 0.056, 0.012, 15, B-0.056, 0.012, 15, B-0.056, 0, 15, 0.056, 0, -1, 0.056+0.038, 0.001, 79, !! ovales Loch 0.056+0.038, 0.006, 900, 0, -180, 4000, 0.056+0.038, 0.011, 13, B-0.056-0.038, 0.011, 79, B-0.056-0.038, 0.001, 1013, 0.056+0.038, 0.001, -1 BODY -1 DEL 3 MULx -1 NEXT K DEL 2 RETURN !**************** 230: ! Farbfilter IF farbf = "ohne" THEN RETURN IF farbf = "weiss" THEN MATERIAL "FFweiss" IF farbf = "rot" THEN MATERIAL "FFrot" IF farbf = "blau" THEN MATERIAL "FFblau" IF farbf = "gruen" THEN MATERIAL "FFgruen" IF farbf = "gelb" THEN MATERIAL "FFgelb" IF farbf = "orange" THEN MATERIAL "FForange" ffd = 0.002 ! Dicke Farbfilter PRISM_ 10, 0.012, -A/2 + 0.035, -B/2+ 0.035, 15, -A/2 + 0.035, B/2 -0.035, 15, A/2 - 0.035, B/2 -0.035, 15, A/2 - 0.035, -B/2 + 0.035, 15, -A/2 + 0.035, -B/2+ 0.035, -1, -A/2 + 0.035+ffd, -B/2 + 0.035+ffd, 15, -A/2 + 0.035+ffd, B/2 -0.035-ffd, 15, A/2 - 0.035-ffd, B/2 -0.035-ffd, 15, A/2 - 0.035-ffd, -B/2 + 0.035+ffd, 15, -A/2 + 0.035+ffd, -B/2 + 0.035+ffd, -1 BODY -1 RETURN !**************** 250: ! Optik MATERIAL "Optik" bl = A-2*bpl ! Breite Loch tl = B-2*bpl ! Tiefe Loch vers = 0.003 PRISM 4, 0.0025, -bl/2-vers, tl/2+vers, bl/2+vers, tl/2+vers, bl/2+vers, -tl/2-vers, -bl/2-vers, -tl/2-vers BODY -1 RETURN !**************** 300: ! Kanal Mitte MATERIAL "alu" upd = 0.002 ! Materialstrke uph = 0.020 ! Profilhhe upb = 0.040 ! Profilbreite ADD -(A-2*bpl-0.08)/2, -upb/2, 0 ROTy 90 ROTz 90 PRISM_ 8, A-0.20, ! U-Profil (Kabelkanal) 0, 0, 15, 0, uph, 15, upb, uph, 15, upb, 0, 15, upb-upd, 0, 15, upb-upd, uph-upd, 15, upd, uph-upd, 15, upd, 0, 15 DEL 3 FOR L = 1 TO 2 ADD A/2-bpl-0.042, 0.036/2, 0 ROTx 90 PRISM 6, 0.036, ! Montagewinkel 0, 0, 0, uph-upd, upd, uph-upd, upd, upd, 0.056, upd, 0.056, 0 DEL 2 MULx -1 NEXT L DEL 2 MATERIAL Fassung ADDz -0.004 PRISM 4, 0.022, ! Vorschaltgert -0.14, -0.0175, -0.14, 0.0175, 0.14, 0.0175, 0.14, -0.0175 DEL 1 RETURN !**************** 400: ! Leuchtstoffrhre !! Fassung MATERIAL "Fassung" FOR L = 1 TO 2 ADD -A/2+bpl, 0, h ! Abstand Rhre von Mitte ROTz -90 ROTx -90 PRISM 4, 0.002, ! Quader -0.0134, 0.010, -0.0134, 0.020, 0.0134, 0.020, 0.0134, 0.010 ADDz 0.002 PRISM_ 4, 0.0155, ! mit Rundung -0.009, 0.007, 15, -0.009, 0.015, 79, 0.009, 0.015, 1013, 0.009, 0.007, 15 DEL 1+3 MULX -1 NEXT L DEL 2 !! RHRE ADD -llm/2, 0, 0.0170 ROTy 90 MATERIAL "chrom" CYLIND 0.015, dlm*0.5 ! Kontakt ADDz 0.015 IF C > 0.5 THEN MATERIAL "NeonAn" IF C < 0.5 THEN MATERIAL "NeonAus" CYLIND llm-0.03, dlm*0.5 ! Rhre ADDz llm-0.03 MATERIAL "chrom" CYLIND 0.015, dlm*0.5 ! Kontakt DEL 2 DEL 2 RETURN !**************** 500: !!! Lichtwirkung !!! IF C<0.5 THEN RETURN IF G<0.5 THEN RETURN R=B/2 ! Radius T=(G/100-1)**2*1.2 ! Abnahme berechnet aus Intensitt ADDz -0.001 ROTy 90 ! +++ nach unten +++ LIGHT D, E, F, 1, !RGB, Shadows On R, 60, 80, 0.1, !Radius,alpha,beta,abnahmewinkel 0, 6.00, T !dist1, dist2, abnahme DEL 2 ADDz 0.041 ROTy -90 ! +++ nach oben +++ LIGHT D, E, F, 1, !RGB, Shadows On R, 60, 80, 0.1, !Radius,alpha,beta,abnahmewinkel 0, 6.00, T !dist1, dist2, abnahme DEL 2 IF O < 0.5 THEN RETURN ! Allgemein 1/0 ! +++ Allgemeinlicht +++ ADDz 0.018 ROTy 90 LIGHT D,E,F,0, !RGB, Shadow OFF (Punklicht kein Schatten) 0,0,0,0, !Radius,alpha,beta,abnahmewinkel 0, 6.00, T !dist1, dist2, abnahme DEL 2 RETURN !**************** CSD2WW+HOTSPOT2 0, 0 HOTSPOT2 -A/2, B/2 HOTSPOT2 A/2, B/2 HOTSPOT2 A/2, -B/2 HOTSPOT2 -A/2, -B/2 HOTSPOT2 -0.50, 0 HOTSPOT2 0.50, 0 IF sch THEN fill fills pen penc kf = 2 POLY2_A 5, kf, penf, -A/2, B/2, 1, A/2, B/2, 1, A/2, -B/2, 1, -A/2, -B/2, 1, -A/2, B/2, -1 IF showtyp = "detailiert" THEN PROJECT2 3, 270, 2 IF showtyp = "Drahtgitter" THEN PROJECT2 3, 270, 1 IF showtyp = "einfach" THEN RECT2 -A/2, -B/2, A/2, B/2 CIRCLE2 0.50,0, dss*0.5 CIRCLE2 -0.50,0, dss*0.5 ENDIF CSD1WW !! ********* Dimensions ********** !! dss = 0.001 ! Durchmesser Abhngseil spl = 0.003 ! Strke der Hauptplatten bpl = 0.060 ! Breite der Plattenstreifen dlm = 0.016 ! Durchmesser Leuchtmittel llm = 1.145 ! Lnge leuchtmittel h = 0.033 ! Gesamthhe sh = 0.018 ! sichtbare Hhe !! ******* Mat Definitions ****** !! DEFINE MATERIAL "FFweiss" 0, 220/255,220/255,220/255, 0.75, 0.5, 0.4, 0.75, 15, 1, 0.4, 0.4, 0.4, C*170/255,C*170/255,C*170/255, 0.4 DEFINE MATERIAL "FFrot" 0, 200/255,5/255,5/255, 0.75, 0.5, 0.4, 0.75, 15, 1, 0.4, 0.4, 0.4, C*180/255,C*5/255,C*5/255, 0.4 DEFINE MATERIAL "FFblau" 0, 10/255,1/255,255/255, 0.75, 0.5, 0.4, 0.75, 15, 1, 0.4, 0.4, 0.4, C*1/255,C*10/255,C*180/255, 0.4 DEFINE MATERIAL "FFgruen" 0, 1/255,150/255,70/255, 0.75, 0.5, 0.4, 0.75, 15, 1, 0.4, 0.4, 0.4, C*1/255,C*150/255,C*70/255, 0.4 DEFINE MATERIAL "FFgelb" 0, 200/255,200/255,1/255, 0.75, 0.5, 0.4, 0.75, 15, 1, 0.4, 0.4, 0.4, C*180/255,C*180/255,C*1/255, 0.4 DEFINE MATERIAL "FForange" 0, 220/255,140/255,1/255, 0.75, 0.5, 0.4, 0.75, 15, 1, 0.4, 0.4, 0.4, C*200/255,C*120/255,C*1/255, 0.4 DEFINE MATERIAL "NeonAn" 0, D, E, F, !RGB 0.15, 0.95, 0.5, 0, !ambient,diffuse,specular,transparent coeff.-s 40, 0, !shining, transparency att. 1, 1, 1, !Specular RGB D, E, F, !Emission RGB 0.4 !Emission att. DEFINE MATERIAL "NeonAus" 0, D, E, F, 0.15, 0.95, 0.9, 0.2, 80, 0.5, 1, 1, 1, D*0.25, E*0.25, F*0.25, 0.5 DEFINE MATERIAL "Optik" 0, 215/255,215/255,225/255, 0.9, 0.95, 0.3, 0.82, 15, 1, 0.4, 0.4, 0.4, C*(155/255)*G/100, C*(155/255)*G/100, C*(165/255)*G/100, ! Abstrahlung abh. von Intensitt G 0.5 DEFINE MATERIAL "alu" 0, 0.93, 0.93, 0.93, 0.90, 0.5, 0.70, 0, 35, 0, 1, 1, 1, 0, 0, 0, 0 DEFINE MATERIAL "Fassung" 0, 0.99, 0.99, 0.99, 1.0, 0.5, 0.10, 0, 10, 0, 1, 1, 1, 0, 0, 0, 0 DEFINE MATERIAL "chrom" 0, ! fr die Enden der Rhren ! 0.85, 0.85, 0.85, 0.95, 0.3, 0.95, 0, 60, 0, 1, 1, 1, 0, 0, 0, 0 CSLVWW!values "farbf" "ohne", "weiss", "rot", "blau", "gruen", "gelb", "orange" values "leuchtm" "T5 - 2 x 54 W" values "copyright" "H. Winhard - winhard cad neue medien - www.winhard.de" values "showtyp" "einfach", "detailiert", "Drahtgitter" LOCK "A" LOCK "B" TXTCWWv#http://www.winhard.de Grimmeisen Pendelleuchte "SLIDE" 2004 winhard cad neue medien DRAPWWPWW`֟*@ @?A @Q?B ?C ?D gfffff?E gfffff?F V@G _sp1 _sp4 y@abh( @farbfrot0 leuchtmT5 - 2 x 54 W ?O _sp20 @showtypdetailiert  ?sch ?penc P@fills V@penf _sp0X copyrightH. Winhard - winhard cad neue medien - www.winhard.deSLIDE PendelleuchteOptionenAbhnghhe (mm):Farbfilter:Leuchtmittel:Allgemeinlicht in 3D:2D-DarstellungGrundriss-Symbol:Grundschraffur:Stift_Kontur:Ausfllmuster:Stift_Ausfllmuster: GDL Programmierung:FFIGWWGIF87a+,LSRXDK23偆9;krtckl|0.ptuysӧP( C3PJቈ En5hӪm p I;c]&Ç@2!,X# ,8ϛ5K`tӨSNװ[f۷00E (tcϝwࠂ2سkǎᄁcNVS.zЁ[k-7߄0e}D `v7v РւR4ָa!(x㝈 @i,!|1NhL69cP A/&o. difNڸyp qiJic)|)hN~&~jaa7猕^T)駠JTQI*^$Q+ TjQ5)S9N$J.PN8شĂT@ S T@9P[C ;pnvA B [lQd lP /|Y1 Cd(8X`TA#b@ %w5p%k(sm;OۚfCPѕA!rx%l?ހCz6@W&Up%N-VY͖e׈!$l" ]{]6⨣}Wycosy!)je]). U._h(8݈N5Ww! t燙㞦8n;.i{} Sܗ4݇Ѩ◟귿+Q@-݄,N~MKV5)l'R%L ,doXUK@]-)Ϊ௦*(L!@0 g u0?"}H" r`/ X -2&ؖ-h `BnY0 WP)H#@$g 6әL4;Ml&F:rg$n&IJf?Dpc 8`gQN@ J`0P-;' Mg\ZB.&P9a0SJl8dXSj߱-Å5]rW-, H0tII;z36o = 89ωM& %=fOa'ոP!e-4<4hq&"5$l-O>%*MA`Tt5R\@Z+Pw+J0K )phZTrX)5Tym8M X֔Q\:HJj8Ox\;;SԠX)SDP m`iÝSj$#=wkW2>lĹJjdZH-qrk=!d,r]FNso չ.SœtG^ @QЋﱗ{'ѷ/~ŧv^Z ~ ܪo+J_D'&/;aⰲ[*[o"nNRLSzb`]ş: 5^U8Jpſb`$ n؃=VEh)9)qc_QZ֒ d(\rd1Jz@LЙ X>y + -` K@̙J e"#<O0/l@ cXl"Vzկn Fl.I(B"T0)D"#tl#%0 C H (<ȶy&4?r 942`ndW:@g#FHq[ZHpx3C yRYq3KFϸ]`Gf""ch3 Df$!~?|DX@ :@e^0$җu!WtWXǺ