#--------------------------------------------------------------------
#   farwest.tcl
#
#   upd.:   01-Apr-2000 matthias    
#
#   (C) 1999-2000 KRITEZLKRATZ 3000 GmbH
#   
#
#--------------------------------------------------------------------

# Direct 3D Startup Code for FARWEST
# Workaround since NLAUNCH accepts no additional arguments.
# nebula home has to be the current working dir

global farwest_home


set     farwest_home    [/sys/share/assigns/home.gets]
set     home        	$farwest_home

source $farwest_home/bin/nsh.tcl

#--------------------------------------------------------------------
#   map_input
#   Input-Mapping fuer nobserver Klasse.
#--------------------------------------------------------------------
proc map_input { } {
    set cwd [psel]
        sel /sys/servers/input
        .beginmap
        .map keyb0:shift.pressed    pan
        .map keyb0:ctrl.pressed     orbit
        .map mouse0:btn0.pressed    pan
        .map mouse0:btn1.pressed    orbit
        .map mouse0:btn2.pressed    dolly
        .map mouse0:btn0.up	    lbdown
        .map mouse0:btn1.up	    mbdown
        .map mouse0:btn2.up	    rbdown
        .map keyb0:space.down       "script:orig"
        .map keyb0:f12.down         "script:/sys/servers/console.toggle"
        .endmap
    sel $cwd
}

map_input

#/sys/servers/gfx.setviewvolume -0.061 0.061 -0.0458 0.0458 0.1 25000
#/sys/servers/gfx.setviewvolume -0.1 0.1 -0.075 0.075 0.1 25000
#/sys/servers/gfx.setviewvolume -1 1 -0.75 0.75 1 2000
/sys/servers/gfx.setviewvolume -0.61 0.61 -0.458 0.458 1 20000

/sys/servers/gfx.setclearcolor 0.0 0.4 0.6 1.0

cd $farwest_home/data

#--------------------------------------------------------------------
#   EOF
#--------------------------------------------------------------------