diff options
Diffstat (limited to 'tksao')
| -rw-r--r-- | tksao/frame/frame3dbase.C | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tksao/frame/frame3dbase.C b/tksao/frame/frame3dbase.C index afc6df5..aa2ae05 100644 --- a/tksao/frame/frame3dbase.C +++ b/tksao/frame/frame3dbase.C @@ -184,8 +184,12 @@ void Frame3dBase::getInfoWCS(char* var, Vector3d& rr, FitsImage* sptr) char* system = (char*)sptr->getWCSSystem(www); char* domain = (char*)sptr->getWCSDomain(www); - if (system) - Tcl_SetVar2(interp,var,varcat(buf,(char*)"wcs",ww,(char*)",sys"),system,0); + if (system) { + if (!strncmp(system,"Unknown",7)) + Tcl_SetVar2(interp,var,varcat(buf,(char*)"wcs",ww,(char*)",sys"),"WCS",0); + else + Tcl_SetVar2(interp,var,varcat(buf,(char*)"wcs",ww,(char*)",sys"),system,0); + } else if (domain) Tcl_SetVar2(interp,var,varcat(buf,(char*)"wcs",ww,(char*)",sys"),domain,0); else |