The Durations Module - Tcl Scripts

#
# This script demonstrates the usage of the duration module.
# It does not work for itself, because it needs an entire
# recognizer environment to work.
# 

# ------------------------------------------------------------ #
# create a duration set with seven buckets:                    #
# [1..2] [3..4] [5..6] [7..10] [11..20] [21..100] [101..1000]  #
# ------------------------------------------------------------ #

DurationSet durSet { 2 4 6 10 20 100 1000 }

# ----------------------- #
# add two duration models #
# ----------------------- #
durSet add SIL    { 0.01 0.04 0.15 0.25 0.30 0.20 0.05 }
durSet add NONSIL { 0.1  0.2  0.3  0.2  0.1  0.05 0.05 }

# ----------------------------- #
# create a simple duration tree #
# ----------------------------- #
Tree durTree $phones $phonesSet $tags durSet
durTree add ROOT   { 0=SIL } NONSIL SIL - -
durTree add SIL    {       }   -     -  - SIL
durTree add NONSIL {       }   -     -  - NONSIL

# ------------------------------------------- #
# Here start up your recognizer ....          #
# When creating the AmodelSet add:            #
#   -durationTree durTree -durationRoot ROOT  #
# ------------------------------------------- #