try to get this text to show up on dialog

Audacity Help Forum Windows
1

ok i am learning here about nyquist. so please barrie with me. i am trying to get this 'text" dialog on gui to show up and to generate sound can you see where i when wrong?


;nyquist plug-in
;version 3
;type process
;categories "http://lv2plug.in/ns/lv2core/#DistortionPlugin"
;name "Harmonic Enhancer..."
;action "Adding Harmonics overatonements..."


;; overatonesments enhancer.ny by curtisfullmvaya ry
;; Version 1.0
;; Released under terms of the GNU General Public License version 2
;; http://www.gnu.org/licenses/gpl-2.0.html

;control freq "overatones Enhancer Crossover Frequency" int "Hz" 3200 2000 4500
;control overatones drive "Enhancer Drive" int "dB" 0 -10 10
;control mode "overatones Harmonic Generator Mode" choice "Even order,Odd order,both" 0
;control text "reiki overatones harmonic enchants "ommm" generator" int "text" 
;control th_ng "overatones Enhancer Noise Gate Threshold" int "dB" -28 -40 -16
;control effmix "overatones Enhancer Mix Level" int "dB" -10 -26 6
;control output "Output" choice "Mix (Normal),Effect Only,overatonesments,Effect Level" 0

(setq freq (max (min freq (/ *sound-srate* 4)) 20));; limit freq selection

(setf limit 0.20);; this is the max positive limiting value

(setf lim1 (* -1 limit))
(setf ratio1 (/ lim1))
(if (= mode 0)
    (setf lim2 (* lim1 -11))
    (setf lim2 (* lim1 -1.1)))
(setf ratio2 (/ lim2))

(setf fcomp (* freq 0.93));overatones crossover compensation eq
(setf gcomp (max 0 (/ (+ drive effmix 16) 5.2)))
(setf wcomp 0.81)

(setf fc_ng (* freq 0.125)); overatones noise gate parameters
(setf trise 0.005)
(setf tfall 0.425)
(setf lookah (+ trise tfall)); must be (tf+tr) or higher for correct operation
(setf floor (db-to-linear -26))

; modified 1-pole highpass (due to gain loss at mid to high frequencies)
(defun hp1 (x fc)
  (if (< fc 493) (hp x fc)
      (if (< fc 2375)
          (scale-db (- (log fc) 6.2) (hp x fc))
          (scale-db (- (* (log fc) 2) 13.97) (hp x fc)))))

; sidechain filter function, 3rd order butterworth
(defun sidechain (sig gain fc)
  (highpass2 
    (hp1 
      (scale-db gain
        (eq-highshelf sig (/ *sound-srate* 3.1) -4 1.0))
      (* fc 1.07))
    (* fc 1.0) 1.06))

; the actual soft clipping limiter (similar to a diode limiter)
(defun enhance (sig)
  (let* ((top (mult ratio1 (s-max sig 0))); scaled positive peaks
          (bottom (sum (mult ratio2 (s-min sig 0))))); scaled neg peaks
    (sim
      (scale lim1 (sum (s-exp top) -1))
      (scale lim2 (sum (s-exp bottom) -1)))))

; enhancer noise gate, for stereo in apply in mono to preserve stereo image
(defun noisegate (sig thres fsig_hp)
  (if (arrayp s)
      (gate (hp (scale-db drive (sum (aref sig 0) (aref sig 1))) fsig_hp)
        lookah trise tfall floor (* (db-to-linear thres) 2))
      (gate (hp (scale-db drive s) fsig_hp)
        lookah trise tfall floor (db-to-linear thres))))

