Problem creating pulse waveform LFO

Hi,

I've been trying to create a pulse-waveform LFO with duty
cycle
'duty', expressed as a percentage by the Audacity Nyquist
user:

(setf duty (* 0.01 duty))

(setq *pulse-table* 
(list (pwl 0 1 duty 1 duty -1 1 -1 1) (hz-to-step 1) t))

the plug-in I'm working on has several other waveforms,
selected by
the user. I get the following error when I select the pulse
waveform , what do I need to do? *sound-srate* is 44100, so
I don't
understand how I get the 100000 value error.

error: maximum table size (100000) exceeded - NIL
if continued: use truncated sound for table
Function: #<Subr-SND-OSC: #136fa98>
Arguments:
   #<Sound: #1e52620>
   -36.3763
   2205
   0.19981
   0
   52.9502
   0
Function: #<FSubr-LET: #1373378>
Arguments:
   ((D (GET-DURATION DURATION)))
   (IF (MINUSP D) (SETF D 0))
   (COND ((> FREQ (/ *CONTROL-SRATE* 2)) (FORMAT T
"Warning: lfo
frequency (~A hz) will alias at current control rate (~A
hz).n"
FREQ *CONTROL-SRATE*)))
   (SND-OSC (CAR SOUND) (CADR SOUND) *CONTROL-SRATE* FREQ
*RSLT* D
PHASE)
Function: #<Closure-LFO: #137a5c8>
Arguments:
   0.19981
   1
   (#<Sound: #1e52620> -36.3763 T)
   0
Function: #<Closure-GET-LFO: #13b18e8>
Arguments:
   0.2
   1
   0.6
   0.19981
   (#<Sound: #1e52620> -36.3763 T)
   0
Function: #<FSubr-IF: #13732f8>

Thanks

David

-- 
David R. Sky
http://www.shell
world.net/~davidsky/


------------------------------------------------------------
-------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
Now Search log events and configuration files using AJAX and
a browser.
Download your FREE copy of Splunk now >>  http://get.splunk.com/
_______________________________________________
Audacity-nyquist mailing list
Audacity-nyquistlists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/audaci
ty-nyquist