(FILECREATED "11-Jul-84 14:29:23" ("compiled on " {ERIS}ROACH>PARCOE.FPKG;2) "10-Jul-84 21:15:26" tcompl%'d in WORK dated "10-Jul-84 21:56:45") (FILECREATED "11-Jul-84 14:29:01" {ERIS}ROACH>PARCOE.FPKG;2 20930 changes to: (FNS PVECTOR.GET PVECTOR.PUT PVECTOR.INDEX PARCOE.INIT PARCOE.INTERPOLATE PARCOE.INTERPOLATE.PNAME PARCOE.PTC PARCOE.PTC.CORRECTIONS PARCOE.PTC.ASPIRATION PARCOE.PTC.FRICATION PARCOE.PTC.FORMANTS PARCOE.PTC.NASAL PARCOE.PTC.GLOTTAL PARCOE.PTC.VOICING PARCOE.DBCOR PARCOE.GET.AMP LOG10 RANGECHECK PARCOE.SET.RES PARCOE.SET.ANTIRES)) PVECTOR.GET D1 (P 2 ANSWER P 1 INDEX P 0 DESCRIPTOR I 1 FIELDNAME I 0 PVECTOR) 0oXA YHIH@ (25Q FETCHFIELD 13Q PVECTOR.INDEX) NIL ( 6 (PVECTOR INDEX POINTER)) PVECTOR.PUT D1 (P 2 ANSWER P 1 INDEX P 0 DESCRIPTOR I 2 VALUE I 1 FIELDNAME I 0 PVECTOR) 0oXA YHIH@B(26Q REPLACEFIELD 13Q PVECTOR.INDEX) NIL ( 6 (PVECTOR INDEX POINTER)) PVECTOR.INDEX D1 (L (0 FIELDNAME) F 2 PVECTOR.FIELDNAMES) RjHµh@ð‘IIlØ¹HX°íNIL NIL () PARCOE.INIT D1 (F 0 DEFAULT.SLICE F 1 OW.SLICE) T`dg¿dg¿do¿do¿dj¿dj ¿dj¿dj¿dj¿dj ¿dj¿dld¿dnÜ¿dnp¿dlúL¿dldN¿dlúF¿dldH¿dlÈ¿dnÂ&¿dl2$¿dnª,¿dlF*¿dn ’2¿dln0¿dnä8¿dlú6¿dn >¿dlÈ<¿dn$D¿dnèB¿dj"¿djJ¿dj(¿dj.¿dj4¿dj:¿dj@¿djP¿dg¿dl$R¿dl¿c`dg¿dg¿do¿do¿dh¿do ¿do¿do¿do¿do ¿do¿do¿do¿do¿doL¿doN¿doF¿doH¿do¿do&¿do$¿do,¿do*¿do2¿do0¿do8¿do6¿do>¿do<¿doD¿doB¿do"¿doJ¿do(¿do.¿do4¿do:¿do@¿doP¿dg¿doR¿dl¿chNIL (1075Q CASCADE 421Q DEFAULT 412Q SLICE 405Q PVECTORTYPE# 361Q CASCADE 16Q DEFAULT 7 SLICE 2 PVECTORTYPE#) ( 1105Q 36.0 1066Q 0.0 1056Q 0.0 1046Q 0.0 1036Q 0.0 1026Q 0.0 1016Q 0.0 1006Q 0.0 776Q 0.0 766Q 1000.0 756Q 4900.0 746Q 200.0 736Q 3850.0 726Q 250.0 716Q 3300.0 706Q 70.0 676Q 2300.0 666Q 70.0 656Q 1033.333 646Q 80.0 636Q 510.0 626Q 200.0 616Q 100.0 606Q 250.0 576Q 100.0 566Q 250.0 556Q 6000.0 546Q 1500.0 536Q 100.0 526Q 0.0 516Q 118.0 506Q 0.0 476Q 0.0 466Q 0.0 456Q 60.0 441Q (* OW.SLICE *) 431Q "" 36Q (* DEFAULT.SLICE *) 26Q "") PARCOE.INTERPOLATE D1 (P 0 PNAME I 2 OLDSLICE I 1 TRAJ I 0 TIME F 1 PVECTOR.PNAMES) B¦`b¿QdH@ABµñB(26Q PARCOE.INTERPOLATE.PNAME) (4 PVECTORTYPE#) () PARCOE.INTERPOLATE.PNAME D1 (P 10Q VALUE P 7 K P 6 RVALUE P 5 LVALUE P 4 RTIME P 3 LTIME P 2 RIGHTPOINT P 1 LEFTPOINT P 0 PATH I 3 PVECTOR I 2 TRAJ I 1 TIME I 0 PNAME) ‚ B@ XdH"Oµˆ_¿OµI[J\I]J^@o ²+M°=_¿OAñOAñ—O¹Oº°ÎO_¿O_¿°±AKéLKéë_NêoOéMêè_¿C@Oh(176Q PVECTOR.PUT 64Q MEMB 7 PVECTOR.GET) NIL ( 156Q 1.0 61Q (SWITCH NCF)) PARCOE.PTC D1 (P 0 CORRECTIONS I 1 COEFF I 0 PVECTOR) >A@ÉPoè @A @A @ X@AH@A @A @A h(72Q PARCOE.PTC.VOICING 65Q PARCOE.PTC.NASAL 60Q PARCOE.PTC.GLOTTAL 53Q PARCOE.PTC.FORMANTS 44Q PARCOE.PTC.CORRECTIONS 40Q PARCOE.PTC.FRICATION 33Q PARCOE.PTC.ASPIRATION 24Q PARCOE.GET.AMP) (12Q PVECTOR 6 COEFF) ( 20Q -84.0) PARCOE.PTC.CORRECTIONS D1 (P 15Q CORRECTIONS P 14Q F43 P 13Q F32 P 12Q F21 P 11Q N34COR P 10Q N23COR P 7 N12COR P 6 A3COR P 5 DELF2 P 4 A2COR P 3 F4 P 2 F3 P 1 F2 P 0 F1 I 0 PVECTOR) Ïà @É&¸@É,¹@É2º@É8»Hoëo ¼Ioë½LMdêê¾LMë¼o_¿o_¿o_¿IHé_¿oOò³_oOò—O _¿JI oèè_¿oOò³8oOò—O _¿KJ oèè_¿oOò¯oOò—O _¿LNOOOh(273Q PARCOE.DBCOR 235Q FMINUS 225Q PARCOE.DBCOR 166Q FMINUS 156Q PARCOE.DBCOR 53Q EXPT) (33Q PVECTOR 24Q PVECTOR 15Q PVECTOR 6 PVECTOR) ( 262Q 550.0 252Q 50.0 241Q -50.0 214Q 550.0 203Q 50.0 172Q -50.0 145Q 550.0 134Q 50.0 117Q 0.0 110Q 0.0 101Q 0.0 61Q 1500.0 50Q 2.0 43Q 500.0) PARCOE.PTC.ASPIRATION D1 (I 1 COEFF I 0 PVECTOR) A@ÉR@É oèè h(30Q PARCOE.GET.AMP) (15Q PVECTOR 7 PVECTOR 3 COEFF) ( 23Q -102.0) PARCOE.PTC.FRICATION D1 (P 4 PLSTEP P 3 SWITCH P 2 GAIN P 1 AFRIC P 0 AASPIR I 1 COEFF I 0 PVECTOR) hP@ÉX@ÉY@ÉRZ@É[HIò—Kgð‘H¹l1IAÉéò”oˆJoè ¼AJIoèè AIALh(124Q PARCOE.GET.AMP 104Q PARCOE.GET.AMP) (141Q COEFF 132Q COEFF 111Q COEFF 61Q COEFF 46Q PARALLEL 33Q PVECTOR 24Q PVECTOR 15Q PVECTOR 6 PVECTOR) ( 117Q -72.0 100Q -28.0 72Q 0.0) PARCOE.PTC.FORMANTS D1 (P 4 N34COR P 3 N23COR P 2 N12COR P 1 A3COR P 0 A2COR I 2 CORRECTIONS I 1 COEFF I 0 PVECTOR) :PBXBYBZB[B\AÉ"@É&@É$AÉ$@É,@É*AÉ&@É2@É0AÉ(@É8@É6AÉ*@É>@É<AÉ,@ÉD@ÉBA@É"Joèè AH@É(JoêKoèèè êAI@É.KoêLoèèè êAI@É4Loêoèè êAI@É:oè êAI@É@oè êh(463Q PARCOE.GET.AMP 435Q PARCOE.GET.AMP 407Q PARCOE.GET.AMP 352Q PARCOE.GET.AMP 313Q PARCOE.GET.AMP 255Q PARCOE.GET.AMP 231Q PARCOE.SET.RES 204Q PARCOE.SET.RES 157Q PARCOE.SET.RES 132Q PARCOE.SET.RES 105Q PARCOE.SET.RES 60Q PARCOE.SET.RES) (451Q PVECTOR 444Q COEFF 423Q PVECTOR 416Q COEFF 366Q PVECTOR 361Q COEFF 327Q PVECTOR 322Q COEFF 270Q PVECTOR 263Q COEFF 241Q PVECTOR 235Q COEFF 224Q PVECTOR 216Q PVECTOR 210Q COEFF 177Q PVECTOR 171Q PVECTOR 163Q COEFF 152Q PVECTOR 144Q PVECTOR 136Q COEFF 125Q PVECTOR 117Q PVECTOR 111Q COEFF 100Q PVECTOR 72Q PVECTOR 64Q COEFF 53Q PVECTOR 45Q PVECTOR 37Q COEFF) ( 457Q -80.0 431Q -79.0 402Q -78.0 375Q 2.0 344Q -73.0 336Q 2.0 305Q -65.0 277Q 2.0 250Q -58.0) PARCOE.PTC.NASAL D1 (I 1 COEFF I 0 PVECTOR) AAÉ.@ÉL@ÉNAÉ0@ÉF@ÉHA@ÉJoè h(73Q PARCOE.GET.AMP 51Q PARCOE.SET.ANTIRES 24Q PARCOE.SET.RES) (61Q PVECTOR 55Q COEFF 44Q PVECTOR 36Q PVECTOR 30Q COEFF 17Q PVECTOR 11Q PVECTOR 3 COEFF) ( 67Q -58.0) PARCOE.PTC.GLOTTAL D1 (P 2 PULSN P 1 AV P 0 F0 I 1 COEFF I 0 PVECTOR F 3 SR) º0@É X@ÉR@É oèè YHoò²@É oò®@Éoò¢k°gAÉ@É@ÉoêHë¿AÉ o@É¿AÉ@É@É¿AÉo¿Hl(o¸IHê¹SHëºAIAJ2h(237Q RANGECHECK 210Q PARCOE.SET.ANTIRES 162Q PARCOE.SET.RES 136Q PARCOE.SET.RES 36Q PARCOE.GET.AMP) (263Q COEFF 254Q COEFF 215Q COEFF 203Q PVECTOR 175Q PVECTOR 167Q COEFF 155Q PVECTOR 143Q COEFF 122Q PVECTOR 114Q PVECTOR 106Q COEFF 67Q PVECTOR 53Q PVECTOR 23Q PVECTOR 15Q PVECTOR 6 PVECTOR) ( 234Q 17777777777Q 223Q .007 151Q 0.0 130Q 100.0 75Q 0.0 61Q 0.0 44Q 0.0 31Q -72.0) PARCOE.PTC.VOICING D1 (I 1 COEFF I 0 PVECTOR) #A@ÉR@Éoèè oêh(30Q PARCOE.GET.AMP) (15Q PVECTOR 7 PVECTOR 3 COEFF) ( 34Q 10.0 23Q -44.0) PARCOE.DBCOR D1 (L (0 DB)) o@oëéNIL NIL ( 10Q 50.0 3 11.0) PARCOE.GET.AMP D1 (I 0 DB) o@oooë (27Q EXPT 17Q RANGECHECK) NIL ( 23Q 6.0 14Q 96.0 10Q -72.0 3 2.0) LOG10 D1 (I 0 X) @ oë(3 LOG) NIL ( 7 2.302585) RANGECHECK D1 (L (2 MAX 1 MIN 0 VALUE)) A@ò‘A@dBòBNIL NIL () PARCOE.SET.RES D1 (P 3 R P 2 C P 1 B P 0 A I 2 BANDWIDTH I 1 FREQUENCY I 0 RES F 4 PIT F 5 TWOPIT) A@TBê [ddê ZKUAêi oêêYd J oèèX@H@I@J@(52Q FMINUS 46Q FMINUS 33Q COS 22Q FMINUS 13Q ANTILOG 10Q FMINUS) NIL ( 56Q 1.0 37Q 2.0) PARCOE.SET.ANTIRES D1 (P 3 R P 2 C P 1 B P 0 A I 2 BANDWIDTH I 1 FREQUENCY I 0 ANTIRES F 4 PIT F 5 TWOPIT) Y@TBê [ddê ZKUAê i oêêYd J oèèXoHëXdIê YHJê Z@H@I@J@(110Q FMINUS 101Q FMINUS 55Q FMINUS 51Q FMINUS 36Q COS 32Q FMINUS 22Q FMINUS 13Q ANTILOG 10Q FMINUS) NIL ( 70Q 1.0 61Q 1.0 42Q 2.0) (PRETTYCOMPRINT PARCOECOMS) (RPAQQ PARCOECOMS ((CONSTANTS (DBSCA.A1 -58.0) (DBSCA.A2 -65.0) (DBSCA.A3 -73.0) (DBSCA.A4 -78.0) ( DBSCA.A5 -79.0) (DBSCA.A6 -80.0) (DBSCA.ANP -58.0) (DBSCA.AB -84.0) (DBSCA.AV -72.0) (DBSCA.AASPIR -102.0) (DBSCA.AFRIC -72.0) (DBSCA.ASV -44.0)) (INITVARS (DEFAULT.SLICE NIL) (OW.SLICE NIL)) (RECORDS PVECTOR TVPOINT TVPOINT2 CORRECTIONS) (FNS PVECTOR.GET PVECTOR.PUT PVECTOR.INDEX PARCOE.INIT PARCOE.INTERPOLATE PARCOE.INTERPOLATE.PNAME PARCOE.PTC PARCOE.PTC.CORRECTIONS PARCOE.PTC.ASPIRATION PARCOE.PTC.FRICATION PARCOE.PTC.FORMANTS PARCOE.PTC.NASAL PARCOE.PTC.GLOTTAL PARCOE.PTC.VOICING PARCOE.DBCOR PARCOE.GET.AMP LOG10 RANGECHECK PARCOE.SET.RES PARCOE.SET.ANTIRES) (P (SETQ PVECTOR.FIELDNAMES (CAR (NTH (RECLOOK (QUOTE PVECTOR)) 4))) (SETQ PVECTOR.PNAMES (MEMB (QUOTE AV) PVECTOR.FIELDNAMES))))) (RPAQQ DBSCA.A1 -58.0) (RPAQQ DBSCA.A2 -65.0) (RPAQQ DBSCA.A3 -73.0) (RPAQQ DBSCA.A4 -78.0) (RPAQQ DBSCA.A5 -79.0) (RPAQQ DBSCA.A6 -80.0) (RPAQQ DBSCA.ANP -58.0) (RPAQQ DBSCA.AB -84.0) (RPAQQ DBSCA.AV -72.0) (RPAQQ DBSCA.AASPIR -102.0) (RPAQQ DBSCA.AFRIC -72.0) (RPAQQ DBSCA.ASV -44.0) (CONSTANTS (DBSCA.A1 -58.0) (DBSCA.A2 -65.0) (DBSCA.A3 -73.0) (DBSCA.A4 -78.0) (DBSCA.A5 -79.0) ( DBSCA.A6 -80.0) (DBSCA.ANP -58.0) (DBSCA.AB -84.0) (DBSCA.AV -72.0) (DBSCA.AASPIR -102.0) (DBSCA.AFRIC -72.0) (DBSCA.ASV -44.0)) (RPAQ? DEFAULT.SLICE NIL) (RPAQ? OW.SLICE NIL) (DATATYPE PVECTOR (* Parameter Vector *) (TYPE SOUND CV COMMENT DURATION AV ASV FGP BGP FGZ BGZ BGS SWITCH AFRIC AASPIR NCF F0 A1 B1 F1 A2 B2 F2 A3 B3 F3 A4 B4 F4 A5 B5 F5 A6 B6 F6 FNZ BNZ ANP FNP BNP AB GAIN)) (RECORD TVPOINT (TIME VALUE M B)) (RECORD TVPOINT2 (TIME VALUE)) (RECORD CORRECTIONS (A2COR A3COR N12COR N23COR N34COR)) (/DECLAREDATATYPE (QUOTE PVECTOR) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER))) (SETQ PVECTOR.FIELDNAMES (CAR (NTH (RECLOOK (QUOTE PVECTOR)) 4))) (SETQ PVECTOR.PNAMES (MEMB (QUOTE AV) PVECTOR.FIELDNAMES)) NIL