DIRECTORY Rope USING [ROPE], ViewerClasses USING [Viewer], TiogaOpsDefs USING [Ref], Menus USING [MenuProc]; VoicePlayBack: CEDAR DEFINITIONS = BEGIN PlayBackMenuProc: Menus.MenuProc; PlaySlabSection: PROC [viewer: ViewerClasses.Viewer, node: TiogaOpsDefs.Ref, from, to: INT]; PlayWholeSlab: PROC [viewer: ViewerClasses.Viewer]; PlayRopeWithoutCue: PROC [voiceID: Rope.ROPE]; PlayBackInProgress: PROC RETURNS [BOOLEAN]; CancelPlayBack: PROC; RemoveViewerReferences: PROC [viewer: ViewerClasses.Viewer] RETURNS [okay: BOOLEAN]; RedrawViewer: PROC [viewer: ViewerClasses.Viewer, newContents: Rope.ROPE, unchangedHead, deleteChars, insertChars: INT, timeRemnant: INT, age: BOOLEAN, selectionsAfterRedraw: SelectionsAfterRedraw] RETURNS [newNode: TiogaOpsDefs.Ref]; SelectionsAfterRedraw: TYPE = { unAltered, deSelected, primaryOnInsert }; END. VoicePlayBack.mesa interface to replay sounds, plus all the guff to move a cue along a slab display Ades, April 28, 1986 1:54:30 pm PDT this is a separate module because playback requests to the voice file server can be queued up and hence where visual cues are employed these must also be properly queued. Events which complicate this are requests to play voice not in a slab [i.e. not wanting visual cues], requests to stop playback, and editing of a slab whilst it is being tracked. All these events MUST be handled by this module. That ought to include both finch and walnutvoice eventually - the correct procedures are provided by this interface to both play a complete rope and stop the playing of all ropes. the routine behind the PlayVoice button for both text and voice viewers 'node' is the voice-profile rope in the voice viewer 'viewer': play all the sound represented by characters 'from' through 'to' inclusive given a tune which is not pictorially represented, just play it tests whether the playback system is active: regard it as a hint and call the next procedure before starting to record aborts any playback cues in progress and any playback requests queued up: DOESN'T call VoiceRope.Stop. this procedure changes all queued visual playback entries for a viewer to non-visual ones, unless the viewer is currently at the head of the cue queue as a visual entry, in which case it does nothing and returns false. Must be called before a viewer is destroyed: if ~okay then viewer must not be destroyed called in order to redraw an edited voice viewer, which may or may not be in the queue of viewers in which cues are appearing or are about to appear: newContents is the result of the edit as is timeRemnant, and the three INT arguments refer to the display prior to the edit all voice viewers will be 'aged' by this call [see VoiceAging for details] unless age=FALSE OR insertChars = 0 because the contents of the viewer are to be completely reset, any selections therein will be upset: how selections are to be affected must always be specified explicitly. The choices [only concerned with primary and secondary: feedback, should it be there, will always be destroyed] are Êw˜šœ™™PIcode™#K™—™ÂK™——šÏk ˜ Kšœœœ˜Kšœœ ˜Kšœ œ˜Kšœœ˜—K™KšÏn œœœ˜(K˜Kšœ!˜!K™GK˜KšžœœBœ˜\Kšœ‰™‰K˜Kšž œœ ˜3K˜Kšžœœœ˜.K™?K˜Kšžœœœœ˜+K™vK˜Kšžœœ˜Kšœg™gK˜Kšžœœ œœ˜TK™²K™Kšžœœ2œ+œœ0œ˜êKšœÂœE™’K™nK™ŸK™K˜JK™K™K™K™Jšœ˜—…—R i