Converting to VRML

In[23]:=
  Needs["Graphics`Colors`"]
  VRMLConvert[
    {
     Translate[Scale[seaweed, 1.7], {.25,.5,.2}],
     Translate[Scale[plant, 1.6], {.25,3.5,.1}],
     Translate[Scale[spider, {.5,.5,1.5}], {.5,1,.1}],
     Translate[Scale[walls, .5], {.2,2.5,.2}],
     Translate[Scale[rightroof, .5], {.2,2.5,.2}],
     Translate[Scale[leftroof, .5], {.2,2.5,.2}],
     Translate[
       Rotate[Scale[fishtop, .3], Pi/2, {0,0,1}],
     {.5,1.5,1.1}],
     Translate[
       Rotate[Scale[fishbottom, .3], Pi/2, {0,0,1}],
     {.5,1.5,1.1}],
     Translate[
       Rotate[Scale[leftstripe, .3], Pi/2, {0,0,1}],
     {.5,1.5,1.1}],
     Translate[
       Rotate[Scale[rightstripe, .3], Pi/2, {0,0,1}],
     {.5,1.5,1.1}],
     Translate[
       Rotate[Scale[eyes, .3], Pi/2, {0,0,1}],
     {.5,1.5,1.1}],
     Translate[Scale[fishtop, {.1,.1,.05}], {.3,2.75,.45}],
     Translate[Scale[fishbottom, {.1,.1,.05}], {.3,2.75,.45}],
     Translate[Scale[leftstripe, {.1,.1,.05}], {.3,2.75,.45}],
     Translate[Scale[rightstripe, {.1,.1,.05}], {.3,2.75,.45}],
     Translate[Scale[eyes, {.1,.1,.05}], {.3,2.75,.45}],
     aquarium,
     gravel,
     stand
    },
    "/usr/users3/hedonley/aquarium.wrl",
    SurfaceMaterial ->
      {SurfaceColor[GreenDark],   (* seaweed *)
       SurfaceColor[LimeGreen],   (* plant *)
       SurfaceColor[SeaGreen],    (* spider leaf *)
       SurfaceColor[SeaGreen],    (* spider leaf *)
       SurfaceColor[SeaGreen],    (* spider leaf *)
       SurfaceColor[SeaGreen],    (* spider leaf *)
       SurfaceColor[SeaGreen],    (* spider leaf *)
       SurfaceColor[SeaGreen],    (* spider leaf *)
       SurfaceColor[SeaGreen],    (* spider leaf *)
       SurfaceColor[SeaGreen],    (* spider leaf *)
       SurfaceColor[Navajo],      (* walls *)
       SurfaceColor[Firebrick],   (* rightroof *)
       SurfaceColor[Firebrick],   (* leftroof *)
       SurfaceColor[Yellow],      (* fishtop *)
       SurfaceColor[Yellow],      (* fishbottom *)
       SurfaceColor[Red],         (* rightstripe *)
       SurfaceColor[Red],         (* leftstripe *)
       SurfaceColor[Black],       (* eyes *)
       SurfaceColor[Red],         (* fishtop *)
       SurfaceColor[Red],         (* fishbottom *)
       SurfaceColor[MidnightBlue],(* rightstripe *)
       SurfaceColor[MidnightBlue],(* leftstripe *)
       SurfaceColor[Black],       (* eyes *)
       SurfaceColor[Black],       (* aquarium *)
       SurfaceColor[EnglishRed],  (* gravel *)
       SurfaceColor[Sienna]       (* stand *)
      },
    LightSources -> {{{ 2, 1, 1}, White},
                     {{-2, 1, 1}, White}},
    AmbientLight -> GrayLevel[0.5],
    ViewPoint -> {1.5, 0.1, 0.5},
    PointStyle -> Sphere, SphereSize -> {0.005,0.01},
    Epilog -> tube
  ]

Out[23]=

  /usr/users3/hedonley/aquarium.wrl

Up to Aquarium