Changeset 344 in Sophya for trunk/SophyaPI/PIext/pistlist.cc

Timestamp:

Aug 2, 1999, 6:52:49 PM (26 years ago)

Author:

ercodmgr

Message:

1/ Extension de fonctionalites de gestion de repertoires (Lock, ...)
2/ Plus de NTupIntf_Adapter quand les objets heritent de NTupleInterface
3/ Support pour affichage info texte, ds PINtuple et PIStarList

File:

• trunk/SophyaPI/PIext/pistlist.cc (modified) (1 diff)

trunk/SophyaPI/PIext/pistlist.cc

@@ -101 +101 @@
 }
 
+/* --Methode-- */
+void PIStarList::AppendTextInfo(string& info, double xmin, double ymin, double xmax, double ymax)
+{
+BStar *sti;
+double xp,yp;
+double flx,fnd;
+char buff[128];
+int ncnt = 0;
+sprintf(buff,"PIStarList: NStars \n", mStL->NbStars() );
+info += buff;
+info += "  Num:   XPos       YPos     Flux      Fond \n";
+for (int i=0; i<mStL->NbStars(); i++) {
+  sti = mStL->Star(i);
+  if ( !(sti->Nice(BStar::flagOK)) )  continue;
+  flx = sti->Flux();
+  if ( (flx < mFmin) || (flx > mFmax) )  continue;
+  xp = sti->PosX();   yp = sti->PosY();
+  if ( (xp < xmin) || (xp > xmax) || (yp < ymin) || (yp > ymax) )  continue;
+  ncnt++;
+  if (ncnt > 101) continue;
+  fnd = sti->Fond();
+  sprintf(buff,"%6d: %8.3g %8.3g %8.3g %8.3g \n", i, xp, yp, flx, fnd); 
+  info += buff;
+  }
+if (ncnt >= 101) info += " .... \n";
+sprintf(buff," %d stars inside selected region \n", ncnt);
+info += buff;
+return;
+}