On Wed, 5 Mar 2003 20:22:29 -0500, Greg Edwards
<edw### [at] hotmailcomremovethis> wrote:
> A bit more...
>
> -- 
> camera{location 2*y-.9rotate -9*z direction z/1.5look_at y}global_settings{
> max_trace_level 99ambient_light 10}#macro P(o,c)plane{y,o pigment{c}finish{
> diffuse 0}}#end object{P(9,blue 1)}object{P(-1,rgb 1)}box{1+9*y,-y-1pigment
> {rgb 1}finish{ambient.005diffuse 0reflection.95}}sphere{0,.99finish{
> reflection 1}}sphere{0,1pigment{red 1}finish{ambient 0reflection{1metallic}
> }no_reflection} // Greg Edwards, 2003

I feel this can be shortened (in particual camera) but this is already shorter
and does not produce warning.

camera{direction z/1.5location 2*y-.9rotate-z*9look_at y}global_settings{
max_trace_level 99ambient_light 10}#macro p(c,d,a,r)pigment{rgb c}finish{
diffuse d ambient a reflection{r#end plane{-y,-9p(z,0,.1,0)}}}plane{y,-1p
(1,.0.1.0)}}}box{-y-1y*9+1p(1,.0.005.95)}}hollow}sphere{.0.99p(no.6.1on)}
}}sphere{0,1p(x,.6,0,1)metallic}}no_reflection} // Greg Edwards, 2003

Please, note sig is supposed to represent author. How reflective spheres
represent your person ? :-)

ABX
-- 
disc{z,-z#macro O()asc(substr("-+((1*(,1,/.-,*/(,&.323/'1"e 1))/10-4#declare
e=e-1;#end#local e=26;5pigment{#local g=function(_){ceil(_)-_}function#local
k=function{pattern{object{sphere_sweep{linear_spline 13#while(e)<O()O()>.01#
end}}}}{k(g(atan2(x,y)),g(ln(pow(x+y,2)+1e-5)),0)}}finish{ambient 1}}//ABX35

Post a reply to this message