Context Navigation

MStarguider.cc@ 10026

Visit:

Last change on this file since 10026 was 9445, checked in by tbretz, 15 years ago
* empty log message *
File size: 62.5 KB

Line
1	#undef EXPERT
2
3	#include "MStarguider.h"
4
5	#include <fstream> // ifstream
6
7	#include <TH2F.h>
8	#include <TGraph.h>
9	#include <TTimer.h>
10	#include <TEnv.h>
11	#include <TSystem.h>
12	#include <TFile.h> // temp writeout of histos
13	//#include <TSocket.h>
14
15	#include <TGMenu.h>
16	#include <TGLabel.h>
17	#include <TGButton.h>
18	#include <TGSplitter.h> // TGHorizontal3DLine
19	#include <TGTextEntry.h>
20	#include <TGLayout.h>
21	#include "MString.h"
22
23	#include "MLog.h"
24	#include "MLogManip.h"
25
26	#include "MAstro.h"
27	#include "MString.h"
28
29
30	#include "MCosy.h"
31	#include "MCaos.h"
32	// #include "MStargLeds.h"
33	#include "MStargHistograms.h"
34	#include "MDriveCom.h"
35
36	#include "MGStarg.h"
37	#include "MGNumStars.h"
38
39	#include "MGImage.h"
40	#include "MGCoordinates.h"
41
42	#include "Camera.h"
43	#include "PngReader.h"
44
45	#include "Led.h"
46	#include "Writer.h"
47	#include "FilterLed.h"
48	#include "MStarList.h"
49	#include "CaosFilter.h"
50	#include "StarCatalog.h"
51	#include "MGeomCamMagic.h"
52	#include "MAstroCamera.h"
53
54	#include "MGCosy.h"
55
56	ClassImp(MStarguider);
57
58	using namespace std;
59
60	enum {
61	IDM_kFilter,
62	IDM_kFindStar,
63	IDM_kCaosFilter,
64	IDM_kCatalog,
65	IDM_kStarguider,
66	IDM_kStart,
67	IDM_kStop,
68	IDM_kFileType,
69	IDM_kPPM,
70	IDM_kPNG,
71	IDM_kOnce,
72	IDM_kStretch,
73	IDM_kInput,
74	IDM_kChannel1,
75	IDM_kChannel2,
76	IDM_kChannel3,
77	IDM_kContinous,
78	IDM_kRate25ps,
79	IDM_kRate5ps,
80	IDM_kRate1s,
81	IDM_kRate5s,
82	IDM_kRate30s,
83	IDM_kRate1m,
84	IDM_kRate5m,
85	IDM_kSetup,
86	IDM_kLimMag3,
87	IDM_kLimMag4,
88	IDM_kLimMag5,
89	IDM_kLimMag6,
90	IDM_kLimMag7,
91	IDM_kLimMag8,
92	IDM_kLimMag9,
93	IDM_kPixSize,
94	IDM_kAngle,
95	IDM_kCut,
96	IDM_kInterpol250,
97	IDM_kInterpol125,
98	IDM_kInterpol50,
99	IDM_kInterpol25,
100	IDM_kInterpol10,
101	IDM_kInterpol5,
102	IDM_kInterpol2,
103	IDM_kInterpol1,
104	IDM_kCaosPrintRings,
105	IDM_kCaosPrintLeds,
106	IDM_kCaosAnalStart,
107	IDM_kCaosAnalStop,
108	IDM_kCaosWriteStart,
109	IDM_kCaosWriteStop,
110	IDM_kResetHistograms,
111	IDM_kStargAnalysis,
112	IDM_kStargCaosFilter,
113	IDM_kStarguiderMode,
114	IDM_kTpointMode
115
116	};
117
118	Bool_t MStarguider::HandleTimer(TTimer *t)
119	{
120	if (IsMapped())
121	{
122	fImage->DoRedraw();
123	fZoomImage->DoRedraw();
124	}
125
126	if (fCosy && fCosy->GetWin()->IsMapped())
127	fCosy->GetWin()->GetImage()->DoRedraw();
128
129	fGStarg->Update(fPos, fD);
130	if (fDisplay->IsEntryChecked(IDM_kStarguider))
131	fGNumStars->Update(fNumStarsDetected, fNumStarsCorrelated);
132
133	return kTRUE;
134	}
135
136	#define kZOOM 96
137
138	XY MStarguider::GetCoordinates() const
139	{
140	return fPZdAz->GetCoordinates();
141	}
142
143	void MStarguider::InitGui(Int_t channel)
144	{
145	fList = new MGList;
146	fList->SetOwner();
147
148	const TGWindow *p=gClient->GetRoot();
149
150	fChannel = new TGPopupMenu(p);
151	fChannel->AddEntry("Starfield Camera", IDM_kChannel1);
152	fChannel->AddEntry("TPoint Camera", IDM_kChannel2);
153	fChannel->AddEntry("Read from File", IDM_kChannel3);
154	if (channel<0)
155	fChannel->CheckEntry(IDM_kChannel3);
156	else
157	fChannel->CheckEntry(channel==0?IDM_kChannel1:IDM_kChannel2);
158	fChannel->Associate(this);
159	fList->Add(fChannel);
160
161	fFileType = new TGPopupMenu(p);
162	fFileType->AddEntry("PP&M", IDM_kPPM);
163	fFileType->AddEntry("&PNG", IDM_kPNG);
164	fFileType->CheckEntry(IDM_kPNG);
165	fFileType->Associate(this);
166	fList->Add(fFileType);
167
168	fWriteType = new TGPopupMenu(p);
169	fWriteType->AddEntry("&Once", IDM_kOnce);
170	fWriteType->AddEntry("&Continous", IDM_kContinous);
171	fWriteType->CheckEntry(IDM_kOnce);
172	fWriteType->Associate(this);
173	fList->Add(fWriteType);
174
175	fWriteRate = new TGPopupMenu(p);
176	fWriteRate->AddEntry("25/s", IDM_kRate25ps);
177	fWriteRate->AddEntry("5/s", IDM_kRate5ps);
178	fWriteRate->AddEntry("1s", IDM_kRate1s);
179	fWriteRate->AddEntry("5s", IDM_kRate5s);
180	fWriteRate->AddEntry("30s", IDM_kRate30s);
181	fWriteRate->AddEntry("1min", IDM_kRate1m);
182	fWriteRate->AddEntry("5min", IDM_kRate5m);
183	fWriteRate->CheckEntry(IDM_kRate1m);
184	fWriteRate->Associate(this);
185	fList->Add(fWriteRate);
186
187	fWrtRate = 25*60;
188
189	fLimMag = new TGPopupMenu(p);
190	fLimMag->AddEntry("3", IDM_kLimMag3);
191	fLimMag->AddEntry("4", IDM_kLimMag4);
192	fLimMag->AddEntry("5", IDM_kLimMag5);
193	fLimMag->AddEntry("6", IDM_kLimMag6);
194	fLimMag->AddEntry("7", IDM_kLimMag7);
195	fLimMag->AddEntry("8", IDM_kLimMag8);
196	fLimMag->AddEntry("9", IDM_kLimMag9);
197	fLimMag->CheckEntry(IDM_kLimMag9);
198	fLimMag->Associate(this);
199	fList->Add(fLimMag);
200
201	fSao->SetLimitMag(9.0);
202
203	fInterpol = new TGPopupMenu(p);
204	fInterpol->AddEntry("250", IDM_kInterpol250);
205	fInterpol->AddEntry("125", IDM_kInterpol125);
206	fInterpol->AddEntry("50", IDM_kInterpol50);
207	fInterpol->AddEntry("25", IDM_kInterpol25);
208	fInterpol->AddEntry("10", IDM_kInterpol10);
209	fInterpol->AddEntry("5", IDM_kInterpol5);
210	fInterpol->AddEntry("2", IDM_kInterpol2);
211	fInterpol->AddEntry("Off", IDM_kInterpol1);
212	fInterpol->Associate(this);
213	fList->Add(fInterpol);
214
215	TString disp=gVirtualX->DisplayName();
216	gLog << all << "Display: " << disp << endl;
217	if (disp.First(':')>=0)
218	disp=disp(0, disp.First(':'));
219
220	if (disp.IsNull() \|\| disp==(TString)"localhost")
221	{
222	fInterpol->CheckEntry(IDM_kInterpol5);
223	fIntRate = 50;
224	}
225	else
226	{
227	fInterpol->CheckEntry(IDM_kInterpol125);
228	fIntRate = 125;
229	}
230
231	fCaosPrint = new TGPopupMenu(p);
232	fCaosPrint->AddEntry("&Leds", IDM_kCaosPrintLeds);
233	fCaosPrint->AddEntry("&Rings", IDM_kCaosPrintRings);
234	fCaosPrint->Associate(this);
235	fList->Add(fCaosPrint);
236
237	fCaosWrite = new TGPopupMenu(p);
238	fCaosWrite->AddEntry("&Start", IDM_kCaosWriteStart);
239	fCaosWrite->AddEntry("Sto&p", IDM_kCaosWriteStop);
240	fCaosWrite->DisableEntry(IDM_kCaosWriteStop);
241	fCaosWrite->Associate(this);
242	fList->Add(fCaosWrite);
243
244	fCaosAnalyse = new TGPopupMenu(p);
245	fCaosAnalyse->AddEntry("S&tart Analysis", IDM_kCaosAnalStart);
246	fCaosAnalyse->AddEntry("St&op Analysis", IDM_kCaosAnalStop);
247	fCaosAnalyse->DisableEntry(IDM_kCaosAnalStop);
248	fCaosAnalyse->Associate(this);
249	fList->Add(fCaosAnalyse);
250
251	fMenu = new TGMenuBar(this, 0, 0, kHorizontalFrame);
252	fDisplay = fMenu->AddPopup("&Display");
253	fMode = fMenu->AddPopup("&Mode");
254	fWritePictures = fMenu->AddPopup("&WritePics");
255	fSetup = fMenu->AddPopup("&Setup");
256	fOperations = fMenu->AddPopup("&Operations");
257	fMenu->Resize(fMenu->GetDefaultSize());
258	AddFrame(fMenu);
259
260	//
261	// Create Menu for MStarguider Display
262	//
263	//fDisplay = new MMGPopupMenu(p);
264	fDisplay->AddEntry("&Filter", IDM_kFilter);
265	fDisplay->AddEntry("Stretch", IDM_kStretch);
266	fDisplay->AddSeparator();
267	fDisplay->AddEntry("Find &Star", IDM_kFindStar);
268	fDisplay->AddEntry("C&aos Filter", IDM_kCaosFilter);
269	fDisplay->AddSeparator();
270	fDisplay->AddEntry("SAO &Catalog", IDM_kCatalog);
271	fDisplay->AddEntry("Starguider", IDM_kStarguider);
272	fDisplay->AddEntry("Starguider LED Filter", IDM_kStargCaosFilter);
273	fDisplay->AddSeparator();
274	if (channel>=0)
275	fDisplay->AddPopup("&Input", fChannel);
276	fDisplay->CheckEntry(IDM_kStretch);
277	fDisplay->Associate(this);
278
279	fMode->AddEntry("Starguider", IDM_kStarguiderMode);
280	fMode->AddEntry("Tpoint", IDM_kTpointMode);
281	fMode->Associate(this);
282
283	fWritePictures->AddEntry("&Start", IDM_kStart);
284	fWritePictures->AddEntry("Sto&p", IDM_kStop);
285	fWritePictures->AddSeparator();
286	fWritePictures->AddPopup("File &Type", fFileType);
287	fWritePictures->AddPopup("&Write Type", fWriteType);
288	fWritePictures->AddPopup("Write &Rate", fWriteRate);
289	fWritePictures->DisableEntry(IDM_kStop);
290	fWritePictures->Associate(this);
291
292	fSetup->AddPopup("Lim. &Magnitude", fLimMag);
293	fSetup->AddPopup("Disp. &Interpolation", fInterpol);
294	fSetup->Associate(this);
295
296	fOperations->AddEntry("Starguider Analysis", IDM_kStargAnalysis);
297	fOperations->DisableEntry(IDM_kStargAnalysis);
298	fOperations->Associate(this);
299
300	fCaOs = new TGPopupMenu(p);
301	fCaOs->AddPopup("&Write", fCaosWrite);
302	fCaOs->AddPopup("&Print", fCaosPrint);
303	fCaOs->AddPopup("&Analyse", fCaosAnalyse);
304	fCaOs->Associate(this);
305	fList->Add(fCaOs);
306
307	fGStarg = new MGStarg(this, 235);
308	fGStarg->Move(530,596+5);
309	fList->Add(fGStarg);
310
311	//RA,Dec for catalog
312	fCRaDec = new MGCoordinates(this, kETypeRaDec);
313	fCRaDec->Move(4, fMenu->GetDefaultHeight()+584);
314	AddFrame(fCRaDec);
315
316	//telescope position
317	fCZdAz = new MGCoordinates(this, kETypeZdAz, 2);
318	fCZdAz->Move(240+12+28, fMenu->GetDefaultHeight()+597);
319	AddFrame(fCZdAz);
320
321	//starguider position
322	fPZdAz = new MGCoordinates(this, kETypeZdAz, 2);
323	fPZdAz->Move(240+12+28, fMenu->GetDefaultHeight()+640);
324	AddFrame(fPZdAz);
325
326	//mispointing
327	fDZdAz = new MGCoordinates(this, kETypeZdAz, 2);
328	fDZdAz->Move(240+12+28, fMenu->GetDefaultHeight()+683);
329	AddFrame(fDZdAz);
330
331	fSZdAz = new MGCoordinates(this, kETypeZdAz, 2);
332	fSZdAz->Move(240+12+28, fMenu->GetDefaultHeight()+795);
333	AddFrame(fSZdAz);
334
335	fGNumStars = new MGNumStars(this, 235);
336	fGNumStars->DrawText("Number of stars");
337	fGNumStars->Move(278, fMenu->GetDefaultHeight()+713);
338	fList->Add(fGNumStars);
339
340	fTPoint = new TGTextButton(this, "TPoint");
341	//fTPoint->Move(4, fMenu->GetDefaultHeight()+785);
342	fTPoint->Move(170, fMenu->GetDefaultHeight()+785);
343	fTPoint->AllowStayDown(kTRUE);
344	AddFrame(fTPoint);
345	/*
346	fStargTPoint = new TGTextButton(this, "StargTPoint");
347	fStargTPoint->Move(170, fMenu->GetDefaultHeight()+785);
348	fStargTPoint->AllowStayDown(kTRUE);
349	AddFrame(fStargTPoint);
350	*/
351
352	fFps = new TGLabel(this, "---fps");
353	fFps->SetTextJustify(kTextRight);
354	fFps->Move(650-495, fMenu->GetDefaultHeight()+714+23);
355	AddFrame(fFps);
356
357	fPosZoom = new TGLabel(this, "(----, ----) ----.--d/----.--d");
358	fPosZoom->SetTextJustify(kTextLeft);
359	fPosZoom->Move(4, fMenu->GetDefaultHeight()+765);
360	AddFrame(fPosZoom);
361
362	fSkyBright = new TGLabel(this, "Sky Brightness: --- ");
363	fSkyBright->SetTextJustify(kTextLeft);
364	fSkyBright->Move(4, fMenu->GetDefaultHeight()+785);
365	AddFrame(fSkyBright);
366
367	TGLabel *l = new TGLabel(this, "deg");
368	l->SetTextJustify(kTextLeft);
369	l->Move(606-412, fMenu->GetDefaultHeight()+669);
370	AddFrame(l);
371
372	l = new TGLabel(this, "arcsec/pix");
373	l->SetTextJustify(kTextLeft);
374	l->Move(606-412, fMenu->GetDefaultHeight()+692);
375	AddFrame(l);
376
377	l = new TGLabel(this, "sigma");
378	l->SetTextJustify(kTextLeft);
379	l->Move(606-412, fMenu->GetDefaultHeight()+715);
380	AddFrame(l);
381
382	fCZdAzText = new TGLabel(this, "Zd/Az telescope pointing at");
383	fCZdAzText->SetTextJustify(kTextLeft);
384	fCZdAzText->Move(240+12+20+7, fMenu->GetDefaultHeight()+584-5);
385	AddFrame(fCZdAzText);
386
387	fPZdAzText = new TGLabel(this, "Zd/Az starguider pointing at");
388	fPZdAzText->SetTextJustify(kTextLeft);
389	fPZdAzText->Move(240+12+20+7, fMenu->GetDefaultHeight()+630+20-5-23);
390	AddFrame(fPZdAzText);
391
392	fDZdAzText = new TGLabel(this, "Zd/Az mispointing");
393	fDZdAzText->SetTextJustify(kTextLeft);
394	fDZdAzText->Move(240+12+20+7, fMenu->GetDefaultHeight()+676+2*20-5-46);
395	AddFrame(fDZdAzText);
396
397	// Set input box for rotation angle
398	fAngle = new TGTextEntry(this, " ", IDM_kAngle);
399	fAngle->SetAlignment(kTextCenterX);
400	fAngle->Move(547-410, fMenu->GetDefaultHeight()+667);
401	AddFrame(fAngle);
402
403	SetRotationAngle(-0.2);
404
405	// Set input box for pixel size
406	fPixSize = new TGTextEntry(this, " ", IDM_kPixSize);
407	fPixSize->SetAlignment(kTextCenterX);
408	fPixSize->Move(547-410, fMenu->GetDefaultHeight()+690);
409	AddFrame(fPixSize);
410
411	SetPixSize(48.9);
412
413	// Set input box for cleaning cut
414	fCut = new TGTextEntry(this, " ", IDM_kCut);
415	fCut->SetAlignment(kTextCenterX);
416	fCut->Move(547-410, fMenu->GetDefaultHeight()+713);
417	AddFrame(fCut);
418
419	SetCut(3.0);
420
421	// TGHorizontal3DLine *fLineSep = new TGHorizontal3DLine(this);
422	// AddFrame(fLineSep, new TGLayoutHints (kLHintsNormal \| kLHintsExpandX));
423	// fList->Add(fLineSep);
424
425	//
426	// Create Image Display
427	//
428	fZoomImage = new MGImage(this, kZOOM, kZOOM);
429	// fZoomImage->Move(768-kZOOM-2, 700-kZOOM-2);
430	fZoomImage->Move(4, 700-kZOOM-2+85);
431	AddFrame(fZoomImage);
432
433	fImage = new MGImage(this, 768, 576);
434	fImage->Move(0, fMenu->GetDefaultHeight());
435	AddFrame(fImage);
436
437	const Int_t w = 768;
438	const Int_t h = 840;
439	SetWMSizeHints(w, h, w, h, 1, 1); // set the smallest and biggest size of the Main frame
440
441	//
442	// Make everything visible
443	//
444	SetWindowName("MStarguider Main Window");
445	SetIconName("MStarguider");
446
447	MapSubwindows();
448	fTPoint->UnmapWindow();
449	//fStargTPoint->UnmapWindow();
450	fGStarg->UnmapWindow();
451	fGNumStars->UnmapWindow();
452	fCRaDec->UnmapWindow();
453	fCZdAz->UnmapWindow();
454	fCZdAzText->UnmapWindow();
455	fPZdAz->UnmapWindow();
456	fPZdAzText->UnmapWindow();
457	fDZdAz->UnmapWindow();
458	fDZdAzText->UnmapWindow();
459	fSZdAz->UnmapWindow();
460	fSkyBright->UnmapWindow();
461	MapWindow();
462
463
464	//IconifyWindow();
465
466	//------------------------------------------------------------
467	// XY xy(3.819444, 24.05333);
468	// fCRaDec->SetCoordinates(xy);
469	// fRaDec->Set(xy.X()*360/24, xy.Y());
470	//------------------------------------------------------------
471	}
472
473	MStarguider::MStarguider(MObservatory::LocationName_t obs, Int_t channel)
474	: TGMainFrame(gClient->GetRoot(), 768, 840),
475	fNumStarsDetected(0),
476	fNumStarsCorrelated(0),
477	fCosy(NULL),
478	fOutTp(0),
479	fOutStargTp(0),
480	// fOutRq(0),
481	fDx((768-kZOOM)/2),
482	fDy((512-kZOOM)/2),
483	fStatus(MDriveCom::kStandby),
484	fRadius(200),
485	fTPointFromCC(-1),
486	fFindStarCut(3.0), fFindStarBox(70)
487	{
488	gLog << warn << " #### FIXME: Make MCaos Thread safe!" << endl;
489
490	// This means that all objects added with AddFrame are deleted
491	// automatically, including all LayoutHints.
492	SetCleanup();
493
494	fSao = new StarCatalog(obs);
495	fRaDec = new RaDec(180, 40);
496
497	fCaos = new MCaos;
498	fStargCaos = new MCaos;
499
500	fStargHistograms = new MStargHistograms();
501
502	InitGui(channel);
503
504	fTimer=new TTimer(this, 1000/25); // 40ms
505	fTimer->TurnOn();
506
507	fTime.Now();
508
509	fTimeFromTp.Clear();
510	fAltAzOffsetFromTp = AltAz(-1000,-1000);
511
512	gVirtualX->GrabButton(fId, kButton2, 0, 0, 0, 0, kTRUE);
513
514	if (channel<0)
515	fGetter = new PngReader(*this);
516	else
517	fGetter = new Camera(*this, channel);
518	}
519
520	void MStarguider::SetRotationAngle(Double_t angle)
521	{
522	fSao->SetRotationAngle(angle);
523
524	TString txt;
525	txt += angle;
526
527	fAngle->SetText(txt);
528	}
529
530	void MStarguider::SetPixSize(Double_t size)
531	{
532	fSao->SetPixSize(size);
533
534	TString txt;
535	txt += size;
536
537	fPixSize->SetText(txt);
538	}
539
540	void MStarguider::SetCut(Double_t cut)
541	{
542	TString txt;
543	txt += cut;
544
545	fCut->SetText(txt);
546	}
547
548	void MStarguider::SetupEnv(TEnv &env)
549	{
550	fCaos->ReadEnv(env, "TPointLeds", kTRUE);
551	fStargCaos->ReadEnv(env, "StarguiderLeds", kTRUE);
552
553	SetRotationAngle(env.GetValue("Starguider.RotationAngle", fSao->GetRotationAngle()));
554	SetCut(env.GetValue("Starguider.CleaningLevel", atof(fCut->GetText())));
555
556	SetPixSize(env.GetValue("StarguiderLeds.ArcsecPerPixel", fSao->GetPixSize()));
557
558	fRadius = env.GetValue("Leds.Radius", fRadius);
559
560	fStarguiderW = env.GetValue("Starguider.Width", fStarguiderW);
561	fStarguiderH = env.GetValue("Starguider.Height", fStarguiderH);
562	fStarguiderX = env.GetValue("Starguider.X", fStarguiderX);
563	fStarguiderY = env.GetValue("Starguider.Y", fStarguiderY);
564
565	fSkyOffsetX = env.GetValue("Starguider.SkyOffsetX", fSkyOffsetX);
566	fSkyOffsetY = env.GetValue("Starguider.SkyOffsetY", fSkyOffsetY);
567
568	fFindStarBox = env.GetValue("FindStar.SizeBox", fFindStarBox);
569	fFindStarCut = env.GetValue("FindStar.CleaningLevel", fFindStarCut);
570	}
571
572	MStarguider::~MStarguider()
573	{
574	fGetter->ExitLoop();
575	delete fGetter;
576
577	gVirtualX->GrabButton(fId, kButton2, 0, 0, 0, 0, kFALSE);
578
579	fTimer->TurnOff();
580	delete fTimer;
581
582	delete fList;
583
584	delete fCaos;
585	delete fStargCaos;
586	delete fStargHistograms;
587	delete fSao;
588	delete fRaDec;
589
590	if (fOutTp)
591	delete fOutTp;
592
593	if (fOutStargTp)
594	delete fOutStargTp;
595
596	// if (fOutRq)
597	// delete fOutRq;
598
599	gLog << inf2 << "Camera Display destroyed." << endl;
600	}
601
602	void MStarguider::Layout()
603	{
604	// Resize(GetDefaultSize());
605	}
606
607	void MStarguider::CloseWindow()
608	{
609	gLog << inf2 << "EventDisplay::CloseWindow: Exit Application Loop." << endl;
610
611	//fClient.ExitLoop();
612	// cout << "FIXME: ExitLoop not called!!!!!!" << endl;
613	fGetter->ExitLoop();
614	gSystem->ExitLoop();
615	}
616
617	void MStarguider::SwitchOff(TGPopupMenu *p, UInt_t id)
618	{
619	p->UnCheckEntry(id);
620	p->DisableEntry(id);
621	}
622
623	void MStarguider::SetChannel()
624	{
625	if (fChannel->IsEntryChecked(IDM_kChannel3))
626	{
627	if (dynamic_cast<PngReader*>(fGetter)==0)
628	{
629	delete fGetter;
630	fGetter=new PngReader(*this);
631	}
632	}
633	else
634	{
635	const Int_t ch = fChannel->IsEntryChecked(IDM_kChannel1) ? 0 : 1;
636	if (dynamic_cast<Camera*>(fGetter)==0)
637	{
638	delete fGetter;
639	fGetter = new Camera(*this, ch);
640	}
641	else
642	fGetter->SetChannel(ch);
643	}
644	}
645
646	void MStarguider::Toggle(TGPopupMenu *p, UInt_t id)
647	{
648	if (p->IsEntryChecked(id))
649	p->UnCheckEntry(id);
650	else
651	p->CheckEntry(id);
652	}
653
654	void MStarguider::ToggleStargAnalysis()
655	{
656	if (fOperations->IsEntryChecked(IDM_kStargAnalysis))
657	fStargHistograms->OpenFile();
658	else
659	fStargHistograms->CloseFile();
660	}
661
662	/*
663	void MStarguider::ToggleFindStar()
664	{
665	if (fDisplay->IsEntryChecked(IDM_kFindStar) && fCosy)
666	fTPoint->MapWindow();
667	else
668	{
669	fTPoint->UnmapWindow();
670	fTPoint->SetDown(kFALSE);
671	}
672	}
673	*/
674	void MStarguider::ToggleStarguider()
675	{
676	if (fDisplay->IsEntryChecked(IDM_kStarguider))
677	{
678	fLastBright = 0xff;
679
680	fChannel->EnableEntry(IDM_kChannel1);
681	fDisplay->DisableEntry(IDM_kFindStar);
682	fDisplay->DisableEntry(IDM_kCaosFilter);
683	fOperations->EnableEntry(IDM_kStargAnalysis);
684
685	//fStargTPoint->MapWindow();
686
687	fPZdAz->MapWindow();
688	fDZdAz->MapWindow();
689	fSkyBright->MapWindow();
690
691	for (int i=IDM_kLimMag3; i<=IDM_kLimMag9; i++)
692	fLimMag->UnCheckEntry(i);
693	fLimMag->CheckEntry(IDM_kLimMag9);
694	fSao->SetLimitMag(9.0);
695
696	for (int i=IDM_kInterpol250; i<=IDM_kInterpol1; i++)
697	fInterpol->UnCheckEntry(i);
698	fInterpol->CheckEntry(IDM_kInterpol125);
699	fIntRate = 125;
700
701	//catalog
702	fDisplay->CheckEntry(IDM_kCatalog);
703	fCRaDec->MapWindow();
704	fCZdAz->MapWindow();
705	fCZdAzText->MapWindow();
706
707	fPZdAz->MapWindow();
708	fPZdAzText->MapWindow();
709	fDZdAz->MapWindow();
710	fDZdAzText->MapWindow();
711
712	fGStarg->MapWindow();
713	fGNumStars->MapWindow();
714
715	SwitchOff(fChannel, IDM_kChannel2);
716	fChannel->CheckEntry(IDM_kChannel1);
717	}
718	else
719	{
720	fStatus = MDriveCom::kStandby;
721
722	//fStargTPoint->UnmapWindow();
723	//fStargTPoint->SetDown(kFALSE);
724
725	fPZdAz->UnmapWindow();
726	fPZdAzText->UnmapWindow();
727	fDZdAz->UnmapWindow();
728	fDZdAzText->UnmapWindow();
729	fSkyBright->UnmapWindow();
730	//catalog
731	fCRaDec->UnmapWindow();
732	fCZdAz->UnmapWindow();
733	fCZdAzText->UnmapWindow();
734	fDisplay->UnCheckEntry(IDM_kCatalog);
735
736	fGStarg->UnmapWindow();
737	fGNumStars->UnmapWindow();
738
739	fChannel->EnableEntry(IDM_kChannel2);
740	fDisplay->EnableEntry(IDM_kFindStar);
741	fDisplay->EnableEntry(IDM_kCaosFilter);
742	fOperations->DisableEntry(IDM_kStargAnalysis);
743	}
744
745	SetChannel();
746	//gSystem->Unlink("tracking_error.txt");
747	}
748
749	void MStarguider::ToggleCaosFilter()
750	{
751	if (fDisplay->IsEntryChecked(IDM_kCaosFilter))
752	{
753	if (!fMode->IsEntryChecked(IDM_kStarguiderMode)
754	&& !fMode->IsEntryChecked(IDM_kTpointMode))
755	fMenu->AddPopup("&CaOs", fCaOs, NULL);
756
757	SwitchOff(fDisplay, IDM_kStarguider);
758	SwitchOff(fDisplay, IDM_kStargCaosFilter);
759	}
760	else
761	{
762	fCaosWrite->UnCheckEntry(IDM_kCaosPrintLeds);
763	fCaosWrite->UnCheckEntry(IDM_kCaosPrintRings);
764
765	if (fCaosAnalyse->IsEntryEnabled(IDM_kCaosAnalStop))
766	{
767	fCaosAnalyse->DisableEntry(IDM_kCaosAnalStop);
768	fCaosAnalyse->EnableEntry(IDM_kCaosAnalStart);
769	fCaos->DeleteHistograms();
770	}
771	if (fCaosWrite->IsEntryEnabled(IDM_kCaosWriteStop))
772	{
773	fCaosWrite->DisableEntry(IDM_kCaosWriteStop);
774	fCaosWrite->EnableEntry(IDM_kCaosWriteStart);
775	fCaos->CloseFile();
776	}
777	fMenu->RemovePopup("CaOs");
778
779	fDisplay->EnableEntry(IDM_kStargCaosFilter);
780	fDisplay->EnableEntry(IDM_kStarguider);
781	}
782	fMenu->Resize(fMenu->GetDefaultSize());
783	MapSubwindows(); // maps everything, but we don't want that
784	fTPoint->UnmapWindow();
785	//fStargTPoint->UnmapWindow();
786	fGStarg->UnmapWindow();
787	fGNumStars->UnmapWindow();
788	fCRaDec->UnmapWindow();
789	fCZdAz->UnmapWindow();
790	fCZdAzText->UnmapWindow();
791	fPZdAz->UnmapWindow();
792	fPZdAzText->UnmapWindow();
793	fDZdAz->UnmapWindow();
794	fDZdAzText->UnmapWindow();
795	fSZdAz->UnmapWindow();
796	fSkyBright->UnmapWindow();
797	MapWindow();
798	}
799
800	Bool_t MStarguider::ProcessMessage(Long_t msg, Long_t mp1, Long_t mp2)
801	{
802	switch (GET_MSG(msg))
803	{
804	case kC_TEXTENTRY:
805	if (GET_SUBMSG(msg)==kTE_ENTER)
806	switch (mp1)
807	{
808	case IDM_kPixSize:
809	{
810	const Float_t pixsize = atof(fPixSize->GetText());
811	gLog << all << "Pixel Size changed to " << pixsize << "\"/pix" << endl;
812	fSao->SetPixSize(pixsize);
813	return kTRUE;
814	}
815	case IDM_kAngle:
816	{
817	const Float_t angle = atof(fAngle->GetText());
818	gLog << all << "Rotation Angle changed to " << angle << "deg" << endl;
819	fSao->SetRotationAngle(angle);
820	return kTRUE;
821	}
822	case IDM_kCut:
823	{
824	const Float_t cut = atof(fCut->GetText());
825	gLog << all << "Starguider cleaning level changed to " << cut << " sigma." << endl;
826	return kTRUE;
827	}
828	}
829	return kTRUE;
830
831	case kC_COMMAND:
832	switch (GET_SUBMSG(msg))
833	{
834	case kCM_MENU:
835	switch (mp1)
836	{
837	case IDM_kCatalog:
838	Toggle(fDisplay, IDM_kCatalog);
839	if (fDisplay->IsEntryChecked(IDM_kCatalog))
840	{
841	fCRaDec->MapWindow();
842	fCZdAz->MapWindow();
843	fCZdAzText->MapWindow();
844	}
845	else
846	{
847	fCRaDec->UnmapWindow();
848	fCZdAz->UnmapWindow();
849	fCZdAzText->UnmapWindow();
850	}
851	return kTRUE;
852
853	case IDM_kStarguider:
854	Toggle(fDisplay, IDM_kStarguider);
855	ToggleStarguider();
856	return kTRUE;
857
858	case IDM_kStargAnalysis:
859	Toggle(fOperations, IDM_kStargAnalysis);
860	ToggleStargAnalysis();
861	return kTRUE;
862
863	case IDM_kStarguiderMode:
864	Toggle(fMode, IDM_kStarguiderMode);
865
866	if (fMode->IsEntryChecked(IDM_kStarguiderMode))
867	{
868	//uncheck not needed items
869	//general
870	SwitchOff(fDisplay, IDM_kFilter);
871	SwitchOff(fChannel, IDM_kChannel3);
872	SwitchOff(fOperations, IDM_kStargAnalysis);
873
874	//tpoint
875	SwitchOff(fDisplay, IDM_kFindStar);
876	SwitchOff(fDisplay, IDM_kCaosFilter);
877	ToggleCaosFilter();
878	fMode->UnCheckEntry(IDM_kTpointMode);
879
880	//enable starguider items
881	fDisplay->EnableEntry(IDM_kStargCaosFilter);
882	fDisplay->EnableEntry(IDM_kStarguider);
883	fDisplay->EnableEntry(IDM_kCatalog);
884
885	//check needed items
886	fDisplay->UnCheckEntry(IDM_kStretch);
887	fDisplay->CheckEntry(IDM_kStargCaosFilter);
888	fDisplay->CheckEntry(IDM_kStarguider);
889	ToggleStarguider();
890
891	fTPoint->MapWindow();
892	}
893	else
894	{
895	//uncheck
896	//starguider items
897	fDisplay->UnCheckEntry(IDM_kStargCaosFilter);
898	fDisplay->UnCheckEntry(IDM_kStarguider);
899	fTPoint->UnmapWindow();
900	ToggleStarguider();
901
902	//general
903	fDisplay->UnCheckEntry(IDM_kCatalog);
904	fDisplay->EnableEntry(IDM_kFilter);
905	fDisplay->EnableEntry(IDM_kCaosFilter);
906	fDisplay->EnableEntry(IDM_kFindStar);
907	fChannel->EnableEntry(IDM_kChannel3);
908	}
909	return kTRUE;
910
911	case IDM_kTpointMode:
912	Toggle(fMode, IDM_kTpointMode);
913
914	if (fMode->IsEntryChecked(IDM_kTpointMode))
915	{
916	//unchecking not needed items
917	//general
918	SwitchOff(fDisplay, IDM_kFilter);
919	SwitchOff(fChannel, IDM_kChannel3);
920
921	//from starguider
922	SwitchOff(fDisplay, IDM_kStargCaosFilter);
923	SwitchOff(fDisplay, IDM_kCatalog);
924	SwitchOff(fDisplay, IDM_kStarguider);
925	ToggleStarguider();
926	fMode->UnCheckEntry(IDM_kStarguiderMode);
927	SwitchOff(fOperations, IDM_kStargAnalysis);
928	ToggleStargAnalysis();
929
930	//switch camera
931	SwitchOff(fChannel, IDM_kChannel1);
932	fChannel->CheckEntry(IDM_kChannel2);
933
934	SetChannel();
935
936	//checking needed items
937	fDisplay->UnCheckEntry(IDM_kStretch);
938	fDisplay->CheckEntry(IDM_kCaosFilter);
939	ToggleCaosFilter();
940	fDisplay->CheckEntry(IDM_kFindStar);
941	fTPoint->MapWindow();
942	}
943	else
944	{
945	//enable
946	//starguider items
947	fDisplay->EnableEntry(IDM_kStargCaosFilter);
948	fDisplay->EnableEntry(IDM_kCatalog);
949	fDisplay->EnableEntry(IDM_kStarguider);
950	fOperations->EnableEntry(IDM_kStargAnalysis);
951
952	//general
953	fDisplay->EnableEntry(IDM_kFilter);
954	fChannel->EnableEntry(IDM_kChannel1);
955	fChannel->EnableEntry(IDM_kChannel3);
956
957	//tpoint
958	fDisplay->UnCheckEntry(IDM_kCaosFilter);
959	ToggleCaosFilter();
960	fDisplay->UnCheckEntry(IDM_kFindStar);
961	fTPoint->UnmapWindow();
962	}
963	return kTRUE;
964
965	case IDM_kFilter:
966	Toggle(fDisplay, IDM_kFilter);
967	return kTRUE;
968
969	case IDM_kFindStar:
970	Toggle(fDisplay, IDM_kFindStar);
971	//ToggleFindStar();
972	return kTRUE;
973
974	case IDM_kStretch:
975	Toggle(fDisplay, IDM_kStretch);
976	return kTRUE;
977
978	case IDM_kCaosFilter:
979	Toggle(fDisplay, IDM_kCaosFilter);
980	ToggleCaosFilter();
981	return kTRUE;
982
983	case IDM_kStargCaosFilter:
984	Toggle(fDisplay, IDM_kStargCaosFilter);
985	if (fDisplay->IsEntryChecked(IDM_kStargCaosFilter))
986	{
987	SwitchOff(fDisplay, IDM_kCaosFilter);
988	SwitchOff(fDisplay, IDM_kFindStar);
989	SwitchOff(fDisplay, IDM_kFilter);
990	}
991	else
992	{
993	fDisplay->EnableEntry(IDM_kFilter);
994	fDisplay->EnableEntry(IDM_kFindStar);
995	fDisplay->EnableEntry(IDM_kCaosFilter);
996	}
997	return kTRUE;
998
999	case IDM_kCaosPrintLeds:
1000	case IDM_kCaosPrintRings:
1001	Toggle(fCaosPrint, mp1);
1002	return kTRUE;
1003
1004	case IDM_kCaosAnalStart:
1005	fCaosAnalyse->DisableEntry(IDM_kCaosAnalStart);
1006	fCaosAnalyse->EnableEntry(IDM_kCaosAnalStop);
1007	fCaos->InitHistograms();
1008	return kTRUE;
1009
1010	case IDM_kCaosAnalStop:
1011	fCaosAnalyse->DisableEntry(IDM_kCaosAnalStop);
1012	fCaosAnalyse->EnableEntry(IDM_kCaosAnalStart);
1013	fCaos->ShowHistograms();
1014	fCaos->DeleteHistograms();
1015	return kTRUE;
1016
1017	case IDM_kCaosWriteStart:
1018	fCaosWrite->DisableEntry(IDM_kCaosWriteStart);
1019	fCaosWrite->EnableEntry(IDM_kCaosWriteStop);
1020	fCaos->OpenFile();
1021	return kTRUE;
1022
1023	case IDM_kCaosWriteStop:
1024	fCaosWrite->DisableEntry(IDM_kCaosWriteStop);
1025	fCaosWrite->EnableEntry(IDM_kCaosWriteStart);
1026	fCaos->CloseFile();
1027	return kTRUE;
1028
1029	case IDM_kStart:
1030	fWritePictures->DisableEntry(IDM_kStart);
1031	fWritePictures->EnableEntry(IDM_kStop);
1032	return kTRUE;
1033
1034	case IDM_kStop:
1035	fWritePictures->DisableEntry(IDM_kStop);
1036	fWritePictures->EnableEntry(IDM_kStart);
1037	return kTRUE;
1038
1039	case IDM_kPNG:
1040	fFileType->CheckEntry(IDM_kPNG);
1041	fFileType->UnCheckEntry(IDM_kPPM);
1042	return kTRUE;
1043
1044	case IDM_kPPM:
1045	fFileType->CheckEntry(IDM_kPPM);
1046	fFileType->UnCheckEntry(IDM_kPNG);
1047	return kTRUE;
1048
1049	case IDM_kOnce:
1050	fWriteType->CheckEntry(IDM_kOnce);
1051	fWriteType->UnCheckEntry(IDM_kContinous);
1052	return kTRUE;
1053
1054	case IDM_kContinous:
1055	fWriteType->CheckEntry(IDM_kContinous);
1056	fWriteType->UnCheckEntry(IDM_kOnce);
1057	return kTRUE;
1058
1059	case IDM_kRate25ps:
1060	case IDM_kRate5ps:
1061	case IDM_kRate1s:
1062	case IDM_kRate5s:
1063	case IDM_kRate30s:
1064	case IDM_kRate1m:
1065	case IDM_kRate5m:
1066	for (int i=IDM_kRate25ps; i<=IDM_kRate5m; i++)
1067	if (mp1==i)
1068	fWriteRate->CheckEntry(i);
1069	else
1070	fWriteRate->UnCheckEntry(i);
1071	switch (mp1)
1072	{
1073	case IDM_kRate25ps:
1074	fWrtRate = 1;
1075	return kTRUE;
1076	case IDM_kRate5ps:
1077	fWrtRate = 5;
1078	return kTRUE;
1079	case IDM_kRate1s:
1080	fWrtRate = 25;
1081	return kTRUE;
1082	case IDM_kRate5s:
1083	fWrtRate = 5*25;
1084	return kTRUE;
1085	case IDM_kRate30s:
1086	fWrtRate = 30*25;
1087	return kTRUE;
1088	case IDM_kRate1m:
1089	fWrtRate = 60*25;
1090	return kTRUE;
1091	case IDM_kRate5m:
1092	fWrtRate = 56025;
1093	return kTRUE;
1094	}
1095	return kTRUE;
1096
1097	case IDM_kChannel1:
1098	case IDM_kChannel2:
1099	{
1100	const Int_t ch0 = fChannel->IsEntryChecked(IDM_kChannel1) ? 0 : 1;
1101	const Int_t ch1 = mp1==IDM_kChannel1 ? 0 : 1;
1102
1103	if (ch0==ch1)
1104	return kTRUE;
1105
1106	fChannel->CheckEntry (ch1==0?IDM_kChannel1:IDM_kChannel2);
1107	fChannel->UnCheckEntry(ch1==1?IDM_kChannel1:IDM_kChannel2);
1108
1109	SetChannel();
1110	}
1111	return kTRUE;
1112
1113	case IDM_kInterpol250:
1114	case IDM_kInterpol125:
1115	case IDM_kInterpol50:
1116	case IDM_kInterpol25:
1117	case IDM_kInterpol10:
1118	case IDM_kInterpol5:
1119	case IDM_kInterpol2:
1120	case IDM_kInterpol1:
1121	for (int i=IDM_kInterpol250; i<=IDM_kInterpol1; i++)
1122	if (mp1==i)
1123	fInterpol->CheckEntry(i);
1124	else
1125	fInterpol->UnCheckEntry(i);
1126	switch (mp1)
1127	{
1128	case IDM_kInterpol1:
1129	fIntRate = 1;
1130	return kTRUE;
1131	case IDM_kInterpol2:
1132	fIntRate = 2;
1133	return kTRUE;
1134	case IDM_kInterpol5:
1135	fIntRate = 5;
1136	return kTRUE;
1137	case IDM_kInterpol10:
1138	fIntRate = 10;
1139	return kTRUE;
1140	case IDM_kInterpol25:
1141	fIntRate = 25;
1142	return kTRUE;
1143	case IDM_kInterpol50:
1144	fIntRate = 50;
1145	return kTRUE;
1146	case IDM_kInterpol125:
1147	fIntRate = 125;
1148	return kTRUE;
1149	case IDM_kInterpol250:
1150	fIntRate = 250;
1151	return kTRUE;
1152	}
1153	return kTRUE;
1154
1155	case IDM_kLimMag3:
1156	case IDM_kLimMag4:
1157	case IDM_kLimMag5:
1158	case IDM_kLimMag6:
1159	case IDM_kLimMag7:
1160	case IDM_kLimMag8:
1161	case IDM_kLimMag9:
1162	for (int i=IDM_kLimMag3; i<=IDM_kLimMag9; i++)
1163	if (mp1==i)
1164	fLimMag->CheckEntry(i);
1165	else
1166	fLimMag->UnCheckEntry(i);
1167
1168	fSao->SetLimitMag(mp1-IDM_kLimMag3+3);
1169	return kTRUE;
1170	}
1171	break;
1172	}
1173	break;
1174	}
1175
1176	return kTRUE;
1177	}
1178
1179	void MStarguider::SetPointingPosition(RaDec rd)
1180	{
1181	rd.Ra(rd.Ra()*24/360);
1182	fCRaDec->SetCoordinates(rd);
1183	}
1184
1185	ZdAz MStarguider::TrackingError(TArrayF &x, TArrayF &y, TArrayF &mag,
1186	Int_t &num) const
1187	{
1188	num = -1;
1189
1190	// Width of the final 2D gaussian
1191	const Double_t width = 0.8;
1192
1193	// The binning is made 1.7 sigma (which, in the 1D case, gives the
1194	// highest significance of a gaussian signal) (1bin equiv 3x3 sigma)
1195	const Double_t max = 50;
1196	const Int_t n = TMath::Nint(2max/(1.771.7*width));
1197	//1.77=sqrt(pi) comes from pir=bin
1198
1199	// Fill a histogram with the dx/dy values from the file
1200	TH2F hist("Hist", "dX/dY", n, -max, max, n, -max, max);
1201	// hist.SetDirectory(0);
1202
1203	//
1204	// Search for matching Magnitudes
1205	//
1206	//for (int i=0; i<mag.GetSize(); i++)
1207	//{
1208	// if (mag[i]>48-15 && mag[i]<48+15)
1209	// h.Fill(x[i], y[i]);
1210	//}
1211
1212	// fill dx and dy into histogram
1213	for (int i=0; i<mag.GetSize(); i++)
1214	hist.Fill(x[i], y[i]);
1215
1216	// Remove all bins which have content of only a single event
1217	// including under- and overflow bins
1218	for (int i=0; i<hist.GetSize(); i++)
1219	if (hist.GetBinContent(i)<1.5)
1220	hist.SetBinContent(i, 0);
1221
1222	// Find the bin containing the maximum
1223	Int_t bx, by, bz;
1224	hist.GetMaximumBin(bx, by, bz);
1225
1226	// In the worst case the events are spread through the
1227	// bins which are the neighbors of the maximum
1228	// Normally neighbors which do not belong to the signal are empty!
1229	hist.GetXaxis()->SetRange(bx-1, bx+1); // 3x3bins ~8x8pix ~9x9sigma
1230	hist.GetYaxis()->SetRange(by-1, by+1); // 3x3bins ~8x8pix ~9x9sigma
1231
1232	// Check whether this region contains events
1233	num = TMath::Nint(hist.Integral());
1234	if (num<1)
1235	return ZdAz();
1236
1237	// Get Mean for the given axis range
1238	Double_t mx = hist.GetMean(1);
1239	Double_t my = hist.GetMean(2);
1240
1241	const Int_t max1 = TMath::Nint(hist.GetBinContent(bx, by));
1242
1243	// Check if the maximum is unique
1244	Int_t bx2, by2, bz2;
1245	hist.GetXaxis()->SetRange(-1, 9999);
1246	hist.GetYaxis()->SetRange(-1, 9999);
1247	hist.SetBinContent(bx, by, 0);
1248	hist.GetMaximumBin(bx2, by2, bz2);
1249
1250	const Int_t max2 = TMath::Nint(hist.GetBinContent(bx2, by2));
1251	if (max1==max2 && TMath::Abs(bx2-bx)+TMath::Abs(by2-by)>1)
1252	return ZdAz();
1253
1254	// loop again over the file and fill the histogram again.
1255	// to get closer to the correct value
1256	Double_t sumx = 0;
1257	Double_t sumy = 0;
1258	num = 0;
1259	for (int i=0; i<mag.GetSize(); i++)
1260	{
1261	// only fill values into the histogram which
1262	// are inside 2*1.7=3.4 sigma (99.7%)
1263	if (TMath::Hypot(x[i]-mx, y[i]-my)>width*3.4)
1264	continue;
1265
1266	sumx += x[i];
1267	sumy += y[i];
1268	num++;
1269	}
1270
1271	if (num<1)
1272	return ZdAz();
1273
1274	// calc MeanX and MeanY
1275	mx = sumx/num;
1276	my = sumy/num;
1277
1278	// loop again to fill the mispointing corrected histograms
1279	// and fill another histogram to check the quality of the calculated
1280	// mispointing.
1281	sumx = 0;
1282	sumy = 0;
1283	num = 0;
1284	for (int i=0; i<mag.GetSize(); i++)
1285	{
1286	// only fill values into the histogram which
1287	// are inside 1.7=3.4 sigma (92%)
1288	// Cut at 1.7 sigma which gives the best background supression
1289	if (TMath::Hypot(x[i]-mx, y[i]-my)>width*1.7)
1290	continue;
1291
1292	sumx += x[i];
1293	sumy += y[i];
1294	num++;
1295	}
1296
1297	if (num<1)
1298	return ZdAz(); // FIXME!!!!!!!!!!!!
1299
1300	// Mispointing
1301	mx = sumx/num;
1302	my = sumy/num;
1303
1304	#ifdef EXPERT
1305	cout << "Offset-XY: " << mx << " +- " << my << endl;
1306	#endif
1307
1308	return fSao->CalcDeltaZdAzFromPix(mx, my)*TMath::RadToDeg();
1309	/*
1310	AltAz pos0 = fSao->CalcAltAzFromPix(768/2, 576/2)*kRad2Deg;
1311	AltAz pos1 = fSao->CalcAltAzFromPix(768/2+mx, 576/2+my)*kRad2Deg;
1312
1313	pos1 -= pos0;
1314
1315	ZdAz res2 = ZdAz(-pos1.Alt(), pos1.Az());
1316
1317	return res1;
1318	*/
1319	}
1320
1321	Int_t MStarguider::CalcTrackingError(const Leds &leds, MStarList &stars,
1322	ZdAz &d, const MTime &t, const double &bright,
1323	Int_t &num, const Ring &center, Int_t numleds, Int_t numrings)
1324	{
1325	// Get tracking coordinates
1326	const XY xy = fCRaDec->GetCoordinates();
1327
1328	num = leds.GetEntries();
1329	if (num < 3) //was 1
1330	{
1331	gLog << warn << "Sorry, less than 3 detected spot in FOV!" << endl;
1332	if (fTPoint->IsDown() && fCosy && fCosy->GetDriveCom())
1333	fCosy->GetDriveCom()->SendTPoint(false, 'S', fTPointStarMag, fTPointStarName, AltAz(), ZdAz(), xy, 0, 0, t, center, Led(), numleds, numrings, num); // Report
1334	fTPoint->SetDown(kFALSE);
1335	return 0;
1336	}
1337
1338	if (stars.GetRealEntries() < 3)
1339	{
1340	gLog << warn << "Sorry, less than 3 stars in FOV!" << endl;
1341	if (fTPoint->IsDown() && fCosy && fCosy->GetDriveCom())
1342	fCosy->GetDriveCom()->SendTPoint(false, 'S', fTPointStarMag, fTPointStarName, AltAz(), ZdAz(), xy, 0, 0, t, center, Led(), numleds, numrings, num); // Report
1343	fTPoint->SetDown(kFALSE);
1344	return 0;
1345	}
1346
1347	stars.Sort(); // Sort by magnitude
1348
1349	#ifdef EXPERT
1350	TString str = "data/tracking_";
1351	str += fSao->GetMjd();
1352	str += ".txt";
1353
1354	ofstream fout(str);
1355	#endif
1356
1357	TArrayF x, y, mag;
1358
1359	// FIXME: Is predefined value 3 a good idea?
1360	Int_t cnt=0;
1361
1362	MStar *star=0;
1363	MStarListIter NextStar(&stars);
1364	while ((star=NextStar()) && cnt<num+5)
1365	{
1366	TIter NextSp(&leds);
1367	Led *spot=NULL;
1368	while ((spot=(Led*)NextSp()))
1369	{
1370	const XY dpos(spot->GetX()-(768-star->GetX()),
1371	spot->GetY()-star->GetY());
1372
1373	const Int_t idx = x.GetSize();
1374
1375	x.Set(idx+1);
1376	y.Set(idx+1);
1377	mag.Set(idx+1);
1378
1379	x.AddAt(dpos.X(), idx);
1380	y.AddAt(dpos.Y(), idx);
1381	mag.AddAt(1, idx);
1382	// mag.AddAt(log(spot->GetMag())/star->GetMag(), idx);
1383	/*
1384	#ifdef EXPERT
1385	if (fout)
1386	{
1387	fout << spot->GetX() << " "
1388	<< spot->GetY() << " "
1389	<< -2.5*log(spot->GetMag()) << " "
1390	<< star->GetX() << " "
1391	<< star->GetY() << " "
1392	<< star->GetMag() << " ";
1393	fout << x[idx] << " " << y[idx] << " " << mag[idx] << endl;
1394	}
1395	#endif
1396	*/
1397	}
1398	cnt++;
1399	}
1400
1401	Int_t numcor = 0;
1402	d = TrackingError(x, y, mag, numcor);
1403	if (numcor<1)
1404	{
1405	fTPoint->SetDown(kFALSE);
1406	if (fTPoint->IsDown() && fCosy && fCosy->GetDriveCom())
1407	fCosy->GetDriveCom()->SendTPoint(false, 'S', fTPointStarMag, fTPointStarName, AltAz(), ZdAz(), xy, 0, 0, t, center, Led(), numleds, numrings, num, numcor); // Report
1408	return 0;
1409	}
1410
1411	fDZdAz->SetCoordinates(d);
1412
1413	//
1414	// Current Pointing position
1415	//
1416	ZdAz cpos = fSao->GetZdAz()-d;
1417	fPZdAz->SetCoordinates(cpos);
1418
1419	// Check StargTPoint data set request
1420	if (!fMode->IsEntryChecked(IDM_kStarguiderMode) \|\| !fTPoint->IsDown())
1421	return numcor;
1422	fTPoint->SetDown(kFALSE);
1423
1424	// If no file open: open new file
1425	if (!fOutStargTp)
1426	{
1427	// open tpoint file
1428	const TString name = MCosy::GetFileName("tpoint", "starg", "txt");
1429	gLog << all << "TPoint-Starg File ******* " << name << " ******** " << endl;
1430
1431	fOutStargTp = new ofstream(name);
1432	*fOutStargTp << "Magic Model STARGTPOINT data file" << endl;
1433	*fOutStargTp << ": ALTAZ" << endl;
1434	*fOutStargTp << "49 48 0 ";
1435	*fOutStargTp << t << endl;
1436	}
1437
1438	const RaDec rd(xy.X()MAstro::HorToRad(), xy.Y()TMath::DegToRad());
1439
1440	// From the star position in the camera we calculate the Alt/Az
1441	// position we are currently tracking (real pointing position)
1442	fSao->SetMjd(t.GetMjd());
1443	AltAz za0 = fSao->CalcAltAz(rd)*kRad2Deg;
1444
1445	//correction with offset from last tpoint measurement
1446	za0 -= fAltAzOffsetFromTp;
1447
1448	//if the difference between the tpoint and the starguider tpoint
1449	//is too big, the starguider tpoint is not stored
1450	if ((t.GetMjd()-fTimeFromTp.GetMjd())>0.001) //1min20sec
1451	{
1452	cout << " time difference between tpoint and starguider-tpoint > 1m20s" << endl;
1453	cout << " => starguider tpoint hasn't been stored. " << endl;
1454	cout << " Please repeat whole procedure. " << endl;
1455	return numcor;
1456	}
1457
1458
1459	// Write real pointing position
1460	*fOutStargTp << setprecision(7) << za0.Az() << " " << za0.Alt() << " ";
1461
1462	// Write system pointing position
1463	*fOutStargTp << fmod(cpos.Az()+360, 360) << " " << 90-cpos.Zd();
1464
1465	*fOutStargTp << " " << xy.X() << " " << xy.Y();
1466	*fOutStargTp << " " << d.Zd() << " " << d.Az();
1467	*fOutStargTp << " " << setprecision(11) << t.GetMjd();
1468	*fOutStargTp << " " << setprecision(4) << center.GetMag();
1469	*fOutStargTp << " 0";// << star->GetMag();
1470	*fOutStargTp << " " << center.GetX() << " " << center.GetY();
1471	*fOutStargTp << " 0 0";
1472	*fOutStargTp << " " << numleds << " " << numrings;
1473	*fOutStargTp << " " << num << " " << numcor << " " << bright;
1474	*fOutStargTp << " " << fTPointStarMag << " " << fTPointStarName;
1475	*fOutStargTp << endl;
1476
1477	gLog << all << "Starguider TPoint successfully taken." << endl;
1478
1479	fTimeFromTp.Clear();
1480
1481	if (!fCosy)
1482	return numcor;
1483
1484	MDriveCom *com = fCosy->GetDriveCom();
1485	if (!com)
1486	return numcor;
1487
1488	com->SendTPoint(true, 'S', fTPointStarMag, fTPointStarName, za0, cpos, xy, d.Zd(), d.Az(), t, center, Led(), numleds, numrings, num, numcor); // Report
1489
1490	return numcor;
1491	}
1492
1493	void MStarguider::FindStar(const FilterLed &f, const FilterLed &f2, const Ring &center, const MTime &t, Int_t numleds, Int_t numrings)
1494	{
1495	// Get tracking coordinates
1496	const XY xy = fCRaDec->GetCoordinates(); // [h, deg]
1497
1498	if (center.GetX()<=0 && center.GetY()<=0)
1499	{
1500	gLog << warn << "Couldn't determine center of the camera." << endl;
1501	if (fTPoint->IsDown() && fCosy && fCosy->GetDriveCom())
1502	fCosy->GetDriveCom()->SendTPoint(false, 'T', fTPointStarMag, fTPointStarName, AltAz(), ZdAz(), xy, 0, 0, t, center, Led(), numleds, numrings); // Report
1503	return;
1504	}
1505
1506	// Try to find the star
1507	Leds leds;
1508	f.FindStar(leds, (Int_t)center.GetX(), (Int_t)center.GetY(), true);
1509
1510	// Check whether star found
1511	Led star = (Led)leds.At(0);
1512	if (!star)
1513	{
1514	gLog << warn << "No star found." << endl;
1515	if (fTPoint->IsDown() && fCosy && fCosy->GetDriveCom())
1516	fCosy->GetDriveCom()->SendTPoint(false, 'T', fTPointStarMag, fTPointStarName, AltAz(), ZdAz(), xy, 0, 0, t, center, Led(), numleds, numrings); // Report
1517	return;
1518	}
1519
1520	cout << "Found star @ " << flush;
1521	star->Print();
1522	f2.MarkPoint(star->GetX(), star->GetY(), 2<<2);
1523
1524	const RaDec rd(xy.X()MAstro::HorToRad(), xy.Y()TMath::DegToRad());
1525
1526	// Initialize Star Catalog on the camera plane
1527	MGeomCamMagic geom;
1528	MAstroCamera ac;
1529	ac.SetGeom(geom);
1530	ac.SetRadiusFOV(3);
1531	ac.SetObservatory(*fSao);
1532	ac.SetTime(t);
1533	ac.SetRaDec(rd.Ra(), rd.Dec());
1534
1535	// Convert from Pixel to millimeter (1pix=2.6mm) [deg/pix / deg/mm = mm/pix]
1536	// Correct for abberation.
1537	const Double_t conv = fCaos->GetArcsecPerPixel()/3600/geom.GetConvMm2Deg()/ 1.0713;
1538
1539	// Adapt coordinate system (GUIs and humans are counting Y in different directions)
1540	const Double_t dx = (star->GetX()-center.GetX())*conv;
1541	const Double_t dy = (center.GetY()-star->GetY())*conv;
1542
1543	// Convert offset from camera plane into local ccordinates
1544	Double_t dzd, daz;
1545	ac.GetDiffZdAz(dx, dy, dzd, daz);
1546
1547	ZdAz zdaz(dzd,daz);
1548
1549	// Check TPoint data set request
1550	if (!fMode->IsEntryChecked(IDM_kTpointMode) \|\| !fTPoint->IsDown())
1551	return;
1552
1553	// If no file open: open new file
1554	if (!fOutTp)
1555	{
1556	//
1557	// open tpoint file
1558	//
1559	const TString name = MCosy::GetFileName("tpoint", "tpoint", "txt");
1560	cout << "TPoint File ******* " << name << " ******** " << endl;
1561
1562	fOutTp = new ofstream(name);
1563	*fOutTp << "Magic Model TPOINT data file" << endl;
1564	*fOutTp << ": ALTAZ" << endl;
1565	*fOutTp << "49 48 0 ";
1566	*fOutTp << t << endl;
1567	// temp(°C) pressure(mB) height(m) humidity(1) wavelength(microm) troplapserate(K/m)
1568	}
1569
1570	// Output Ra/Dec the drive system thinks that it is currently tracking
1571	//cout << "TPoint Star: " << xy.X() << "h " << xy.Y() << "°" << endl;
1572
1573	// From the star position in the camera we calculate the Alt/Az
1574	// position we are currently tracking (real pointing position)
1575	fSao->SetMjd(t.GetMjd());
1576	AltAz za0 = fSao->CalcAltAz(rd)*kRad2Deg;
1577
1578	//ZdAz za0 = fSao->GetZdAz();
1579	za0 -= AltAz(-dzd, daz);
1580	fAltAzOffsetFromTp = AltAz(-dzd, daz);
1581	fTimeFromTp=t;
1582
1583	// From the Shaftencoders we get the current 'pointing' position
1584	// as it is seen by the drive system (system pointing position)
1585	const ZdAz za1 = fCosy->GetSePos()*360; // [deg]
1586
1587
1588	// Write real pointing position
1589	//cout << " Alt/Az: " << za0.Alt() << "° " << za0.Az() << "°" << endl;
1590	*fOutTp << setprecision(7) << za0.Az() << " " << za0.Alt() << " ";
1591
1592	// Write system pointing position
1593	//cout << " SE-Pos: " << 90-za1.Zd() << "° " << za1.Az() << "°" << endl;
1594	*fOutTp << fmod(za1.Az()+360, 360) << " " << 90-za1.Zd();
1595
1596	*fOutTp << " " << xy.X() << " " << xy.Y();
1597	*fOutTp << " " << -dzd << " " << -daz;
1598	*fOutTp << " " << setprecision(11) << t.GetMjd();
1599	*fOutTp << " " << setprecision(4) << center.GetMag();
1600	*fOutTp << " " << star->GetMag();
1601	*fOutTp << " " << center.GetX() << " " << center.GetY();
1602	*fOutTp << " " << star->GetX() << " " << star->GetY();
1603	*fOutTp << " " << numleds << " " << numrings;
1604	*fOutTp << " 0 0 0";
1605	*fOutTp << " " << fTPointStarMag << " " << fTPointStarName;
1606	*fOutTp << endl;
1607
1608	gLog << all << "TPoint successfully taken." << endl;
1609	/*
1610	MLog &outrep = *fCosy->GetOutRep();
1611	if (outrep.Lock("MStarguider::FindStar"))
1612	{
1613	outrep << "FINDSTAR-REPORT 00 " << MTime(-1) << " " << setprecision(7);
1614	outrep << 90-za0.Alt() << " " << za0.Az() << " ";
1615	outrep << za1.Zd() << " " << za1.Az() << " ";
1616	outrep << xy.X() << " " << xy.Y() << " ";
1617	outrep << -dzd << " " << -daz << " ";
1618	outrep << star->GetX() << " " << star->GetY() << " ";
1619	outrep << center.GetX() << " " << center.GetY() << " ";
1620	outrep << dx/conv << " " << dy/conv << " " << star->GetMag();
1621	outrep << setprecision(11) << t.GetMjd() << endl;
1622	outrep.UnLock("MStarguider::FindStar");
1623	}*/
1624
1625	// return zdaz;
1626
1627	if (!fCosy)
1628	return;
1629
1630	MDriveCom *com = fCosy->GetDriveCom();
1631	if (!com)
1632	return;
1633
1634	com->SendTPoint(true, 'T', fTPointStarMag, fTPointStarName, za0, za1, xy, -dzd, -daz, t, center, *star, numleds, numrings); // Report
1635	}
1636
1637	bool MStarguider::Interpolate(const unsigned long n, byte *img) const
1638	{
1639	if (fIntRate<=1)
1640	return true;
1641
1642	static unsigned short myimg[768*576];
1643
1644	unsigned short *f = myimg;
1645	byte *i = img;
1646	byte e = img+768576;
1647
1648	while (i<e)
1649	f++ += i++;
1650
1651	if (n%fIntRate)
1652	return false;
1653
1654	f = myimg;
1655	i = img;
1656	e = img+768*576;
1657
1658	while (i<e)
1659	i++ = (byte)(f++/fIntRate);
1660
1661	memset(myimg, 0, sizeof(myimg));
1662
1663	return true;
1664	}
1665
1666	void MStarguider::DrawZoomImage(const byte *img)
1667	{
1668	byte zimg[kZOOM*kZOOM];
1669	for (int y=0; y<kZOOM; y++)
1670	for (int x=0; x<kZOOM; x++)
1671	zimg[x+ykZOOM] = img[(fDx+(x-kZOOM/2)/2)+(fDy+(y-kZOOM/2)/2)768];
1672
1673	fZoomImage->DrawImg(zimg);
1674	}
1675
1676	void MStarguider::DrawCosyImage(const byte *img)
1677	{
1678	if (!fCosy)
1679	return;
1680
1681	byte simg[(768/2-1)*(576/2-1)];
1682	for (int y=0; y<576/2-1; y++)
1683	for (int x=0; x<768/2-1; x++)
1684	simg[x+y(768/2-1)] = ((unsigned int)img[2x+2y768]+img[2x+2y768+1]+img[2x+2(y+1)768]+img[2x+2(y+1)*768+1])/4;
1685
1686	fCosy->GetWin()->GetImage()->DrawImg(simg);
1687	}
1688
1689	void MStarguider::StartTPoint(char *cmd)
1690	{
1691	fTPointStarName = "Dummy";
1692	fTPointStarMag = 0;
1693
1694	TString str(cmd);
1695
1696	TObjArray *arr = str.Tokenize(' ');
1697
1698	if (arr->GetEntries()==2)
1699	{
1700	fTPointStarName = (*arr)[0]->GetName();
1701	fTPointStarMag = atof((*arr)[1]->GetName());
1702	}
1703
1704	delete arr;
1705
1706	if (fTPointFromCC<0)
1707	fTPointFromCC=0;
1708	}
1709
1710	void MStarguider::StartStarguider(bool on)
1711	{
1712	// Switch to starguider mode
1713	if (on)
1714	{
1715	cout << " * Switching Starguider mode on" << endl;
1716	fMode->UnCheckEntry(IDM_kStarguiderMode);
1717	ProcessMessage(MK_MSG(kC_COMMAND, kCM_MENU), IDM_kStarguiderMode, 0);
1718	}
1719	else
1720	{
1721	cout << " * Switching Starguider mode off" << endl;
1722	fMode->CheckEntry(IDM_kStarguiderMode);
1723	ProcessMessage(MK_MSG(kC_COMMAND, kCM_MENU), IDM_kStarguiderMode, 0);
1724	}
1725	}
1726
1727	Int_t MStarguider::GetStarguiderMode() const
1728	{
1729	return fMode->IsEntryChecked(IDM_kStarguiderMode) ? 1 : 2;
1730
1731	}
1732
1733	Bool_t MStarguider::DoTPoint()
1734	{
1735	if (fTPoint->IsDown() && fTPointFromCC<0)
1736	{
1737	fTPointFromCC = 0;
1738	fTPoint->SetDown(kFALSE);
1739	}
1740
1741	if (fTPointFromCC<0)
1742	return kTRUE;
1743
1744	switch (++fTPointFromCC)
1745	{
1746	case 1:
1747	fTimeFromTp.Clear();
1748	fNumStarsDetected = 0;
1749
1750	if (!fMode->IsEntryChecked(IDM_kTpointMode))
1751	{
1752	cout << " * Switching to TPoint mode" << endl;
1753	// Switch to tpoint mode
1754	fMode->UnCheckEntry(IDM_kTpointMode);
1755	ProcessMessage(MK_MSG(kC_COMMAND, kCM_MENU), IDM_kTpointMode, 0);
1756	return kFALSE;
1757	}
1758	fTPointFromCC++;
1759
1760	case 2:
1761	case 3:
1762	cout << " * Waiting one frame" << endl;
1763	// Wait one frame
1764	return kFALSE;
1765
1766	case 4:
1767	cout << " * Taking TPoint" << endl;
1768	fTPoint->SetDown(); // kTRUE
1769	return kTRUE;
1770
1771	case 5:
1772	if (!fTimeFromTp) // TPoint failed
1773	break;
1774
1775	// Switch to starguider mode
1776	cout << " * Switching to Starguider mode" << endl;
1777	fMode->UnCheckEntry(IDM_kStarguiderMode);
1778	ProcessMessage(MK_MSG(kC_COMMAND, kCM_MENU), IDM_kStarguiderMode, 0);
1779	return kFALSE;
1780
1781	case 6:
1782	case 7:
1783	cout << " * Waiting one frame" << endl;
1784	// Wait one frame
1785	return kFALSE;
1786
1787	case 8:
1788	cout << " * Taking Starguider TPoint" << endl;
1789	fTPoint->SetDown(); // kTRUE
1790	return kTRUE;
1791
1792	// case 9:
1793	// cout << " * Send Report" << endl;
1794	// return kTRUE;
1795
1796	case 9:
1797	cout << " * Switching to TPoint mode" << endl;
1798	// Switch to tpoint mode
1799	fMode->UnCheckEntry(IDM_kTpointMode);
1800	ProcessMessage(MK_MSG(kC_COMMAND, kCM_MENU), IDM_kTpointMode, 0);
1801	fTPointFromCC = -1;
1802	return kFALSE;
1803	}
1804
1805	// Send report
1806	/*
1807	if (!fCosy)
1808	return kTRUE;
1809
1810	MDriveCom *com = fCosy->GetDriveCom();
1811	if (!com)
1812	return kTRUE;
1813
1814	// nominalaz, nominalel, realaz, realel, nomra, nomdec,
1815	// diffaz, diffel, mjd, numleds, artmag
1816
1817	//fTimeFromTp.Clear();
1818	//fStatus==MDriveCom::kMonitoring
1819	//fNumStarsDetected = numstars;
1820	//fNumStarsCorrelated = rc;
1821	com->SendTPoint(fNumStarsCorrelated>0);
1822	*/
1823	return kTRUE;
1824	}
1825
1826	void MStarguider::ProcessFrame(const unsigned long n, byte *img,
1827	struct timeval *tm)
1828	{
1829	static unsigned long n0 = n;
1830
1831	MTime t(*tm);
1832
1833	const Double_t d = t-fTime;
1834	if (d>1)
1835	{
1836	const TString txt = MString::Format("%dfps", (int)((n-n0)/d+.5));
1837	fFps->SetText(txt);
1838	fTime = t;
1839	n0 = n;
1840	}
1841
1842	if (!Interpolate(n, img))
1843	return;
1844
1845	byte cimg[768*576];
1846	memset(cimg, 0, 768*576);
1847
1848	FilterLed f(img, 768, 576, 2.5); // 2.5
1849	FilterLed f2(cimg, 768, 576); // former color 0xb0
1850
1851	if (fDisplay->IsEntryChecked(IDM_kStretch))
1852	f.Stretch();
1853
1854	if (!fWritePictures->IsEntryEnabled(IDM_kStart) &&
1855	(!(n%fWrtRate) \|\| fWriteType->IsEntryChecked(IDM_kOnce)))
1856	{
1857
1858	if (fFileType->IsEntryChecked(IDM_kPNG))
1859	Writer::Png("pix/file", img, tm, fCRaDec->GetCoordinates());
1860
1861	if (fFileType->IsEntryChecked(IDM_kPPM))
1862	Writer::Ppm("pix/file", img, tm, fCRaDec->GetCoordinates());
1863
1864	if (fWriteType->IsEntryChecked(IDM_kOnce))
1865	ProcessMessage(MK_MSG(kC_COMMAND, kCM_MENU), IDM_kStop, 0);
1866	}
1867
1868	// Visual Filter, whole FOV
1869	if (fDisplay->IsEntryChecked(IDM_kFilter))
1870	f.Execute();
1871
1872	if (!DoTPoint())
1873	return;
1874
1875	Int_t numleds = 0;
1876	Int_t numrings = 0;
1877
1878	// Find Center of Camera for Caos and Tpoints
1879	// Ring center;//(-1, -1);
1880	Ring center(5, 5);//(-1, -1);
1881	if (fDisplay->IsEntryChecked(IDM_kCaosFilter))
1882	{
1883	const bool printl = fCaosPrint->IsEntryChecked(IDM_kCaosPrintLeds);
1884	const bool printr = fCaosPrint->IsEntryChecked(IDM_kCaosPrintRings);
1885	ZdAz pos;
1886	if (fCosy)
1887	pos = fCosy->GetPointingPos();
1888
1889	center = fCaos->Run(img, printl, printr, pos, t);
1890
1891	numleds = fCaos->GetNumDetectedLEDs();
1892	numrings = fCaos->GetNumDetectedRings();
1893	}
1894
1895	// Find Star at Center---for Tpoint Procedure
1896	if (fDisplay->IsEntryChecked(IDM_kFindStar))
1897	{
1898	// Set search Paremeters (FIXME: Get them from user input!)
1899	f.SetCut(fFindStarCut);
1900	f.SetBox(fFindStarBox);
1901
1902	FindStar(f, f2, center, t, numleds, numrings);
1903	}
1904
1905	DrawZoomImage(img);
1906	DrawCosyImage(img);
1907
1908	// Position corresponding to the camera center (53.2, 293.6)
1909	Ring sgcenter;//(-1, -1); // Center of camera in SG picture [px]
1910
1911	// Find Center of Camera in Starfield Camera picture
1912	if (fDisplay->IsEntryChecked(IDM_kStargCaosFilter))
1913	{
1914	ZdAz pos;
1915	if (fCosy)
1916	pos = fCosy->GetPointingPos();
1917
1918	sgcenter = fStargCaos->Run(img, kFALSE, kFALSE, pos, t); // [px]
1919
1920	numleds = fStargCaos->GetNumDetectedLEDs();
1921	numrings = fStargCaos->GetNumDetectedRings();
1922	}
1923
1924	// we obtain a list of stars in the FOV from the SAO catalog
1925	if (fDisplay->IsEntryChecked(IDM_kCatalog))
1926	{
1927	MTime time(*tm);
1928
1929	XY xy = fCRaDec->GetCoordinates(); //[h, deg]
1930	fRaDec->Set(xy.X()*15, xy.Y()); //[deg,deg]
1931
1932	UpdatePosZoom();
1933
1934	// Always call SetMjd first!
1935	fSao->SetPointing(time.GetMjd(), *fRaDec);
1936	fCZdAz->SetCoordinates(fSao->GetZdAz());
1937
1938	fSao->SetBox(fStarguiderW, fStarguiderH); // 280 Region of interest around center
1939
1940	// If center of camera cannot be determined sgcenter is (0,0)
1941	const Bool_t centerisvalid = sgcenter.GetX()>0 && sgcenter.GetY()>0;
1942
1943	// We determine the ideal starfield using camera sagging info
1944	// from the LEDs
1945	//Please never change this offsets!!!
1946	// 53.2 and 293.6 are the "preliminary" camera center
1947	// -9 and 28.5 are the offsets of the pointing position in the sky
1948	//const XY off(sgcenter.GetX()- 53.2-9,
1949	// sgcenter.GetY()-293.6+28.5);
1950
1951	// Skycenter
1952	const XY off(sgcenter.GetX() + fSkyOffsetX,
1953	sgcenter.GetY() + fSkyOffsetY);
1954
1955	MStarList stars;
1956	if (centerisvalid)
1957	{
1958	// we obtain stars in the effective star FOV and draw them.
1959	// coordinates are video frame coords.
1960	fSao->CalcStars(stars, fStarguiderX, fStarguiderY, off.X(), off.Y());
1961	fSao->DrawStars(stars, cimg);
1962	}
1963
1964	// There are two corrections to the mispointing
1965	// - Sagging of the camera as measured with the LEDs
1966	// - Star not ideally centered on MAGIC Camera
1967
1968	// Next we evaluate the offset given by the LEDs. This we obtain
1969	// in Zd/Az and add it to the tracking error.
1970	if (fDisplay->IsEntryChecked(IDM_kStarguider))
1971	{
1972	const Float_t cut = atof(fCut->GetText());
1973
1974	Leds spots;
1975	f.SetBox(fStarguiderW, fStarguiderH); // 280
1976	f.SetCut(cut);
1977
1978	double bright;
1979	f.ExecuteAndMark(spots, fStarguiderX, fStarguiderY, bright);
1980
1981	ULong_t color;
1982	gClient->GetColorByName("Green", color);
1983	if (bright> 60)
1984	gClient->GetColorByName("Yellow", color);
1985	if (bright> 85)
1986	gClient->GetColorByName("Orange", color);
1987	if (bright> 95)
1988	gClient->GetColorByName("Red", color);
1989	fSkyBright->SetBackgroundColor(color);
1990
1991	const MString txt = MString::Format("Sky Brightness: %.1f", bright);
1992	fSkyBright->SetText(txt);
1993
1994	const Bool_t brightnessisvalid = bright<1.75*fLastBright &&
1995	bright>30 && bright<110;
1996
1997	fLastBright = bright;
1998
1999	Int_t numstars = 0;
2000	const Int_t rc = CalcTrackingError(spots, stars, fD, t, bright, numstars, sgcenter, numleds, numrings);
2001
2002	const Bool_t monitoring = brightnessisvalid && centerisvalid && fNumStarsCorrelated>2;
2003
2004	fStatus = monitoring ? MDriveCom::kMonitoring : MDriveCom::kError;
2005
2006	if (fCosy)
2007	fPos = fCosy->GetPointingPos();
2008
2009	if (fOperations->IsEntryChecked(IDM_kStargAnalysis))
2010	fStargHistograms->Fill(spots, stars, fD, fSao->GetZdAz(),
2011	sgcenter, bright, fPos, t);
2012
2013	fNumStarsDetected = numstars;
2014	fNumStarsCorrelated = rc;
2015
2016	if (fCosy)
2017	{
2018	MDriveCom *com = fCosy->GetDriveCom();
2019	if (com)
2020	com->SendStargReport(fStatus, fD, fSao->GetZdAz(),
2021	sgcenter, numstars, rc, bright,
2022	time.GetMjd(), numleds, numrings); // Report
2023	}
2024
2025	} //kStarguider
2026
2027	if (centerisvalid && fNumStarsCorrelated>2)
2028	{
2029	// Position around which the circles are drawn.
2030	const Ring skycenter(off.X(), off.Y());
2031
2032	f2.DrawCircle(skycenter, 2.0, 0x0a);
2033
2034	const Double_t ap = fSao->GetPixSize()/3600; //[deg/pix]
2035
2036	f2.DrawCircle(skycenter, 0.10/ap, 0x0a); //0.1deg
2037	f2.DrawHexagon(skycenter, 2.06/ap, 0x0a);
2038	f2.DrawHexagon(skycenter, 3.50/ap, 0x0a);
2039	}
2040
2041	} //CalcStars
2042
2043	if (fTPoint->IsDown())
2044	fTPoint->SetDown(kFALSE);
2045
2046	// Draw Circles around center of Camera
2047	if (fDisplay->IsEntryChecked(IDM_kCaosFilter) &&
2048	center.GetX()>0 && center.GetY()>0)
2049	{
2050	f2.DrawCircle(center, 0x0a);
2051	f2.DrawCircle(center, 7.0,
2052	fDisplay->IsEntryChecked(IDM_kFindStar)?3:0xb0);
2053	f2.DrawCircle(center, 115.0, 0x0a);
2054	f2.DrawCircle(center, 230.0, 0x0a);
2055	f2.DrawCircle(center, 245.0, 0x0a);
2056	}
2057
2058	if (fDisplay->IsEntryChecked(IDM_kStargCaosFilter) &&
2059	sgcenter.GetX()>0 && sgcenter.GetY()>0)
2060	{
2061	f2.DrawCircle(sgcenter, 0x0a);
2062	f2.DrawCircle(sgcenter, 5.0,
2063	fDisplay->IsEntryChecked(IDM_kFindStar)?3:0xb0);
2064	}
2065
2066	if (fDisplay->IsEntryChecked(IDM_kCaosFilter) \|\|
2067	fDisplay->IsEntryChecked(IDM_kCatalog) \|\|
2068	fDisplay->IsEntryChecked(IDM_kFindStar))
2069	fImage->DrawColImg(img, cimg);
2070	else
2071	fImage->DrawImg(img);
2072	}
2073
2074	void MStarguider::UpdatePosZoom()
2075	{
2076	MString txt;/*
2077	if (fDisplay->IsEntryChecked(IDM_kCatalog))
2078	{
2079	// FIXME: Necessary?
2080	fSao->Now();
2081	AltAz aa = fSao->CalcAltAzFromPix(fDx, fDy)*kRad2Deg;
2082	if (aa.Az()<0)
2083	aa.Az(aa.Az()+360);
2084	txt.Form("(%d, %d) %.1fd/%.1fd", fDx, fDy, -aa.Alt(), aa.Az()-180);
2085	}
2086	else*/
2087	txt.Form("(%d, %d)", fDx, fDy);
2088	fPosZoom->SetText(txt);
2089	}
2090
2091	Bool_t MStarguider::HandleDoubleClick(Event_t *event)
2092	{
2093	const Int_t w = fImage->GetWidth();
2094	const Int_t h = fImage->GetHeight();
2095	const Int_t x = fImage->GetX();
2096	const Int_t y = fImage->GetY();
2097
2098	if (!(event->fX>x && event->fX<x+w && event->fY>y && event->fY<y+h))
2099	return kTRUE;
2100
2101	Int_t dx = event->fX-x;
2102	Int_t dy = event->fY-y;
2103
2104	if (dx<kZOOM/4) dx=kZOOM/4;
2105	if (dy<kZOOM/4) dy=kZOOM/4;
2106	if (dx>766-kZOOM/4) dx=766-kZOOM/4;
2107	if (dy>574-kZOOM/4) dy=574-kZOOM/4;
2108
2109	fDx = dx;
2110	fDy = dy;
2111
2112	UpdatePosZoom();
2113	return kTRUE;
2114	}
2115
2116	void MStarguider::Print(TString &str, Double_t deg) const
2117	{
2118	Char_t sgn;
2119	UShort_t d, m, s;
2120
2121	MAstro::Deg2Dms(deg, sgn, d, m, s);
2122
2123	str += MString::Format("%c %03d %02d %03d ", sgn, d, m, s);
2124	}

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: trunk/Cosy/main/MStarguider.cc@ 10026

Download in other formats: