Need one for something simple I'm doing, but don't have time to work on it
today.

Post a reply to this message

I have a nail macro around here somewhere if you'd like to see it

-tgq

Post a reply to this message

I would very much like to see it

TinCanMan <Tin### [at] hotmailcom> wrote in message
news:3c430319@news.povray.org...
> I have a nail macro around here somewhere if you'd like to see it
>
> -tgq
>
>

Post a reply to this message

Try this macro, it makes a standard type of nail with an optional bend in
it:
Dia=diameter of nail
Len=length of nail
Bend=angle of bend in nail (0=none)
BLen=position of bend from tip of nail

i.e.:  object{Nail(5,50,30,25) material{MyMaterial}}

-tgq

//Start Macro

#macro Nail (Dia,Len,Bend,BLen)
  union{
    union{
      cylinder{0 y 1.5*Dia}
      cylinder{0 -(Len-BLen-1.5*Dia*pi*Bend/360)*y Dia/2}
      torus{0.25 Dia/2 scale<1,0.2,1> translate -2*y}
      torus{0.25 Dia/2 scale<1,0.2,1> translate -3*y}
      torus{0.25 Dia/2 scale<1,0.2,1> translate -4*y}
      translate <-1.5*Dia,Len-BLen-1.5*Dia*pi*Bend/360,0>
      rotate<0,0,-Bend>
      translate <1.5*Dia,BLen,0>
    }
    #if (mod(Bend,360)>0)
      difference{
        torus{1.5*Dia Dia/2 rotate<90,0,0>}
        plane{y 0}
        plane{-y 0 rotate<0,0,-Bend>}
        translate <1.5*Dia,BLen,0>
      }
    #end
    cylinder{<0,3*Dia,0> <0,BLen,0> Dia/2}
    difference{
      cylinder{<0,0,0> <0,3*Dia,0> Dia/2}
      plane{-z 0 rotate <12,  0,0>}
      plane{-z 0 rotate <10, 90,0>}
      plane{-z 0 rotate <12,180,0>}
      plane{-z 0 rotate <10,270,0>}
    }
  }
#end


//End Macro

Post a reply to this message

Perfect. Thank you.

TinCanMan <Tin### [at] hotmailcom> wrote in message
news:3c431e67$1@news.povray.org...

Post a reply to this message