DIRECTORYThrush USING [ Tune, IntervalSpec, IntervalSpecs, VoiceInterval, VoiceTime ];BluejayUtils: CEDAR DEFINITIONS = {Tune: TYPE = Thrush.Tune;DescribeTune: PROC[tune: Tune] RETURNS [exists: BOOL, size: INT];DescribeInterval: PROC[targetTune: Thrush.Tune, targetInterval: Thrush.VoiceInterval,minSilence: Thrush.VoiceTime _ 1] RETURNS [exists: BOOL, intervals: Thrush.IntervalSpecs];DeleteTune: PROC[tune: Tune] RETURNS [existed: BOOL];NewTune: PROC RETURNS [tune: Tune];TunesInJukebox: PROC RETURNS [nTunes: INT];InitializeJukebox: PROC; -- takes a long time to run, usually.Initialize: PROC;Uninitialize: PROC;}.  J  BluejayUtils.mesaCopyright Ó 1987 by Xerox Corporation.  All rights reserved.Last Edited by: Swinehart, March 23, 1987 2:15:22 pm PSTsize is in chirps, undefined if exists=FALSEDescribe the loud and silence intervals within the specified interval, by providing a list of the loud ones.  Implementation tries to keep things unlocked; nonexistence of an interval might arise due to tunes in transition.MinSilence is the smallest silence interval to be considered significant, except that leading and trailing intervals are always significant.Zero means Jukebox isn't open. Ê$  ˜ ™Icode™<—J™8J™ šÏk	˜	JšœœA˜M—J˜ Jšœœ˜#˜ J˜J˜ —š
Ïnœœœ
œœ˜AJšœ'™,—J˜ J™ßJ™ŒJ˜ šžœœ?˜UJšœ"œ
œ#˜ZJ™ —Jšž
œœœœ˜5J˜ Jšžœœœ˜#J˜ šžœœœ
œ˜+J™—J˜ JšžœœÏc%˜>J˜ Jšž
œœ˜Jšžœœ˜J˜ J˜— …—    ‚  ð  