{eris}<speech>DSL.script
SPEECH WORKBENCH DEMO
HARDWARE CHECK LIST
1108X DandeTiger with BusMaster-PC (See Check List and Installation Instructions above)
DT2801-A Data Translation (Marlborogh, MA) 27KHz 12bit 2DAC 16ADC Data Acquisition Card
IBM PC 64/256K Memory Expansion Option (stuffed with 64KBytes of DRAM).
Custom cable harness built from
3M number 3425 50-pin female connector (similar to Radio Shack 276-1525)
Radio Shack 42-2352 72" Shielded Stero cable to Phono Plugs
Radio Shack 271-1335 2 10KOhm resisters
Radio Shack 33-990A Microphone
Radio Shack 32-1115 Frequency Equalizer (Microphone pre-amp plus low pass filter)
Radio Shack 270-1455 AC Adapter for Equalizer
Radio Shack 31-1982B Stereo Amplifier
Radio Shack 40-2039A Speaker
Radio Shack 42-2370 Shielded cable for speaker, phono plug to stripped leads
Radio Shack 42-2365 Shielded cable phono plug to phono plug for Equalizer
SPEECH WORKBENCH DEMO
HARDWARE INSTALLATION INSTRUCTIONS
Set IBM PC Memory Expansion Jumpers for bank 1: On: 1,2,3,5; Off: 4,6,7,8
Insert IBM PC 64/256K Memory Expansion Card into PC Expansion Unit
Set DT2801-A jumpers to the Factory configuration: W1,3,4,7,9,11,13,15,19,23,26,27
Insert DT2801-A card into PC Expansion Unit
Build a Connector Cable as follows
See Data Translation User Manual page 3-8, 3-14
At AAAI-84 we used the following setup:
J1 connector:
A 2000 Ohm resister between Pins 17 and 18, AGND and Amp Low
Pin 17 AGND tied to unused pins 3,4,5,6,7,8,9,10,11,12,13,14,15,16
Pin 2 Chan 8 Audio Input signal
Pin 18 Amp Low Audio Input sheild
Pin 22 DAC 0 Out Audio Output signal
Pin 23 DAC 0 Gnd Audio Output sheild
Connect Microphone to pre-amp input
Connect Pre-amp output to (optional filter to) DT2801-A J1 Audio Input
Connect DT2801-A J1 Audio Output to amplifier
Connect amplifier output to speaker
SPEECH WORKBENCH DEMO
SOFTWARE INSTALLATION INSTRUCTIONS
Inside [Eris]<Lisp<Intermezzo>Basics>Lisp.sysout
(LOAD '{Ivy}<Jellinek>WORK>NEWRTSD.DCOM)
(LOAD '{Eris}<LispUsers>NOBOX.DCOM)
(LOAD '{IVY}<HTHOMPSON>LISP>DSL>PCDAC.DCOM)
(LOAD '{IVY}<HTHOMPSON>LISP>DSL>DSL.DCOM)
Date: 28 Apr 85 13:22:43 PDT (Sunday)
From: Purcell.PA
Subject: DSL Speech Demo Script
To: Purcell
cc: Purcell
Inside [Eris]<Lisp<Intermezzo>Basics>Lisp.sysout
(LOAD '{Eris}<LispUsers>NOBOX.DCOM)
(LOAD '{IVY}<HTHOMPSON>LISP>DSL>PCDAC.DCOM)
(LOAD '{IVY}<HTHOMPSON>LISP>DSL>DSL.DCOM)
(NewShow (MakeSSForFile 'oscil 'XX NIL 1024 27000))
Making the window about 1/3 of a screen width and height looks good to me, but you can try other sizes.
(WINDOWPROP IT 'DontWrite T)
Mid-but "Record"
Adjust amplitude to fill region between hash-marks - if this is not possible by tweeking your amplifiers etc. then try (WINDOWPROP <the window> 'InputGainCode 1) to double the amplitude. You can go as far as 3 - the default is 0. Note that you have to stop recording (with STOP) before you can do anything else. Try changing the compression by mid-but in the compression window -- 10 looks good. (Note that because of a bug the new value will not be displayed therein until you next hit Record).
Mid-but Play and you will get the last 1.2 seconds of what you said - use this to adjust the output amplification. Use Quiet (right of Play) to shut it up. You can scroll around a bit after recording , but you will fall off the end very quickly, which cause a break (↑ is (here and nearly always) a safe recovery). Better to show off scrolling with a file. You can leave the original window up, and bring up a new one:
(NewShow (MakeSSForFile 'f1 '{CORE}F1.SPEECH NIL 10234 10000)).
Make this one a bit longer - maybe half the screen. Mid-but Record. Answer the prompt with something on the order of 5 or 10.
It starts recording with no pause after displaying "Type STOP to stop", so be ready to say something witty. It is a good idea to include pauses fairly frequently in what you say, so that subsequent segmentation is easier. Say your piece and hit STOP. Increase the compression, to 10 or even 30, so that most of the utterance is visible.
Scroll around (include thumbing) to show off. Mid-but Zoom (right of Link) to bring up a 10-to-1 expanded window below (this may require moving the whole ensemble - don't worry, they travel together).
Using the compressed window, extract a word or phrase by mid-but NewSS, giving it a name when prompted, e.g. the word you think it is, then respond to the cursor with "ss" in it by selecting first the left, then
the right hand ends of the segment. As long as you hold the left-but down, you can move the cursor around - the display shows time at the bottom and value and name at the top. DO NOT try to scroll while placing marks. Mid-but Toggle Marks, the right-but Redisplay to clean things up. Now mid-but Play Subss (right of Play) and grab one end of the segment with the "ss" jaws cursor to hear the sub-segment.
If you haven't got the boundaries right, then ToggleMarks in the lower, expanded window, Jump to the named mark, and use ChangeMark to drag a mark to a better position, then replay. If you have several marks close together, you mayu get a menu to arbitrate a selection - don't ever take the 'all' option- it's not implemented yet.
That's enought to be getting on with - all the menu items and sub-items
have explain strings, so just hold on and you will get some help, I
trust.
Feel free to call - 031-337-6818 home, 031-667-1011 x6816/6242 work.
Cheers
ht
----------------------------------------------------------------