Chip 2000 August

home *** CD-ROM | disk | FTP | other *** search

/ Chip 2000 August / chip_08_2000.iso / aktualnosci / shareware / Rhinoceros / rh11eval_20000320.exe / %MAINDIR% / RIB / rh_glass.slc < prev next >

Wrap

Text File | 2000-06-08 | 7.7 KB | 627 lines

version BMRT 2.4.0b surface rh_glass param float Ka 0.2 param float Kd 0 param float Ks 0.5 param float Kr 1 param float Kt 1 param float roughness 0.05 param float reflectblur 0 param float refractblur 0 param float eta 1.5 param color specularcolor 1 1 1 param float samples 1 local string $_str_0 "__nonspecular" local color ev 0 0 0 local color cr 0 0 0 local vector IN 0 0 0 local normal Nf 0 0 0 local vector Rfldir 0 0 0 local vector Rfrdir 0 0 0 local float kr 0 local float kt 0 local vector _13$Rdir 0 0 0 code local float _13$jitter 0 code local color _13$C 0 0 0 local float _13$bluramt 0 local float _13$nrays 0 local vector _16$uoffset 0 0 0 local vector _16$voffset 0 0 0 local vector _16$Tu 0 0 0 local vector _16$Tv 0 0 0 local float _16$i 0 local float _16$j 0 local vector _20$R 0 0 0 local point _20$Pray 0 0 0 local vector _1$V 0 0 0 code local float _1$sharpness 0 code local color _1$C 0 0 0 local float _1$w 0 local float _3$nonspec 0 local float _3$r 0 local vector _5$H 0 0 0 initcode 10 return code pushif 0 cset ev pushif 0 cset cr pushv I normalize popv IN pushv I pushv N normalize faceforward popv Nf pushif 0 pushv N pushv I vdot lt ifz 0 pushf eta pushif 1 divff jump 1 label 0 pushf eta label 1 pushv Nf pushv IN fresnel4 popf kr popf kt popv Rfldir popv Rfrdir pushf Kr mulF kr popf kr pushf Kt mulF kt popf kt pushif 0.001 pushf kr gt ifz 2 pushv Rfldir normalize popv _13$Rdir pushif 1 popf _13$jitter pushif 0 cset _13$C pushif 1e-006 pushv _13$Rdir area sqrt fmax addF reflectblur popf _13$bluramt pushif 0 raylevel feqf ifz 5 pushf samples sqrt ceil pushif 1 fmax jump 6 label 5 pushif 1 label 6 popf _13$nrays pushif 1 pushf _13$nrays gt pushif 0 pushf _13$bluramt gt or ifz 7 pushv _13$Rdir xcomp pushv _13$Rdir ycomp subff pushv _13$Rdir zcomp pushv _13$Rdir xcomp subff pushv _13$Rdir ycomp pushv _13$Rdir zcomp subff normalize mulFv reflectblur popv _16$uoffset pushv _16$uoffset pushv _13$Rdir cross popv _16$voffset pushf du pushif 1.5 mulff pushv P Duv mulvf popv _16$Tu pushf dv pushif 1.5 mulff pushv P Dvv mulvf popv _16$Tv pushif 0 popf _16$i label 9 pushf _13$nrays pushf _16$i lt ifz 11 pushif 0 popf _16$j label 12 pushf _13$nrays pushf _16$j lt ifz 14 pushv _16$voffset pushif 0.5 pushf _13$nrays pushif 0 raylevel feqf ifz 16 pushif 0.5 random subff mulF _13$jitter pushif 0.5 addff jump 17 label 16 pushif 0.5 label 17 label 15 addF _16$j divff subff mulfv pushv _16$uoffset pushif 0.5 pushf _13$nrays pushif 0 raylevel feqf ifz 19 pushif 0.5 random subff mulF _13$jitter pushif 0.5 addff jump 20 label 19 pushif 0.5 label 20 label 18 addF _16$i divff subff mulfv addV _13$Rdir addvv popv _20$R pushv _16$Tv pushif 0.5 pushf _13$nrays pushif 0 raylevel feqf ifz 22 pushif 0.5 random subff mulF _13$jitter pushif 0.5 addff jump 23 label 22 pushif 0.5 label 23 label 21 addF _16$i divff subff mulfv pushv _16$Tu pushif 0.5 pushf _13$nrays pushif 0 raylevel feqf ifz 25 pushif 0.5 random subff mulF _13$jitter pushif 0.5 addff jump 26 label 25 pushif 0.5 label 26 label 24 addF _16$j divff subff mulfv addV P addvv popv _20$Pray pushv _20$R normalize pushv P trace addC _13$C popc _13$C label 13 pushif 1 addF _16$j popf _16$j jump 12 label 14 label 10 pushif 1 addF _16$i popf _16$i jump 9 label 11 mulFF _13$nrays _13$nrays pushc _13$C divcf popc _13$C jump 8 label 7 pushv _13$Rdir pushv P trace popc _13$C label 8 pushc _13$C label 4 mulFc kr popc ev label 2 label 3 pushif 0.001 pushf kt gt ifz 27 pushv Rfrdir normalize popv _13$Rdir pushif 1 popf _13$jitter pushif 0 cset _13$C pushif 1e-006 pushv _13$Rdir area sqrt fmax addF refractblur popf _13$bluramt pushif 0 raylevel feqf ifz 30 pushf samples sqrt ceil pushif 1 fmax jump 31 label 30 pushif 1 label 31 popf _13$nrays pushif 1 pushf _13$nrays gt pushif 0 pushf _13$bluramt gt or ifz 32 pushv _13$Rdir xcomp pushv _13$Rdir ycomp subff pushv _13$Rdir zcomp pushv _13$Rdir xcomp subff pushv _13$Rdir ycomp pushv _13$Rdir zcomp subff normalize mulFv refractblur popv _16$uoffset pushv _16$uoffset pushv _13$Rdir cross popv _16$voffset pushf du pushif 1.5 mulff pushv P Duv mulvf popv _16$Tu pushf dv pushif 1.5 mulff pushv P Dvv mulvf popv _16$Tv pushif 0 popf _16$i label 34 pushf _13$nrays pushf _16$i lt ifz 36 pushif 0 popf _16$j label 37 pushf _13$nrays pushf _16$j lt ifz 39 pushv _16$voffset pushif 0.5 pushf _13$nrays pushif 0 raylevel feqf ifz 41 pushif 0.5 random subff mulF _13$jitter pushif 0.5 addff jump 42 label 41 pushif 0.5 label 42 label 40 addF _16$j divff subff mulfv pushv _16$uoffset pushif 0.5 pushf _13$nrays pushif 0 raylevel feqf ifz 44 pushif 0.5 random subff mulF _13$jitter pushif 0.5 addff jump 45 label 44 pushif 0.5 label 45 label 43 addF _16$i divff subff mulfv addV _13$Rdir addvv popv _20$R pushv _16$Tv pushif 0.5 pushf _13$nrays pushif 0 raylevel feqf ifz 47 pushif 0.5 random subff mulF _13$jitter pushif 0.5 addff jump 48 label 47 pushif 0.5 label 48 label 46 addF _16$i divff subff mulfv pushv _16$Tu pushif 0.5 pushf _13$nrays pushif 0 raylevel feqf ifz 50 pushif 0.5 random subff mulF _13$jitter pushif 0.5 addff jump 51 label 50 pushif 0.5 label 51 label 49 addF _16$j divff subff mulfv addV P addvv popv _20$Pray pushv _20$R normalize pushv P trace addC _13$C popc _13$C label 38 pushif 1 addF _16$j popf _16$j jump 37 label 39 label 35 pushif 1 addF _16$i popf _16$i jump 34 label 36 mulFF _13$nrays _13$nrays pushc _13$C divcf popc _13$C jump 33 label 32 pushv _13$Rdir pushv P trace popc _13$C label 33 pushc _13$C label 29 mulFc kt popc cr label 27 label 28 pushif 0 isshadowray gt ifz 52 pushc Cs pushv Nf pushv IN vdot abs mulfc pushif 1 ftoc subcc mulC Os popc Oi jump 53 label 52 pushif 1 cset Oi mulCC Cs cr pushv IN negv popv _1$V pushif 0.5 popf _1$sharpness pushif 0 cset _1$C pushf _1$sharpness pushif 1 subff pushif 0.18 mulff popf _1$w pushif 2 pushif 3.14159 divff pushv Nf pushv P illuminance_start label 55 illuminance3 56 pushif 0 popf _3$nonspec pushs $_str_0 pushif 1 lightsourceM _3$nonspec popf _3$r pushif 1 pushf _3$nonspec lt ifz 57 pushv _1$V pushv L normalize addvv normalize popv _5$H pushf roughness pushif 1 divff pushv _5$H pushv Nf vdot pushif 0 fmax pow pushf _1$w pushif 0.72 addff pushf _1$w pushif 0.72 subff smoothstep pushf _3$nonspec pushif 1 subff mulff pushc Cl mulcf addC _1$C popc _1$C label 57 label 58 jump 55 label 56 pushc _1$C label 54 mulFc Ks addC ev mulC specularcolor pushv Nf diffuse mulFc Kd ambient mulFc Ka addcc addcc addcc popc Ci label 53 return