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