static void newJavaGD_Path(double *x, double *y, int npoly, int *nper, Rboolean winding,
R_GE_gcontext *gc, NewDevDesc *dd)
{
newJavaGDDesc *xd = (newJavaGDDesc *) dd->deviceSpecific;
JNIEnv *env = getJNIEnv();
jmethodID mid;
jarray na, xa, ya;
int n;
if (!env || !xd || !xd->talk) return;
checkGC(env, xd, gc);
na = (*env)->NewIntArray(env, npoly);
if (!na) return;
(*env)->SetIntArrayRegion(env, na, 0, npoly, (jint *) nper);
n = 0;
for (int i = 0; i < npoly; ++i)
n += nper[i];
xa = newDoubleArray(env, n, x);
if (!xa) return;
ya = newDoubleArray(env, n, y);
if (!ya) return;
mid = (*env)->GetMethodID(env, xd->talkClass, "gdPath", "(I[I[D[DZ)V");
if (mid) (*env)->CallVoidMethod(env, xd->talk, mid, (jint) npoly, na, xa, ya, winding);
(*env)->DeleteLocalRef(env, na);
(*env)->DeleteLocalRef(env, xa);
(*env)->DeleteLocalRef(env, ya);
chkX(env);
}
static void newJavaGD_Polyline(int n, double *x, double *y, R_GE_gcontext *gc, NewDevDesc *dd)
{
newJavaGDDesc *xd = (newJavaGDDesc *) dd->deviceSpecific;
JNIEnv *env = getJNIEnv();
jarray xa, ya;
if(!env || !xd || !xd->talk) return;
checkGC(env,xd, gc);
xa=newDoubleArray(env, n, x);
if (!xa) return;
ya=newDoubleArray(env, n, y);
if (!ya) return;
(*env)->CallVoidMethod(env, xd->talk, jmGDInterfacePolyline, n, xa, ya);
(*env)->DeleteLocalRef(env, xa);
(*env)->DeleteLocalRef(env, ya);
chkX(env);
}
static void newJavaGD_Polygon(int n, double *x, double *y, R_GE_gcontext *gc, NewDevDesc *dd)
{
newJavaGDDesc *xd = (newJavaGDDesc *) dd->deviceSpecific;
JNIEnv *env = getJNIEnv();
jmethodID mid;
jarray xa, ya;
if(!env || !xd || !xd->talk) return;
checkGC(env, xd, gc);
xa = newDoubleArray(env, n, x);
if (!xa) return;
ya = newDoubleArray(env, n, y);
if (!ya) return;
mid = (*env)->GetMethodID(env, xd->talkClass, "gdPolygon", "(I[D[D)V");
if (mid) (*env)->CallVoidMethod(env, xd->talk, mid, n, xa, ya);
(*env)->DeleteLocalRef(env, xa);
(*env)->DeleteLocalRef(env, ya);
chkX(env);
}
int resizeChannelBicubic(const unsigned char *src, int srcWidth, int srcHeight, unsigned char *dst, int dstWidth, int dstHeight) {
unsigned char *xVector;
int i, nextCol, nextRow, numRows, ty, x, y;
double factor, *s, *scanline, *scaleScanline, *t, xScale, xSpan,
yScale, ySpan, *yVector;
factor = (double) dstWidth / (double) srcWidth;
if (dst == NULL) {
return -1;
}
/* No scaling needed. */
if (srcWidth == dstWidth) {
memcpy(dst, src, srcWidth * srcHeight);
return 0;
}
int returnCode = newUnsignedCharArray(srcWidth, &xVector);
if (returnCode != MEMORY_OK) {
return returnCode;
}
returnCode = newDoubleArray(srcWidth, &yVector);
if (returnCode != MEMORY_OK) {
freeUnsignedCharArray(&xVector);
return returnCode;
}
returnCode = newDoubleArray(srcWidth, &scanline);
if (returnCode != MEMORY_OK) {
freeUnsignedCharArray(&xVector);
freeDoubleArray(&yVector);
return returnCode;
}
returnCode = newDoubleArray((dstWidth + 1), &scaleScanline);
if (returnCode != MEMORY_OK) {
freeUnsignedCharArray(&xVector);
freeDoubleArray(&yVector);
freeDoubleArray(&scanline);
return returnCode;
}
numRows = 0;
nextRow = 1;
ySpan = 1.0;
yScale = factor;
i = 0;
for (y = 0; y < dstHeight; y++) {
ty = y * dstWidth;
memset(yVector, 0, srcWidth * sizeof(double));
memset(scaleScanline, 0, dstWidth * sizeof(double));
/* Scale Y-dimension. */
while (yScale < ySpan) {
if (nextRow && numRows < srcHeight) {
/* Read a new scanline. */
memcpy(xVector, src, srcWidth);
src += srcWidth;
numRows++;
}
for (x = 0; x < srcWidth; x++) {
yVector[x] += yScale * (double) xVector[x];
}
ySpan -= yScale;
yScale = factor;
nextRow = 1;
}
if (nextRow && numRows < srcHeight) {
/* Read a new scanline. */
memcpy(xVector, src, srcWidth);
src += srcWidth;
numRows++;
nextRow = 0;
}
s = scanline;
for (x = 0; x < srcWidth; x++) {
yVector[x] += ySpan * (double) xVector[x];
*s = yVector[x];
s++;
}
yScale -= ySpan;
if (yScale <= 0) {
yScale = factor;
nextRow = 1;
}
ySpan = 1.0;
nextCol = 0;
xSpan = 1.0;
s = scanline;
t = scaleScanline;
/* Scale X dimension. */
for (x = 0; x < srcWidth; x++) {
xScale = factor;
while (xScale >= xSpan) {
if (nextCol) {
t++;
}
t[0] += xSpan * s[0];
xScale -= xSpan;
xSpan = 1.0;
nextCol = 1;
}
if (xScale > 0) {
if (nextCol) {
nextCol = 0;
t++;
}
t[0] += xScale * s[0];
xSpan -= xScale;
}
s++;
}
/* Copy scanline to target. */
t = scaleScanline;
for (x = 0; x < dstWidth; x++) {
dst[ty + x] = (unsigned char) t[x];
}
}
freeUnsignedCharArray(&xVector);
freeDoubleArray(&yVector);
freeDoubleArray(&scanline);
freeDoubleArray(&scaleScanline);
return MEMORY_OK;
}