The elevators
All of the Elevators are made from simple objects. The drilling in the big wheel is paced with an angle. So the marble can fall in at the lower end and roll out at the upper end.
#macro lift()
union
{
difference
{
cone {0,10,y*1,10 }
cone {y*-1,8,y*2,8 }
#declare ii=0;
#while (ii<360)
cone {y*0.3,0.7,<-0.32,2,-0.23>,0.7scale <1,1,1.3>
translatex*9.1rotatey*ii
}
#declare ii=ii+20;
#endtexture {
DMFWood1 finish {diffuse0.9phong0.8}
translatey*0.15scale4
}
}
#declare ii=0;
#while (ii<360)
cone {0,0.5,x*8,0.5texture {
DMFWood1 finish {diffuse0.9phong0.8} scale3rotatey*80
}
translatey*0.5rotatey*ii
}
#declare ii=ii+40;
#endcone{0,1,y*1,1translatey*-0.7scale <2,5,2>
texture {DMFWood1 finish {diffuse0.9phong0.8}
scale3rotatex*80 }}
cone{0,1,y*1,1translatey*-0.65scale <0.5,8,0.5>
texture {DMFWood1 finish {diffuse0.9phong0.8}
scale3rotatex*90 }}
rotatez*-90
}
#end