void
PLSHADE7(PLFLT *z, PLINT *nx, PLINT *ny, char *defined,
PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax,
PLFLT *shade_min, PLFLT *shade_max,
PLINT *sh_cmap, PLFLT *sh_color, PLINT *sh_width,
PLINT *min_color, PLINT *min_width,
PLINT *max_color, PLINT *max_width, PLFLT *ftr, PLINT *lx)
{
PLINT rect = 1;
PLFLT ** a;
int i,j;
/* Create a vectored a array from transpose of the fortran z array. */
plAlloc2dGrid(&a, *nx, *ny);
for (i = 0; i < *nx; i++) {
for (j = 0; j < *ny; j++) {
a[i][j] = z[i +j * *lx];
}
}
c_plshade( a, *nx, *ny, NULL,
*xmin, *xmax, *ymin, *ymax,
*shade_min, *shade_max,
*sh_cmap, *sh_color, *sh_width,
*min_color, *min_width, *max_color, *max_width,
c_plfill, rect, pltr, (void *) ftr);
/* Clean up memory allocated for a */
plFree2dGrid(a, *nx, *ny);
}
void WINAPI
plshade(PLFLT **a, PLINT nx, PLINT ny, DefineFuncPtr defined,
PLFLT left, PLFLT right, PLFLT bottom, PLFLT top,
PLFLT shade_min, PLFLT shade_max,
PLINT sh_cmap, PLFLT sh_color, PLINT sh_width,
PLINT min_color, PLINT min_width,
PLINT max_color, PLINT max_width,
FillFuncPtr fill, PLINT rectangular, PlotFuncPtr pltr,
PLPointer pltr_data) {
c_plshade(a,nx,ny,defined,
left,right,bottom,top,
shade_min,shade_max,
sh_cmap,sh_color,sh_width,
min_color,min_width,
max_color,max_width,
(void (*) (PLINT, PLFLT *, PLFLT *))fill,rectangular,
(void (*) (PLFLT, PLFLT, PLFLT *, PLFLT *, PLPointer))pltr,
pltr_data);
}
void
PLSHADE27(PLFLT *z, PLINT *nx, PLINT *ny, char *defined,
PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax,
PLFLT *shade_min, PLFLT *shade_max,
PLINT *sh_cmap, PLFLT *sh_color, PLINT *sh_width,
PLINT *min_color, PLINT *min_width,
PLINT *max_color, PLINT *max_width,
PLFLT *xg2, PLFLT *yg2, PLINT *lx)
{
PLINT rect = 0;
PLFLT **a;
int i,j;
PLcGrid2 cgrid2;
/* Create a vectored a array from transpose of the fortran z array. */
plAlloc2dGrid(&a, *nx, *ny);
plAlloc2dGrid(&cgrid2.xg, *nx, *ny);
plAlloc2dGrid(&cgrid2.yg, *nx, *ny);
cgrid2.nx = *nx;
cgrid2.ny = *ny;
for (i = 0; i < *nx; i++) {
for (j = 0; j < *ny; j++) {
a[i][j] = z[i +j * *lx];
cgrid2.xg[i][j] = xg2[i +j * *lx];
cgrid2.yg[i][j] = yg2[i +j * *lx];
}
}
c_plshade( a, *nx, *ny, NULL,
*xmin, *xmax, *ymin, *ymax,
*shade_min, *shade_max,
*sh_cmap, *sh_color, *sh_width,
*min_color, *min_width, *max_color, *max_width,
c_plfill, rect, pltr2, (void *) &cgrid2);
/* Clean up memory allocated for a */
plFree2dGrid(a, *nx, *ny);
plFree2dGrid(cgrid2.xg, *nx, *ny);
plFree2dGrid(cgrid2.yg, *nx, *ny);
}
void
PLSHADE17(PLFLT *z, PLINT *nx, PLINT *ny, char *defined,
PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax,
PLFLT *shade_min, PLFLT *shade_max,
PLINT *sh_cmap, PLFLT *sh_color, PLINT *sh_width,
PLINT *min_color, PLINT *min_width,
PLINT *max_color, PLINT *max_width,
PLFLT *xg1, PLFLT *yg1, PLINT *lx)
{
PLINT rect = 1;
PLFLT ** a;
int i,j;
PLcGrid cgrid;
/* Create a vectored a array from transpose of the fortran z array. */
plAlloc2dGrid(&a, *nx, *ny);
for (i = 0; i < *nx; i++) {
for (j = 0; j < *ny; j++) {
a[i][j] = z[i +j * *lx];
}
}
cgrid.nx = *nx;
cgrid.ny = *ny;
cgrid.xg = xg1;
cgrid.yg = yg1;
c_plshade( a, *nx, *ny, NULL,
*xmin, *xmax, *ymin, *ymax,
*shade_min, *shade_max,
*sh_cmap, *sh_color, *sh_width,
*min_color, *min_width, *max_color, *max_width,
c_plfill, rect, pltr1, (PLPointer) &cgrid);
/* Clean up memory allocated for a */
plFree2dGrid(a, *nx, *ny);
}
