Hi,

Using the following code, I'm able to join the bouncing sphere to the origin with a
cylinder.

plane { y, -1 hollow pigment {rgb 1}}

#include "AutoClck.mcr"

sphere {<0,0,0>,.25 texture {Reddy}
translate From (0,<-1,0,0>) To_Using (1,<-1,-0.75,0>, "Bounce")
#declare NewClock1=mclock}

cylinder {NewClock1, <0,0,0>,0.05 texture {Reddy}}

However, when I introduce a second bouncing sphere, and try to join them both with the
cylinder, I run into problems.

#include "AutoClck.mcr"

sphere {<0,0,0>,.25 texture {Reddy}
translate From (0,<-1,0,0>) To_Using (1,<-1,-0.75,0>, "Bounce")
#declare NewClock1=mclock}

sphere {<0,0,0>,.25 texture {Reddy}
translate From (0,<1,0,0>) To_Using (.5,<1,-0.75,0>, "Bounce")
#declare NewClock2=mclock}

cylinder {NewClock1, NewClock2, .025 texture {Reddy}}

Obviously, NewClock1 and NewClock2 are ending up the same. How do I get the position
of
the second ( or third / fourth etc ) sphere into NewClock2 ?

Many thanks,

Andy

Post a reply to this message

On Thu, 11 Feb 1999 17:41:41 -0000, Andrew Cocker wrote:
>#include "AutoClck.mcr"
>
>sphere {<0,0,0>,.25 texture {Reddy}
>translate From (0,<-1,0,0>) To_Using (1,<-1,-0.75,0>, "Bounce")
>#declare NewClock1=mclock}
>
>sphere {<0,0,0>,.25 texture {Reddy}
>translate From (0,<1,0,0>) To_Using (.5,<1,-0.75,0>, "Bounce")
>#declare NewClock2=mclock}
>
>cylinder {NewClock1, NewClock2, .025 texture {Reddy}}

I'm not real clear on what mclock does or in general how the 
clock mod stuff all works, but can't you just do this:

#include "AutoClck.mcr"

#declare Start=From (0,<-1,0,0>) To_Using (1,<-1,-0.75,0>, "Bounce");
sphere {Start,.25 texture {Reddy}}

#declare End=From (0,<1,0,0>) To_Using (.5,<1,-0.75,0>, "Bounce");
sphere {End,.25 texture {Reddy}}

cylinder {Start, End, .025 texture {Reddy}}

Post a reply to this message

Ron Parker wrote in message <36c333b0.0@news.povray.org>...
>I'm not real clear on what mclock does or in general how the
>clock mod stuff all works, but can't you just do this:
>
>#include "AutoClck.mcr"
>
>#declare Start=From (0,<-1,0,0>) To_Using (1,<-1,-0.75,0>, "Bounce");
>sphere {Start,.25 texture {Reddy}}
>
>#declare End=From (0,<1,0,0>) To_Using (.5,<1,-0.75,0>, "Bounce");
>sphere {End,.25 texture {Reddy}}
>
>cylinder {Start, End, .025 texture {Reddy}}

No, but you set me on the right lines.
Actually, you need to do this

#declare NewClock1=<-1,0,0>;
Declare_From (NewClock1,0) Declare_To_Using (NewClock1,1,<-1,-0.9,0>, "Bounce")

Regards,

Andy

Post a reply to this message