Thanks Jacob
That's enlightening.
It seems that the plug-in doesn't find the voice file.
With the following code you can evaluate what folders you could put
the "tts-suite.wav" file into.
Paste the line into the Nyquist prompt and press "Debug".
(princ (get '*system-dir* 'plugin))
The file should be placed in one of these folders but not a subfolder.
I should probably issue an error message if the file can't be found
and list those possible locations.
Working with files is always a nuisance in Nyquist.
Which Audacity version are you using? Although I doubt that this is
the reason for the failure.
Best
Robert
2017-02-07 15:19 GMT+01:00, Jacob Kruger <jacob@xxxxxxxxxxxxx>:
Ok, tried different volume levels, and, did the same, but, when I ran it
in dummy/debug mode, it brought up the following:
---start---
("plus" "1" "point" "1" "db")
break: filename must be at least one character long - NIL
if continued: return from BREAK
Function: #<Subr-BREAK: #56b3aa0>
Arguments:
"filename must be at least one character long"
NIL
Function: #<FSubr-COND: #56b4020>
Arguments:
((= 0 (LENGTH FILENAME)) (BREAK "filename must be at least one
character long" FILENAME))
((FULL-NAME-P FILENAME))
(T (COND ((AND (< 0 (LENGTH *DEFAULT-SF-DIR*)) (NOT
(IS-FILE-SEPARATOR (CHAR *DEFAULT-SF-DIR* (1- (LENGTH
*DEFAULT-SF-DIR*)))))) (SETF *DEFAULT-SF-DIR* (STRCAT *DEFAULT-SF-DIR*
(STRING *FILE-SEPARATOR*))) (FORMAT T "Warning: appending "~A" to
*default-sf-dir*~%" *FILE-SEPARATOR*))) (SETF FILENAME (STRCAT
*DEFAULT-SF-DIR* (STRING FILENAME))))
Function: #<Closure-SOUNDFILENAME: #df253d8>
Arguments:
NIL
Function: #<FSubr-LET: #56b3f20>
Arguments:
((SWAP 0))
(COND ((EQ ENDIAN :BIG) (SETF SWAP (IF (BIGENDIANP) 0 1))) ((EQ
ENDIAN :LITTLE) (SETF SWAP (IF (BIGENDIANP) 1 0))))
(IF (MINUSP DUR) (ERROR "s-read :dur is negative" DUR))
(SND-READ (SOUNDFILENAME FILENAME) TIME-OFFSET (LOCAL-TO-GLOBAL 0)
FORMAT NCHANS MODE BITS SWAP SRATE DUR)
Function: #<Closure-S-READ: #df279d8>
Arguments:
NIL
:TIME-OFFSET
3.313923000000000
:DUR
0.451667000000000
Function: #<FSubr-LET*: #56b3ee0>
Arguments:
((WORD (ASSOC (NTH I WD-LIST) WORDS :TEST (FUNCTION STRING-EQUAL)))
(START (SECOND WORD)) (LENGTH (- (THIRD WORD) START)))
(S-READ SND-FILE :TIME-OFFSET START :DUR LENGTH)
Function: #<FSubr-PROGV: #56b2140>
Arguments:
(QUOTE (*WARP*))
(IF (WARP-FUNCTION *WARP*) (LIST (LIST (SREF-INVERSE (WARP-FUNCTION
*WARP*) T0) (WARP-STRETCH *WARP*) (WARP-FUNCTION *WARP*))) (LIST (LIST
T0 (WARP-STRETCH *WARP*) NIL)))
(CHECK-T0 (LET* ((WORD (ASSOC (NTH I WD-LIST) WORDS :TEST (FUNCTION
STRING-EQUAL))) (START (SECOND WORD)) (LENGTH (- (THIRD WORD) START)))
(S-READ SND-FILE :TIME-OFFSET START :DUR LENGTH)) (QUOTE (LET* ((WORD
(ASSOC (NTH I WD-LIST) WORDS :TEST (FUNCTION STRING-EQUAL))) (START
(SECOND WORD)) (LENGTH (- (THIRD WORD) START))) (S-READ SND-FILE
:TIME-OFFSET START :DUR LENGTH))))
Function: #<FSubr-PROGV: #56b2140>
Arguments:
(QUOTE (*WARP* *SUSTAIN* *START* *LOUD* *TRANSPOSE* *STOP*
*CONTROL-SRATE* *SOUND-SRATE*))
NYQ%ENVIRONMENT
(AT-ABS T0 (LET* ((WORD (ASSOC (NTH I WD-LIST) WORDS :TEST (FUNCTION
STRING-EQUAL))) (START (SECOND WORD)) (LENGTH (- (THIRD WORD) START)))
(S-READ SND-FILE :TIME-OFFSET START :DUR LENGTH)))
Function: #<FSubr-SETF: #56b52b0>
Arguments:
FIRST%SOUND
(WITH%ENVIRONMENT NYQ%ENVIRONMENT (AT-ABS T0 (LET* ((WORD (ASSOC (NTH
I WD-LIST) WORDS :TEST (FUNCTION STRING-EQUAL))) (START (SECOND WORD))
(LENGTH (- (THIRD WORD) START))) (S-READ SND-FILE :TIME-OFFSET START
:DUR LENGTH))))
Function: #<FSubr-COND: #56b4020>
Arguments:
((< I LOOP%COUNT) (SETF FIRST%SOUND (WITH%ENVIRONMENT NYQ%ENVIRONMENT
(AT-ABS T0 (LET* ((WORD (ASSOC (NTH I WD-LIST) WORDS :TEST (FUNCTION
STRING-EQUAL))) (START (SECOND WORD)) (LENGTH (- (THIRD WORD) START)))
(S-READ SND-FILE :TIME-OFFSET START :DUR LENGTH))))) (IF S%RATE (SETF
FIRST%SOUND (FORCE-SRATES S%RATE FIRST%SOUND)) (SETF S%RATE (GET-SRATES
FIRST%SOUND))) (SETF I (1+ I)) (COND ((= I LOOP%COUNT) FIRST%SOUND)
((ARRAYP S%RATE) (SND-MULTISEQ (PROG1 FIRST%SOUND (SETF FIRST%SOUND
NIL)) SEQREP%CLOSURE)) (T (SND-SEQ (PROG1 FIRST%SOUND (SETF FIRST%SOUND
NIL)) SEQREP%CLOSURE))))
(T (SND-ZERO (WARP-TIME *WARP*) *SOUND-SRATE*))
Function: #<Closure: #14bdd9e0>
Arguments:
0.000000000000000
Function: #<Subr-FUNCALL: #56b53b0>
Arguments:
#<Closure: #14bdd9e0>
0.000000000000000
Function: #<FSubr-COND: #56b4020>
Arguments:
((NOT (INTEGERP LOOP%COUNT)) (ERROR "bad argument type" LOOP%COUNT))
(T (SETF SEQREP%CLOSURE (FUNCTION (LAMBDA (T0) (COND ((< I
LOOP%COUNT) (SETF FIRST%SOUND (WITH%ENVIRONMENT NYQ%ENVIRONMENT (AT-ABS
T0 (LET* ((WORD (ASSOC (NTH I WD-LIST) WORDS :TEST (FUNCTION
STRING-EQUAL))) (START (SECOND WORD)) (LENGTH (- (THIRD WORD) START)))
(S-READ SND-FILE :TIME-OFFSET START :DUR LENGTH))))) (IF S%RATE (SETF
FIRST%SOUND (FORCE-SRATES S%RATE FIRST%SOUND)) (SETF S%RATE (GET-SRATES
FIRST%SOUND))) (SETF I (1+ I)) (COND ((= I LOOP%COUNT) FIRST%SOUND)
((ARRAYP S%RATE) (SND-MULTISEQ (PROG1 FIRST%SOUND (SETF FIRST%SOUND
NIL)) SEQREP%CLOSURE)) (T (SND-SEQ (PROG1 FIRST%SOUND (SETF FIRST%SOUND
NIL)) SEQREP%CLOSURE)))) (T (SND-ZERO (WARP-TIME *WARP*)
*SOUND-SRATE*)))))) (FUNCALL SEQREP%CLOSURE (LOCAL-TO-GLOBAL 0)))
Function: #<FSubr-LET: #56b3f20>
Arguments:
((I 0) (LOOP%COUNT (LENGTH WD-LIST)) (NYQ%ENVIRONMENT
(NYQ:THE-ENVIRONMENT)) SEQREP%CLOSURE FIRST%SOUND S%RATE)
(COND ((NOT (INTEGERP LOOP%COUNT)) (ERROR "bad argument type"
LOOP%COUNT)) (T (SETF SEQREP%CLOSURE (FUNCTION (LAMBDA (T0) (COND ((< I
LOOP%COUNT) (SETF FIRST%SOUND (WITH%ENVIRONMENT NYQ%ENVIRONMENT (AT-ABS
T0 (LET* ((WORD (ASSOC (NTH I WD-LIST) WORDS :TEST (FUNCTION
STRING-EQUAL))) (START (SECOND WORD)) (LENGTH (- (THIRD WORD) START)))
(S-READ SND-FILE :TIME-OFFSET START :DUR LENGTH))))) (IF S%RATE (SETF
FIRST%SOUND (FORCE-SRATES S%RATE FIRST%SOUND)) (SETF S%RATE (GET-SRATES
FIRST%SOUND))) (SETF I (1+ I)) (COND ((= I LOOP%COUNT) FIRST%SOUND)
((ARRAYP S%RATE) (SND-MULTISEQ (PROG1 FIRST%SOUND (SETF FIRST%SOUND
NIL)) SEQREP%CLOSURE)) (T (SND-SEQ (PROG1 FIRST%SOUND (SETF FIRST%SOUND
NIL)) SEQREP%CLOSURE)))) (T (SND-ZERO (WARP-TIME *WARP*)
*SOUND-SRATE*)))))) (FUNCALL SEQREP%CLOSURE (LOCAL-TO-GLOBAL 0))))
Function: #<FSubr-SETF: #56b52b0>
Arguments:
PHRASE
(SEQREP (I (LENGTH WD-LIST)) (LET* ((WORD (ASSOC (NTH I WD-LIST)
WORDS :TEST (FUNCTION STRING-EQUAL))) (START (SECOND WORD)) (LENGTH (-
(THIRD WORD) START))) (S-READ SND-FILE :TIME-OFFSET START :DUR LENGTH)))
Function: #<FSubr-LET*: #56b3ee0>
Arguments:
((SND-FILE (DOLIST (CURR (GET (QUOTE *SYSTEM-DIR*) (QUOTE PLUGIN)))
(IF (MEMBER "tts-suite.wav" (LISTDIR CURR) :TEST (FUNCTION
STRING-EQUAL)) (RETURN (FORMAT NIL "~a~atts-suite.wav" CURR
*FILE-SEPARATOR*))))) (WORDS (MAPCAR (FUNCTION (LAMBDA (W) (CONS (FORMAT
NIL "~a" (FIRST W)) (REST W)))) (QUOTE ((C 0.012721000000000
0.459444000000000) (D 0.474331000000000 0.808220000000000) (E
0.817120000000000 1.095816000000000) (F 1.110113000000000
1.512937000000000) (G 1.519297000000000 1.934546000000000) (A
1.945669000000000 2.248764000000000) (B 2.256531000000000
2.532324000000000) (FLAT 2.539002000000000 2.916655000000000) (SHARP
2.924467000000000 3.303934000000000) (PLUS 3.313923000000000
3.765590000000000) (MINUS 3.771134000000000 4.262755000000000) (PEAK
4.277415000000000 4.489000000000000) (LEVEL 4.489000000000000
4.793073000000000) (RMS 4.804694000000000 5.369286000000000) (DB
5.381905000000000 5.910079000000000) (CENT 5.916032000000000
6.288288000000000) (CENTS 6.302585000000000 6.727222000000000) (POINT
6.740748000000000 7.162166000000000) (LESS 7.170385000000000
7.570079000000000) (MORE 7.579932000000000 7.926610000000000) (THAN
7.932880000000000 8.342052000000001) (HERTZ 8.351406000000001
8.772641999999999) (DUAL 8.777914000000001 9.094274000000000) (MONO
9.105214999999999 9.547222000000000) (STEREO 9.553991000000000
10.115907000000000) (BIT 10.128254000000000 10.378605000000000) (0
10.392404000000001 10.920261000000000) (1 10.931565000000001
11.325771000000000) (2 11.339886999999999 11.642754999999999) (3
11.652290000000001 12.021825000000000) (4 12.026871000000000
12.386338000000000) (5 12.392880000000000 12.899286000000000) (6
12.906416999999999 13.434025000000000) (7 13.443968000000000
13.893503000000001) (8 13.900499000000000 14.249762000000000) (9
14.263695999999999 14.705793999999999) (10 14.712925000000000
15.056293000000000) (11 15.066599000000000 15.564840999999999) (12
15.575873000000000 16.070986000000001) (13 16.077210999999998
16.644024999999999) (14 16.653559999999999 17.182777999999999) (15
17.196892999999999 17.703434999999999) (16 17.714829999999999
18.295385000000000) (17 18.306735000000000 18.990102000000000) (18
18.998457999999999 19.519511999999999) (19 19.525601000000002
20.102166000000000) (20 20.111383000000000 20.532664000000000) (21
20.544512000000001 21.288786999999999) (22 21.302856999999999
21.968582999999999) (23 21.973946000000002 22.659762000000001) (24
22.670884000000001 23.326497000000000) (25 23.332585000000002
24.060624000000001) (26 24.067211000000000 24.801189999999998) (27
24.809002000000000 25.524750999999998) (28 25.530567000000001
26.178175000000000) (29 26.187075000000000 26.927403999999999) (30
26.934035999999999 27.271463000000001) (31 27.286259000000001
27.910170000000001) (32 27.925056999999999 28.532914000000002) (33
28.543084000000000 29.101552999999999) (34 29.107506000000001
29.703185999999999) (35 29.716984000000000 30.381440000000001) (36
30.394058999999999 31.086406000000000) (37 31.101382999999998
31.743072999999999) (38 31.754194999999999 32.307811999999998) (39
32.316667000000002 32.893776000000003) (40 32.908752999999997
33.285226999999999) (41 33.293264999999998 33.878174999999999) (42
33.884717000000002 34.551076999999999) (43 34.565328999999998
35.191780000000001) (44 35.202176999999999 35.826858999999999) (45
35.833855000000000 36.517811999999999) (46 36.528753000000002
37.230215000000001) (47 37.238298999999998 37.936768999999998) (48
37.949477999999999 38.551394999999999) (49 38.559161000000003
39.180985999999997) (50 39.192743999999998 39.577652999999998) (51
39.585509999999999 40.272778000000002) (52 40.282313000000002
40.935248999999999) (53 40.945737000000001 41.617404000000001) (54
41.625261000000002 42.291122000000001) (55 42.302289999999999
43.016134000000001) (56 43.025033999999998 43.717697999999999) (57
43.727913999999998 44.390011000000001) (58 44.395691999999997
44.995294999999999) (59 45.002336000000000 45.660850000000003) (60
45.669297000000000 46.196337999999997) (61 46.207234000000000
47.021439999999998) (62 47.035102000000002 47.771621000000003) (63
47.783878000000001 48.589149999999997) (64 48.601633000000000
49.390850000000000) (65 49.397618999999999 50.292687000000001) (66
50.306395000000002 51.123435000000001) (67 51.131701000000000
51.924683000000002) (68 51.935668999999997 52.743389999999998) (69
52.758367000000000 53.539422000000002) (70 53.552585000000001
54.046474000000003) (71 54.053196999999997 54.871122000000000) (72
54.880476000000002 55.663480999999997) (73 55.675510000000003
56.476019999999998) (74 56.486066000000001 57.234433000000003) (75
57.244694000000003 58.051552999999998) (76 58.059410000000000
58.950850000000003) (77 58.960068000000000 59.796587000000002) (78
59.809840999999999 60.552166000000000) (79 60.566327000000001
61.307856999999998) (80 61.320112999999999 61.618492000000003) (81
61.628979999999999 62.194887000000001) (82 62.203243000000001
62.736269999999998) (83 62.743039000000003 63.285907000000002) (84
63.297981999999998 63.871462999999999) (85 63.877913999999997
64.497879999999995) (86 64.503741000000005 65.131326999999999) (87
65.138005000000007 65.772301999999996) (89 65.783832000000004
66.322346999999993) (90 66.332834000000005 66.791576000000006) (91
66.802109000000002 67.507744000000002) (92 67.513650999999996
68.186361000000005) (93 68.192448999999996 68.886837000000000) (94
68.895917999999995 69.603140999999994) (95 69.614262999999994
70.391144999999995) (96 70.401587000000006 71.169036000000006) (97
71.178843999999998 71.879580000000004) (98 71.887619000000001
72.531576000000001) (99 72.544694000000007 73.238719000000003) (100
73.250703000000001 73.884410000000003) (200 73.896484999999998
74.483073000000005) (300 74.489069999999998 75.086269999999999) (400
75.097256000000002 75.691779999999994) (500 75.696916000000002
76.395793999999995) (600 76.405963999999997 77.161803000000006) (700
77.169523999999996 77.853684999999999) (800 77.863129000000001
78.462868000000000) (900 78.469545999999994 79.153548999999998)
(THOUSAND 79.160408000000004 79.639161000000001))))) (PHRASE NIL) (PEAK
(MIN 121.000000000000000 (MAX -121.000000000000000 (/ (ROUND (* 10
(LINEAR-TO-DB (GET (QUOTE *SELECTION*) (QUOTE PEAK-LEVEL)))))
10.000000000000000)))) (INTPEAK (TRUNCATE (ABS PEAK))) (HEKTOPEAK (* 100
(TRUNCATE (/ INTPEAK 100)))) (FLTPEAK (FORMAT NIL "~a" (TRUNCATE (* 10
(- (ABS PEAK) INTPEAK))))) (WD-LIST (QUOTE ("db"))))
(IF (OR (>= INTPEAK 121) (/= PEAK PEAK)) (SETF WD-LIST (IF (PLUSP
PEAK) (QUOTE ("more" "than" "plus" "100" "20" "db")) (QUOTE ("less"
"than" "minus" "100" "20" "db")))) (PROGN (UNLESS (STRING-EQUAL FLTPEAK
"0") (PUSH FLTPEAK WD-LIST) (PUSH "point" WD-LIST)) (IF (OR (ZEROP
HEKTOPEAK) (AND (> HEKTOPEAK 0) (/= HEKTOPEAK INTPEAK))) (PUSH (FORMAT
NIL "~a" (- INTPEAK HEKTOPEAK)) WD-LIST)) (IF (>= HEKTOPEAK 100) (PUSH
(FORMAT NIL "~a" HEKTOPEAK) WD-LIST)) (PUSH (IF (MINUSP PEAK) "minus"
"plus") WD-LIST)))
(PRINT WD-LIST)
(SETF PHRASE (SEQREP (I (LENGTH WD-LIST)) (LET* ((WORD (ASSOC (NTH I
WD-LIST) WORDS :TEST (FUNCTION STRING-EQUAL))) (START (SECOND WORD))
(LENGTH (- (THIRD WORD) START))) (S-READ SND-FILE :TIME-OFFSET START
:DUR LENGTH))))
(S-SAVE (SCALE-SRATE (SCALE-DB -6 PHRASE) 1.000000000000000) NY:ALL
"" :PLAY T)
NIL
1>
---end---
Seems to have something to do with a file name/path - issue with spaces
in path name?
(that's just a guess)
Jacob Kruger
Blind Biker
Skype: BlindZA
"Resistance is futile, but, acceptance is versatile..."
On 2017-02-07 15:21, Robert Hänggi wrote:
2017-02-07 13:01 GMT+01:00, Jacob Kruger <jacob@xxxxxxxxxxxxx>:
Ok, seemed like it might have been an issue with testing both fileHi Jakob
locations - disabled it under add-remove plugins, where it seemed to be
showing up under both locations, even though had removed it from one to
the other, and, then restarted audacity again, placed it under
%appData%, re-enabled it, and, it's now showing up under analyze, and,
could also assign a keyboard shortcut to it, but, if I activate it from
either the menu, or using the keystroke, it pops up a form of message
box with the following message in it titled Nyquist:
%1.15f
HTH
First, try sounds with different dB levels. It might be that one
causes a problem.
Second:
Enable the dummy control.
- open tts-peak.ny in an editor
- remove one semicolon before "control dummy..."
It's the first line after the usual header
- save
- apply the effect--there might be an error message at the beginning
which you can ignore.
- The plug-in will show up with a dummy control and the usual buttons
- press debug (alt+g)
- post the error message, an excerpt at least.
Thanks for testing
Robert
The audacity4blind web site is at
//www.freelists.org/webpage/audacity4blind
Subscribe and unsubscribe information, message archives,
Audacity keyboard commands, and more...
To unsubscribe from audacity4blind, send an email to
audacity4blind-request@xxxxxxxxxxxxx
with subject line
unsubscribe
The audacity4blind web site is at
//www.freelists.org/webpage/audacity4blind
Subscribe and unsubscribe information, message archives,
Audacity keyboard commands, and more...
To unsubscribe from audacity4blind, send an email to
audacity4blind-request@xxxxxxxxxxxxx
with subject line
unsubscribe
