###
### SCALE: 100
### CSLUVERSION: 2.0.0
###
set Coord "270.0 30.0 192.0 272.0"

#----------------------------------------------------------------------------
# Packages
#----------------------------------------------------------------------------
requirePackage Base {Built-in RAD object types} {Copyright (C) 1996-2002 Center for Spoken Language Understanding
  OGI School of Science & Engineering
  Oregon Health & Science University} http://cslu.cse.ogi.edu/toolkit/docs/2.0/apps/rad/objects/index.html#base
#----------------------------------------------------------------------------


##### ROOT SCREEN
set offsetX [expr $x - 270.0]
set offsetY [expr $y - 30.0]
set p $ObjectTypes(activeScreen)

# input_23
set x0 [expr 270.0 + $offsetX] 
set y0 [expr 30.0 + $offsetY] 
set obvar [newO input $x0 $y0 {no 1}]
set r(input_23) $obvar
upvar #0 $obvar ob
set ob(recogType) {Tree}
set ob(override:recognizer) {0}
set ob(dtmf,mode) {off}
set ob(prompt,type) {tts}
set ob(override:sdet) {0}
set ob(override:vumeter) {0}
set ob(override:tts) {0}
set ob(prompt,recordFlag) {0}
set ob(bargein) {off}
set ob(package) {Base}
set ob(override:caption) {0}
set ob(name) {start}
set ob(dtmf,interrupt) {0}
set ob(words) {{{} {} {}}}
set ob(grammar) {{}}

# queryone_24
set x0 [expr 280.0 + $offsetX] 
set y0 [expr 150.0 + $offsetY] 
set obvar [newO queryone $x0 $y0 {no 2}]
set r(queryone_24) $obvar
upvar #0 $obvar ob
set ob(changetrigger) {5}
set ob(gif_original) {C:/Program Files/CSLU/Toolkit/2.0/apps/rad/base/gif/generic.gif}
set ob(recogType) {Tree}
set ob(override:recognizer) {0}
set ob(dtmf,mode) {off}
set ob(prompt,type) {tts}
set ob(gif_tmmods) {C:/Program Files/CSLU/Toolkit/2.0/apps/rad/packages/Tucker-Maxon/gif_alt/generic.gif}
set ob(override:sdet) {0}
set ob(override:vumeter) {0}
set ob(prompt,markupText) {<SABLE></SABLE>
}
set ob(recogportType,0) {Words}
set ob(recogportType,1) {Words}
set ob(override:repair) {0}
set ob(override:tts) {0}
set ob(prompt,ttsText) {Welcome to the first  CSLU RAD demo. May I help you somehow?}
set ob(repairStatus) {default}
set ob(changerate) {5}
set ob(prompt) {Welcome to the first  CSLU RAD demo. May I help you somehow?}
set ob(dynamicWords) {{no {n oU}} {yes {j E s}}}
set ob(dyn:recog) {0}
set ob(prompt,recordFlag) {0}
set ob(bargein) {off}
set ob(portType,0) {Undefined}
set ob(portType,1) {Undefined}
set ob(package) {Base}
set ob(override:caption) {0}
set ob(name) {Greating}
set ob(dtmf,interrupt) {0}
set ob(words) {{no {} {{{n oU}}}} {yes {} {{{j E s}}}}}
set ob(grammar) {{{} {}} {{} {}}}
set ob(recognizer) {name adult_english_16khz_0.ob infoDial American infoRate 16000}

# goodbye_26
set x0 [expr 270.0 + $offsetX] 
set y0 [expr 270.0 + $offsetY] 
set obvar [newO goodbye $x0 $y0 {no 0}]
set r(goodbye_26) $obvar
upvar #0 $obvar ob
set ob(recogType) {Tree}
set ob(override:recognizer) {0}
set ob(dtmf,mode) {off}
set ob(prompt,type) {tts}
set ob(override:sdet) {0}
set ob(override:vumeter) {0}
set ob(override:tts) {0}
set ob(prompt) {Goodbye.}
set ob(prompt,recordFlag) {0}
set ob(bargein) {off}
set ob(package) {Base}
set ob(override:caption) {0}
set ob(name) {goodbye}
set ob(dtmf,interrupt) {0}

