abtool.g

LPC 2.4kbps codec meeting Federal Standard 1016 CELP implementation

	:columns                0
	:layout-type            :horizontal
	:foreground-color       ""
	:setting-type           :stack
	:selection-required     t
	:label                  "Time:"
	:label-type             :string
	:notify-handler         nil
	:event-handler          nil
	:choices                ("10 sec" "30 sec" "1 min" "2 min" "5 min" "10 min" "20 min" )
	:choice-label-types     (:string :string :string :string :string :string :string )
	:choice-colors          ("" "" "" "" "" "" "" )
	:choice-defaults        (nil nil t nil nil nil nil )
	:initial-selections     (nil nil nil nil nil nil nil )
	:initial-state          :active
	:user-data              ()
	:actions                ()
)
(
	:type                   :setting
	:name                   autoscale
	:owner                  controls3
	:help                   ""
	:x                      4
	:y                      29
	:width                  172
	:height                 23
	:value-x                86
	:value-y                29
	:rows                   1
	:columns                0
	:layout-type            :horizontal
	:foreground-color       ""
	:setting-type           :exclusive
	:selection-required     t
	:label                  "Auto Scale:"
	:label-type             :string
	:notify-handler         nil
	:event-handler          nil
	:choices                ("Off  " " On  " )
	:choice-label-types     (:string :string )
	:choice-colors          ("" "" )
	:initial-selections     (nil nil )
	:initial-state          :active
	:user-data              ()
	:actions                ()
)
(
	:type                   :setting
	:name                   fname
	:owner                  controls3
	:help                   ""
	:x                      4
	:y                      54
	:width                  175
	:height                 23
	:value-x                86
	:value-y                54
	:rows                   1
	:columns                0
	:layout-type            :horizontal
	:foreground-color       ""
	:setting-type           :exclusive
	:selection-required     t
	:label                  "Filenames:"
	:label-type             :string
	:notify-handler         showfiles
	:event-handler          nil
	:choices                ("Show" "Hide" )
	:choice-label-types     (:string :string )
	:choice-colors          ("" "" )
	:initial-selections     (nil nil )
	:initial-state          :active
	:user-data              ()
	:actions                (
		(
		:from                   (pwin fname)
		:when                   (Notify )
		:to                     (pwin fname)
		:function_type          CallFunction
		:arg_type               ()
		:action                 (showfiles)
		)
	)
)
(
	:type                   :text-field
	:name                   gain
	:owner                  controls3
	:help                   ""
	:x                      47
	:y                      92
	:width                  82
	:height                 15
	:value-x                89
	:value-y                92
	:value-length           5
	:stored-length          5
	:rows                   3
	:foreground-color       ""
	:text-type              :alphanumeric
	:label                  "Gain:"
	:label-type             :string
	:layout-type            :horizontal
	:value-underlined       t
	:initial-value          ""
	:initial-state          :active
	:read-only              nil
	:notify-handler         nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :message
	:name                   ref_h
	:owner                  controls3
	:help                   "Ref:

  The Reference file is the one most recently
segmented."
	:x                      152
	:y                      94
	:width                  26
	:height                 13
	:foreground-color       ""
	:label                  "Ref:"
	:label-type             :string
	:label-bold             t
	:initial-state          :active
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :message
	:name                   ref
	:owner                  controls3
	:help                   "Ref:

  The Reference file is the one most recently
segmented."
	:x                      188
	:y                      94
	:width                  3
	:height                 13
	:foreground-color       ""
	:label                  "."
	:label-type             :string
	:label-bold             nil
	:initial-state          :active
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :message
	:name                   file_h
	:owner                  controls3
	:help                   "File:

  The current file's delay and correlation with
respect to the reference file are displayed.
Selecting a file from the main list sets which
file is displayed here."
	:x                      212
	:y                      94
	:width                  28
	:height                 13
	:foreground-color       ""
	:label                  "File:"
	:label-type             :string
	:label-bold             t
	:initial-state          :active
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :message
	:name                   file
	:owner                  controls3
	:help                   "File:

  The current file's delay and correlation with
respect to the reference file are displayed.
Selecting a file from the main list sets which
file is displayed here."
	:x                      250
	:y                      94
	:width                  3
	:height                 13
	:foreground-color       ""
	:label                  "."
	:label-type             :string
	:label-bold             nil
	:initial-state          :active
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :text-field
	:name                   delay
	:owner                  controls3
	:help                   "Delay:

  The number of seconds added when playing
segments from this file.  Delay is calculated
by finding the maximum correlation between the
Reference file and the currently selected file."
	:x                      4
	:y                      109
	:width                  125
	:height                 15
	:value-x                89
	:value-y                109
	:value-length           5
	:stored-length          5
	:rows                   3
	:foreground-color       ""
	:text-type              :alphanumeric
	:label                  "Delay (ms):"
	:label-type             :string
	:layout-type            :horizontal
	:value-underlined       t
	:initial-value          ""
	:initial-state          :active
	:read-only              nil
	:notify-handler         nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :message
	:name                   corr_h
	:owner                  controls3
	:help                   "Corr:

  The correlation between energy tracks of the
Reference file and the currently selected file.
If the correlation is less than .9, the files
probably do not match, and A/B comparisons may
not be useful."
	:x                      152
	:y                      111
	:width                  32
	:height                 13
	:foreground-color       ""
	:label                  "Corr:"
	:label-type             :string
	:label-bold             t
	:initial-state          :active
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :message
	:name                   corr
	:owner                  controls3
	:help                   "Corr:

  The correlation between energy tracks of the
Reference file and the currently selected file.
If the correlation is less than .9, the files
probably do not match, and A/B comparisons may
not be useful."
	:x                      194
	:y                      111
	:width                  3
	:height                 13
	:foreground-color       ""
	:label                  "."
	:label-type             :string
	:label-bold             nil
	:initial-state          :active
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :text-field
	:name                   maxdelay
	:owner                  controls3
	:help                   ""
	:x                      8
	:y                      126
	:width                  121
	:height                 15
	:value-x                89
	:value-y                126
	:value-length           5
	:stored-length          5
	:rows                   3
	:foreground-color       ""
	:text-type              :alphanumeric
	:label                  "Max Delay:"
	:label-type             :string
	:layout-type            :horizontal
	:value-underlined       t
	:initial-value          ""
	:initial-state          :active
	:read-only              nil
	:notify-handler         nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :slider
	:name                   thresh
	:owner                  controls3
	:help                   ""
	:x                      8
	:y                      152
	:width                  277
	:height                 20
	:value-x                84
	:value-y                152
	:slider-width           100
	:ticks                  0
	:foreground-color       ""
	:label                  "Thresh dB:"
	:label-type             :string
	:layout-type            :horizontal
	:orientation            :horizontal
	:show-endboxes          nil
	:show-range             t
	:show-value             t
	:min-value              0
	:max-value              100
	:min-value-string       ""
	:max-value-string       ""
	:min-tick-string        ""
	:max-tick-string        ""
	:initial-value          0
	:initial-state          :active
	:notify-handler         nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :slider
	:name                   gap
	:owner                  controls3
	:help                   ""
	:x                      17
	:y                      174
	:width                  276
	:height                 20
	:value-x                84
	:value-y                174
	:slider-width           100
	:ticks                  0
	:foreground-color       ""
	:label                  "Gap (ms):"
	:label-type             :string
	:layout-type            :horizontal
	:orientation            :horizontal
	:show-endboxes          nil
	:show-range             t
	:show-value             t
	:min-value              0
	:max-value              2000
	:min-value-string       ""
	:max-value-string       ""
	:min-tick-string        ""
	:max-tick-string        ""
	:initial-value          0
	:initial-state          :active
	:notify-handler         nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :slider
	:name                   pad
	:owner                  controls3
	:help                   ""
	:x                      19
	:y                      196
	:width                  274
	:height                 20
	:value-x                84
	:value-y                196
	:slider-width           100
	:ticks                  0
	:foreground-color       ""
	:label                  "Pad (ms):"
	:label-type             :string
	:layout-type            :horizontal
	:orientation            :horizontal
	:show-endboxes          nil
	:show-range             t
	:show-value             t
	:min-value              0
	:max-value              2000
	:min-value-string       ""
	:max-value-string       ""
	:min-tick-string        ""
	:max-tick-string        ""
	:initial-value          0
	:initial-state          :active
	:notify-handler         nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :setting
	:name                   audio_io
	:owner                  controls3
	:help                   ""
	:x                      10
	:y                      240
	:width                  172
	:height                 23
	:value-x                87
	:value-y                240
	:rows                   0
	:columns                1
	:layout-type            :horizontal
	:foreground-color       ""
	:setting-type           :stack
	:selection-required     t
	:label                  "Audio I/O:"
	:label-type             :string
	:notify-handler         nil
	:event-handler          nil
	:choices                ("Internal" "Play Cmd" "MTU" "DAT Link" )
	:choice-label-types     (:string :string :string :string )
	:choice-colors          ("" "" "" "" )
	:choice-defaults        (nil nil nil nil )
	:initial-selections     (nil nil nil nil )
	:initial-state          :active
	:user-data              ()
	:actions                ()
)
(
	:type                   :setting
	:name                   audio_hold
	:owner                  controls3
	:help                   ""
	:x                      190
	:y                      240
	:width                  106
	:height                 23
	:value-x                190
	:value-y                240
	:rows                   1
	:columns                0
	:layout-type            :horizontal
	:foreground-color       ""
	:setting-type           :exclusive
	:selection-required     t
	:label                  ""
	:label-type             :string
	:notify-handler         audio_hold
	:event-handler          nil
	:choices                ("Hold" "Release" )
	:choice-label-types     (:string :string )
	:choice-colors          ("" "" )
	:initial-selections     (nil nil )
	:initial-state          :active
	:user-data              ()
	:actions                (
		(
		:from                   (pwin audio_hold)
		:when                   (Notify )
		:to                     (pwin audio_hold)
		:function_type          CallFunction
		:arg_type               ()
		:action                 (audio_hold)
		)
	)
)
(
	:type                   :text-field
	:name                   playcmd
	:owner                  controls3
	:help                   ""
	:x                      13
	:y                      267
	:width                  202
	:height                 15
	:value-x                87
	:value-y                267
	:value-length           16
	:stored-length          80
	:rows                   3
	:foreground-color       ""
	:text-type              :alphanumeric
	:label                  "Play Cmd:"
	:label-type             :string
	:layout-type            :horizontal
	:value-underlined       t
	:initial-value          "play -s $S:$E"
	:initial-state          :active
	:read-only              nil
	:notify-handler         nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :text-field
	:name                   audio_cmd
	:owner                  controls3
	:help                   ""
	:x                      3
	:y                      286
	:width                  212
	:height                 15
	:value-x                87
	:value-y                286
	:value-length           16
	:stored-length          80
	:rows                   3
	:foreground-color       ""
	:text-type              :alphanumeric
	:label                  "Audio Cmd:"
	:label-type             :string
	:layout-type            :horizontal
	:value-underlined       t
	:initial-value          "audiocontrol"
	:initial-state          :active
	:read-only              nil
	:notify-handler         nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
)