(FILECREATED " 4-Aug-84 18:51:50" {ERIS}<SPEECH>USER.FPKG;15 20227
changes to: (VARS USERCOMS SPEECHBENCHICON)
previous date: "13-Jul-84 00:50:27" {ERIS}<SPEECH>USER.FPKG;14)
(* Copyright (c) 1984 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT USERCOMS)
(RPAQQ USERCOMS ((INITVARS (USER.TRAJS NIL)
(USER.WINDOW NIL)
(USER.MENU NIL)
(USER.TMIN 0)
(USER.TMAX 700)
(USER.VMIN 0)
(USER.VMAX 200)
(USER.PNAMES '(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))
(USER.DEFAULT.PVECTOR NIL)
(USER.MAX.PVECTOR NIL)
(USER.MIN.PVECTOR NIL)
[USER.COMMAND.MENU (CREATE MENU ITEMS ← '(PROMPT&ADD POINT&ADD
PROMPT&DELETE
POINT&DELETE
POINT&MOVE]
(USER.COMMAND 'ADD))
(RECORDS SP.POINT SPOINT SPOINT2)
(FNS USER.DURATION USER.CREATE.PVECTORS USER.INIT USER.CREATE.TRAJS USER.INTERPOLATE
USER.INTERPOLATE.PNAME USER.CREATE.WINDOW USER.REPAINTFN USER.BUTTONEVENTFN
USER.CREATE.MENU USER.WHENSELECTEDFN USER.EDITTRAJ USER.DRAWLINE USER.ERASELINE
USER.DRAWPOINT USER.MIDDLEBUTTONFN USER.LEFTBUTTONFN USER.PROMPT&ADD USER.ADDPOINT
USER.SETPVECTOR)
(P (LOAD? '{PHYLUM}<LISPCORE>LIBRARY>ATTACHEDWINDOW.DCOM))
(VARS DEFAULT.PVECTOR.BUFFER SPEECHBENCHICON)))
(RPAQ? USER.TRAJS NIL)
(RPAQ? USER.WINDOW NIL)
(RPAQ? USER.MENU NIL)
(RPAQ? USER.TMIN 0)
(RPAQ? USER.TMAX 700)
(RPAQ? USER.VMIN 0)
(RPAQ? USER.VMAX 200)
(RPAQ? USER.PNAMES '(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))
(RPAQ? USER.DEFAULT.PVECTOR NIL)
(RPAQ? USER.MAX.PVECTOR NIL)
(RPAQ? USER.MIN.PVECTOR NIL)
(RPAQ? USER.COMMAND.MENU (CREATE MENU ITEMS ← '(PROMPT&ADD POINT&ADD PROMPT&DELETE POINT&DELETE
POINT&MOVE)))
(RPAQ? USER.COMMAND 'ADD)
[DECLARE: EVAL@COMPILE
(RECORD SP.POINT (TIME VALUE M B))
(RECORD SPOINT (TIME VALUE M B))
(RECORD SPOINT2 (TIME VALUE))
]
(DEFINEQ
(USER.DURATION
[LAMBDA (PVECTOR) (* pkh: "30-May-84 11:35")
700])
(USER.CREATE.PVECTORS
[LAMBDA NIL (* pkh: "29-May-84 13:20")
(PROG NIL
(SETQ USER.DEFAULT.PVECTOR
(create PVECTOR
AV ← 60
ASV ← 0
AASPIR ← 0
AFRIC ← 0
F0 ← 120
FGP ← 0
BGP ← 100
FGZ ← 1500
BGZ ← 6000
FNP ← 250
BNP ← 100
FNZ ← 250
BNZ ← 100
BGS ← 200
F1 ← 680
B1 ← 90
F2 ← 1890
B2 ← 200
F3 ← 2650
B3 ← 170
F4 ← 3300
B4 ← 250
F5 ← 3850
B5 ← 200
F6 ← 4900
B6 ← 1000
A1 ← 0
ANP ← 0
A2 ← 0
A3 ← 0
A4 ← 0
A5 ← 0
A6 ← 0
AB ← 0
SWITCH ← 'CASCADE
GAIN ← 36
NCF ← 5))
(SETQ USER.MIN.PVECTOR
(create PVECTOR
AV ← 0
ASV ← 0
AASPIR ← 0
AFRIC ← 0
F0 ← 0
FGP ← 0
BGP ← 50
FGZ ← 750
BGZ ← 3000
FNP ← 125
BNP ← 50
FNZ ← 250
BNZ ← 50
BGS ← 100
F1 ← 200
B1 ← 40
F2 ← 600
B2 ← 40
F3 ← 1300
B3 ← 40
F4 ← 1650
B4 ← 125
F5 ← 1925
B5 ← 100
F6 ← 2450
B6 ← 500
A1 ← 0
ANP ← 0
A2 ← 0
A3 ← 0
A4 ← 0
A5 ← 0
A6 ← 0
AB ← 0
SWITCH ← 'CASCADE
GAIN ← 0
NCF ← 5))
(SETQ USER.MAX.PVECTOR
(create PVECTOR
AV ← 80
ASV ← 80
AASPIR ← 80
AFRIC ← 80
F0 ← 400
FGP ← 500
BGP ← 200
FGZ ← 3000
BGZ ← 12000
FNP ← 500
BNP ← 200
FNZ ← 700
BNZ ← 200
BGS ← 400
F1 ← 900
B1 ← 500
F2 ← 2400
B2 ← 500
F3 ← 3100
B3 ← 500
F4 ← 6600
B4 ← 500
F5 ← 7700
B5 ← 400
F6 ← 9800
B6 ← 2000
A1 ← 80
ANP ← 80
A2 ← 80
A3 ← 80
A4 ← 80
A5 ← 80
A6 ← 80
AB ← 80
SWITCH ← 'CASCADE
GAIN ← 100
NCF ← 5])
(USER.INIT
[LAMBDA (NEWFLG) (* pkh: " 2-Jul-84 02:11")
(PROG (MIN MAXC) (* COND ((AND NEWFLG (NEQ (EVALV
(QUOTE SCOPE.WINDOW)) (QUOTE NOBIND))
(WINDOWP USER.WINDOW)) (CLOSEW USER.WINDOW)))
(SETQ USER.WINDOW (USER.CREATE.WINDOW))
(SETQ USER.MENU (USER.CREATE.MENU))
(SCALED.WINDOW.SETUP USER.WINDOW NIL NIL NIL NIL 'USER.REPAINTFN)
(COND
((NULL USER.DEFAULT.PVECTOR)
(USER.CREATE.PVECTORS)))
(COND
((OR NEWFLG (NULL USER.TRAJS))
(SETQ USER.TRAJS (USER.CREATE.TRAJS])
(USER.CREATE.TRAJS
[LAMBDA NIL (* pkh: " 9-Jul-84 17:20")
(PROG (TRAJS VALUE)
(SETQ TRAJS (create PVECTOR))
(for PNAME in USER.PNAMES
do (SETQ VALUE (PVECTOR.GET USER.DEFAULT.PVECTOR PNAME))
(USER.SETPVECTOR PNAME (LIST (create SP.POINT
TIME ← USER.TMIN
VALUE ← VALUE)
(create SP.POINT
TIME ← USER.TMAX
VALUE ← VALUE))
TRAJS))
(RETURN TRAJS])
(USER.INTERPOLATE
[LAMBDA (SLICE TIME TRAJS) (* kbr: "16-May-84 14:08")
(* Return slice in TRAJS at TIME.
*)
(PROG NIL
(for PNAME in USER.PNAMES when [NOT (MEMB PNAME '(SWITCH NCF]
do (USER.INTERPOLATE.PNAME SLICE PNAME TIME TRAJS])
(USER.INTERPOLATE.PNAME
[LAMBDA (SLICE PNAME TIME TRAJS) (* pkh: "21-Jun-84 21:45")
(PROG (TRAJ LEFTPOINT RIGHTPOINT LTIME RTIME LVALUE RVALUE K VALUE)
(SETQ TRAJ (PVECTOR.GET TRAJS PNAME))
(for L in TRAJ as R in (CDR TRAJ) when (AND (ILEQ (fetch (SP.POINT TIME) of L)
TIME)
(IGREATERP (fetch (SP.POINT TIME) of R)
TIME))
do (SETQ LEFTPOINT L)
(SETQ RIGHTPOINT R)
(RETURN))
(SETQ LTIME (fetch (SP.POINT TIME) of LEFTPOINT))
(SETQ RTIME (fetch (SP.POINT TIME) of RIGHTPOINT))
(SETQ LVALUE (fetch (SP.POINT VALUE) of LEFTPOINT))
(SETQ RVALUE (fetch (SP.POINT VALUE) of RIGHTPOINT))
(SETQ K (FQUOTIENT (FDIFFERENCE TIME LTIME)
(FDIFFERENCE RTIME LTIME)))
(SETQ VALUE (FPLUS (FTIMES K RVALUE)
(FTIMES (FDIFFERENCE 1.0 K)
LVALUE)))
(PVECTOR.PUT SLICE PNAME VALUE])
(USER.CREATE.WINDOW
[LAMBDA NIL (* pkh: " 2-Jul-84 02:59")
(PROG (WINDOW)
(SETQ WINDOW (CREATEW (CREATEREGION 20 180 700 210)
"User Window" NIL T))
(WINDOWPROP WINDOW 'REPAINTFN 'USER.REPAINTFN)
(WINDOWPROP WINDOW 'BUTTONEVENTFN 'USER.BUTTONEVENTFN)
(* Y.SCALE.WINDOW WINDOW)
(RETURN WINDOW])
(USER.REPAINTFN
[LAMBDA (WINDOW REG) (* pkh: "12-Jul-84 23:42")
(* WINDOW = USER.WINDOW. *)
(PROG (PNAME TRAJ MIN MAX)
(COND
((NULL (WINDOWPROP WINDOW 'PNAME))
(RETURN)))
(CLEARW WINDOW)
(SETQ PNAME (WINDOWPROP WINDOW 'PNAME)) (* Print a Y-scale; or at least the min and max value of
the parameter)
(SETQ MIN (PVECTOR.GET USER.MIN.PVECTOR PNAME))
(SETQ MAX (PVECTOR.GET USER.MAX.PVECTOR PNAME))
(COND
((SETQ TRAJ (PVECTOR.GET USER.TRAJS PNAME))
(for POINT1 in TRAJ as POINT2 in (CDR TRAJ) while POINT2
do (USER.DRAWLINE POINT1 POINT2 MIN MAX))
(for POINT in TRAJ do (USER.DRAWPOINT POINT)))
(T NIL])
(USER.BUTTONEVENTFN
[LAMBDA (WINDOW) (* kbr: "16-May-84 14:09")
(TOTOPW WINDOW)
(COND
((LASTMOUSESTATE MIDDLE)
(USER.MIDDLEBUTTONFN))
((LASTMOUSESTATE LEFT)
(USER.LEFTBUTTONFN])
(USER.CREATE.MENU
[LAMBDA NIL (* pkh: " 2-Jul-84 02:09")
(PROG (MENU)
(SETQ MENU (create MENU
TITLE ← "USER MENU"
ITEMS ← USER.PNAMES
MENUCOLUMNS ← 12
WHENSELECTEDFN ← 'USER.WHENSELECTEDFN))
(ATTACHMENU MENU USER.WINDOW 'TOP 'JUSTIFY) (* This causes MENU to open. *)
(* Okey Dokey. *)
(RETURN MENU])
(USER.WHENSELECTEDFN
[LAMBDA (ITEM MENU KEY) (* kbr: "16-May-84 14:09")
(PROG NIL
(SHADEITEM ITEM MENU BLACKSHADE)
(USER.EDITTRAJ ITEM)
(SHADEITEM ITEM MENU WHITESHADE])
(USER.EDITTRAJ
[LAMBDA (PNAME) (* pkh: "29-Jun-84 17:10")
(PROG (TRAJ USER.VMIN USER.VMAX)
(SETQ USER.VMIN (PVECTOR.GET USER.MIN.PVECTOR PNAME))
(SETQ USER.VMAX (PVECTOR.GET USER.MAX.PVECTOR PNAME))
(SETQ TRAJ (PVECTOR.GET USER.TRAJS PNAME))
(WINDOWPROP USER.WINDOW 'PNAME PNAME)
(WINDOWPROP USER.WINDOW 'TRAJ TRAJ)
(COND
((EQ PNAME 'SWITCH)
(PROMPTPRINT "You have to use SETQ in LISP to change this paramater")
(RETURN)))
(REDISPLAYW USER.WINDOW)
(MOVETO 0 (IDIFFERENCE (WINDOWPROP USER.WINDOW 'HEIGHT)
6)
USER.WINDOW) (* TBW *)
(PRINT USER.VMAX USER.WINDOW)
(MOVETO 0 (WINDOWPROP USER.WINDOW 'BOTTOM.X.SCALE.OFFSET)
USER.WINDOW)
(PRINT USER.VMIN USER.WINDOW])
(USER.DRAWLINE
[LAMBDA (POINT1 POINT2 MIN MAX) (* pkh: "12-Jul-84 01:47")
(* Draw the lines that characterize the changes in the
synthesizer parameters over time)
(PROG (T1 V1 T2 V2 X1 Y1 Y2 X2 HEIGHT WIDTH BOTTOM.X.SCALE.OFFSET LEFT.Y.SCALE.OFFSET
Y.SCALE.FACTOR SPAN) (* This window has scales)
(* Don%'t write on the scale or the tics)
[SETQ BOTTOM.X.SCALE.OFFSET (IPLUS 10 (WINDOWPROP USER.WINDOW 'BOTTOM.X.SCALE.OFFSET]
(SETQ LEFT.Y.SCALE.OFFSET (WINDOWPROP USER.WINDOW 'LEFT.Y.SCALE.OFFSET))
(SETQ T1 (fetch (SP.POINT TIME) of POINT1))
(SETQ V1 (fetch (SP.POINT VALUE) of POINT1))
(SETQ T2 (fetch (SP.POINT TIME) of POINT2))
(SETQ V2 (fetch (SP.POINT VALUE) of POINT2))
(SETQ HEIGHT (WINDOWPROP USER.WINDOW 'HEIGHT))
(SETQ WIDTH (WINDOWPROP USER.WINDOW 'WIDTH))
(SETQ SPAN (IDIFFERENCE MAX MIN))
(SETQ Y.SCALE.FACTOR (FQUOTIENT (IDIFFERENCE HEIGHT BOTTOM.X.SCALE.OFFSET)
SPAN))
[SETQ X1 (FIXR (FTIMES WIDTH (FQUOTIENT (FDIFFERENCE T1 USER.TMIN)
(FDIFFERENCE USER.TMAX USER.TMIN]
[SETQ X2 (FIXR (FTIMES WIDTH (FQUOTIENT (FDIFFERENCE T2 USER.TMIN)
(FDIFFERENCE USER.TMAX USER.TMIN]
[SETQ Y1 (FIXR (FTIMES Y.SCALE.FACTOR (FDIFFERENCE V1 MIN]
[SETQ Y2 (FIXR (FTIMES Y.SCALE.FACTOR (FDIFFERENCE V2 MIN]
(DRAWLINE (IPLUS LEFT.Y.SCALE.OFFSET X1)
(IPLUS Y1 BOTTOM.X.SCALE.OFFSET)
(IPLUS LEFT.Y.SCALE.OFFSET X2)
(IPLUS Y2 BOTTOM.X.SCALE.OFFSET)
1
'PAINT USER.WINDOW])
(USER.ERASELINE
[LAMBDA (POINT1 POINT2) (* pkh: "25-May-84 15:15")
(PROG (T1 V1 T2 V2 X1 Y1 Y2 X2 HEIGHT WIDTH)
(SETQ T1 (fetch (SP.POINT TIME) of POINT1))
(SETQ V1 (fetch (SP.POINT VALUE) of POINT1))
(SETQ T2 (fetch (SP.POINT TIME) of POINT2))
(SETQ V2 (fetch (SP.POINT VALUE) of POINT2))
(SETQ HEIGHT (WINDOWPROP USER.WINDOW 'HEIGHT))
(SETQ WIDTH (WINDOWPROP USER.WINDOW 'WIDTH))
[SETQ X1 (FIXR (FTIMES WIDTH (FQUOTIENT (FDIFFERENCE T1 USER.TMIN)
(FDIFFERENCE USER.TMAX USER.TMIN]
[SETQ Y1 (FIXR (FTIMES HEIGHT (FQUOTIENT (FDIFFERENCE V1 USER.VMIN)
(FDIFFERENCE USER.VMAX USER.VMIN]
[SETQ X2 (FIXR (FTIMES WIDTH (FQUOTIENT (FDIFFERENCE T2 USER.TMIN)
(FDIFFERENCE USER.TMAX USER.TMIN]
[SETQ Y2 (FIXR (FTIMES HEIGHT (FQUOTIENT (FDIFFERENCE V2 USER.VMIN)
(FDIFFERENCE USER.VMAX USER.VMIN]
(DRAWLINE X1 Y1 X2 Y2 1 'ERASE USER.WINDOW])
(USER.DRAWPOINT
[LAMBDA (POINT) (* kbr: "16-May-84 14:09")
(PROG NIL (* TBW: Draw spot at point. *)
])
(USER.MIDDLEBUTTONFN
[LAMBDA NIL (* kbr: "16-May-84 14:09")
(PROG (COMMAND)
(SETQ COMMAND (MENU USER.COMMAND.MENU))
(COND
(COMMAND (SETQ USER.COMMAND COMMAND)
(SELECTQ USER.COMMAND
(PROMPT&ADD (USER.PROMPT&ADD))
(PROMPT&DELETE (USER.PROMPT&DELETE))
(* Wait for point. *)])
(USER.LEFTBUTTONFN
[LAMBDA NIL (* kbr: "16-May-84 14:10")
(SELECTQ USER.COMMAND
(POINT&ADD (USER.POINT&ADD))
(POINT&DELETE (USER.POINT&DELETE))
(POINT&MOVE (USER.PROMPT&MOVE))
NIL])
(USER.PROMPT&ADD
[LAMBDA NIL (* pkh: "25-May-84 15:17")
(PROG (TIME VALUE POINT)
(do (FRESHLINE PROMPTWINDOW)
(SETQ TIME (MKATOM (PROMPTFORWORD "TIME = " NIL NIL PROMPTWINDOW)))
(COND
((OR (NOT (NUMBERP TIME))
(ILESSP TIME USER.TMIN)
(IGREATERP TIME USER.TMAX))
(RETURN)))
(FRESHLINE PROMPTWINDOW)
(SETQ VALUE (MKATOM (PROMPTFORWORD "VALUE = " NIL NIL PROMPTWINDOW)))
(COND
((NOT (NUMBERP VALUE))
(RETURN)))
(SETQ POINT (create SP.POINT
TIME ← TIME
VALUE ← VALUE))
(USER.ADDPOINT POINT])
(USER.ADDPOINT
[LAMBDA (POINT) (* pkh: "28-May-84 15:47")
(PROG (TIME VALUE TRAJ N OLDPOINT RIGHTPOINT LEFTPOINT)
(SETQ TIME (fetch (SP.POINT TIME) of POINT))
(SETQ VALUE (fetch (SP.POINT VALUE) of POINT))
(SETQ TRAJ (WINDOWPROP USER.WINDOW 'TRAJ))
(COND
[(IEQP TIME USER.TMIN) (* Special case of changing the first POINT)
(USER.ERASELINE (CAR (NTH TRAJ 1))
(CAR (NTH TRAJ 2)))
(replace (SP.POINT VALUE) of (CAR (NTH TRAJ 1)) with VALUE)
(USER.DRAWLINE (CAR (NTH TRAJ 1))
(CAR (NTH TRAJ 2]
[(IEQP TIME USER.TMAX) (* Special case of changing the last POINT)
(SETQ N (LENGTH TRAJ))
(USER.ERASELINE (CAR (NTH TRAJ (SUB1 N)))
(CAR (NTH TRAJ N)))
(replace (SP.POINT VALUE) of (CAR (NTH TRAJ N)) with VALUE)
(USER.DRAWLINE (CAR (NTH TRAJ (SUB1 N)))
(CAR (NTH TRAJ N]
[[SETQ OLDPOINT (for P in TRAJ thereis (IEQP TIME (fetch (SP.POINT TIME) of P]
(* Changing points for which there already are
specifications)
(SETQ N (LENGTH (MEMB OLDPOINT TRAJ)))
(USER.ERASELINE (CAR (NTH TRAJ (SUB1 N)))
(CAR (NTH TRAJ N)))
[USER.ERASELINE (CAR (NTH TRAJ N))
(CAR (NTH TRAJ (ADD1 N]
(replace (SP.POINT VALUE) of OLDPOINT with VALUE)
(USER.DRAWLINE (CAR (NTH TRAJ (SUB1 N)))
(CAR (NTH TRAJ N)))
(USER.DRAWLINE (CAR (NTH TRAJ N))
(CAR (NTH TRAJ (ADD1 N]
(* Adding new points)
(T (for L in TRAJ as R in (CDR TRAJ) when (AND (ILESSP (fetch (SP.POINT TIME)
of L)
TIME)
(IGREATERP (fetch (SP.POINT TIME)
of R)
TIME))
do (SETQ LEFTPOINT L)
(SETQ RIGHTPOINT R)
(RETURN))
(USER.ERASELINE LEFTPOINT RIGHTPOINT)
(push (CDR (MEMB LEFTPOINT TRAJ))
POINT)
(USER.DRAWLINE LEFTPOINT POINT)
(USER.DRAWLINE POINT RIGHTPOINT])
(USER.SETPVECTOR
[LAMBDA (PNAME VALUE PVECTOR) (* pkh: " 9-Jul-84 17:22")
(SELECTQ PNAME
(GAIN (replace (PVECTOR GAIN) of PVECTOR with VALUE))
(AB (replace (PVECTOR AB) of PVECTOR with VALUE))
(BNP (replace (PVECTOR BNP) of PVECTOR with VALUE))
(FNP (replace (PVECTOR FNP) of PVECTOR with VALUE))
(ANP (replace (PVECTOR ANP) of PVECTOR with VALUE))
(BNZ (replace (PVECTOR BNZ) of PVECTOR with VALUE))
(FNZ (replace (PVECTOR FNZ) of PVECTOR with VALUE))
(F6 (replace (PVECTOR F6) of PVECTOR with VALUE))
(B6 (replace (PVECTOR B6) of PVECTOR with VALUE))
(A6 (replace (PVECTOR A6) of PVECTOR with VALUE))
(F5 (replace (PVECTOR F5) of PVECTOR with VALUE))
(B5 (replace (PVECTOR B5) of PVECTOR with VALUE))
(A5 (replace (PVECTOR A5) of PVECTOR with VALUE))
(F4 (replace (PVECTOR F4) of PVECTOR with VALUE))
(B4 (replace (PVECTOR B4) of PVECTOR with VALUE))
(A4 (replace (PVECTOR A4) of PVECTOR with VALUE))
(F3 (replace (PVECTOR F3) of PVECTOR with VALUE))
(B3 (replace (PVECTOR B3) of PVECTOR with VALUE))
(A3 (replace (PVECTOR A3) of PVECTOR with VALUE))
(F2 (replace (PVECTOR F2) of PVECTOR with VALUE))
(B2 (replace (PVECTOR B2) of PVECTOR with VALUE))
(A2 (replace (PVECTOR A2) of PVECTOR with VALUE))
(F1 (replace (PVECTOR F1) of PVECTOR with VALUE))
(AV (replace (PVECTOR AV) of PVECTOR with VALUE))
(ASV (replace (PVECTOR ASV) of PVECTOR with VALUE))
(FGP (replace (PVECTOR FGP) of PVECTOR with VALUE))
(BGP (replace (PVECTOR BGP) of PVECTOR with VALUE))
(FGZ (replace (PVECTOR FGZ) of PVECTOR with VALUE))
(BGZ (replace (PVECTOR BGZ) of PVECTOR with VALUE))
(BGS (replace (PVECTOR BGS) of PVECTOR with VALUE))
(SWITCH (replace (PVECTOR SWITCH) of PVECTOR with VALUE))
(AFRIC (replace (PVECTOR AFRIC) of PVECTOR with VALUE))
(AASPIR (replace (PVECTOR AASPIR) of PVECTOR with VALUE))
(NCF (replace (PVECTOR NCF) of PVECTOR with VALUE))
(F0 (replace (PVECTOR F0) of PVECTOR with VALUE))
(A1 (replace (PVECTOR A1) of PVECTOR with VALUE))
(B1 (replace (PVECTOR B1) of PVECTOR with VALUE))
(SHOULDNT])
)
(LOAD? '{PHYLUM}<LISPCORE>LIBRARY>ATTACHEDWINDOW.DCOM)
(RPAQQ DEFAULT.PVECTOR.BUFFER {PVECTOR}#10%,175000)
(RPAQ SPEECHBENCHICON (READBITMAP))
(25 25
"OOOOOOH@"
"H@@@@@H@"
"H@@@@@H@"
"H@@@@@H@"
"H@OOL@H@"
"H@H@B@H@"
"HAH@B@H@"
"HC@@B@H@"
"HC@GB@H@"
"HAOLJ@H@"
"HAL@B@H@"
"HACOB@H@"
"H@GOB@H@"
"HAKOJ@H@"
"HAKOJ@H@"
"H@OOJ@H@"
"H@@CJ@H@"
"H@@AB@H@"
"H@@AB@H@"
"H@@AB@H@"
"H@@AB@H@"
"H@@@B@H@"
"H@@@B@H@"
"H@@@@@H@"
"OOOOOOH@")
(PUTPROPS USER.FPKG COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
(FILEMAP (NIL (2182 19715 (USER.DURATION 2192 . 2312) (USER.CREATE.PVECTORS 2314 . 4325) (USER.INIT
4327 . 5016) (USER.CREATE.TRAJS 5018 . 5546) (USER.INTERPOLATE 5548 . 5943) (USER.INTERPOLATE.PNAME
5945 . 6973) (USER.CREATE.WINDOW 6975 . 7437) (USER.REPAINTFN 7439 . 8329) (USER.BUTTONEVENTFN 8331 .
8590) (USER.CREATE.MENU 8592 . 9094) (USER.WHENSELECTEDFN 9096 . 9348) (USER.EDITTRAJ 9350 . 10244) (
USER.DRAWLINE 10246 . 12071) (USER.ERASELINE 12073 . 13130) (USER.DRAWPOINT 13132 . 13348) (
USER.MIDDLEBUTTONFN 13350 . 13781) (USER.LEFTBUTTONFN 13783 . 14049) (USER.PROMPT&ADD 14051 . 14708) (
USER.ADDPOINT 14710 . 16996) (USER.SETPVECTOR 16998 . 19713)))))
STOP