your getting into the realm of sea urchins with this one!

Rick

Post a reply to this message

In article <39616a2c@news.povray.org>, "Bob Hughes" 
<per### [at] aolcom?subject=PoV-News:> wrote:

> "Bill DeWitt" <the### [at] earthlinknet> wrote in message
> news:39610dc0@news.povray.org...
> | "Chris Huff" <chr### [at] maccom> wrote :
> | >
> | > Why not just use something like this instead:
> | >
> | > translate vrotate(z, y*turns*360)*< RADIUSX, 0, RADIUSZ>
> |
> |     Because I never did figure out vrotate.
> |
> |     But I will not let that stop me from -using- what -you- figured out 
> |     8-)
> 
> I'm not much with that kind of thing myself, I did try to replace the 
> original way in your pov script with the vrotate and it didn't work 
> out too well.  Or it least the obvious didn't work out.  Unending 
> learning process.

Try this rewritten version, I neglected to include the counter variable:

#declare Animation = off;

#macro CircleCoil(RadiusMinor, TurnsMinor, RadiusMajor, TurnsMajor, 
Parts)
    #if(Animation=on)
        // must have at least one component in blob
        #local StopVal = Parts*clock + 1;
    #else
        #local StopVal = Parts;
    #end
    blob {
        #local I=0;
        #while(I < StopVal)
            ////////////  Sphere  ////////////
            sphere {< 0, 0, 0>, 0.5, strength 2
                scale < 0.5, 50/Parts, 0.5 >
                translate vrotate(z,   
y*(I/(Parts-1))*TurnsMinor*360)*RadiusMinor
                rotate < 0, 0, 90-((I/(Parts-1))*360)>
                translate 
vrotate(y,-z*(I/(Parts-1))*TurnsMajor*360)*RadiusMajor
            }
            #local I = I+1;
        #end
    }// end blob
#end// end CircleCoil

object {CircleCoil(< 0.25, 0, 0.25>, 8, < 1.25, 1.25, 0>, 1, 1000)
    rotate < 90, 0, 0>
    texture {
        pigment {color rgb < 0.7, 0.8, 0.9>}
        finish {
            ambient 0.125
            //reflection 0.95
        }
    }
    translate y*0.5
} // end object

-- 
Christopher James Huff - Personal e-mail: chr### [at] maccom
TAG(Technical Assistance Group) e-mail: chr### [at] tagpovrayorg
Personal Web page: http://homepage.mac.com/chrishuff/
TAG Web page: http://tag.povray.org/

Post a reply to this message

"Chris Huff" <chr### [at] maccom> wrote :
>
> Try this rewritten version, I neglected to include the counter variable:

    OK, I'll get back to you about it after I finish spending a few days
whining like a baby about this flu.

Post a reply to this message

Actually when it comes to Anim. I am, how should i say...? Lacking in
knowledge...

Bob Hughes wrote:

> "Moon47" <rdm### [at] earthlinknet> wrote in message
> news:39600E32.E34A4FB1@earthlink.net...
> |
> | Here is another... Sort of sea urchent like...?
>
> Hey, that's neat stuff.  Ever thought of uncurling or curling such things up
> in an animation?  Yeah, you probably have....

Post a reply to this message

"Chris Huff" <chr### [at] maccom> wrote :
>
> #declare Animation = off;

    The animation was left over from a different use.

