; $Id: dcs_sysdep.pro,v 1.4 2005/02/14 17:50:34 azuah Exp $
; Written by J.R.D. Copley.
;************************************************************************************************
;###############################################################################
;
; LICENSE:
;  The software in this file is written by an employee of 
;  National Institute of Standards and Technology 
;  as part of the DAVE software project.
;
;  The DAVE software package is not subject to copyright protection
;  and is in the public domain. It should be considered as an
;  experimental neutron scattering data reduction, visualization, and
;  analysis system. As such, the authors assume no responsibility
;  whatsoever for its use, and make no guarantees, expressed or
;  implied, about its quality, reliability, or any other
;  characteristic. The use of certain trade names or commercial
;  products does not imply any endorsement of a particular product,
;  nor does it imply that the named product is necessarily the best
;  product for the stated purpose. We would appreciate acknowledgment
;  if the DAVE software is used or if the code in this file is
;  included in another product.
;
;###############################################################################
pro dcs_sysdep,fonts=fonts,colors=colors
;************************************************************************************************
; This procedure defines the standard font, depending on the operating system.
;	In the future it may serve other purposes, depending on the operating system.
compile_opt strictarr
;
fonts=strarr(10)
colors=intarr(10)
;
case !VERSION.OS_FAMILY of
	"Windows": begin
		fonts[0]="TIMESROMAN*18"
		fonts[1]="courier*12"
		colors[0]=127
		end
	"unix": begin
		fonts[0]="lucidasans-12"
		fonts[1]="courier-12"
		colors[0]=60
		end
	"MacOS": begin
		x=dialog_message("Fonts and colors undefined in dcs_sysdep.pro",/warning)
		end
	else: stop,"Unsupported operating system."
endcase
;
end