set plot_page portrait  ! Implicit CLEAR
set box portrait
define image a gag_demo:greg3.tab read
! pause
rgdata a /variable
limits /rgdata
levels -4 to 4
rgmap /absolute 0.5
box
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
plot
rgmap /absolute 0.5
box
wedge
label "Demonstration of GREG: color PLOT" /x
