Virtuelle Realität

Ein Beispiel aus der Maple-Hilfe

> geom3d[point](o,0,0,0): r := 1.:
geom3d[GreatRhombiicosidodecahedron](p1,o,r):
geom3d[duality](dp1,p1,geom3d[sphere](s1,[o,geom3d[MidRadius](p1)])):
c1 := COLOR(RGB,1.00,0.50,0.50): c2 := COLOR(RGB,0.50,0.00,0.05):
pic :=
geom3d[draw]([p1(color=c1),dp1(color=c2)],cutout=7/8,lightmodel=light2,
orientation=[0,31]):

Und so sieht die Christbaumkugel aus:

> pic;

[Maple Plot]

 

In den Plottools gibt es eine ganze Reihe nützlicher Werkzeuge:

> with(plottools);

[Maple Math][Maple Math]
[Maple Math]

Wir nehmen dieses:

> vrml( pic, `Rhombii.wrl`, shininess=0.5, specular_color=COLOR(RGB,1,1,1)):

Zum Spaziergang (120K) durch die virtuelle Realität benötigt man einen VRML-Viewer, zum Beispiel: http://cosmo.sgi.com.