> object {CircleCoil(< 0.25, 0, 0.25>, 8, < 1.25, 1.25, 0>, 1, 1000)
>     rotate < 90, 0, 0>

    I was playing around with my version and fixed the problem of it laying
the wrong way and needing to rotate it later. I guess it's the same either
way. I also added some more parameters to allow object declaration, more or
less pieces per CircleCoil and position.

    Now if there will just be a IRRC round that needs that object...

Post a reply to this message

See below for my suggestion for this macro.

Tor Olav
--
mailto:tor### [at] hotmailcom
http://www.crosswinds.net/~tok/tokrays.html


Chris Huff wrote:
> 
> Try this rewritten version, I neglected to include the counter variable:
> 
> #declare Animation = off;
> 
> #macro CircleCoil(RadiusMinor, TurnsMinor, RadiusMajor, TurnsMajor,
> Parts)
>     #if(Animation=on)
>         // must have at least one component in blob
>         #local StopVal = Parts*clock + 1;
>     #else
>         #local StopVal = Parts;
>     #end
>     blob {
>         #local I=0;
>         #while(I < StopVal)
>             ////////////  Sphere  ////////////
>             sphere {< 0, 0, 0>, 0.5, strength 2
>                 scale < 0.5, 50/Parts, 0.5 >
>                 translate vrotate(z,
> y*(I/(Parts-1))*TurnsMinor*360)*RadiusMinor
>                 rotate < 0, 0, 90-((I/(Parts-1))*360)>
>                 translate
> vrotate(y,-z*(I/(Parts-1))*TurnsMajor*360)*RadiusMajor
>             }
>             #local I = I+1;
>         #end
>     }// end blob
> #end// end CircleCoil
> 
> object {CircleCoil(< 0.25, 0, 0.25>, 8, < 1.25, 1.25, 0>, 1, 1000)
>     rotate < 90, 0, 0>
>     texture {
>         pigment {color rgb < 0.7, 0.8, 0.9>}
>         finish {
>             ambient 0.125
>             //reflection 0.95
>         }
>     }
>     translate y*0.5
> } // end object
> 


#macro CircleCoil(RadiusMinor, TurnsMinor, 
                  RadiusMajor, TurnsMajor,
                  Parts, Animation)

  #local dPhi = 360/(Animation ? 1 + (Parts - 1)*clock : Parts);
  blob {
    #local Phi = 0;
    #while (Phi < 360)
      sphere {
        <0, 0, 0>, 0.5,
        strength 2
        scale <1, 100/Parts, 1>/2
        translate RadiusMinor*vrotate(z,  Phi*TurnsMinor*y)
        rotate (90 - Phi)*z
        translate RadiusMajor*vrotate(y, -Phi*TurnsMajor*z)
      }
      #local Phi = Phi + dPhi;
    #end
  }

#end // macro CircleCoil


object {
  CircleCoil(<0.25, 0, 0.25>, 8, <1.25, 1.25, 0>, 1, 1000, off)
  rotate 90*x
  texture {
    pigment { color rgb <0.7, 0.8, 0.9> }
    finish {
      ambient 0.125
//      reflection 0.95
    }
  }
  translate y/2
}

Post a reply to this message

"Tor Olav Kristensen" <tor### [at] onlineno> wrote :
>
> See below for my suggestion for this macro.

    Interesting use of the animation option.

Post a reply to this message

Bill DeWitt wrote:
> 
> "Tor Olav Kristensen" <tor### [at] onlineno> wrote :
> >
> > See below for my suggestion for this macro.
> 
>     Interesting use of the animation option.

I have never done a proper animation, I just 
assumed that this was just another parameter.

Is "Animation" a reserved variable of any kind ?

Please explain.


Tor Olav
--
mailto:tor### [at] hotmailcom
http://www.crosswinds.net/~tok/tokrays.html

Post a reply to this message

See p.b.a. for circlecoil01.mpg

--
I get paid to do -anything- while connected to the internet.
Please use my referral id to find out more
http://www.getpaid4.com/?billdewitt
"Tor Olav Kristensen" <tor### [at] onlineno> wrote in message
news:3964EC78.B9DDB91D@online.no...
>
> Bill DeWitt wrote:
> >
> > "Tor Olav Kristensen" <tor### [at] onlineno> wrote :
> > >
> > > See below for my suggestion for this macro.
> >
> >     Interesting use of the animation option.
>
> I have never done a proper animation, I just
> assumed that this was just another parameter.
>
> Is "Animation" a reserved variable of any kind ?
>
> Please explain.
>
>
> Tor Olav
> --
> mailto:tor### [at] hotmailcom
> http://www.crosswinds.net/~tok/tokrays.html

Post a reply to this message