% file: v3dex_myst06.sl
%
% A mystery object from December of 2006.
%

v3d_setup(12.0,47);

variable mystaxis = [270.0,0.0];
variable mystA =             v3d_cone(10.0,25.0, -4.5, 0.0, [0.0,0.0,8.0],mystaxis);
mystA = v3d_merge_max(mystA, v3d_cone(20.0,40.0, -4.5, 0.0, [0.0,0.0,5.0],mystaxis) );
mystA = v3d_merge_max(mystA, v3d_cone(30.0,45.0, -4.5, 0.0, [0.0,0.0,2.0],mystaxis) );
mystA = v3d_merge_max(mystA, v3d_cone(40.0,55.0, -4.0, 0.0, [0.0,0.0,-1.0],mystaxis) );
mystA = v3d_merge_max(mystA, 4.0*v3d_cone(50.0,63.0, -3.8, 0.0, [0.0,0.0,-4.0],mystaxis) );
variable mystB = 10.0*v3d_cylinder(0.0,1.0,-2.5,2.5,[0.0,0.,-8.0],mystaxis+[3.0,2.0]);
variable mystC = 10.0*v3d_cone(0.0,35.0, 3.0, 5.0, [0.0,0.0,-14.5],mystaxis);
variable mystD = 10.0*v3d_sphere_ring(3.0,0.3,7,[0.0,0.0,2.0],mystaxis+[0.0,5.0]);
mystD = mystD + 10.0*v3d_sphere_ring(4.1,0.3,13,[0.0,-0.7,-1.6],mystaxis+[5.0,0.0]);
mystD = mystD + 10.0*v3d_sphere_ring(7.0,0.3,23,[0.0,0.5,-7.2],mystaxis+[0.0,5.0]);
variable mystE = 5.0*v3d_torus(1.2,2.0,[0.,0.,8.],[8.0,20.0]);

% View the glowing colored plasma:
v3d_project(mystC+mystD+mystE, mystA+mystE, mystB+mystD);

% View the 3D object
variable myst = mystA + mystB + mystC + mystD + mystE;
v3d_view(myst);