#!/bin/csh -bf
# This file contains initialization of the X window system.
#	$Source: /afs/sipb.mit.edu/user/jtkohl/lib/scripts/RCS/Xrc.xsession,v $
#	$Author: jtkohl $
#	$Header: /afs/sipb.mit.edu/user/jtkohl/lib/scripts/RCS/Xrc.xsession,v 1.14 1995/06/30 01:15:31 jtkohl Exp $
#
echo -n "emacs..."
emacs &
echo -n "xterm..."
xterm -name local- &
echo -n "xsetroot..."
set i=10
set stat=1
set display=$DISPLAY
set display=$display:r		# chop off .x part of display
unset print_exit_status
while ($stat != 0 && $i > -1)
	xset -display ${display}.${i} -q >&/dev/null
	set stat=$status
	@ i--
end
@ i++
while ($i > -1)
	xsetroot -bitmap ~/lib/X11/bitmaps/background.xbm -display ${display}.${i}
	@ i--
end
unset i
unset stat
unset display
unset print_exit_status
echo -n "xset..."
if ($hosttype == "rt") then
	xset r m 7 2 b 30 2000 100 c 30
else
	set dtype=`/bin/athena/machtype -d`
	if ( ${dtype}x == "QVSSx") then
xset c 0 b 30 r m 10 2
	elseif ( ${dtype}x == "cgthreex" ) then
xset c 0 b 30 r m 3 7
	else
xset c 0 b 30 r m 3 7 s blank
	endif
endif
echo "done."
exit 0