| 1 | // Classes SphereCoordSys , SpherePosition | 
|---|
| 2 | //      G. Le Meur  2000 | 
|---|
| 3 | //      R. Ansari 2006 (documentation/commentaire) | 
|---|
| 4 | // LAL (Orsay) / IN2P3-CNRS  DAPNIA/SPP (Saclay) / CEA | 
|---|
| 5 |  | 
|---|
| 6 | // 04/01/00 : implantation de la persistance par classe deleguee - Guy Le Meur | 
|---|
| 7 |  | 
|---|
| 8 | #include "sopnamsp.h" | 
|---|
| 9 | #include "spherepos.h" | 
|---|
| 10 | #include "datatype.h" | 
|---|
| 11 | #include <typeinfo> | 
|---|
| 12 |  | 
|---|
| 13 |  | 
|---|
| 14 |  | 
|---|
| 15 | //................. SphereCoordSys class ................. | 
|---|
| 16 |  | 
|---|
| 17 | /*! | 
|---|
| 18 | \class SOPHYA::SphereCoordSys | 
|---|
| 19 | \ingroup SkyMap | 
|---|
| 20 | \brief  Class which describes the coordinate system used in spherical maps | 
|---|
| 21 | Current implementation (~ 2006 ) does NOT perform any coordinate transformation | 
|---|
| 22 | \sa SOPHYA::PixelMap | 
|---|
| 23 | */ | 
|---|
| 24 |  | 
|---|
| 25 | SphereCoordSys::SphereCoordSys(){ | 
|---|
| 26 | id_ = SphereCoordSys::NEUTRAL; | 
|---|
| 27 | description_ = "NEUTRAL SphereCoordSystem"; | 
|---|
| 28 | } | 
|---|
| 29 | SphereCoordSys::SphereCoordSys(const SphereCoordSys& a ) | 
|---|
| 30 | { | 
|---|
| 31 | id_ = a.id_; | 
|---|
| 32 | description_ = a.description_; | 
|---|
| 33 | } | 
|---|
| 34 |  | 
|---|
| 35 | SphereCoordSys::SphereCoordSys(int id, | 
|---|
| 36 | const string& description){ | 
|---|
| 37 | id_ = id; | 
|---|
| 38 | description_ = description; | 
|---|
| 39 | } | 
|---|
| 40 |  | 
|---|
| 41 | SphereCoordSys::~SphereCoordSys() | 
|---|
| 42 | { | 
|---|
| 43 | } | 
|---|
| 44 | SphereCoordSys& SphereCoordSys::operator = (const SphereCoordSys& a) | 
|---|
| 45 | { | 
|---|
| 46 | id_ = a.id_; | 
|---|
| 47 | description_ = a.description_; | 
|---|
| 48 | return *this; | 
|---|
| 49 | } | 
|---|
| 50 |  | 
|---|
| 51 |  | 
|---|
| 52 | //////////////////////////////////////////////////////////////// | 
|---|
| 53 | // ------------------------------------------------------------------------- | 
|---|
| 54 | //   Les objets delegues pour la gestion de persistance | 
|---|
| 55 | // ------------------------------------------------------------------------- | 
|---|
| 56 |  | 
|---|
| 57 | FIO_SphereCoordSys::FIO_SphereCoordSys() | 
|---|
| 58 | { | 
|---|
| 59 | dobj=new SphereCoordSys; | 
|---|
| 60 | ownobj=true; | 
|---|
| 61 | } | 
|---|
| 62 | FIO_SphereCoordSys::FIO_SphereCoordSys(string const & filename) | 
|---|
| 63 | { | 
|---|
| 64 | dobj=new SphereCoordSys; | 
|---|
| 65 | ownobj=true; | 
|---|
| 66 | Read(filename); | 
|---|
| 67 | } | 
|---|
| 68 | FIO_SphereCoordSys::FIO_SphereCoordSys(const SphereCoordSys & obj) | 
|---|
| 69 | { | 
|---|
| 70 | dobj = new SphereCoordSys(obj); | 
|---|
| 71 | ownobj=true; | 
|---|
| 72 | } | 
|---|
| 73 | FIO_SphereCoordSys::FIO_SphereCoordSys(SphereCoordSys * obj) | 
|---|
| 74 | { | 
|---|
| 75 | dobj = obj; | 
|---|
| 76 | ownobj=false; | 
|---|
| 77 | } | 
|---|
| 78 | FIO_SphereCoordSys::~FIO_SphereCoordSys() | 
|---|
| 79 | { | 
|---|
| 80 | if (ownobj && dobj) delete dobj; | 
|---|
| 81 | } | 
|---|
| 82 | AnyDataObj* FIO_SphereCoordSys::DataObj() | 
|---|
| 83 | { | 
|---|
| 84 | return(dobj); | 
|---|
| 85 | } | 
|---|
| 86 |  | 
|---|
| 87 | void  FIO_SphereCoordSys::SetDataObj(AnyDataObj & o) | 
|---|
| 88 | { | 
|---|
| 89 | SphereCoordSys * po = dynamic_cast<SphereCoordSys *>(&o); | 
|---|
| 90 | if (po == NULL) { | 
|---|
| 91 | char buff[160]; | 
|---|
| 92 | sprintf(buff,"FIO_SphereCoordSys::SetDataObj(%s) - Object type  error ! ", | 
|---|
| 93 | typeid(o).name()); | 
|---|
| 94 | throw TypeMismatchExc(PExcLongMessage(buff)); | 
|---|
| 95 | } | 
|---|
| 96 |  | 
|---|
| 97 | if (ownobj && dobj) delete dobj; | 
|---|
| 98 | dobj = po; ownobj = false; | 
|---|
| 99 | } | 
|---|
| 100 |  | 
|---|
| 101 |  | 
|---|
| 102 | void  FIO_SphereCoordSys::ReadSelf(PInPersist& is) | 
|---|
| 103 | { | 
|---|
| 104 | uint_8 itab[3]; | 
|---|
| 105 | string description; | 
|---|
| 106 | is.Get(itab, 3); | 
|---|
| 107 | is.GetStr(description); | 
|---|
| 108 | if (dobj == NULL) dobj = new SphereCoordSys(itab[1], description); | 
|---|
| 109 | else *dobj= SphereCoordSys(itab[1], description); | 
|---|
| 110 | } | 
|---|
| 111 | void       FIO_SphereCoordSys::WriteSelf(POutPersist& os) const | 
|---|
| 112 | { | 
|---|
| 113 | if (dobj == NULL)   return;  // Attention - $CHECK$ Guy 04/01/00 | 
|---|
| 114 | //  On ecrit 3 uint_8 | 
|---|
| 115 | //  0 : Numero de version,  1 : Id,  2  reserve a l | 
|---|
| 116 | uint_8 itab[3]; | 
|---|
| 117 | itab[0] = 1; | 
|---|
| 118 | itab[1] = dobj->Id(); | 
|---|
| 119 | itab[2] = 0; | 
|---|
| 120 | os.Put(itab, 3); | 
|---|
| 121 | os.PutStr(dobj->description()); | 
|---|
| 122 | } | 
|---|
| 123 |  | 
|---|
| 124 |  | 
|---|
| 125 |  | 
|---|
| 126 | //................. SpherePosition class ................. | 
|---|
| 127 | /*! | 
|---|
| 128 | \class SOPHYA::SpherePosition | 
|---|
| 129 | \ingroup SkyMap | 
|---|
| 130 | \brief  Class to define a (angular) position on a sphere, combined a coordinate system | 
|---|
| 131 | Current implementation (~ 2006 ) does NOT perform any coordinate transformation | 
|---|
| 132 | \sa SOPHYA::PixelMap | 
|---|
| 133 | */ | 
|---|
| 134 |  | 
|---|
| 135 | SpherePosition::SpherePosition() | 
|---|
| 136 | : UnitVector() | 
|---|
| 137 | { | 
|---|
| 138 | cs_ = new SphereCoordSys; | 
|---|
| 139 | } | 
|---|
| 140 |  | 
|---|
| 141 | SpherePosition::SpherePosition(double theta, double phi, SphereCoordSys* cs) | 
|---|
| 142 | : UnitVector(theta, phi) | 
|---|
| 143 | { | 
|---|
| 144 | if (cs == NULL) cs_ = new SphereCoordSys; | 
|---|
| 145 | else cs_ = cs; | 
|---|
| 146 | } | 
|---|
| 147 |  | 
|---|
| 148 | SpherePosition::SpherePosition(double x, double y, double z, SphereCoordSys* cs) | 
|---|
| 149 | : UnitVector(x, y, z) | 
|---|
| 150 | { | 
|---|
| 151 | if (cs == NULL) cs_ = new SphereCoordSys; | 
|---|
| 152 | else cs_ = cs; | 
|---|
| 153 | } | 
|---|
| 154 |  | 
|---|
| 155 | SpherePosition::~SpherePosition() | 
|---|
| 156 | { | 
|---|
| 157 | if (cs_) delete cs_; | 
|---|
| 158 | } | 
|---|
| 159 |  | 
|---|
| 160 | UnitVector SpherePosition::Transform(const SphereCoordSys& /*cs*/) const | 
|---|
| 161 | { | 
|---|
| 162 | return(*this); | 
|---|
| 163 | } | 
|---|
| 164 |  | 
|---|
| 165 | double SpherePosition::Separation(const SpherePosition& gamma) const | 
|---|
| 166 | { | 
|---|
| 167 | return(this->SepAngle(gamma)); | 
|---|
| 168 | } | 
|---|