// ! for use with MegaPovPlus only !

//x = (R+r)*cos(t) - (r+O)*cos(((R+r)/r)*t)
//y = (R+r)*sin(t) - (r+O)*sin(((R+r)/r)*t)

#version unofficial MegaPov 0.5;

camera {
location <0,0,-250>
up y
right x // squared aspect
look_at <0,0,0>}

// uses ClockMod Include by Chris Colefax
#declare clock_type="W"
#include "clockmod.inc"
#declare CmW=mclock;

#declare clock_type="R"
#declare clock_repeat=3;
#include "clockmod.inc"
#declare CmR=mclock;

#declare Count=0;
#declare R = CmW*1.33;
// S, not s, because MegaPov seems to reserve small letter "s"
#declare S = 16.5+(CmR*16.5);
#declare O = 6+(CmR*30);
#while(Count<250)
glow {
 location <(R+S)*cos(Count)-(S+O)*cos(((R+S)/S)*Count),
 (R+S)*sin(Count)-(S+O)*sin(((R+S)/S)*Count),0>
 color rgb <.67-(CmW*.5),.25+(CmW*.125),CmW*.67>
 type 0
 size .125+(.67*CmR)
 radius 25-(7.5*CmR) fade_power 1
}
#declare Count = Count+1;
#end

// necessary object in scene to prevent error
sphere {z,.0001 pigment {rgb 0}}

Post a reply to this message