"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.

Bob

Post a reply to this message

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