Changeset 10849

Timestamp:

Dec 29, 2006, 8:29:12 AM (20 years ago)

Author:

magnier

Message:

adding simple vector pair plot

Location:

trunk/psModules/src/extras

Files:

• pmKapaPlots.c (modified) (3 diffs)
• pmKapaPlots.h (modified) (2 diffs)

trunk/psModules/src/extras/pmKapaPlots.c

@@ -7 +7 @@
  *  @author EAM, IfA
  *
- *  @version $Revision: 1.3 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2006-12-23 04:00:30 $
+ *  @version $Revision: 1.4 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2006-12-29 18:29:12 $
  *
  *  Copyright 2006 Institute for Astronomy, University of Hawaii
@@ -56 +56 @@
 }
 
+bool pmKapaPlotVectorPair (psVector *xVec, psVector *yVec)
+{
+
+    Graphdata graphdata;
+
+    int kapa = pmKapaOpen (true);
+    if (kapa == -1) {
+        psError(PS_ERR_UNKNOWN, true, "failure to open kapa");
+        return false;
+    }
+
+    if (xVec->n != yVec->n)
+        return false;
+
+    KapaInitGraph (&graphdata);
+    KapaClear (kapa, FALSE);
+
+    // set limits based on data values
+    graphdata.xmin = FLT_MAX;
+    graphdata.xmax = FLT_MIN;
+    graphdata.ymin = FLT_MAX;
+    graphdata.ymax = FLT_MIN;
+    for (int i = 0; i < xVec->n; i++) {
+        graphdata.xmin = PS_MIN (graphdata.xmin, xVec->data.F32[i]);
+        graphdata.xmax = PS_MAX (graphdata.xmax, xVec->data.F32[i]);
+        graphdata.ymin = PS_MIN (graphdata.ymin, yVec->data.F32[i]);
+        graphdata.ymax = PS_MAX (graphdata.ymax, yVec->data.F32[i]);
+    }
+    // add 5% to range
+    float range;
+
+    range = graphdata.xmax - graphdata.xmin;
+    graphdata.xmax += 0.05*range;
+    graphdata.xmin -= 0.05*range;
+
+    range = graphdata.ymax - graphdata.ymin;
+    graphdata.ymax += 0.05*range;
+    graphdata.ymin -= 0.05*range;
+
+    KapaSetLimits (kapa, &graphdata);
+    KapaSetFont (kapa, "helvetica", 14);
+    KapaBox (kapa, &graphdata);
+
+    graphdata.color = KapaColorByName ("black");
+    graphdata.ptype = 0;
+    graphdata.size = 0.5;
+    graphdata.style = 2;
+    KapaPrepPlot (kapa, xVec->n, &graphdata);
+    KapaPlotVector (kapa, xVec->n, xVec->data.F32);
+    KapaPlotVector (kapa, yVec->n, yVec->data.F32);
+
+    return true;
+}
+
 # else
 
@@ -68 +122 @@
 }
 
+bool pmKapaPlotVectorPair (psVector *xVec, psVector *yVec)
+{
+    return false;
+}
+
 # endif

trunk/psModules/src/extras/pmKapaPlots.h

@@ -7 +7 @@
 *  @author EAM, IfA
 *
-*  @version $Revision: 1.2 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2006-12-23 04:00:30 $
+*  @version $Revision: 1.3 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2006-12-29 18:29:12 $
 *
 *  Copyright 2006 Institute for Astronomy, University of Hawaii
@@ -19 +19 @@
 int pmKapaOpen (bool showWindow);
 bool pmKapaClose ();
+bool pmKapaPlotVectorPair (psVector *xVec, psVector *yVec);
 
 #endif // PM_KAPA_PLOTS_H