©2003 Kåre Sjölander and Jonas Beskow
Introduction Download Documentation Links Forum
WaveSurfer user forum

FAQ  FAQ
Search  Search
Memberlist  Memberlist
Register  Register
Profile  Profile
Login  Login

Problem with demo wsapp6.tcl

 
Post new topic   Reply to topic    www.speech.kth.se/wavesurfer Forum Index -> WaveSurfer
View previous topic :: View next topic  
Author Message
tnearey



Joined: 28 Aug 2003
Posts: 2
Location: University of Alberta

PostPosted: Thu Aug 28, 2003 4:43 am    Post subject: Problem with demo wsapp6.tcl Reply with quote

I was impressed at how easily (compared to similar experiences with other Unix derived software) I was able to run the wssapp<n>,tcl demos for <n> := 1 .. 5.
However, I couldn't get it to run with <n> greater or equal to 6.

That is, the command line

/Users/nearey/WaveSurfer-1.5.2/Contents/Resources/Scripts/demos/wsapp5.tcl

worked fine.

But

/Users/nearey/WaveSurfer-1.5.2/Contents/Resources/Scripts/demos/wsapp6.tcl

gives me the following error:

Error in startup script: can't find package wsurf 1.5
while executing
"package require -exact wsurf 1.5"
(file "/Users/nearey/WaveSurfer-1.5.2/Contents/Resources/Scripts/demos/wsapp6.tcl" line 13)

Any help appreciated...

Also, can anyone give me a minimal widgit to open a file in "Speech analysis" configuraton so I'll immediately get a spectrogram and pitch contour?
I haven't been able to get -config to work (not sure exactly what it's expecting as its argument, full path, quoted full path) .
_________________
Terrance Nearey
u of alberta
Back to top
View users profile Send private message Visit posters website
kare



Joined: 16 Aug 2002
Posts: 371
Location: KTH, Centre for Speech Technology

PostPosted: Thu Aug 28, 2003 10:54 am    Post subject: Reply with quote

There's a few lines missing at the top of the later demos, I'll fix it for the next release.

You need these lines

Code:
# Search for wsurf package in a reasonable location and load it
# This is for easy testing purposes when wsurf has not been installed

if {[llength [file split [info script]]] > 1} {
# application called with whole pathname, use directory one level up
set auto_path [concat [eval file join [lrange [file split [info script]] 0 end-2]] $auto_path]
} else {
# application called with name and demos/ as working directory
set auto_path [concat [file dirname [pwd]parent] $auto_path]
}
package require -exact wsurf 1.5


Regarding your second question, modify wsapp3.tcl with the following code

Code:

set pane [$widget addPane -maxheight 200  -minheight 10]
$widget analysis::addSpectrogram $pane

set pane [$widget addPane -maxheight 100  -minheight 20]
$widget analysis::addPitch $pane


Kåre
Back to top
View users profile Send private message Visit posters website
Display posts from previous:   
Post new topic   Reply to topic    www.speech.kth.se/wavesurfer Forum Index -> WaveSurfer All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
You can post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB 2.0.1 © 2001, 2002 phpBB Group