#INCLUDE "dislin.bi"

DIM AS INTEGER iret

Dislin.setpag ("da4p")
Dislin.scrmod ("revers")
Dislin.metafl ("cons")
Dislin.disini ()
Dislin.pagera ()
Dislin.hwfont ()
Dislin.light ("on")
Dislin.litop3(1,0.5,0.5,0.5,"ambient")

Dislin.clip3d ("none")
Dislin.axspos (0, 2500)
Dislin.axslen (2100, 2100)

Dislin.htitle (60)
Dislin.titlin ("Some Solids", 4)

Dislin.nograf ()
Dislin.graf3d (-5., 5., -5., 2., -5., 5., -5., 2., -5., 5., -5., 2.)
Dislin.title ()

Dislin.shdmod ("smooth", "surface") 
iret = Dislin.zbfini()
Dislin.matop3 (1.0, 0.5, 0.0, "diffuse")
Dislin.tube3d (-3., -3., 8.0, 2., 3., 5.5, 1., 40, 20) 

Dislin.rot3d (-60., 0., 0.) 
Dislin.matop3 (1.0, 0.0, 1.0, "diffuse")
Dislin.setfce ("bottom")
Dislin.matop3 (1.0, 0.0, 0.0, "diffuse")
Dislin.cone3d (-3., -3., 3.5, 2., 3., 3., 40, 20)
Dislin.setfce ("top")

Dislin.rot3d (0., 0., 0.) 
Dislin.matop3 (0.0, 1.0, 1.0, "diffuse")
Dislin.plat3d (4., 4., 3., 3., "icos")

Dislin.rot3d (0., 0., 0.) 
Dislin.matop3 (1.0, 1.0, 0.0, "diffuse")
Dislin.sphe3d (0., 0., 0., 3., 40, 20)

Dislin.rot3d (0., 0., -20.) 
Dislin.matop3 (0.0, 0.0, 1.0, "diffuse")
Dislin.quad3d (-4., -4., -3., 3., 3., 3.)

Dislin.rot3d (0., 0., 30.) 
Dislin.matop3 (1.0, 0.3, 0.3, "diffuse")
Dislin.pyra3d (-2., -5., -10., 3., 5., 5., 4)

Dislin.rot3d (0., 0., 0.) 
Dislin.matop3 (1.0, 0.0, 0.0, "diffuse")
Dislin.torus3d (7., -3., -2., 1.5, 3.5, 1.5, 0., 360., 40, 20)
Dislin.rot3d (0., 90., 0.) 

Dislin.matop3 (0.0, 1.0, 0.0, "diffuse")
Dislin.torus3d (7., -5., -2., 1.5, 3.5, 1.5, 0., 360., 40, 20)
Dislin.zbffin ()
Dislin.disfin ()
END
