
#				WINDOWS


#(name, type, parent,   x,   y,   w,   h,  bw, bc, bckcol) 

#screenset
#(background, window, RootWindow, 150, 50, 1100, 800, 1, 2, 0)

screenset
(bignav, window, RootWindow, 100, 100, 800, 700, 1, 2, 0)
(video, video, bignav, 50, 50, 640, 480, 5, 1, 0)

screenset
(controls, window, RootWindow, 50, 50, 600, 100, 1, 2, 0)



# 				Das Boot
package
name: boat
active
screen_name: bignav

# 				Dimensions
#    		time, x, y, heading, speed, view, compx, compy
dimension
name: time
min: 0
max: 1
boundary: limit
timer_fn: update_boat_position
parameter: boat
rate: 100

dimension
name: x
min: 0
max: 500
boundary: limit

dimension
name: y
min: 0
max: 900
boundary: limit

dimension
name: heading
min: 0
max: 359
boundary: wrap

dimension
name: speed
min: 0
max: 30
boundary: limit

dimension
name: view
min: 0
max: 359
boundary: wrap

dimension
name: compx
min: 0
max: 359
boundary: wrap

dimension
name: compy
min: 50
max: 479
boundary: limit

#				Element: Water Views Video
element
name: water_views
type: video
active
screen_name: video

map
type: video
#	 time	x	y	heading	speed	view	compx	compy
pos_in:  0,	0,	0,	0,	0,	0,	0,	50
pos_out: 1,	500,	900,	359,	30, 	359, 	359, 	479
#
#  this is a dynamic mapping -- serves the whole environment
#  the frame in and frame out are modified in update_boat
in: 1100
out: 1108
#  video display uses `view' as the key dimension
key_dimension: 5



#
package
name: controls
active
screen_name: controls

dimension
name: dummy
min: 0
max: 0
boundary: limit

element
name: controls
type: tk_widget
active
screen_name: controls


map
type: tkscroll
pos_in: 0
pos_out: 0
x: 200
y: 10
orientation: horizontal
width: 350
height: 20
background: 0
foreground: 1
scrollupdownproc: scroll
thumbproc: scroll_control_package
#			value: packname, <relative position, e.g. 1,0,0> 
value: boat, 0,0,0,1,0,0,0,0
name: command
top: 1
shown: 1
#			represents: packname, dimension, <int units>
represents: boat, heading,


map
type: tkscroll
pos_in: 0
pos_out: 0
x: 200
y: 90
orientation: vertical
width: 20
height: 60
background: 0
foreground: 1
scrollupdownproc: scroll
thumbproc: scroll_control_package
#			value: packname, <relative position, e.g. 1,0,0> 
value: boat, 0,0,0,0,1,0,0,0
name: command
top: 1
shown: 1
#			represents: packname, dimension, <int units>
represents: boat, speed,


map
type: button
pos_in: 0,0,0,0,0
pos_out: 0,0,0,0,0
label: <<<<
x: 10
y: 0
font: helv10b
border: 5
width: 10
height: 10
background: 0
foreground: 1
name: command
function: rset_position
#	 	time	x	y	heading	speed	view	compx	compy
parameter: boat,0,	0,	0,	-1,	0,	0,	0,	0

map
type: button
pos_in: 0,0,0,0,0
pos_out: 0,0,0,0,0
label: >>>>
x: 100
y: 0
font: helv10b
border: 5
width: 10
height: 10
background: 0
foreground: 1
name: command
function: rset_position
#	 	time	x	y	heading	speed	view	compx	compy
parameter: boat,0,	0,	0,	1,	0,	0,	0,	0

map
type: button
pos_in: 0,0,0,0,0
pos_out: 0,0,0,0,0
label: <<<<LOOK
x: 10
y: 35
font: helv10b
border: 5
width: 10
height: 10
background: 0
foreground: 1
name: command
function: rset_position
#	 	time	x	y	heading	speed	view	compx	compy
parameter: boat,0,	0,	0,	0,	0,	-45,	0,	0

map
type: button
pos_in: 0,0,0,0,0
pos_out: 0,0,0,0,0
label: LOOK>>>>
x: 100
y: 35
font: helv10b
border: 5
width: 10
height: 10
background: 0
foreground: 1
name: command
function: rset_position
#	 	time	x	y	heading	speed	view	compx	compy
parameter: boat,0,0,0,0,0,45,0,0




