Creates a VRML cone.
Center
Height
Orientation
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_cone.wrl' x = [0, 1, 2, 3, 4] y = [0, 1, 0, 1, 0] z = [4, 3, 2, 1, 0] RESTORE, 'wavelogo.dat' ; img, r, g, b sz = SIZE(img) col = TRANSPOSE([[r], [g], [b]]) img24 = REFORM(col(*, img), 3, sz(1), sz(2)); Create texture.
VRML_CONE; Create the default cone.
VRML_CONE,Center = [0, 3, 0], Radius = .4, $ Height = 4.0, Texture = img24; Create the textured cone.
VRML_CONE,Center = [2, 0, 0],$ Radius = 1.4, $ Height = 1.2, $ DiffuseColor = [127, 255, 191], $ AmbientColor = [55, 70, 60], $ SpecularColor = [0, 100, 0]; Create a colorful cone.
VRML_CLOSE