Creates a sphere in a VRML world.
Center
Radius
Transform
AmbientColor
DiffuseColor
EmissiveColor
Shininess
SpecularColor
Texture_Image
There are four options:
(2, w, h)
(3, w, h)
(4, w, h)
'wavelogo.dat'
file used in this example is found in the following directory:
wavedir
/demo/web/vrml
wavedir
:[DEMO.WEB.VRML]
wavedir
\demo\web\vrml
wavedir
is the main PV-WAVE directory.
VRML_OPEN, 'vrml_sphere.wrl' RESTORE, 'wavelogo.dat' ; img, r, g, b sz = SIZE(img) col = TRANSPOSE([[r], [g], [b]]) texture = REFORM(col(*, img), 3, sz(1), sz(2)); Create the texture, using the PV-WAVE logo.
VRML_SPHERE; Create a base sphere.
VRML_SPHERE, Center = [-2, -1, 0], Radius =.5, $ Texture = texture; Create a textured sphere.
VRML_SPHERE, Center = [2, 0, 2], Radius = 1.5, $ Shininess = 202, Transparency = 170; Create a somewhat transparent, reflective sphere.
VRML_CLOSE