# Video editor

#(name,   type,   parent,    x,   y,   w,   h,  brdrw, brdrcol, backcol) 
screenset
(main,  window, RootWindow, 0,    0,  1278, 1022,   0,     1,      10)
(shuttle, window, main,   300,  620,   640,   30,   2,     1,       12)
(shuttleb, window, main,   300,  620,   640,   30,   2,     1,       12)
(edlist,  window,  main,    100,  610,   200,  100,   1,     1,       12)
(frames,  window,  main,    980,  610,   200,  100,   1,     1,       12)

screenset
(avid,  video,  RootWindow,       0,  100,   640,  480,   0,     0,       0)
(abar,  window, RootWindow,       0,  590,   640,   20,   1,     1,       12)

screenset
(bvid,  video,  RootWindow,     640,  100,   640,  480,   0,     0,       0)
(bbar,  window, RootWindow,     640,  590,   640,   20,   1,     1,       12)



package
name: videdit
screen_name: main
active

dimension
name: shuttled
min: -320
max: 320

dimension
name: machine
min: 0
max: 1
boundary: wrap

dataset
name: shuttlea
type: graphic
screen_name: shuttle
active
map
type: label
pos_in: -320, 0,
pos_out: 320, 0,
label: set_label_equal(avideo,aframe,rate)
x1: set_xy_linear(1,videdit,shuttled,position,320)
y1: 6
foreground: 1
font: helv10b

dataset
name: shuttleb
type: graphic
screen_name: shuttleb
active
map
type: label
pos_in: -320, 1,
pos_out: 320, 1,
label: set_label_equal(bvideo,bframe,rate)
x1: set_xy_linear(1,videdit,shuttled,position,320)
y1: 6
foreground: 1
font: helv10b

dataset
name: buttons
type: tk_widget
screen_name: main
active

map
type: button
pos_in: -320, 0,
pos_out: 320, 1,
label: Quit
x: 550
y: 660
width: 10
height: 10
borderwidth: 1
border: 1
background: 12
foreground: 1
name: command
function: quit

map
type: button
pos_in: -320, 0,
pos_out: 320, 1,
label: Machine A
x: 600
y: 660
width: 10
height: 10
borderwidth: 1
border: 1
background: 12
foreground: 1
name: command
function: rset_position
parameter: videdit,0,1)

map
type: button
pos_in: -320, 1,
pos_out: 320, 1,
label: Machine B
x: 600
y: 660
width: 10
height: 10
borderwidth: 1
border: 1
background: 12
foreground: 1
name: command
function: rset_position
parameter: videdit,0,1)

#		#########


package
name: avideo
screen_name: avid
active

dimension
name: aframe
min: 1
max: 54000
timer_fn: pace
parameter: avideo,1,
rate: 0

dimension
name: abard
min: 0
max: 638

dataset
name: avideo
type: video
screen_name: avid
active
map
type: video
pos_in:      0,    0,  0,  0,  0,
pos_out: 54000,54000,638,638,640,
in: 1
out: 54000
key_dimension: 0

dataset
name: aslide
type: graphic
screen_name: abar
active
map
type: label
pos_in:      0,    0,  0,  0,  0,
pos_out: 54000,54000,638,638,640,
label: set_label_equal(avideo,aframe,position)
x1: set_xy_linear(1,avideo,abard,position,0)
y1: 6
foreground: 1
font: helv10b


#		############
package
name: bvideo
screen_name: bvid
active

dimension
name: bframe
min: 1
max: 54000
timer_fn: pace
parameter: bvideo,1,
rate: 0

dimension
name: bbard
min: 0
max: 638

dataset
name: bvideo
type: video
screen_name: bvid
active
map
type: video
pos_in:      0,    0,  0,  0,  0,
pos_out: 54000,54000,638,638,640,
in: 1
out: 54000
key_dimension: 0

dataset
name: bslide
type: graphic
screen_name: bbar
active
map
type: label
pos_in:      0,    0,  0,  0,  0,
pos_out: 54000,54000,638,638,640,
label: set_label_equal(bvideo,bframe,position)
x1: set_xy_linear(1,bvideo,bbard,position,0)
y1: 6
foreground: 1
font: helv10b

#		##########
package
name: dummy
screen_name: main
dimension
name: dummy
max: 0
min: 0
dataset
name: dummy
type: graphic
screen_name: main
map
type: label
pos_in:      0,    0,  0,  0,  0,
pos_out: 54000,54000,638,638,640,
label: set_label_equal(bvideo,bframe,position)
x1: set_xy_linear(1,bvideo,bbard,position,0)
y1: 10
foreground: 1
font: helv10b



