greg1\set plot_page portrait  ! Implicit CLEAR
greg1\set box portrait
define image a gag_demo:greg3.tab read
! pause
greg2\rgdata a /variable
greg1\limits /rgdata
greg2\levels -4 to 4
greg2\rgmap /absolute 0.5
greg1\box
greg1\label "Demonstration of GREG : Regular grid map" /x
!
pause "Type continue to test PLOT"
gtvl\change DIRECTORY  ! Go to top directory
gtvl\clear DIRECTORY   ! Clear it
greg2\plot
greg2\rgmap /absolute 0.5
greg1\box
greg2\wedge
greg1\label "Demonstration of GREG: color PLOT" /x
