[Plplot-cvs] SF.net SVN: plplot: [8296] trunk/bindings/f77

[<arj...@us...>]

Revision: 8296
          http://plplot.svn.sourceforge.net/plplot/?rev=8296&view=rev
Author:   arjenmarkus
Date:     2008-03-17 11:36:32 -0700 (Mon, 17 Mar 2008)

Log Message:
-----------
Added several missing functions

Modified Paths:
--------------
    trunk/bindings/f77/plstubs.h
    trunk/bindings/f77/scstubs.c

Modified: trunk/bindings/f77/plstubs.h
===================================================================
--- trunk/bindings/f77/plstubs.h	2008-03-17 18:35:47 UTC (rev 8295)
+++ trunk/bindings/f77/plstubs.h	2008-03-17 18:36:32 UTC (rev 8296)
@@ -179,6 +179,7 @@
 #define    PLEND	FNAME(PLEND,plend)
 #define    PLEND1	FNAME(PLEND1,plend1)
 #define    PLENV	FNAME(PLENV,plenv)
+#define    PLENV0	FNAME(PLENV0,plenv0)
 #define    PLEOP	FNAME(PLEOP,pleop)
 #define    PLERRX	FNAME(PLERRX,plerrx)
 #define    PLERRY	FNAME(PLERRY,plerry)
@@ -192,6 +193,7 @@
 #define    PLGCOL0	FNAME(PLGCOL0,plgcol0)
 #define    PLGCOL0A	FNAME(PLGCOL0A,plgcol0a)
 #define    PLGCOLBG	FNAME(PLGCOLBG,plgcolbg)
+#define    PLGCOLBGA	FNAME(PLGCOLBGA,plgcolbga)
 #define    PLGCOMPRESSION	FNAME(PLGCOMPRESSION,plgcompression)
 #define    PLGDEV7	FNAME(PLGDEV7,plgdev7)
 #define    PLGDIDEV	FNAME(PLGDIDEV,plgdidev)
@@ -212,9 +214,11 @@
 #define    PLGYAX	FNAME(PLGYAX,plgyax)
 #define    PLGZAX	FNAME(PLGZAX,plgzax)
 #define    PLHIST	FNAME(PLHIST,plhist)
-#define    PLHLS        FNAME(PLHLS,plhls)
-#define    PLHLSRGB     FNAME(PLHLSRGB,plhlsrgb)
-#define    PLINIT       FNAME(PLINIT,plinit)
+#define    PLHLS	FNAME(PLHLS,plhls)
+#define    PLHLSRGB	FNAME(PLHLSRGB,plhlsrgb)
+#define    PLIMAGE	FNAME(PLIMAGE,plimage)
+#define    PLIMAGEFR	FNAME(PLIMAGEFR,plimagefr)
+#define    PLINIT	FNAME(PLINIT,plinit)
 #define    PLJOIN	FNAME(PLJOIN,pljoin)
 #define    PLLAB7	FNAME(PLLAB7,pllab7)
 #define    PLLIGHTSOURCE	FNAME(PLLIGHTSOURCE,pllightsource)
@@ -231,6 +235,7 @@
 #define    PLOT3D	FNAME(PLOT3D,plot3d)
 #define    PLOT3DC_	FNAME_(PLOT3DC_,plot3dc_)
 #define    PLOT3DC	FNAME(PLOT3DC_,plot3dc_)
+#define    PLOT3DCL	FNAME(PLOT3DCL,plot3dcl)
 #define    PLPARSEOPTS7	FNAME(PLPARSEOPTS7,plparseopts7)
 #define    PLPAT	FNAME(PLPAT,plpat)
 #define    PLPOIN	FNAME(PLPOIN,plpoin)
@@ -286,6 +291,7 @@
 #define    PLSPAUSE	FNAME(PLSPAUSE,plspause)
 #define    PLSSTRM	FNAME(PLSSTRM,plsstrm)
 #define    PLSSUB	FNAME(PLSSUB,plssub)