# queryone_28
set x0 [expr 430.0 + $offsetX] 
set y0 [expr 150.0 + $offsetY] 
set obvar [newO queryone $x0 $y0 {no 1}]
set r(queryone_28) $obvar
upvar #0 $obvar ob
set ob(changetrigger) {5}
set ob(gif_original) {C:/Program Files/CSLU/Toolkit/2.0/apps/rad/base/gif/generic.gif}
set ob(recogType) {Tree}
set ob(override:recognizer) {0}
set ob(dtmf,mode) {off}
set ob(prompt,type) {tts}
set ob(gif_tmmods) {C:/Program Files/CSLU/Toolkit/2.0/apps/rad/packages/Tucker-Maxon/gif_alt/generic.gif}
set ob(override:sdet) {0}
set ob(override:vumeter) {0}
set ob(prompt,markupText) {<SABLE></SABLE>
}
set ob(override:repair) {0}
set ob(override:tts) {0}
set ob(prompt,ttsText) {This is CSLU RAD support. There is no support available at present time.}
set ob(changerate) {5}
set ob(prompt) {This is CSLU RAD support. There is no support available at present time.}
set ob(dyn:recog) {0}
set ob(prompt,recordFlag) {0}
set ob(bargein) {off}
set ob(package) {Base}
set ob(override:caption) {0}
set ob(name) {RAD_Support}
set ob(dtmf,interrupt) {0}
set ob(words) {{{} {} {}}}
set ob(grammar) {{}}
set ob(recognizer) {name adult_english_16khz_0.ob infoDial American infoRate 16000}

####### CONNECTIONS
connect r input_23 queryone_24 0 286.0 108.0 291.0 117.0 296.0 135.0 $offsetX $offsetY
connect r queryone_28 queryone_24 0 406.0 228.0 371.0 177.0 336.0 135.0 $offsetX $offsetY
connect r queryone_24 queryone_28 1 346.0 228.0 376.0 177.0 406.0 135.0 $offsetX $offsetY
connect r queryone_24 goodbye_26 0 286.0 228.0 286.0 237.0 286.0 255.0 $offsetX $offsetY
recordActiveScreen $p
array set config {vumeter,geometry +100+10 arrayName config changetrigger 5 warning,load:inappropriate 1 alpha,searchsize 100000 RAD_VERSION 2.0 tmmods:pause 0 dtmf,endchar {} dtmf,mode off beep 1 releaseServices 0 about,comments {} backup 1 garbageThreshold 0 alpha,reject 0.1 input live highlight 1 about,author {} review 0 rejection 9 alpha,prune 0.0001 default:tts,voice {name mwm} showConsole 0 reRun 0 confirm,nuke 1 RAD_PATCHLEVEL 0 caption 0 stdevMic 11 palette,zoom 100 dtmf,var {} defaultTtsDevice {type Festival} useRepair 1 confirm,clear 1 palette,stick 1 ttsDevice {type Festival hostname *} about,date 12/07/12 confirm,quit 1 palette,rows {} lsilence 5000 pronun,tts 1 changerate 5 audioDevice {type audio hostname local} snapToGrid 1 longpen 0.135 confirm,newload 1 palette,columns 2 backoff 150 dtmf,maxlen 1 dyn:recog 0 showCanvas 1 mic,device 0 dtmf,timeout 5000 mic,key <Space> vumeter,enabled 1 beepwave {C:/Program Files/CSLU/Toolkit/2.0/apps/rad/endbeep.wav} tts,pitch 215 mic,event 0 tsilence 300 bargein 0 about,url http://www.cslu.ogi.edu confirm,new 1 active 1.0 dataCapture 0 configfile {C:/Documents and Settings/bar/.rad/config.tcl} visual,iMode 0 defaultAudioDevice {type audio hostname local} edit,noEmptyPrompt 1 alpha,deletepen 0.05 wordspot 9 tmmods:listallmedia 0 repairFile {C:/Program Files/CSLU/Toolkit/2.0/apps/rad/Repair/default1.rad} tts,rate 1.00 runTrace 0 pronun,customdict 1 prompt,dir C:/.rad ttsCache 0 maxrec 100 tmmods:extralogging 0 alpha,langpower 0.0 audio tv faces {} nbest 4 dtmf,interrupt 0 tts,pitchrange 25 baldi 1 pronun,localdict 1 edit,usedFacesOnly 1 recognizer {name adult_english_16khz_0.ob infoLang * infoDial American infoRate 16000 infoDesc *} paths {configfile {Configuration File} beepwave {Beep File} prompt,dir {Prompt Directory} repairFile {Default Repair File}} showRecog 0 pronun,cmu 1 shortpen 0.0025 tmmods:iconlook 0 tts,voice {name mwm2tll language * dialect * gender female} face,type CUAnimate recogMode 1 cachesize 100 visual,DCP 0}

