-- earth
my_model(x[3], a[1])
{
array torus1_vertex[3],torus2_vertex[3],torus3_vertex[3],
      torus4_vertex[3],torus5_vertex[3],torus6_vertex[3],       
      torus7_vertex[3],torus8_vertex[3],torus9_vertex[3],
      torus10_vertex[3],torus11_vertex[3],torus12_vertex[3];

xt = x[1];
yt = x[2];
zt = x[3];


Sphere1=9 - (xt)^2- (yt)^2- (zt)^2;


----Torus

torus1_vertex = [0,0,0];
torus1 = hfTorusX(x, torus1_vertex, 10, 0.5);
torus2_vertex = [0,0,0];
torus2 = hfTorusY(x, torus2_vertex, 10, 0.5);
torus3_vertex = [0,0,0];
torus3 = hfTorusZ(x, torus3_vertex, 10, 0.5);
torus4_vertex = [5,0,0];
torus4 = hfTorusX(x, torus4_vertex, 5, 0.5);
torus5_vertex = [-5,0,0];
torus5 = hfTorusX(x, torus5_vertex, 5, 0.5);
torus6_vertex = [0,5,0];
torus6 = hfTorusY(x, torus6_vertex, 5, 0.5);
torus7_vertex = [0,-5,0];
torus7 = hfTorusY(x, torus7_vertex, 5, 0.5);
torus8_vertex = [0,0,5];
torus8 = hfTorusZ(x, torus8_vertex, 5, 0.5);
torus9_vertex = [0,0,-5];
torus9 = hfTorusZ(x, torus9_vertex, 5, 0.5);

Torus=torus1|torus2|torus3|torus4|torus5|torus6|torus7|torus8|torus9;

sphere=Sphere1;

my_model =Torus|sphere;
}