#macro ctext(txt,fon,thk,ac,tex,in)
#local len=strlen(txt)*0.55
#if(ac)
text{ttf fon txt thk,0 texture{tex} interior{in}translate
<-(len/2),-0.375,-(thk/2)>}
#else
text{ttf fon txt thk,0 texture{tex} interior{in}translate
<-(len/2),0,-(thk/2)>}
#end
#end

txt=Text
fon=Font
thk=Thickness
ac=Absolute center
tex=Texture
in=Interior

--

//Mahalis
camera{location<0,0.25,-2> look_at 0.5*y} #declare T=texture{pigment{crackle
scale 0.5 rotate 90 turbulence 0.75 color_map{[0 rgb 1][0.05 rgb 1][0.1
rgb<1,0.25,1>][0.25 rgbf 1][1 rgbf 1]}} finish{ambient 1}} #declare
c=difference{torus{0.5,0.1 rotate -90*x}box{<0.7,0,0.2>,<-0.7,-0.7,-0.2>}}
merge{object{c translate<0.5,0.5,0>} object{c translate<-0.5,0.5,0>}
cylinder{<1,0.5,0>,<1,0,0>,0.1} cylinder{<-1,0.5,0>,<-1,0,0>,0.1}
cylinder{0.5*y,0,0.1} texture{T}}
--



news:ik4nutoba5si6hj6fo6ga3h4k3a16741qr@4ax.com...
> On Thu, 8 Nov 2001 10:59:44 -0500, "Mahalis" <don### [at] fakeycom>
wrote:
> > Okay, okay, I get the message. No one wants my poor little macro [sniff]
> > <g>
>
> That's not true. I said to you I'm interested at first post. There could
be
> always interesting technic. But you tried fight. I showed source. Where is
your?
> :-)
>
> ABX
> --
> #declare _=function(a,b,x){((a^2)+(b^2))^.5-x}#default {pigment{color rgb
1}}
> union{plane{y,-3}plane{-x,-3}finish{reflection 1 ambient 0}}isosurface{
//ABX
>
function{_(x-2,y,1)|_((x+y)*.7,z,.1)|_((x+y+2)*.7,z,.1)|_(x/2+y*.8+1.5,z,.1)
}
> contained_by{box{<0,-3,-.1>,<3,0,.1>}}translate z*15finish{ambient
1}}//POV35

Post a reply to this message