begin procedure demo_outflow
  !
  gtvl\clear directory
  greg3\image gag_demo:b5_flow /plane 2
  !
  ! Box
  greg1\limits 2.5 -3.5 -2.25 2.25 minutes
  greg1\limits /rgdata /reverse x
  greg1\set box_location match
  greg1\box /absolute
  greg1\label "Right Ascension B1950.0" /x
  greg1\label "Declination" /y
  !
  ! 2nd plane (already loaded)
  greg2\levels 1. to 4. by .5
  if (pro%narg.eq.0) then
    greg2\rgmap /pens 15 15
  else
    greg2\rgmap /grey
  endif
  !
  ! 3rd plane
  greg3\image /plane 3
  if (pro%narg.eq.0) then
    greg2\rgmap
  else
    greg2\rgmap /grey
  endif
  !
  ! Source
  greg1\set marker 6 3 *
  greg1\draw marker 0 0 /user
  !
  greg1\draw text 0.1290 -2.296 "\\2A Typical Bipolar Outflow" 5 /box 8
  !
end procedure demo_outflow
!
sic\define logical verify
sic\let verify sic%verify
sic\sic verify on
!
gtvl\change DIRECTORY  ! Go to top directory
gtvl\clear DIRECTORY   ! Clear it
greg1\set /default
!
! Contour lines
@ demo_outflow
pause
!
! Contour filling
@ demo_outflow filled
!
sic\let sic%verify verify
pause
!
gtvl\change DIRECTORY  ! Go to top directory
gtvl\clear DIRECTORY   ! Clear it
greg3\image gag_demo:centaurus
greg1\limits /rg
greg1\set box mat
greg2\plot
greg1\box /absolute
greg2\wedge
!
pause
let lut%hue[i] = mod((285-i*290/lut%size),360)
let lut%value[i] = 1-exp(-i*4/lut%size)
let lut%saturation[i] = 1-exp(-(lut%size-i)/10)
gtvl\lut
pause
@ gag_demo:lut vla
pause
@ gag_demo:lut roll 10
pause
@ gag_demo:lut contour 10
pause
@ gag_demo:lut grey 10
