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 | }
|
---|