You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdeedu/kstars/kstars/kstarsdcop.cpp

1072 lines
30 KiB

/***************************************************************************
kstarsdcop.cpp - description
-------------------
begin : Son Apr 7 2002
copyright : (C) 2002 by Thomas Kabelmann
email : tk78@gmx.de
***************************************************************************/
/***************************************************************************
* *
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
***************************************************************************/
//KStars DCOP functions
#include <tqdir.h>
#include <tqlistview.h>
#include <tqradiobutton.h>
#include <tdeio/netaccess.h>
#include <tdemessagebox.h>
#include <kprinter.h>
#include <tdeshortcut.h>
#include <tdetempfile.h>
#include <kurl.h>
#include <tdelistview.h>
#include <kpushbutton.h>
#include <klineedit.h>
#include <knuminput.h>
#include "kstars.h"
#include "kstarsdata.h"
#include "skymap.h"
#include "skyobject.h"
#include "infoboxes.h"
#include "simclock.h"
#include "Options.h"
// INDI includes
#include "indidriver.h"
#include "indimenu.h"
#include "indielement.h"
#include "indidevice.h"
#include "indiproperty.h"
#include "devicemanager.h"
void KStars::setRaDec( double ra, double dec ) {
map()->setDestination( new SkyPoint( ra, dec ) );
}
void KStars::setAltAz( double alt, double az ) {
map()->setDestinationAltAz(alt,az);
}
void KStars::lookTowards ( const TQString direction ) {
TQString dir = direction.lower();
if (dir == "zenith" || dir=="z") map()->invokeKey( KKey( "Z" ).keyCodeQt() );
else if (dir == "north" || dir=="n") map()->invokeKey( KKey( "N" ).keyCodeQt() );
else if (dir == "east" || dir=="e") map()->invokeKey( KKey( "E" ).keyCodeQt() );
else if (dir == "south" || dir=="s") map()->invokeKey( KKey( "S" ).keyCodeQt() );
else if (dir == "west" || dir=="w") map()->invokeKey( KKey( "W" ).keyCodeQt() );
else if (dir == "northeast" || dir=="ne") {
map()->stopTracking();
map()->clickedPoint()->setAlt( 15.0 ); map()->clickedPoint()->setAz( 45.0 );
map()->clickedPoint()->HorizontalToEquatorial( LST(), geo()->lat() );
map()->slotCenter();
} else if (dir == "southeast" || dir=="se") {
map()->stopTracking();
map()->clickedPoint()->setAlt( 15.0 ); map()->clickedPoint()->setAz( 135.0 );
map()->clickedPoint()->HorizontalToEquatorial( LST(), geo()->lat() );
map()->slotCenter();
} else if (dir == "southwest" || dir=="sw") {
map()->stopTracking();
map()->clickedPoint()->setAlt( 15.0 ); map()->clickedPoint()->setAz( 225.0 );
map()->clickedPoint()->HorizontalToEquatorial( LST(), geo()->lat() );
map()->slotCenter();
} else if (dir == "northwest" || dir=="nw") {
map()->stopTracking();
map()->clickedPoint()->setAlt( 15.0 ); map()->clickedPoint()->setAz( 315.0 );
map()->clickedPoint()->HorizontalToEquatorial( LST(), geo()->lat() );
map()->slotCenter();
} else {
SkyObject *target = data()->objectNamed( direction );
if ( target != NULL ) {
map()->setClickedObject( target );
map()->setClickedPoint( target );
map()->slotCenter();
}
}
}
void KStars::zoom( double z ) {
if ( z > MAXZOOM ) z = MAXZOOM;
if ( z < MINZOOM ) z = MINZOOM;
Options::setZoomFactor( z );
map()->forceUpdate();
}
void KStars::setLocalTime(int yr, int mth, int day, int hr, int min, int sec) {
data()->changeDateTime( geo()->LTtoUT( KStarsDateTime( ExtDate(yr, mth, day), TQTime(hr,min,sec) ) ) );
}
void KStars::waitFor( double t ) {
kapp->dcopClient()->suspend();
TQTimer::singleShot( int( 1000.*t ), this, TQ_SLOT( resumeDCOP() ) );
}
void KStars::waitForKey( const TQString k ) {
data()->resumeKey = KKey( k );
if ( ! data()->resumeKey.isNull() ) {
kapp->dcopClient()->suspend();
} else {
kdDebug() << i18n( "Error [DCOP waitForKey()]: Invalid key requested." ) << endl;
}
}
void KStars::setTracking( bool track ) {
if ( track != Options::isTracking() ) slotTrack();
}
void KStars::popupMessage( int /*x*/, int /*y*/, TQString /*message*/ ){
//Show a small popup window at (x,y) with a text message
}
void KStars::drawLine( int /*x1*/, int /*y1*/, int /*x2*/, int /*y2*/, int /*speed*/ ) {
//Draw a line on the skymap display
}
void KStars::setGeoLocation( TQString city, TQString province, TQString country ) {
//Set the geographic location
bool cityFound( false );
for (GeoLocation *loc = data()->geoList.first(); loc; loc = data()->geoList.next()) {
if ( loc->translatedName() == city &&
( province.isEmpty() || loc->translatedProvince() == province ) &&
loc->translatedCountry() == country ) {
cityFound = true;
data()->setLocation( *loc );
//notify on-screen GeoBox
infoBoxes()->geoChanged( loc );
//configure time zone rule
KStarsDateTime ltime = loc->UTtoLT( data()->ut() );
loc->tzrule()->reset_with_ltime( ltime, loc->TZ0(), data()->isTimeRunningForward() );
data()->setNextDSTChange( loc->tzrule()->nextDSTChange() );
//reset LST
data()->syncLST();
//make sure planets, etc. are updated immediately
data()->setFullTimeUpdate();
// If the sky is in Horizontal mode and not tracking, reset focus such that
// Alt/Az remain constant.
if ( ! Options::isTracking() && Options::useAltAz() ) {
map()->focus()->HorizontalToEquatorial( LST(), geo()->lat() );
}
// recalculate new times and objects
data()->setSnapNextFocus();
updateTime();
//no need to keep looking, we're done.
break;
}
}
if ( !cityFound ) {
if ( province.isEmpty() )
kdDebug() << i18n( "Error [DCOP setGeoLocation]: city " ) << city << ", "
<< country << i18n( " not found in database." ) << endl;
else
kdDebug() << i18n( "Error [DCOP setGeoLocation]: city " ) << city << ", "
<< province << ", " << country << i18n( " not found in database." ) << endl;
}
}
void KStars::readConfig() {
//Load config file values into Options object
Options::self()->readConfig();
applyConfig();
//Reset date, if one was stored
if ( data()->StoredDate.isValid() ) {
data()->changeDateTime( geo()->LTtoUT( data()->StoredDate ) );
data()->StoredDate.setDJD( (long double)INVALID_DAY ); //invalidate StoredDate
}
map()->forceUpdate();
}
void KStars::writeConfig() {
Options::writeConfig();
//Store current simulation time
data()->StoredDate.setDJD( data()->lt().djd() );
}
TQString KStars::getOption( const TQString &name ) {
//Some config items are not stored in the Options object while
//the program is running; catch these here and returntheir current value.
if ( name == "FocusRA" ) { return TQString::number( map()->focus()->ra()->Hours(), 'f', 6 ); }
if ( name == "FocusDec" ) { return TQString::number( map()->focus()->dec()->Degrees(), 'f', 6 ); }
TDEConfigSkeletonItem *it = Options::self()->findItem( name );
if ( it ) return it->property().toString();
else return TQString();
}
void KStars::changeViewOption( const TQString op, const TQString val ) {
bool bOk(false), nOk(false), dOk(false);
//parse bool value
bool bVal(false);
if ( val.lower() == "true" ) { bOk = true; bVal = true; }
if ( val.lower() == "false" ) { bOk = true; bVal = false; }
if ( val == "1" ) { bOk = true; bVal = true; }
if ( val == "0" ) { bOk = true; bVal = false; }
//parse int value
int nVal = val.toInt( &nOk );
//parse double value
double dVal = val.toDouble( &dOk );
//[GUI]
if ( op == "ShowInfoBoxes" && bOk ) Options::setShowInfoBoxes( bVal );
if ( op == "ShowTimeBox" && bOk ) Options::setShowTimeBox( bVal );
if ( op == "ShowGeoBox" && bOk ) Options::setShowGeoBox( bVal );
if ( op == "ShowFocusBox" && bOk ) Options::setShowFocusBox( bVal );
if ( op == "ShadeTimeBox" && bOk ) Options::setShadeTimeBox( bVal );
if ( op == "ShadeGeoBox" && bOk ) Options::setShadeGeoBox( bVal );
if ( op == "ShadeFocusBox" && bOk ) Options::setShadeFocusBox( bVal );
if ( op == "ShowMainToolBar" && bOk ) Options::setShowMainToolBar( bVal );
if ( op == "ShowViewToolBar" && bOk ) Options::setShowViewToolBar( bVal );
//[View]
if ( op == "FOVName" ) Options::setFOVName( val );
if ( op == "FOVSize" && dOk ) Options::setFOVSize( (float)dVal );
if ( op == "FOVShape" && nOk ) Options::setFOVShape( nVal );
if ( op == "FOVColor" ) Options::setFOVColor( val );
if ( op == "ShowStars" && bOk ) Options::setShowStars( bVal );
if ( op == "ShowMessier" && bOk ) Options::setShowMessier( bVal );
if ( op == "ShowMessierImages" && bOk ) Options::setShowMessierImages( bVal );
if ( op == "ShowNGC" && bOk ) Options::setShowNGC( bVal );
if ( op == "ShowIC" && bOk ) Options::setShowIC( bVal );
if ( op == "ShowCLines" && bOk ) Options::setShowCLines( bVal );
if ( op == "ShowCBounds" && bOk ) Options::setShowCBounds( bVal );
if ( op == "ShowCNames" && bOk ) Options::setShowCNames( bVal );
if ( op == "ShowMilkyWay" && bOk ) Options::setShowMilkyWay( bVal );
if ( op == "ShowGrid" && bOk ) Options::setShowGrid( bVal );
if ( op == "ShowEquator" && bOk ) Options::setShowEquator( bVal );
if ( op == "ShowEcliptic" && bOk ) Options::setShowEcliptic( bVal );
if ( op == "ShowHorizon" && bOk ) Options::setShowHorizon( bVal );
if ( op == "ShowGround" && bOk ) Options::setShowGround( bVal );
if ( op == "ShowSun" && bOk ) Options::setShowSun( bVal );
if ( op == "ShowMoon" && bOk ) Options::setShowMoon( bVal );
if ( op == "ShowMercury" && bOk ) Options::setShowMercury( bVal );
if ( op == "ShowVenus" && bOk ) Options::setShowVenus( bVal );
if ( op == "ShowMars" && bOk ) Options::setShowMars( bVal );
if ( op == "ShowJupiter" && bOk ) Options::setShowJupiter( bVal );
if ( op == "ShowSaturn" && bOk ) Options::setShowSaturn( bVal );
if ( op == "ShowUranus" && bOk ) Options::setShowUranus( bVal );
if ( op == "ShowNeptune" && bOk ) Options::setShowNeptune( bVal );
if ( op == "ShowPluto" && bOk ) Options::setShowPluto( bVal );
if ( op == "ShowAsteroids" && bOk ) Options::setShowAsteroids( bVal );
if ( op == "ShowComets" && bOk ) Options::setShowComets( bVal );
if ( op == "ShowPlanets" && bOk ) Options::setShowPlanets( bVal );
if ( op == "ShowDeepSky" && bOk ) Options::setShowDeepSky( bVal );
if ( op == "ShowStarNames" && bOk ) Options::setShowStarNames( bVal );
if ( op == "ShowStarMagnitudes" && bOk ) Options::setShowStarMagnitudes( bVal );
if ( op == "ShowAsteroidNames" && bOk ) Options::setShowAsteroidNames( bVal );
if ( op == "ShowCometNames" && bOk ) Options::setShowCometNames( bVal );
if ( op == "ShowPlanetNames" && bOk ) Options::setShowPlanetNames( bVal );
if ( op == "ShowPlanetImages" && bOk ) Options::setShowPlanetImages( bVal );
if ( op == "HideOnSlew" && bOk ) Options::setHideOnSlew( bVal );
if ( op == "HideStars" && bOk ) Options::setHideStars( bVal );
if ( op == "HidePlanets" && bOk ) Options::setHidePlanets( bVal );
if ( op == "HideMessier" && bOk ) Options::setHideMessier( bVal );
if ( op == "HideNGC" && bOk ) Options::setHideNGC( bVal );
if ( op == "HideIC" && bOk ) Options::setHideIC( bVal );
if ( op == "HideMilkyWay" && bOk ) Options::setHideMilkyWay( bVal );
if ( op == "HideCNames" && bOk ) Options::setHideCNames( bVal );
if ( op == "HideCLines" && bOk ) Options::setHideCLines( bVal );
if ( op == "HideCBounds" && bOk ) Options::setHideCBounds( bVal );
if ( op == "HideGrid" && bOk ) Options::setHideGrid( bVal );
if ( op == "UseAltAz" && bOk ) Options::setUseAltAz( bVal );
if ( op == "UseRefraction" && bOk ) Options::setUseRefraction( bVal );
if ( op == "UseAutoLabel" && bOk ) Options::setUseAutoLabel( bVal );
if ( op == "UseHoverLabel" && bOk ) Options::setUseHoverLabel( bVal );
if ( op == "UseAutoTrail" && bOk ) Options::setUseAutoTrail( bVal );
if ( op == "UseAnimatedSlewing" && bOk ) Options::setUseAnimatedSlewing( bVal );
if ( op == "FadePlanetTrails" && bOk ) Options::setFadePlanetTrails( bVal );
if ( op == "SlewTimeScale" && dOk ) Options::setSlewTimeScale( dVal );
if ( op == "ZoomFactor" && dOk ) Options::setZoomFactor( dVal );
if ( op == "MagLimitDrawStar" && dOk ) Options::setMagLimitDrawStar( dVal );
if ( op == "MagLimitDrawDeepSky" && dOk ) Options::setMagLimitDrawDeepSky( dVal );
if ( op == "MagLimitDrawStarZoomOut" && dOk ) Options::setMagLimitDrawStarZoomOut( dVal );
if ( op == "MagLimitDrawDeepSkyZoomOut" && dOk ) Options::setMagLimitDrawDeepSkyZoomOut( dVal );
if ( op == "MagLimitDrawStarInfo" && dOk ) Options::setMagLimitDrawStarInfo( dVal );
if ( op == "MagLimitHideStar" && dOk ) Options::setMagLimitHideStar( dVal );
if ( op == "MagLimitAsteroid" && dOk ) Options::setMagLimitAsteroid( dVal );
if ( op == "MagLimitAsteroidName" && dOk ) Options::setMagLimitAsteroidName( dVal );
if ( op == "MaxRadCometName" && dOk ) Options::setMaxRadCometName( dVal );
//these three are a "radio group"
if ( op == "UseLatinConstellationNames" && bOk ) {
Options::setUseLatinConstellNames( true );
Options::setUseLocalConstellNames( false );
Options::setUseAbbrevConstellNames( false );
}
if ( op == "UseLocalConstellationNames" && bOk ) {
Options::setUseLatinConstellNames( false );
Options::setUseLocalConstellNames( true );
Options::setUseAbbrevConstellNames( false );
}
if ( op == "UseAbbrevConstellationNames" && bOk ) {
Options::setUseLatinConstellNames( false );
Options::setUseLocalConstellNames( false );
Options::setUseAbbrevConstellNames( true );
}
map()->forceUpdate();
}
void KStars::setColor( const TQString name, const TQString value ) {
ColorScheme *cs = data()->colorScheme();
if ( cs->hasColorNamed( name ) ) {
cs->setColor( name, value );
map()->forceUpdate();
}
}
void KStars::loadColorScheme( const TQString _name ) {
TQString name( _name );
TQString filename = name.lower().stripWhiteSpace();
bool ok( false );
//Parse default names which don't follow the regular file-naming scheme
if ( name == i18n("use default color scheme", "Default Colors") ) filename = "default.colors";
if ( name == i18n("use 'star chart' color scheme", "Star Chart") ) filename = "chart.colors";
if ( name == i18n("use 'night vision' color scheme", "Night Vision") ) filename = "night.colors";
//Try the filename if it ends with ".colors"
if ( filename.endsWith( ".colors" ) )
ok = data()->colorScheme()->load( filename );
//If that didn't work, try assuming that 'name' is the color scheme name
//convert it to a filename exactly as ColorScheme::save() does
if ( ! ok ) {
if ( !filename.isEmpty() ) {
for( unsigned int i=0; i<filename.length(); ++i)
if ( filename.at(i)==' ' ) filename.replace( i, 1, "-" );
filename = filename.append( ".colors" );
ok = data()->colorScheme()->load( filename );
}
if ( ! ok ) kdDebug() << i18n( "Unable to load color scheme named %1. Also tried %2." ).arg( name ).arg( filename );
}
if ( ok ) {
map()->setStarColorMode( data()->colorScheme()->starColorMode() );
map()->setStarColorIntensity( data()->colorScheme()->starColorIntensity() );
//set the application colors for the Night Vision scheme
if ( Options::darkAppColors() == false && filename == "night.colors" ) {
Options::setDarkAppColors( true );
OriginalPalette = TQApplication::palette();
TQApplication::setPalette( DarkPalette, true );
}
if ( Options::darkAppColors() && filename != "night.colors" ) {
Options::setDarkAppColors( false );
TQApplication::setPalette( OriginalPalette, true );
}
map()->forceUpdate();
}
}
void KStars::exportImage( const TQString url, int w, int h ) {
//If the filename string contains no "/" separators, assume the
//user wanted to place a file in their home directory.
KURL fileURL;
if ( ! url.contains( "/" ) ) fileURL = TQDir::homeDirPath() + "/" + url;
else fileURL = url;
KTempFile tmpfile;
TQString fname;
tmpfile.setAutoDelete(true);
TQPixmap skyimage( map()->width(), map()->height() );
TQPixmap outimage( w, h );
outimage.fill();
if ( fileURL.isValid() ) {
if ( fileURL.isLocalFile() ) {
fname = fileURL.path();
} else {
fname = tmpfile.name();
}
//Determine desired image format from filename extension
TQString ext = fname.mid( fname.findRev(".")+1 );
const char* format = "PNG";
if ( ext.lower() == "png" ) { format = "PNG"; }
else if ( ext.lower() == "jpg" || ext.lower() == "jpeg" ) { format = "JPG"; }
else if ( ext.lower() == "gif" ) { format = "GIF"; }
else if ( ext.lower() == "pnm" ) { format = "PNM"; }
else if ( ext.lower() == "bmp" ) { format = "BMP"; }
else { kdWarning() << i18n( "Could not parse image format of %1; assuming PNG." ).arg( fname ) << endl; }
map()->exportSkyImage( &skyimage );
kapp->processEvents(10000);
//skyImage is the size of the sky map. The requested image size is w x h.
//If w x h is smaller than the skymap, then we simply crop the image.
//If w x h is larger than the skymap, pad the skymap image with a white border.
if ( w == map()->width() && h == map()->height() ) {
outimage = skyimage;
} else {
int dx(0), dy(0), sx(0), sy(0);
int sw(map()->width()), sh(map()->height());
if ( w > map()->width() ) {
dx = (w - map()->width())/2;
} else {
sx = (map()->width() - w)/2;
sw = w;
}
if ( h > map()->height() ) {
dy = (h - map()->height())/2;
} else {
sy = (map()->height() - h)/2;
sh = h;
}
bitBlt( &outimage, dx, dy, &skyimage, sx, sy, sw, sh );
}
if ( ! outimage.save( fname, format ) ) kdDebug() << i18n( "Error: Unable to save image: %1 " ).arg( fname ) << endl;
else kdDebug() << i18n( "Image saved to file: %1" ).arg( fname ) << endl;
if ( tmpfile.name() == fname ) { //attempt to upload image to remote location
if ( ! TDEIO::NetAccess::upload( tmpfile.name(), fileURL, this ) ) {
TQString message = i18n( "Could not upload image to remote location: %1" ).arg( fileURL.prettyURL() );
KMessageBox::sorry( 0, message, i18n( "Could not upload file" ) );
}
}
}
}
void KStars::printImage( bool usePrintDialog, bool useChartColors ) {
KPrinter printer( true, TQPrinter::HighResolution );
printer.setFullPage( false );
//Set up the printer (either with the Print Dialog,
//or using the default settings)
bool ok( false );
if ( usePrintDialog )
ok = printer.setup( this, i18n("Print Sky") );
else
ok = printer.autoConfigure();
if( ok ) {
kapp->setOverrideCursor( waitCursor );
//Save current colorscheme and switch to Star Chart colors
//(if requested)
ColorScheme cs;
if ( useChartColors ) {
cs.copy( * data()->colorScheme() );
loadColorScheme( "chart.colors" );
}
map()->setMapGeometry();
map()->exportSkyImage( &printer );
//Restore old color scheme if necessary
//(if printing was aborted, the colorscheme is still restored)
if ( useChartColors ) {
data()->colorScheme()->copy( cs );
// restore colormode and colorintensity in skymap
map()->setStarColorMode( cs.starColorMode() );
map()->setStarColorIntensity( cs.starColorIntensity() );
map()->forceUpdate();
}
kapp->restoreOverrideCursor();
}
}
void KStars::startINDI (TQString deviceName, bool useLocal)
{
establishINDI();
if (!indidriver || !indimenu)
{
kdDebug() << "establishINDI() failed." << endl;
return;
}
TQListViewItem *driverItem = NULL;
driverItem = indidriver->localListView->findItem(deviceName, 0);
if (driverItem == NULL)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
// If device is already running, we need to shut it down first
if (indidriver->isDeviceRunning(deviceName))
{
indidriver->localListView->setSelected(driverItem, true);
indidriver->processDeviceStatus(1);
}
// Set custome label for device
indimenu->setCustomLabel(deviceName);
// Select it
indidriver->localListView->setSelected(driverItem, true);
// Start it either locally or as series
if (useLocal)
indidriver->localR->setChecked(true);
else
indidriver->serverR->setChecked(true);
// Run it
indidriver->processDeviceStatus(0);
}
void KStars::shutdownINDI (TQString deviceName)
{
if (!indidriver || !indimenu)
{
kdDebug() << "establishINDI() failed." << endl;
return;
}
TQListViewItem *driverItem = NULL;
driverItem = indidriver->localListView->findItem(deviceName, 0);
if (driverItem == NULL)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
indidriver->processDeviceStatus(1);
}
void KStars::switchINDI(TQString deviceName, bool turnOn)
{
INDI_D *dev;
INDI_P *prop;
if (!indidriver || !indimenu)
{
kdDebug() << "switchINDI: establishINDI() failed." << endl;
return;
}
dev = indimenu->findDevice(deviceName);
if (!dev)
dev = indimenu->findDeviceByLabel(deviceName);
if (!dev)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
if (turnOn && dev->isOn() || (!turnOn && !dev->isOn()))
return;
prop = dev->findProp("CONNECTION");
if (!prop) return;
if (turnOn)
prop->newSwitch(0);
else
prop->newSwitch(1);
}
void KStars::setINDIPort(TQString deviceName, TQString port)
{
INDI_D *dev;
INDI_P *prop;
INDI_E *el;
if (!indidriver || !indimenu)
{
kdDebug() << "setINDIPort: establishINDI() failed." << endl;
return;
}
dev = indimenu->findDevice(deviceName);
if (!dev)
dev = indimenu->findDeviceByLabel(deviceName);
if (!dev)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
prop = dev->findProp("DEVICE_PORT");
if (!prop) return;
el = prop->findElement("PORT");
if (!el->write_w)
return;
el->write_w->setText(port);
prop->newText();
}
void KStars::setINDITargetCoord(TQString deviceName, double RA, double DEC)
{
INDI_D *dev;
INDI_P *prop;
INDI_E *el;
if (!indidriver || !indimenu)
{
kdDebug() << "setINDITarget: establishINDI() failed." << endl;
return;
}
dev = indimenu->findDevice(deviceName);
if (!dev)
dev = indimenu->findDeviceByLabel(deviceName);
if (!dev)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
prop = dev->findProp("EQUATORIAL_EOD_COORD");
if (!prop) return;
el = prop->findElement("RA");
if (!el) return;
if (!el->write_w) return;
el->write_w->setText(TQString("%1").arg(RA));
el = prop->findElement("DEC");
if (!el) return;
if (!el->write_w) return;
el->write_w->setText(TQString("%1").arg(DEC));
prop->newText();
}
void KStars::setINDITargetName(TQString deviceName, TQString objectName)
{
INDI_D *dev;
INDI_P *prop;
INDI_E *el;
if (!indidriver || !indimenu)
{
kdDebug() << "setINDITarget: establishINDI() failed." << endl;
return;
}
SkyObject *target = data()->objectNamed( objectName );
if (!target) return;
dev = indimenu->findDevice(deviceName);
if (!dev)
dev = indimenu->findDeviceByLabel(deviceName);
if (!dev)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
prop = dev->findProp("EQUATORIAL_EOD_COORD");
if (!prop) return;
el = prop->findElement("RA");
if (!el) return;
if (!el->write_w) return;
el->write_w->setText(TQString("%1").arg(target->ra()->Hours()));
el = prop->findElement("DEC");
if (!el) return;
if (!el->write_w) return;
el->write_w->setText(TQString("%1").arg(target->dec()->Degrees()));
prop->newText();
}
void KStars::setINDIAction(TQString deviceName, TQString action)
{
INDI_D *dev;
INDI_E *el;
if (!indidriver || !indimenu)
{
kdDebug() << "setINDIAction: establishINDI() failed." << endl;
return;
}
dev = indimenu->findDevice(deviceName);
if (!dev)
dev = indimenu->findDeviceByLabel(deviceName);
if (!dev)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
el = dev->findElem(action);
if (!el) return;
el->pp->activateSwitch(action);
}
void KStars::waitForINDIAction(TQString deviceName, TQString action)
{
INDI_D *dev;
INDI_P *prop;
INDI_E *el;
if (!indidriver || !indimenu)
{
kdDebug() << "waitForINDIAction: establishINDI() failed." << endl;
return;
}
dev = indimenu->findDevice(deviceName);
if (!dev)
dev = indimenu->findDeviceByLabel(deviceName);
if (!dev)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
prop = dev->findProp(action);
if (prop == NULL)
{
el = dev->findElem(action);
if (!el) return;
TQObject::connect(el->pp, TQ_SIGNAL(okState()), this, TQ_SLOT(resumeDCOP(void )));
}
else
TQObject::connect(prop, TQ_SIGNAL(okState()), this, TQ_SLOT(resumeDCOP(void )));
kapp->dcopClient()->suspend();
}
void KStars::setINDIFocusSpeed(TQString deviceName, unsigned int speed)
{
INDI_D *dev;
INDI_P *prop;
INDI_E *el;
if (!indidriver || !indimenu)
{
kdDebug() << "setINDIFocusSpeed: establishINDI() failed." << endl;
return;
}
dev = indimenu->findDevice(deviceName);
if (!dev)
dev = indimenu->findDeviceByLabel(deviceName);
if (!dev)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
prop = dev->findProp("FOCUS_SPEED");
if (!prop) return;
el = prop->findElement("SPEED");
if (!el) return;
if (!el->write_w) return;
el->write_w->setText(TQString("%1").arg(speed));
prop->newText();
}
void KStars::startINDIFocus(TQString deviceName, int focusDir)
{
if (!indidriver || !indimenu)
{
kdDebug() << "setINDIFocusSpeed: establishINDI() failed!" << endl;
return;
}
if (focusDir == 0)
setINDIAction(deviceName, "IN");
else if (focusDir == 1)
setINDIAction(deviceName, "OUT");
}
void KStars::setINDIGeoLocation(TQString deviceName, double longitude, double latitude)
{
INDI_D *dev;
INDI_P *prop;
INDI_E *el;
if (!indidriver || !indimenu)
{
kdDebug() << "setINDIGeoLocation: establishINDI() failed." << endl;
return;
}
dev = indimenu->findDevice(deviceName);
if (!dev)
dev = indimenu->findDeviceByLabel(deviceName);
if (!dev)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
prop = dev->findProp("GEOGRAPHICAL_COORD");
if (!prop) return;
el = prop->findElement("LONG");
if (!el) return;
if (!el->write_w) return;
el->write_w->setText(TQString("%1").arg(longitude));
el = prop->findElement("LAT");
if (!el) return;
if (!el->write_w) return;
el->write_w->setText(TQString("%1").arg(latitude));
prop->newText();
}
void KStars::setINDIFocusTimeout(TQString deviceName, int timeout)
{
INDI_D *dev;
INDI_P *prop;
INDI_E *el;
if (!indidriver || !indimenu)
{
kdDebug() << "startINDIFocus: establishINDI() failed." << endl;
return;
}
dev = indimenu->findDevice(deviceName);
if (!dev)
dev = indimenu->findDeviceByLabel(deviceName);
if (!dev)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
prop = dev->findProp("FOCUS_TIMEOUT");
if (!prop)
return;
el = prop->findElement("TIMEOUT");
if (!el) return;
if (el->write_w)
el->write_w->setText(TQString("%1").arg(timeout));
else if (el->spin_w)
el->spin_w->setValue(timeout);
prop->newText();
}
void KStars::startINDIExposure(TQString deviceName, int timeout)
{
INDI_D *dev;
INDI_P *prop;
INDI_E *el;
if (!indidriver || !indimenu)
{
kdDebug() << "startINDIExposure: establishINDI() failed." << endl;
return;
}
dev = indimenu->findDevice(deviceName);
if (!dev)
dev = indimenu->findDeviceByLabel(deviceName);
if (!dev)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
prop = dev->findProp("CCD_EXPOSE_DURATION");
if (!prop) return;
el = prop->findElement("EXPOSE_DURATION");
if (!el) return;
if (el->write_w)
el->write_w->setText(TQString("%1").arg(timeout));
else if (el->spin_w)
el->spin_w->setValue(timeout);
prop->newText();
}
void KStars::setINDIFilterNum(TQString deviceName, int filter_num)
{
INDI_D *dev;
INDI_P *prop;
INDI_E *el;
if (!indidriver || !indimenu)
{
kdDebug() << "setINDIFilterNum: establishINDI() failed." << endl;
return;
}
dev = indimenu->findDevice(deviceName);
if (!dev)
dev = indimenu->findDeviceByLabel(deviceName);
if (!dev)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
prop = dev->findProp("FILTER_SLOT");
if (!prop) return;
el = prop->findElement("TQ_SLOT");
if (!el) return;
if (el->write_w)
el->write_w->setText(TQString("%1").arg(filter_num));
else if (el->spin_w)
el->spin_w->setValue(filter_num);
prop->newText();
}
void KStars::setINDIUTC(TQString deviceName, TQString UTCDateTime)
{
INDI_D *dev;
INDI_P *prop;
INDI_E *el;
if (!indidriver || !indimenu)
{
kdDebug() << "startINDIUTC: establishINDI() failed." << endl;
return;
}
dev = indimenu->findDevice(deviceName);
if (!dev)
dev = indimenu->findDeviceByLabel(deviceName);
if (!dev)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
prop = dev->findProp("TIME");
if (!prop) return;
el = prop->findElement("UTC");
if (!el) return;
if (!el->write_w) return;
el->write_w->setText(UTCDateTime);
prop->newText();
}
void KStars::setINDIScopeAction(TQString deviceName, TQString action)
{
setINDIAction(deviceName, action);
}
void KStars::setINDIFrameType(TQString deviceName, TQString type)
{
setINDIAction(deviceName, type);
}
void KStars::setINDICCDTemp(TQString deviceName, int temp)
{
INDI_D *dev;
INDI_P *prop;
INDI_E *el;
if (!indidriver || !indimenu)
{
kdDebug() << "setINDICCDTemp: establishINDI() failed." << endl;
return;
}
dev = indimenu->findDevice(deviceName);
if (!dev)
dev = indimenu->findDeviceByLabel(deviceName);
if (!dev)
{
kdDebug() << "Device " << deviceName << " not found!" << endl;
return;
}
prop = dev->findProp("CCD_TEMPERATURE");
if (!prop) return;
el = prop->findElement("TEMPERATURE");
if (!el) return;
if (el->write_w)
el->write_w->setText(TQString("%1").arg(temp));
else if (el->spin_w)
el->spin_w->setValue(temp);
prop->newText();
}