+#define    PLSURF3D	FNAME(PLSURF3D,plsurf3d)
 #define    PLSSYM	FNAME(PLSSYM,plssym)
 #define    PLSTAR	FNAME(PLSTAR,plstar)
 #define    PLSTART7	FNAME(PLSTART7,plstart7)

Modified: trunk/bindings/f77/scstubs.c
===================================================================
--- trunk/bindings/f77/scstubs.c	2008-03-17 18:35:47 UTC (rev 8295)
+++ trunk/bindings/f77/scstubs.c	2008-03-17 18:36:32 UTC (rev 8296)
@@ -162,6 +162,13 @@
 }
 
 void
+PLENV0(PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax,
+       PLINT *just, PLINT *axis)
+{
+    c_plenv0(*xmin, *xmax, *ymin, *ymax, *just, *axis);
+}
+
+void
 PLEOP(void)
 {
     c_pleop();
@@ -384,6 +391,54 @@
 }
 
 void
+PLIMAGEFR(PLFLT *idata, PLINT *nx, PLINT *ny,
+          PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax, PLFLT *zmin, PLFLT *zmax,
+          PLFLT *Dxmin, PLFLT *Dxmax, PLFLT *Dymin, PLFLT *Dymax,
+          PLFLT *valuemin, PLFLT *valuemax)
+{
+    int   i, j;
+    PLFLT **pidata;
+
+    plAlloc2dGrid(&pidata, *nx, *ny);
+
+    for ( i = 0 ; i < *nx ; i ++ ) {
+        for ( j = 0 ; j < *ny ; j ++ ) {
+            pidata[i][j] = idata[i + j * (*nx)];
+        }
+    }
+
+    c_plimagefr(pidata, *nx, *ny,
+         *xmin, *xmax, *ymin, *ymax, *zmin, *zmax,
+         *Dxmin, *Dxmax, *Dymin, *Dymax,
+         *valuemin, *valuemax);
+
+    plFree2dGrid(pidata, *nx, *ny);
+}
+
+void
+PLIMAGE(PLFLT *idata, PLINT *nx, PLINT *ny,
+          PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax, PLFLT *zmin, PLFLT *zmax,
+          PLFLT *Dxmin, PLFLT *Dxmax, PLFLT *Dymin, PLFLT *Dymax)
+{
+    int   i, j;
+    PLFLT **pidata;
+
+    plAlloc2dGrid(&pidata, *nx, *ny);
+
+    for ( i = 0 ; i < *nx ; i ++ ) {
+        for ( j = 0 ; j < *ny ; j ++ ) {
+            pidata[i][j] = idata[i + j * (*nx)];
+        }
+    }
+
+    c_plimage(pidata, *nx, *ny,
+         *xmin, *xmax, *ymin, *ymax, *zmin, *zmax,
+         *Dxmin, *Dxmax, *Dymin, *Dymax);
+
+    plFree2dGrid(pidata, *nx, *ny);
+}
+
+void
 PLINIT(void)
 {
     c_plinit();
@@ -526,7 +581,7 @@
 
 void
 PLPTEX37(
-	 PLFLT *x, PLFLT *y, PLFLT *z, 
+	 PLFLT *x, PLFLT *y, PLFLT *z,
 	 PLFLT *dx, PLFLT *dy, PLFLT *dz,
 	 PLFLT *sx, PLFLT *sy, PLFLT *sz,
 	 PLFLT *just, const char *text)
@@ -798,7 +853,7 @@
 	  PLBOOL *y_ascl, PLBOOL *acc,
 	  PLINT *colbox, PLINT *collab,
 	  PLINT *colline, PLINT *styline,
-	  const char *legline0, const char *legline1, 
+	  const char *legline0, const char *legline1,
           const char *legline2, const char *legline3,
 	  const char *labx, const char *laby, const char *labtop)
 {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.