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