(case output
  (0  (eq-band 
        (sim s
          (scale-db (+ effmix 0.13)
            (hp1 (mult (multichan-expand #'overatones-enhance (sidechain s drive freq))
                       (noisegate s th_ng fc_ng))
              (/ freq 10))))
        fcomp gcomp wcomp))
  (1  (mult (multichan-expand #'ovatones-enhance (sidechain s drive freq))
            (noisegate s th_ng fc_ng)))
  (2  (scale (/ 0.501 limit) ; 8dB gain at lim=0.2
        (mult (sidechain s drive freq)
              (noisegate s th_ng fc_ng)))))
2

If you run the effect with the “Debug” button, you will see the first error:

error: unbound variable - DRIVE
if continued: try evaluating symbol again
Function: #<FSubr-SETF: #55560adce8e0>
Arguments:
GCOMP
(MAX 0 (/ (+ DRIVE EFFMIX 16) 5.2))
1> 0.81
1> 400
1> 0.005

The variable “DRIVE” is used several times. The first time is here:

(setf gcomp (max 0 (/ (+ drive effmix 16) 5.2)))

but the value of DRIVE has not been set, so it is an unknown (“unbound”) symbol.

I assume that you intended to set the value of DRIVE here:

;control overatones drive "Enhancer Drive" int "dB" 0 -10 10

The correct format for an integer slider is:

;control variable "Left Text" int "Right Text" default minimum maximum

So I think what you meant to write was:

;control drive "Enhancer Drive" int "dB" 0 -10 10

The next error is this control:

;control text "reiki overatones harmonic enchants "ommm" generator" int "text"

I don’t know what your intention is there, but perhaps this will help: https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference#widgets

3

i am trying to file import to generatte sound. do i have this correct? am i missing some thing to file import to generate? i am learning here.

;nyquist plug-in
;version 3
;type process
;categories "http://lv2plug.in/ns/lv2core/#DistortionPlugin"
;name "Harmonic Enhancer..."
;action "Adding Harmonics overatonements..."
;info " By Jvo Studer <jvo@gmx.ch>. GPL v2.\n\n Adds high frequency harmonics to brighten up dull recordings."

;; overatonesments enhancer.ny vby curtisfullmvaya ry
;; Version 1.0
;; Released under terms of the GNU General Public License version 2
;; http://www.gnu.org/licenses/gpl-2.0.html

;control freq "Enhancer creator Crossover Frequency" int "Hz" 3200 2000 4500
;control overatones drive "overatonements Enhancer Drive" int "dB" 0 -10 10
;control mode "overatones Harmonic Generator Mode" choice "Even order,Odd order,both" 0
;control filename  "generate sound" file "" "" "" open
;control th_ng "overatones Enhancer Noise Gate Threshold" int "dB" -28 -40 -16
;control effmix "overatones Enhancer Mix Level" int "dB" -10 -26 6
;control output "Output" choice "Mix (Normal),Effect Only,overatonesments,create,hieghten,Effect Level" 0

(setq freq (max (min freq (/ *sound-srate* 4)) 20));; limit freq selection

(setf limit 0.20);; this is the max positive limiting value

(setf lim1 (* -1 limit))
(setf ratio1 (/ lim1))
(if (= mode 0)
    (setf lim2 (* lim1 -11))
    (setf lim2 (* lim1 -1.1)))
(setf ratio2 (/ lim2))

(setf fcomp (* freq 0.93));overatones crossover compensation eq
(setf gcomp (max 0 (/ (+ drive effmix hieghten create  overatones 16) 5.2)))
(setf wcomp 0.81)

(setf fc_ng (* freq 0.125)); overatones noise gate parameters
(setf trise 0.005)
(setf tfall 0.425)
(setf lookah (+ trise tfall)); must be (tf+tr) or higher for correct operation
(setf floor (db-to-linear -26))

; modified 1-pole highpass (due to gain loss at mid to high frequencies)
(defun hp1 (x fc)
  (if (< fc 493) (hp x fc)
      (if (< fc 2375)
          (scale-db (- (log fc) 6.2) (hp x fc))
          (scale-db (- (* (log fc) 2) 13.97) (hp x fc)))))


; sidechain filter function, 3rd order butterworth
(defun sidechain (sig gain fc)
  (highpass2 
    (hp1 
      (scale-db gain
        (eq-highshelf sig (/ *sound-srate* 3.1) -4 1.0))
      (* fc 1.07))
    (* fc 1.0) 1.06))

; the actual soft clipping limiter (similar to a diode limiter)
(defun enhance (sig)
  (let* ((top (mult ratio1 (s-max sig 0))); scaled positive peaks
          (bottom (sum (mult ratio2 (s-min sig 0))))); scaled neg peaks
    (sim
      (scale lim1 (sum (s-exp top) -1))
      (scale lim2 (sum (s-exp bottom) -1)))))

; enhancer noise gate, for stereo in apply in mono to preserve stereo image
(defun noisegate (sig thres fsig_hp)
  (if (arrayp s)
      (gate (hp (scale-db drive (sum (aref sig 0) (aref sig 1))) fsig_hp)
        lookah trise tfall floor (* (db-to-linear thres) 2))
      (gate (hp (scale-db drive s) fsig_hp)
        lookah trise tfall floor (db-to-linear thres))))

(case output
  (0  (eq-band 
        (sim s
          (scale-db (+ effmix 0.13)
            (hp1 (mult (multichan-expand #'overatones-enhance (sidechain s drive freq))
                       (noisegate s th_ng fc_ng))
              (/ freq 10))))
        fcomp gcomp wcomp))
  (1  (mult (multichan-expand #'ovatones-enhance (sidechain s drive freq))
            (noisegate s th_ng fc_ng)))
  (2  (scale (/ 0.501 limit) ; 8dB gain at lim=0.2
        (mult (sidechain s drive freq)
              (noisegate s th_ng fc_ng)))))
4

which order do i need to do in this part of the code for file import to generate the sound:


which string and float to generate the sound or music in generator plugins for nyquist from the filename.txt?

;nyquist plug-in
;version 3
;type process
;categories "http://lv2plug.in/ns/lv2core/#DistortionPlugin"
;name "Harmonic Enhancer..."
;action "text to music generator..."
;info " By Jvo Studer <jvo@gmx.ch>. GPL v2.\n\n Adds high frequency harmonics to brighten up dull recordings."

;; overatonesments enhancer.ny vby curtisfullmvaya ry
;; Version 1.0
;; Released under terms of the GNU General Public License version 2
;; http://www.gnu.org/licenses/gpl-2.0.html

;control atonements "Enhancer creator atonements" int "Hz" 3200 2000 4500
;control generate "overatonements Enhancer generate" int "dB" 0 -10 10
;control mode "overatones Harmonic Generator Mode" choice "Even order,Odd order,both" 0
;control filename  "generate music" file "" "" "" open
;control th_ng "overatones Enhancer Noise Gate Threshold" int "dB" -28 -40 -16
;control effmix "overatones Enhancer Mix Level" int "dB" -10 -26 6
;control output "Output" choice "Mix (Normal),Effect Only,overatonesments,create,hieghten,Effect Level" 0

(setq freq (max (min freq (/ *sound-srate* 4)) 20));; limit freq selection

(setf limit 0.20);; this is the max positive limiting value

(setf lim1 (* -1 limit))
(setf ratio1 (/ lim1))
(if (= mode 0)
    (setf lim2 (* lim1 -11))
    (setf lim2 (* lim1 -1.1)))
(setf ratio2 (/ lim2))

(setf fcomp (* freq 0.93));overatones crossover compensation eq
(setf gcomp (max 0 (/ (+ drive effmix hieghten create  overatones 16) 5.2)))
(setf wcomp 0.81)

(setf fc_ng (* freq 0.125)); overatones noise gate parameters
(setf trise 0.005)
(setf tfall 0.425)
(setf lookah (+ trise tfall)); must be (tf+tr) or higher for correct operation
(setf floor (db-to-linear -26))

; modified 1-pole highpass (due to gain loss at mid to high frequencies)
(defun hp1 (x fc)
  (if (< fc 493) (hp x fc)
      (if (< fc 2375)
          (scale-db (- (log fc) 6.2) (hp x fc))
          (scale-db (- (* (log fc) 2) 13.97) (hp x fc)))))


; sidechain filter function, 3rd order butterworth
(defun sidechain (sig gain fc)
  (highpass2 
    (hp1 
      (scale-db gain
        (eq-highshelf sig (/ *sound-srate* 3.1) -4 1.0))
      (* fc 1.07))
    (* fc 1.0) 1.06))

; the actual soft clipping limiter (similar to a diode limiter)
(defun enhance (sig)
  (let* ((top (mult ratio1 (s-max sig 0))); scaled positive peaks
          (bottom (sum (mult ratio2 (s-min sig 0))))); scaled neg peaks
    (sim
      (scale lim1 (sum (s-exp top) -1))
      (scale lim2 (sum (s-exp bottom) -1)))))

; enhancer noise gate, for stereo in apply in mono to preserve stereo image
(defun noisegate (sig thres fsig_hp)
  (if (arrayp s)
      (gate (hp (scale-db drive (sum (aref sig 0) (aref sig 1))) fsig_hp)
        lookah trise tfall floor (* (db-to-linear thres) 2))
      (gate (hp (scale-db drive s) fsig_hp)
        lookah trise tfall floor (db-to-linear thres))))

(case output
  (0  (eq-band 
        (sim s
          (scale-db (+ effmix 0.13)
            (hp1 (mult (multichan-expand #'overatones-enhance (sidechain s drive freq))
                       (noisegate s th_ng fc_ng))
              (/ freq 10))))
        fcomp gcomp wcomp))
  (1  (mult (multichan-expand #'ovatones-enhance (sidechain s drive freq))
            (noisegate s th_ng fc_ng)))
  (2  (scale (/ 0.501 limit) ; 8dB gain at lim=0.2
        (mult (sidechain s drive freq)
              (noisegate s th_ng fc_ng)))))
5

will this work or do i have errors?


;nyquist plug-in
;version 3
;type process
;categories "http://lv2plug.in/ns/lv2core/#DistortionPlugin"
;name "text to music..."
;action "text to music generator..."


;; text to music.ny by curtisfullmvaya ry
;; Version 1.0
;; Released under terms of the GNU General Public License version 2
;; http://www.gnu.org/licenses/gpl-2.0.html

;control atonements "Enhancer creator atonements" int "Hz" 3200 2000 4500
;control generate "overatonements Enhancer generate" 'choice crystal diamond xylphone"
;control mode "overatones Harmonic Generator Mode" choice "Even order,Odd order,both" 0
;control filename  "generate music" file "" "" "" open
;control conv "convert file-text" convfile "mp3" "file-text" "conv" 0 
;control th_ng "overatones Enhancer Noise Gate Threshold" int "dB" -28 -40 -16
;control effmix "overatones Enhancer Mix Level" int "dB" -10 -26 6
;control output "Output" choice "Mix (Normal),Effect Only,overatonesments,create,hieghten,generate music 
Effect,Effect Level" 0

(setq freq (max (min freq (/ *sound-srate* 4)) 20));; limit freq selection

(setf limit 0.20);; this is the max positive limiting value

(setf lim1 (* -1 limit))
(setf ratio1 (/ lim1))
(if (= mode 0)
    (setf lim2 (* lim1 -11))
    (setf lim2 (* lim1 -1.1)))
(setf ratio2 (/ lim2))

(setf fcomp (* freq 0.93));generate music compensation eq
q(setf gcomp (max 0 (/ (+ generate+crystalline+diamond+xylphone+music 16) 5.2)))
(setf wcomp 0.81)

(setf fc_ng (* freq 0.125)); overatones noise gate parameters
(setf trise 0.005)
(setf tfall 0.425)
(setf lookah (+ trise tfall)); must be (tf+tr) or higher for correct operation
(setf floor (db-to-linear -26))

; modified 1-pole highpass (due to gain loss at mid to high frequencies)
(defun hp1 (x fc)
  (if (< fc 493) (hp x fc)
      (if (< fc 2375)
          (scale-db (- (log fc) 6.2) (hp x fc))
          (scale-db (- (* (log fc) 2) 13.97) (hp x fc)))))


; sidechain filter function, 3rd order butterworth
(defun sidechain (sig gain fc)
  (highpass2 
    (hp1 
      (scale-db gain
        (eq-highshelf sig (/ *sound-srate* 3.1) -4 1.0))
      (* fc 1.07))
    (* fc 1.0) 1.06))

; the actual soft clipping limiter (similar to a diode limiter)
(defun text to music generator (sig)
  (let* ((top (mult ratio1 (s-max sig 0))); scaled positive peaks
          (bottom (sum (mult ratio2 (s-min sig 0))))); scaled neg peaks
    (sim
      (scale lim1 (sum (s-exp top) -1))
      (scale lim2 (sum (s-exp bottom) -1)))))

; enhancer noise gate, for stereo in apply in mono to preserve stereo image
(defun noisegate (sig thres fsig_hp)
  (if (arrayp s)
      (gate (hp (scale-db generate music (sum (aref sig 0) (aref sig 1))) fsig_hp)
        lookah trise tfall floor (* (db-to-linear thres) 2))
      (gate (hp (scale-db generate music s) fsig_hp)
        lookah trise tfall floor (db-to-linear thres))))

(case output
  (0  (eq-band
        (sim s
          (scale-db (+ effmix,overatonements, generate+crystalline=diamond=xylphone 0.13)
            (hp1 (mult (multichan-expand #'overatones-enhance (sidechain s drive freq))
                       (noisegate s th_ng fc_ng))
              (/ freq 10))))
        fcomp gcomp wcomp))
  (1  (mult (multichan-expand #overatonements,create,hieghten,Generate=crystalline=diamond=xylphone (sidechain s GENERATE MUSIC freq))
            (noisegate s th_ng fc_ng)))
  (2  (scale (/ 0.501 limit) ; 8dB gain at lim=0.2
        (mult (sidechain s drive freq)
              (noisegate s th_ng fc_ng))))
6

Ok i’ve add some more line of code here is there error?

which line to add for female and male voice and lightl language and back up singer to line of code?

;nyquist plug-in
;version 3
;type process
;categories "http://lv2plug.in/ns/lv2core/#DistortionPlugin"
;name "text to music..."
;action "text to music generator..."


;; text to music.ny by curtisfullmvaya ry
;; Version 1.0
;; Released under terms of the GNU General Public License version 2
;; http://www.gnu.org/licenses/gpl-2.0.html

;control atonements "Enhancer creator atonements" int "Hz" 3200 2000 4500
;control generate "overatonements Enhancer generate" 'choice crystal diamond xylphone"
;control mode "overatones Harmonic Generator Mode" choice "Even order,Odd order,both" 0
;control filename  "generate music" file "" "" "" open
;control singer "generate singer" choice "male singer,female singer,universal light language chanter,none" 0
;control lightchanter "generate light language chanter" choice backup light chanter "male chanter ght language,female light language chanter" 0
;control lightlanguage "generate light language" choice "pleadian,unviversal,artrian,avon,starseed" ""
;control conv "convert file-text" convfile "mp3" "file-text" "conv" 0 
;control th_ng "overatones Enhancer Noise Gate Threshold" int "dB" -28 -40 -16
;control effmix "overatones Enhancer Mix Level" int "dB" -10 -26 6
;control output "Output" choice "Mix (Normal),Effect Only,overatonesments,create,hieghten,generate music 
Effect,Effect Level" 0

(setq freq (max (min freq (/ *sound-srate* 4)) 20));; limit freq selection

(setf limit 0.20);; this is the max positive limiting value

(setf lim1 (* -1 limit))
(setf ratio1 (/ lim1))
(if (= mode 0)
    (setf lim2 (* lim1 -11))
    (setf lim2 (* lim1 -1.1)))
(setf ratio2 (/ lim2))

(setf fcomp (* freq 0.93));generate music compensation eq
q(setf gcomp (max 0 (/ (+ generate+crystalline+diamond+xylphone+music 16) 5.2)))
(setf wcomp 0.81)

(setf fc_ng (* freq 0.125)); overatones noise gate parameters
(setf trise 0.005)
(setf tfall 0.425)
(setf lookah (+ trise tfall)); must be (tf+tr) or higher for correct operation
(setf floor (db-to-linear -26))

; modified 1-pole highpass (due to gain loss at mid to high frequencies)
(defun hp1 (x fc)
  (if (< fc 493) (hp x fc)
      (if (< fc 2375)
          (scale-db (- (log fc) 6.2) (hp x fc))
          (scale-db (- (* (log fc) 2) 13.97) (hp x fc)))))


; sidechain filter function, 3rd order butterworth
(defun sidechain (sig gain fc)
  (highpass2 
    (hp1 
      (scale-db gain
        (eq-highshelf sig (/ *sound-srate* 3.1) -4 1.0))
      (* fc 1.07))
    (* fc 1.0) 1.06))

; the actual soft clipping limiter (similar to a diode limiter)
(defun text to music generator (sig)
  (let* ((top (mult ratio1 (s-max sig 0))); scaled positive peaks
          (bottom (sum (mult ratio2 (s-min sig 0))))); scaled neg peaks
    (sim
      (scale lim1 (sum (s-exp top) -1))
      (scale lim2 (sum (s-exp bottom) -1)))))

; enhancer noise gate, for stereo in apply in mono to preserve stereo image
(defun noisegate (sig thres fsig_hp)
  (if (arrayp s)
      (gate (hp (scale-db generate music (sum (aref sig 0) (aref sig 1))) fsig_hp)
        lookah trise tfall floor (* (db-to-linear thres) 2))
      (gate (hp (scale-db generate music s) fsig_hp)
        lookah trise tfall floor (db-to-linear thres))))

(case output
  (0  (eq-band
        (sim s
          (scale-db (+ effmix,overatonements, generate+crystalline=diamond=xylphone 0.13)
            (hp1 (mult (multichan-expand #'overatones-enhance (sidechain s drive freq))
                       (noisegate s th_ng fc_ng))
              (/ freq 10))))
        fcomp gcomp wcomp))
  (1  (mult (multichan-expand #overatonements,create,hieghten,Generate=crystalline=diamond=xylphone (sidechain s GENERATE MUSIC freq))
            (noisegate s th_ng fc_ng)))
  (2  (scale (/ 0.501 limit) ; 8dB gain at lim=0.2
        (mult (sidechain s drive freq)
              (noisegate s th_ng fc_ng))))
7

i added the singers the chanters and light language to pick and color picker to add the colors to list them to choice from i also created file for generating the msuic. i got any error and the controls are not showing up.


;nyquist plug-in
;version 3
;type process
;categories "http://lv2plug.in/ns/lv2core/#DistortionPlugin";
;name "text to music..."
;action "text to music generator..."


;; text to music.ny by curtisfullmvaya ry
;; Version 1.0
;; Released under terms of the GNU General Public License version 2
;; http://www.gnu.org/licenses/gpl-2.0.html

;control atonements "Enhancer creator atonements" int "Hz" 3200 2000 4500
;control generate "overatonements Enhancer generate" 'choice crystal diamond xylphone"
;control mode "overatones Harmonic Generator Mode" choice "Even order,Odd order,both" 0
;control filename  "generate music" file "" "" "" open
;control singer "generate singer" choice "male singer,female singer,universal light language chanter,none" 0
;control lightchanter "generate light language chanter" choice backup light chanter "male chanter ght language,female light language chanter" 0
;control lightlanguage "generate light language" choice "pleadian,unviversal,artrian,avon,starseed" ""
;control pick-colors "add color widget button" choice "" "" "" color picker
;control conv "convert file-text" convfile "mp3" "file-text" "conv" 0 
;control th_ng "overatones Enhancer Noise Gate Threshold" int "dB" -28 -40 -16
;control effmix "overatones Enhancer Mix Level" int "dB" -10 -26 6
;control output "Output" choice "Mix (Normal),Effect Only,overatonesments,create,hieghten,generate music 
Effect,Effect Level" 0

(setq freq (max (min freq (/ *sound-srate* 4)) 20));; limit freq selection

(setf limit 0.20);; this is the max positive limiting value

(setf lim1 (* -1 limit))
(setf ratio1 (/ lim1))
(if (= mode 0)
    (setf lim2 (* lim1 -11))
    (setf lim2 (* lim1 -1.1)))
(setf ratio2 (/ lim2))

(setf fcomp (* freq 0.93));generate music compensation eq
q(setf gcomp (max 0 (/ (+ generate+crystalline+diamond+xylphone+music 16) 5.2)))
(setf wcomp 0.81)

(setf fc_ng (* freq 0.125)); overatones noise gate parameters
(setf trise 0.005)
(setf tfall 0.425)
(setf lookah (+ trise tfall)); must be (tf+tr) or higher for correct operation
(setf floor (db-to-linear -26))

; modified 1-pole highpass (due to gain loss at mid to high frequencies)
(defun hp1 (x fc)
  (if (< fc 493) (hp x fc)
      (if (< fc 2375)
          (scale-db (- (log fc) 6.2) (hp x fc))
          (scale-db (- (* (log fc) 2) 13.97) (hp x fc)))))


; sidechain filter function, 3rd order butterworth
(defun sidechain (sig gain fc)
  (highpass2 
    (hp1 
      (scale-db gain
        (eq-highshelf sig (/ *sound-srate* 3.1) -4 1.0))
      (* fc 1.07))
    (* fc 1.0) 1.06))

; the actual soft clipping limiter (similar to a diode limiter)
(defun text to music generator (sig)
  (let* ((top (mult ratio1 (s-max sig 0))); scaled positive peaks
          (bottom (sum (mult ratio2 (s-min sig 0))))); scaled neg peaks
    (sim
      (scale lim1 (sum (s-exp top) -1))
      (scale lim2 (sum (s-exp bottom) -1)))))

; enhancer noise gate, for stereo in apply in mono to preserve stereo image
(defun noisegate (sig thres fsig_hp)
  (if (arrayp s)
      (gate (hp (scale-db generate music (sum (aref sig 0) (aref sig 1))) fsig_hp)
        lookah trise tfall floor (* (db-to-linear thres) 2))
      (gate (hp (scale-db generate music s) fsig_hp)
        lookah trise tfall floor (db-to-linear thres))))

(case output
  (0  (eq-band
        (sim s
          (scale-db (+ effmix,overatonements, generate+crystalline=diamond=xylphone 0.13)
            (hp1 (mult (multichan-expand #'overatones-enhance (sidechain s drive freq))
                       (noisegate s th_ng fc_ng))
              (/ freq 10))))
        fcomp gcomp wcomp))
  (1  (mult (multichan-expand #overatonements,create,hieghten,Generate=crystalline=diamond=xylphone (sidechain s GENERATE MUSIC freq))
            (noisegate s th_ng fc_ng)))
  (2  (scale (/ 0.501 limit) ; 8dB gain at lim=0.2
        (mult (sidechain s drive freq)
              (noisegate s th_ng fc_ng))))
8

this far as i got on this i don’t know what reture sytax means. i having trouble here please help.


;nyquist plug-in
;version 3
;type process
;categories “http://lv2plug.in/ns/lv2core/#DistortionPlugin”;
;name “text to music…”
;action “text to music generator…”


;; text to music.ny by curtisfullmvaya ry
;; Version 1.0
;; Released under terms of the GNU General Public License version 2
;; http://www.gnu.org/licenses/gpl-2.0.html

;control atonements “Enhancer creator atonements” int “Hz” 3200 2000 4500
;control generate “text to music generator” 'choice crystal diamond xylphone"
;control mode “overatones Harmonic Generator Mode” choice “Even order,Odd order,both eve and odd”
;control filename “generate music” file “” “” “” open
;control singer “generate singer” choice “male singer,female singer,universal light language chanter,none” 0
;control lightchanter “generate light language chanter” choice backup light chanter “male chanter ght language,female light language chanter”
;control lightlanguage “generate light language” choice “pleadian,unviversal,artrian,avon,starseed” “”
;control pick-colors “add color widget button” choice “” “” “” color picker
;control conv “convert file-text” convfile “mp3” “file-text” “conv” 0
;control th_ng “overatones Enhancer Noise Gate Threshold” int “dB” -28 -40 -16
;control effmix “overatones Enhancer Mix Level” int “dB” -10 -26 6
;control output “Output” choice “Mix (Normal),Effect Only,overatonesments,create,hieghten,generate music,Effect Level” 0

(setq freq (max (min freq (/ sound-srate 4)) 20));; limit freq selection

(setf limit 0.20);; this is the max positive limiting value

(setf lim1 (* -1 limit))
(setf ratio1 (/ lim1))
(if (= mode 0)
(setf lim2 (* lim1 -11))
(setf lim2 (* lim1 -1.1)))
(setf ratio2 (/ lim2))

(setf fcomp (* freq 0.93));text to music generator compensation eq
q(setf gcomp (max 0 (/ (+ text to music generator crystalline diamond xylphone+music 16) 5.2)))
(setf wcomp 0.81)

(setf fc_ng (* freq 0.125)); overatones noise gate parameters
(setf trise 0.005)
(setf tfall 0.425)
(setf lookah (+ trise tfall)); must be (tf+tr) or higher for correct operation
(setf floor (db-to-linear -26))

; modified 1-pole highpass (due to gain loss at mid to high frequencies)
(defun hp1 (x fc)
(if (< fc 493) (hp x fc)
(if (< fc 2375)
(scale-db (- (log fc) 6.2) (hp x fc))
(scale-db (- (* (log fc) 2) 13.97) (hp x fc)))))


; sidechain filter function, 3rd order butterworth
(defun sidechain (sig gain fc)
(highpass2
(hp1
(scale-db gain
(eq-highshelf sig (/ sound-srate 3.1) -4 1.0))
(* fc 1.07))
(* fc 1.0) 1.06))

; the actual soft clipping limiter (similar to a diode limiter)
(defun text to music generator (sig)
(let* ((top (mult ratio1 (s-max sig 0))); scaled positive peaks
(bottom (sum (mult ratio2 (s-min sig 0))))); scaled neg peaks
(sim
(scale lim1 (sum (s-exp top) -1))
(scale lim2 (sum (s-exp bottom) -1)))))

; filename to stereo in apply in mono to preserve stereo image
(defun noisegate (sig thres fsig_hp)
(if (arrayp s)
(gate (hp (scale-db generate music (sum (aref sig 0) (aref sig 1))) fsig_hp)
lookah trise tfall floor (* (db-to-linear thres) 2))
(gate (hp (scale-db generate music s) fsig_hp)
lookah trise tfall floor (db-to-linear thres))))

(case output
(0 (eq-band
(sim s
(scale-db (+ effmix,overatonements, generate+crystalline=diamond=xylphone 0.13)
(hp1 (mult (multichan-expand #'overatones-enhance (sidechain s drive freq))
(noisegate s th_ng fc_ng))
(/ freq 10))))
fcomp gcomp wcomp))
(1 (mult (multichan-expand #overatonements,create,hieghten,Generate=crystalline=diamond=xylphone (sidechain s GENERATE MUSIC freq))
(noisegate s th_ng fc_ng)))
(2 (scale (/ 0.501 limit) ; 8dB gain at lim=0.2
(mult (sidechain s text to music generator freq)
(noisegate s th_ng fc_ng))))

9

I don’t understand what you mean.

I assume that you want to somehow convert text into sound, but most of the code that you posted appears to unrelated to that task.
Perhaps you could explain in more detail what you are trying to do, and what the code is intended to do.

10

yes steve that i am trying to do. i need little more detail. i need away to call for nyquist to call this;

color picker:
https://images.search.yahoo.com/yhs/search;_ylt=AwrXkeWazyFg6A8AXRkPxQt.;_ylu=Y29sbwNncTEEcG9zAzEEdnRpZAMEc2VjA3BpdnM-?p=color+picker+widget&type=gsp_cryptosearch_00_00&param1=1&param2=cat%3Dweb%26sesid%3D2bf1d5202b576fae80ef070fe6568b2a%26ip%3D172.100.185.94%26b%3DChrome%26bv%3D87.0.4280.88%26os%3DWindows-10%26os_ver%3D10.0%26pa%3Dgencoll19%26sid%3D596fdc1c522761e280a6ca099af531b5%26abid%3D%26abg%3D%26a%3Dgsp_cryptosearch_00_00%26sdk_ver%3D%26cd%3D%26cr%3D%26uid%3D%26uref%3D&hsimp=yhs-016&hspart=dcola&ei=UTF-8&fr=yhs-dcola-016#id=1&iurl=https%3A%2F%2Fi0.wp.com%2Fwww.titanui.com%2Fwp-content%2Fuploads%2F2013%2F06%2F28%2FFlat-Color-Picker-Widget-PSD.jpg%3Ffit%3D633%252C535%26ssl%3D1&action=click

11

Nyquist can’t do that.

12

also steve heres some you might like try this web site: https://melobytes.com/en/app/melobytes it text to music web site but only in html or xml

13

ok i am have diffeculty with pick my colors for atonesments. how do i that?


;nyquist plug-in
;version 3
;type process
;categories "http://lv2plug.in/ns/lv2core/#DistortionPlugin"
;name "text to music..."
;action "generate text to music..."
;info " By curtisfullmvgaya. GPL v2.\n\n generates text to music with sing and chanting and light language."
;; generator.ny by curtisfullmvgay, March 2011
;; Version 1.0
;; Released under terms of the GNU General Public License version 2
;; http://www.gnu.org/licenses/gpl-2.0.html

;control freq "generate Crossover Frequency" int "Hz" 3200 2000 4500
;control mode "voice generator" choice "male,female voice" 0 -10 10
;control mode "back ground voice voice generator" choice "male,female voice" 0
;control mode "Harmonic Generator Mode" choice "Even order,Odd order" 0
;control mode "select color button widget" select-colors "blue,red,yellow,all"  select
;control filename "text to music geneerator" file "" open
;control th_ng "generate Noise Gate Threshold" int "dB" -28 -40 -16
;control effmix "generate Mix Level" int "dB" -10 -26 6
;control output "Output" choice "Mix (Normal),Effect Only,Effect Level" 0

(setq freq (max (min freq (/ *sound-srate* 4)) 20));; limit freq selection

(setf limit 0.20);; this is the max positive limiting value
(setf lim1 (* -1 limit))
(setf ratio1 (/ 
(if (= select-colors: rainbow, mode 0)
    (setf lim2 (* lim1 -11))
    (setf lim2 (* lim1 -1.1)))
(setf ratio2 (/ lim2))

(setf fcomp (* freq 0.93)); generate crossover compensation eq
(setf gcomp (max 0 (/ (+ voice effmix 16) 5.2)))
(setf wcomp 0.81)

(setf fc_ng (* freq 0.125)); noise gate parameters
(setf trise 0.005)
(setf tfall 0.425)
(setf lookah (+ trise tfall)); must be (tf+tr) or higher for correct operation
(setf floor (db-to-linear -26))

; modified 1-pole highpass (due to gain loss at mid to high frequencies)
(defun hp1 (x fc)
  (if (< fc 493) (hp x fc)
      (if (< fc 2375)
          (scale-db (- (log fc) 6.2) (hp x fc))
          (scale-db (- (* (log fc) 2) 13.97) (hp x fc)))))

; sidechain filter function, 3rd order butterworth
(defun sidechain (sig gain fc)
  (highpass2 
    (hp1 
      (scale-db gain
        (eq-highshelf sig (/ *sound-srate* 3.1) -4 1.0))
      (* fc 1.07))
    (* fc 1.0) 1.06))

; the actual soft clipping limiter (similar to a diode limiter)
(defun voice (sig)
  (let* ((top (mult ratio1 (s-max sig 0))); scaled positive peaks
          (bottom (sum (mult ratio2 (s-min sig 0))))); scaled neg peaks
    (sim
      (scale lim1 (sum (s-exp top) -1))
      (scale lim2 (sum (s-exp bottom) -1)))))

; generate noise gate, for stereo in apply in mono to preserve stereo image
(defun noisegate (sig thres fsig_hp)
  (if (arrayp s)
      (gate (hp (scale-db voice (sum (aref sig 0) (aref sig 1))) fsig_hp)
        lookah trise tfall floor (* (db-to-linear thres) 2))
      (gate (hp (scale-db voice s) fsig_hp)
        lookah trise tfall floor (db-to-linear thres))))

(case output
  (0  (eq-band 
        (sim s
          (scale-db (+ effmix 0.13)
            (hp1 (mult (multichan-expand #'voice (sidechain s voice freq))
                       (noisegate s th_ng fc_ng))
              (/ freq 10))))
        fcomp gcomp wcomp))
  (1  (mult (multichan-expand #'voice (sidechain s voice freq))
            (noisegate s th_ng fc_ng)))
  (2  (scale (/ 0.501 limit) ; 8dB gain at lim=0.2
        (mult (sidechain s voice freq)
              (noisegate s th_ng fc_ng)))))
14

Perhaps this will help: http://www.cs.cmu.edu/~rbd/doc/nyquist/part15.html#153