GTVL\CHANGE DIRECTORY  ! Go to top directory
GTVL\CLEAR DIRECTORY   ! Clear it
g\set /def
!
column x 1 y 2 z 4 /table gag_demo:greg2.tab
levels 0 to -0.6 by -0.2 .2 .4
limits
random_map 60 40 /blanking -100
rgmap /blanking -100.0 0.1
! Draw triangles from previous, no re-triangulation not re-interpolation
random /triangles /skip triangulation interpolation
pause "Example of CLEAR SEGMENT action, type CONTINUE to delete triangles"
clear segment
box
label "Demonstration of GREG : Random mapping" /x
!
pause "Type continue to test PERSPECTIVE"
GTVL\CHANGE DIRECTORY  ! Go to top directory
GTVL\CLEAR DIRECTORY   ! Clear it
pen 2
perspective -15 30 /lower /factor 0.7 -3
pen 3
perspective -15 30 /factor 0.7 -3
pen 0
label "Demonstration of GREG : Perspective" /x
set character 1.3
set font duplex
draw text 0.00 0.50 "Surface (X\u2+Y\u2)\u2 - 2(X\u2+Y\u2)" 2 /character 8
set character /default
