void dft(double *jr, double *ji, int n, int iflag)
{
fftw_plan plan;
int i;
double ninv;
FFTW_COMPLEX *cbuf;
static int wisdom_inited=0;
char *ram_cache_wisdom;
int plan_flags;
if(!wisdom_inited) {
wisdom_inited=1;
wisdom_file=getenv("GRACE_FFTW_WISDOM_FILE");
ram_cache_wisdom=getenv("GRACE_FFTW_RAM_WISDOM");
if(ram_cache_wisdom) sscanf(ram_cache_wisdom, "%d", &using_wisdom);
/* turn on wisdom if it is requested even without persistent storage */
if(wisdom_file && wisdom_file[0] ) {
/* if a file was specified in GRACE_FFTW_WISDOM_FILE, try to read it */
FILE *wf;
fftw_status fstat;
wf=fopen(wisdom_file,"r");
if(wf) {
fstat=fftw_import_wisdom_from_file(wf);
fclose(wf);
initial_wisdom=fftw_export_wisdom_to_string();
} else initial_wisdom=0;
atexit(save_wisdom);
using_wisdom=1; /* if a file is specified, always use wisdom */
}
}
plan_flags=using_wisdom? (FFTW_USE_WISDOM | FFTW_MEASURE) : FFTW_ESTIMATE;
plan=fftw_create_plan(n, iflag?FFTW_BACKWARD:FFTW_FORWARD,
plan_flags | FFTW_IN_PLACE);
cbuf=xcalloc(n, sizeof(*cbuf));
if(!cbuf) return;
for(i=0; i<n; i++) {
cbuf[i].re=jr[i]; cbuf[i].im=ji[i];
}
fftw(plan, 1, cbuf, 1, 1, 0, 1, 1);
fftw_destroy_plan(plan);
if(!iflag) {
ninv=1.0/n;
for(i=0; i<n; i++) {
jr[i]=cbuf[i].re*ninv; ji[i]=cbuf[i].im*ninv;
}
} else {
for(i=0; i<n; i++) {
jr[i]=cbuf[i].re; ji[i]=cbuf[i].im;
}
}
XCFREE(cbuf);
}
/*
* Class: jfftw_Wisdom
* Method: get
* Signature: ()Ljava/lang/String;
*/
JNIEXPORT jstring JNICALL Java_jfftw_Wisdom_get( JNIEnv * env, jclass clazz )
{
char* cwisdom = fftw_export_wisdom_to_string();
jstring wisdom = (*env)->NewStringUTF( env, cwisdom );
fftw_free( cwisdom );
return wisdom;
}
/*--------------------------------------------------------------------------*/
long _fftwA (char* w, long ni) /* export wisdom to string */
{
char *ws;
ws = fftw_export_wisdom_to_string();
long n = strlen(ws);
if (n>ni) return -n;
strcpy(w,ws);
return n;
}
static void save_wisdom(void){
FILE *wf;
char *final_wisdom;
final_wisdom=fftw_export_wisdom_to_string();
if(!initial_wisdom || strcmp(initial_wisdom, final_wisdom)) {
wf=fopen(wisdom_file,"w");
if(wf) {
fftw_export_wisdom_to_file(wf);
fclose(wf);
}
}
fftw_free(final_wisdom);
if(initial_wisdom) fftw_free(initial_wisdom);
}
static void save_wisdom(void){
char *final_wisdom;
final_wisdom = fftw_export_wisdom_to_string();
if (!initial_wisdom ||
strings_are_equal(initial_wisdom, final_wisdom) != TRUE) {
FILE *wf;
wf = gapp_openw(gapp, wisdom_file);
if (wf) {
fftw_export_wisdom_to_file(wf);
gapp_close(wf);
}
}
fftw_free(final_wisdom);
if (initial_wisdom) {
fftw_free(initial_wisdom);
}
}
static void init_wisdom(void)
{
static int wisdom_inited = FALSE;
if (!wisdom_inited) {
char *ram_cache_wisdom;
wisdom_inited = TRUE;
wisdom_file = getenv("GRACE_FFTW_WISDOM_FILE");
ram_cache_wisdom = getenv("GRACE_FFTW_RAM_WISDOM");
if (ram_cache_wisdom) {
sscanf(ram_cache_wisdom, "%d", &using_wisdom);
}
/* turn on wisdom if it is requested even without persistent storage */
if (wisdom_file && wisdom_file[0] ) {
/* if a file was specified in GRACE_FFTW_WISDOM_FILE, try to read it */
FILE *wf;
fftw_status fstat;
wf = gapp_openr(gapp, wisdom_file, SOURCE_DISK);
if (wf) {
fstat = fftw_import_wisdom_from_file(wf);
gapp_close(wf);
initial_wisdom = fftw_export_wisdom_to_string();
} else {
initial_wisdom = NULL;
}
atexit(save_wisdom);
/* if a file is specified, always use wisdom */
using_wisdom = TRUE;
}
}
}
int
main(int argc, char **argv)
{
svSystemSpecificInitialisation();
#ifdef Q_WS_X11
#if QT_VERSION >= 0x040500
// QApplication::setGraphicsSystem("raster");
#endif
#endif
#ifdef Q_OS_MAC
if (QSysInfo::MacintoshVersion > QSysInfo::MV_10_8) {
// Fix for OS/X 10.9 font problem
QFont::insertSubstitution(".Lucida Grande UI", "Lucida Grande");
}
#endif
SVApplication application(argc, argv);
QStringList args = application.arguments();
signal(SIGINT, signalHandler);
signal(SIGTERM, signalHandler);
#ifndef Q_OS_WIN32
signal(SIGHUP, signalHandler);
signal(SIGQUIT, signalHandler);
#endif
bool audioOutput = true;
bool oscSupport = true;
if (args.contains("--help") || args.contains("-h") || args.contains("-?")) {
cerr << QApplication::tr(
"\nSonic Visualiser is a program for viewing and exploring audio data\nfor semantic music analysis and annotation.\n\nUsage:\n\n %1 [--no-audio] [--no-osc] [<file> ...]\n\n --no-audio: Do not attempt to open an audio output device\n --no-osc: Do not provide an Open Sound Control port for remote control\n <file>: One or more Sonic Visualiser (.sv) and audio files may be provided.\n").arg(argv[0]) << endl;
exit(2);
}
if (args.contains("--no-audio")) audioOutput = false;
if (args.contains("--no-osc")) oscSupport = false;
QApplication::setOrganizationName("sonic-visualiser");
QApplication::setOrganizationDomain("sonicvisualiser.org");
QApplication::setApplicationName(QApplication::tr("Sonic Visualiser"));
QSplashScreen *splash = 0;
QSettings settings;
settings.beginGroup("Preferences");
if (settings.value("show-splash", true).toBool()) {
QPixmap pixmap(":/icons/sv-splash.png");
QPainter painter;
painter.begin(&pixmap);
QString text = QString("v%1").arg(SV_VERSION);
painter.drawText
(pixmap.width() - painter.fontMetrics().width(text) - 10,
10 + painter.fontMetrics().ascent(),
text);
painter.end();
splash = new QSplashScreen(pixmap);
splash->show();
QTimer::singleShot(5000, splash, SLOT(hide()));
application.processEvents();
}
settings.endGroup();
settings.beginGroup("RDF");
if (!settings.contains("rdf-indices")) {
QStringList list;
list << "http://www.vamp-plugins.org/rdf/plugins/index.txt";
settings.setValue("rdf-indices", list);
}
settings.endGroup();
QIcon icon;
int sizes[] = { 16, 22, 24, 32, 48, 64, 128 };
for (int i = 0; i < int(sizeof(sizes)/sizeof(sizes[0])); ++i) {
icon.addFile(QString(":icons/sv-%1x%2.png").arg(sizes[i]).arg(sizes[i]));
}
QApplication::setWindowIcon(icon);
QString language = QLocale::system().name();
settings.beginGroup("Preferences");
language = settings.value("locale", language).toString();
settings.endGroup();
QTranslator qtTranslator;
QString qtTrName = QString("qt_%1").arg(language);
SVDEBUG << "Loading " << qtTrName << "... ";
bool success = false;
if (!(success = qtTranslator.load(qtTrName))) {
QString qtDir = getenv("QTDIR");
if (qtDir != "") {
success = qtTranslator.load
(qtTrName, QDir(qtDir).filePath("translations"));
}
}
if (!success) {
SVDEBUG << "Failed\nFailed to load Qt translation for locale" << endl;
} else {
cerr << "Done" << endl;
}
application.installTranslator(&qtTranslator);
QTranslator svTranslator;
QString svTrName = QString("sonic-visualiser_%1").arg(language);
SVDEBUG << "Loading " << svTrName << "... ";
svTranslator.load(svTrName, ":i18n");
SVDEBUG << "Done" << endl;
application.installTranslator(&svTranslator);
StoreStartupLocale();
// Permit size_t and PropertyName to be used as args in queued signal calls
qRegisterMetaType<PropertyContainer::PropertyName>("PropertyContainer::PropertyName");
MainWindow *gui = new MainWindow(audioOutput, oscSupport);
application.setMainWindow(gui);
InteractiveFileFinder::setParentWidget(gui);
TransformUserConfigurator::setParentWidget(gui);
if (splash) {
QObject::connect(gui, SIGNAL(hideSplash()), splash, SLOT(hide()));
}
QDesktopWidget *desktop = QApplication::desktop();
QRect available = desktop->availableGeometry();
int width = (available.width() * 2) / 3;
int height = available.height() / 2;
if (height < 450) height = (available.height() * 2) / 3;
if (width > height * 2) width = height * 2;
settings.beginGroup("MainWindow");
QSize size = settings.value("size", QSize(width, height)).toSize();
gui->resizeConstrained(size);
if (settings.contains("position")) {
QRect prevrect(settings.value("position").toPoint(), size);
if (!(available & prevrect).isEmpty()) {
gui->move(prevrect.topLeft());
}
}
if (settings.value("maximised", false).toBool()) {
gui->setWindowState(Qt::WindowMaximized);
}
settings.endGroup();
gui->show();
// The MainWindow class seems to have trouble dealing with this if
// it tries to adapt to this preference before the constructor is
// complete. As a lazy hack, apply it explicitly from here
gui->preferenceChanged("Property Box Layout");
application.m_readyForFiles = true; // Ready to receive files from e.g. Apple Events
for (QStringList::iterator i = args.begin(); i != args.end(); ++i) {
if (i == args.begin()) continue;
if (i->startsWith('-')) continue;
QString path = *i;
application.handleFilepathArgument(path, splash);
}
for (QStringList::iterator i = application.m_filepathQueue.begin(); i != application.m_filepathQueue.end(); ++i) {
QString path = *i;
application.handleFilepathArgument(path, splash);
}
#ifdef HAVE_FFTW3F
settings.beginGroup("FFTWisdom");
QString wisdom = settings.value("wisdom").toString();
if (wisdom != "") {
fftwf_import_wisdom_from_string(wisdom.toLocal8Bit().data());
}
#ifdef HAVE_FFTW3
wisdom = settings.value("wisdom_d").toString();
if (wisdom != "") {
fftw_import_wisdom_from_string(wisdom.toLocal8Bit().data());
}
#endif
settings.endGroup();
#endif
if (splash) splash->finish(gui);
delete splash;
/*
TipDialog tipDialog;
if (tipDialog.isOK()) {
tipDialog.exec();
}
*/
int rv = application.exec();
gui->hide();
cleanupMutex.lock();
if (!cleanedUp) {
TransformFactory::deleteInstance();
TempDirectory::getInstance()->cleanup();
cleanedUp = true;
}
application.releaseMainWindow();
#ifdef HAVE_FFTW3F
settings.beginGroup("FFTWisdom");
char *cwisdom = fftwf_export_wisdom_to_string();
if (cwisdom) {
settings.setValue("wisdom", cwisdom);
free(cwisdom);
}
#ifdef HAVE_FFTW3
cwisdom = fftw_export_wisdom_to_string();
if (cwisdom) {
settings.setValue("wisdom_d", cwisdom);
free(cwisdom);
}
#endif
settings.endGroup();
#endif
FileSource::debugReport();
delete gui;
cleanupMutex.unlock();
return rv;
}
