; $Id: gallery_startup,v 1.1.1.1 1992/05/05 19:53:28 carr Exp $
; PV-WAVE DEMO GALLERY startup file.
;
;*****************************************************************************
; System variables for demos.
;*****************************************************************************
IF (!Version.Os EQ 'vms') THEN BEGIN & $
   data_dir = '' & $
   st = Trnlog('WAVE_DATA', data_dir) & $
   gallery_dir = '' & $
   st = Trnlog('WAVE_GALL', gallery_dir) & $
   open_dir = '' & $
   st = Trnlog('SYS$LOGIN', open_dir) & $
ENDIF ELSE BEGIN & $
   data_dir = Getenv('WAVE_DATA') + '/' & $
   gallery_dir = Getenv('WAVE_GALL') + '/' & $
   open_dir = '/tmp/' & $
ENDELSE

Defsysv, '!Data_Dir', data_dir
Defsysv, '!Gallery_Dir', gallery_dir
Defsysv, '!Open_Dir', open_dir
