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); }