(* ;;-*-LISP-*- KEEP EMACS HAPPY ********************************
*
*     SPEECH TEST
*
****************************************************************)

(DEFCONST PI 3.14159265)
(DEFCONST TWOPI (x$ 2.0 PI))
(DEFVAR SR 10000)
(DEFVAR NWS 50)
(DEFVAR NSAMI .02)
(DEFVAR PERIODT .0001)
(DEFVAR PIT .0003141593)
(DEFVAR TWOPIT .0006283186)

(DEFVAR F0 125)
(DEFVAR F1 625)
(DEFVAR F2 1275)
(DEFVAR F3 2500)
(DEFVAR F4 5000)
(DEFVAR B1 80)
(DEFVAR B2 70)
(DEFVAR B3 70)
(DEFVAR B4 70)
(DEFVAR PERIOD)
(DEFVAR RES1)
(DEFVAR RES2)
(DEFVAR RES3)
(DEFVAR RES4)
(DEFVAR ANTIRES1)
(DEFVAR ANTIRES2)
(DEFVAR ANTIRES3)
(DEFVAR ANTIRES4)
(DEFVAR RESS)
(DEFVAR ANTIRESS)
(DEFEXPR (TEST.INIT)
  (PROG ()
    (SETQ PERIOD (/ 10000 F0))
    (SETQ RES1 (CREATE RES))
    (SETQ RES2 (CREATE RES))
    (SETQ RES3 (CREATE RES))
    (SETQ RES4 (CREATE RES))
    (SETQ RESS (LIST RES4 RES3 RES2 RES1))
    (SETQ ANTIRES1 (CREATE RES))
    (SETQ ANTIRES2 (CREATE RES))
    (SETQ ANTIRES3 (CREATE RES))
    (SETQ ANTIRES4 (CREATE RES))
    (SETQ ANTIRESS (LIST ANTIRES1 ANTIRES2 ANTIRES3 ANTIRES4))
    (PARCOE.SET.RES RES1 F1 B1)
    (PARCOE.SET.RES RES2 F2 B2)
    (PARCOE.SET.RES RES3 F3 B3)
    (PARCOE.SET.RES RES4 F4 B4)
    (PARCOE.SET.RES ANTIRES1 (0-$ F1) B1)
    (PARCOE.SET.RES ANTIRES2 (0-$ F2) B2)
    (PARCOE.SET.RES ANTIRES3 (0-$ F3) B3)
    (PARCOE.SET.RES ANTIRES4 (0-$ F4) B4)
))


(* ****************************************************************
*
*     I/O
*
****************************************************************)

STOP