19 #ifndef SWIGTEMPLATEDISAMBIGUATOR
20 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
21 # define SWIGTEMPLATEDISAMBIGUATOR template
22 # elif defined(__HP_aCC)
25 # define SWIGTEMPLATEDISAMBIGUATOR template
27 # define SWIGTEMPLATEDISAMBIGUATOR
33 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
34 # define SWIGINLINE inline
42 # if defined(__GNUC__)
43 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
44 # define SWIGUNUSED __attribute__ ((__unused__))
49 # define SWIGUNUSED __attribute__ ((__unused__))
55 #ifndef SWIG_MSC_UNSUPPRESS_4505
56 # if defined(_MSC_VER)
57 # pragma warning(disable : 4505)
61 #ifndef SWIGUNUSEDPARM
63 # define SWIGUNUSEDPARM(p)
65 # define SWIGUNUSEDPARM(p) p SWIGUNUSED
71 # define SWIGINTERN static SWIGUNUSED
75 #ifndef SWIGINTERNINLINE
76 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
80 #if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
81 # ifndef GCC_HASCLASSVISIBILITY
82 # define GCC_HASCLASSVISIBILITY
87 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
88 # if defined(STATIC_LINKED)
91 # define SWIGEXPORT __declspec(dllexport)
94 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
95 # define SWIGEXPORT __attribute__ ((visibility("default")))
104 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
105 # define SWIGSTDCALL __stdcall
112 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
113 # define _CRT_SECURE_NO_DEPRECATE
117 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
118 # define _SCL_SECURE_NO_DEPRECATE
124 #if defined(__GNUC__) && !defined(__INTEL_COMPILER)
125 typedef long long __int64;
129 #if defined(__x86_64)
175 while (except_ptr->
code != code && except_ptr->
code)
178 (*jenv)->ExceptionClear(jenv);
181 (*jenv)->ThrowNew(jenv, excep, msg);
187 #define SWIG_contract_assert(nullreturn, expr, msg) if (!(expr)) {SWIG_JavaThrowException(jenv, SWIG_JavaIllegalArgumentException, msg); return nullreturn; } else
198 return JNI_VERSION_1_2;
217 *pa = (
PLBOOL *) malloc( (
size_t) n *
sizeof (
PLBOOL ) );
218 for ( i = 0; i < n; i++ )
220 ( *pa )[i] = adat[i] ? 1 : 0;
230 *pa = (
PLINT *) malloc( (
size_t) n *
sizeof (
PLINT ) );
231 for ( i = 0; i < n; i++ )
233 ( *pa )[i] = adat[i];
243 *pa = (
PLFLT *) malloc( (
size_t) n *
sizeof (
PLFLT ) );
244 for ( i = 0; i < n; i++ )
246 ( *pa )[i] = adat[i];
256 *pa = (
PLFLT *) malloc( (
size_t) n *
sizeof (
PLFLT ) );
257 for ( i = 0; i < n; i++ )
259 ( *pa )[i] = adat[i];
271 *pa = (
PLFLT **) malloc( (
size_t) nx *
sizeof (
PLFLT * ) );
272 ( *pa )[0] = (
PLFLT *) malloc( (
size_t) ( nx * ny ) *
sizeof (
PLFLT ) );
274 for ( i = 0; i < nx; i++ )
276 ( *pa )[i] = ( *pa )[0] + i * ny;
277 for ( j = 0; j < ny; j++ )
278 ( *pa )[i][j] = adat[i][j];
290 *pa = (
PLFLT **) malloc( (
size_t) nx *
sizeof (
PLFLT * ) );
291 ( *pa )[0] = (
PLFLT *) malloc( (
size_t) ( nx * ny ) *
sizeof (
PLFLT ) );
293 for ( i = 0; i < nx; i++ )
295 ( *pa )[i] = ( *pa )[0] + i * ny;
296 for ( j = 0; j < ny; j++ )
297 ( *pa )[i][j] = adat[i][j];
312 x = (
double *) malloc( (
size_t) n *
sizeof ( double ) );
313 for ( i = 0; i < n; i++ )
315 x[i] = (double) dat[i];
318 jadat = ( *jenv )->NewDoubleArray( jenv, n );
319 ( *jenv )->SetDoubleArrayRegion( jenv, jadat, 0, n, x );
331 jdouble *jdata = ( *jenv )->GetDoubleArrayElements( jenv, jadat, 0 );
332 for ( i = 0; i < n; i++ )
334 dat[i] = (
PLFLT) jdata[i];
336 ( *jenv )->ReleaseDoubleArrayElements( jenv, jadat, jdata, 0 );
369 ( *cbenvMapform )->CallVoidMethod( cbenvMapform, mapformClass, mapformID, jx, jy );
386 const char *nativeString;
390 jmethodID labelID = 0;
394 jvalue = (jdouble) value;
396 if ( (
string == NULL ) || ( len == 0 ) )
403 if ( cached_jvm == NULL )
405 fprintf( stderr,
"Error! NULL jvm\n" );
408 ( *cached_jvm )->GetEnv( cached_jvm, (
void **) &cbenv, JNI_VERSION_1_2 );
411 fprintf( stderr,
"Thread not attached\n" );
412 if ( ( *cached_jvm )->AttachCurrentThread( cached_jvm, (
void **) &cbenv, NULL ) != 0 )
414 fprintf( stderr,
"Error attaching to JVM\n" );
418 if ( labelClass == 0 )
420 fprintf( stderr,
"Error - callback undefined\n" );
423 cls = ( *cbenv )->GetObjectClass( cbenv, labelClass );
426 fprintf( stderr,
"Error getting callback class\n" );
429 labelID = ( *cbenv )->GetMethodID( cbenv, cls,
"label",
"(ID)Ljava/lang/String;" );
432 javaString = (jstring) ( *cbenv )->CallObjectMethod( cbenv, labelClass, labelID, jaxis, jvalue );
433 nativeString = ( *cbenv )->GetStringUTFChars( cbenv, javaString, 0 );
434 strncpy(
string, nativeString, (
size_t) len );
435 ( *cbenv )->ReleaseStringUTFChars( cbenv, javaString, nativeString );
439 fprintf( stderr,
"Java callback not found\n" );
455 jdoubleArray jxt, jyt;
465 jdata = (jobject) data;
467 if ( cached_jvm == NULL )
469 fprintf( stderr,
"Error! NULL jvm\n" );
472 ( *cached_jvm )->GetEnv( cached_jvm, (
void **) &cbenv, JNI_VERSION_1_2 );
475 fprintf( stderr,
"Thread not attached\n" );
476 if ( ( *cached_jvm )->AttachCurrentThread( cached_jvm, (
void **) &cbenv, NULL ) != 0 )
478 fprintf( stderr,
"Error attaching to JVM\n" );
482 jxt = ( *cbenv )->NewDoubleArray( cbenv, 1 );
483 jyt = ( *cbenv )->NewDoubleArray( cbenv, 1 );
486 fprintf( stderr,
"Error - callback undefined\n" );
489 cls = ( *cbenv )->GetObjectClass( cbenv, ctClass );
492 fprintf( stderr,
"Error getting callback class\n" );
495 ctID = ( *cbenv )->GetMethodID( cbenv, cls,
"coordTransform",
"(DD[D[DLjava/lang/Object;)V" );
498 ( *cbenv )->CallVoidMethod( cbenv, ctClass, ctID, jx, jy, jxt, jyt, jdata );
499 xtval = ( *cbenv )->GetDoubleArrayElements( cbenv, jxt, JNI_FALSE );
500 ytval = ( *cbenv )->GetDoubleArrayElements( cbenv, jyt, JNI_FALSE );
501 *xt = (
PLFLT) xtval[0];
502 *yt = (
PLFLT) ytval[0];
506 fprintf( stderr,
"Java callback not found\n" );
516 jstring jresult = 0 ;
521 result = (
char *)(
"jdoubleArray");
522 if (result) jresult = (*jenv)->NewStringUTF(jenv, (
const char *)result);
528 jstring jresult = 0 ;
533 result = (
char *)(
"double[]");
534 if (result) jresult = (*jenv)->NewStringUTF(jenv, (
const char *)result);
540 jstring jresult = 0 ;
545 result = (
char *)(
"double[][]");
546 if (result) jresult = (*jenv)->NewStringUTF(jenv, (
const char *)result);
558 jresult = (jint)result;
570 jresult = (jint)result;
582 jresult = (jint)result;
594 jresult = (jint)result;
606 jresult = (jint)result;
618 jresult = (jint)result;
630 jresult = (jint)result;
642 jresult = (jint)result;
654 jresult = (jint)result;
666 jresult = (jint)result;
678 jresult = (jint)result;
690 jresult = (jint)result;
702 jresult = (jint)result;
714 jresult = (jint)result;
726 jresult = (jint)result;
738 jresult = (jint)result;
750 jresult = (jint)result;
762 jresult = (jint)result;
774 jresult = (jint)result;
786 jresult = (jint)result;
798 jresult = (jint)result;
810 jresult = (jint)result;
822 jresult = (jint)result;
834 jresult = (jint)result;
846 jresult = (jint)result;
858 jresult = (jint)result;
870 jresult = (jint)result;
882 jresult = (jint)result;
894 jresult = (jint)result;
906 jresult = (jint)result;
918 jresult = (jint)result;
930 jresult = (jint)result;
942 jresult = (jint)result;
954 jresult = (jint)result;
966 jresult = (jint)result;
978 jresult = (jint)result;
990 jresult = (jint)result;
1002 jresult = (jint)result;
1014 jresult = (jint)result;
1026 jresult = (jint)result;
1038 jresult = (jint)result;
1050 jresult = (jint)result;
1062 jresult = (jint)result;
1074 jresult = (jint)result;
1086 jresult = (jint)result;
1098 jresult = (jint)result;
1110 jresult = (jint)result;
1122 jresult = (jint)result;
1134 jresult = (jint)result;
1146 jresult = (jint)result;
1158 jresult = (jint)result;
1170 jresult = (jint)result;
1182 jresult = (jint)result;
1194 jresult = (jint)result;
1206 jresult = (jint)result;
1218 jresult = (jint)result;
1229 result = (int)(0x0001);
1230 jresult = (jint)result;
1241 result = (int)(0x0002);
1242 jresult = (jint)result;
1253 result = (int)(0x0004);
1254 jresult = (jint)result;
1265 result = (int)(0x0008);
1266 jresult = (jint)result;
1277 result = (int)(0x0010);
1278 jresult = (jint)result;
1289 result = (int)(0x0100);
1290 jresult = (jint)result;
1301 result = (int)(0x0200);
1302 jresult = (jint)result;
1313 result = (int)(0x0400);
1314 jresult = (jint)result;
1325 result = (int)(0x0800);
1326 jresult = (jint)result;
1337 result = (int)(0x1000);
1338 jresult = (jint)result;
1349 result = (int)(0x0000);
1350 jresult = (jint)result;
1361 result = (int)(0x0001);
1362 jresult = (jint)result;
1373 result = (int)(0x0002);
1374 jresult = (jint)result;
1385 result = (int)(0x0004);
1386 jresult = (jint)result;
1397 result = (int)(0x0008);
1398 jresult = (jint)result;
1409 result = (int)(0x0010);
1410 jresult = (jint)result;
1421 result = (int)(0x0020);
1422 jresult = (jint)result;
1433 result = (int)(0x0040);
1434 jresult = (jint)result;
1445 result = (int)(0x0080);
1446 jresult = (jint)result;
1457 result = (int)(0x80000000);
1458 jresult = (jint)result;
1469 result = (int)(0x00000000);
1470 jresult = (jint)result;
1481 result = (int)(0xf);
1482 jresult = (jint)result;
1493 result = (int)(0x7);
1494 jresult = (jint)result;
1505 result = (int)(0xf);
1506 jresult = (jint)result;
1517 result = (int)(0x0);
1518 jresult = (jint)result;
1529 result = (int)(0x1);
1530 jresult = (jint)result;
1541 result = (int)(0x2);
1542 jresult = (jint)result;
1553 result = (int)(0x0);
1554 jresult = (jint)result;
1565 result = (int)(0x1);
1566 jresult = (jint)result;
1577 result = (int)(0x2);
1578 jresult = (jint)result;
1589 result = (int)(0x3);
1590 jresult = (jint)result;
1601 result = (int)(0x4);
1602 jresult = (jint)result;
1613 result = (int)(0x0);
1614 jresult = (jint)result;
1625 result = (int)(0x1);
1626 jresult = (jint)result;
1637 result = (int)(0x2);
1638 jresult = (jint)result;
1649 result = (int)(0x0);
1650 jresult = (jint)result;
1661 result = (int)(0x1);
1662 jresult = (jint)result;
1674 jresult = (jint)result;
1686 jresult = (jint)result;
1697 result = (int)((-42));
1698 jresult = (jint)result;
1710 jresult = (jint)result;
1722 jresult = (jint)result;
1734 jresult = (jint)result;
1745 result = (int)(0x0);
1746 jresult = (jint)result;
1757 result = (int)(0x1);
1758 jresult = (jint)result;
1769 result = (int)(0x2);
1770 jresult = (jint)result;
1781 result = (int)(0x4);
1782 jresult = (jint)result;
1794 jresult = (jint)result;
1806 jresult = (jint)result;
1818 jresult = (jint)result;
1830 jresult = (jint)result;
1842 jresult = (jint)result;
1854 jresult = (jint)result;
1865 result = (int)(0x00);
1866 jresult = (jint)result;
1877 result = (int)(0x01);
1878 jresult = (jint)result;
1889 result = (int)(0x02);
1890 jresult = (jint)result;
1901 result = (int)(0x08);
1902 jresult = (jint)result;
1913 result = (int)(0x10);
1914 jresult = (jint)result;
1925 result = (int)(0x1);
1926 jresult = (jint)result;
1937 result = (int)(0x2);
1938 jresult = (jint)result;
1949 result = (int)(0x4);
1950 jresult = (jint)result;
1961 result = (int)(0x8);
1962 jresult = (jint)result;
1973 result = (int)(0x10);
1974 jresult = (jint)result;
1985 result = (int)(0x20);
1986 jresult = (jint)result;
1997 result = (int)(0x40);
1998 jresult = (jint)result;
2009 result = (int)(0x80);
2010 jresult = (jint)result;
2021 result = (int)(0x1);
2022 jresult = (jint)result;
2033 result = (int)(0x2);
2034 jresult = (jint)result;
2045 result = (int)(0x4);
2046 jresult = (jint)result;
2057 result = (int)(0x8);
2058 jresult = (jint)result;
2069 result = (int)(0x10);
2070 jresult = (jint)result;
2081 result = (int)(0x20);
2082 jresult = (jint)result;
2093 result = (int)(0x40);
2094 jresult = (jint)result;
2105 result = (int)(0x80);
2106 jresult = (jint)result;
2117 result = (int)(0x1);
2118 jresult = (jint)result;
2129 result = (int)(0x2);
2130 jresult = (jint)result;
2141 result = (int)(0x4);
2142 jresult = (jint)result;
2153 result = (int)(0x8);
2154 jresult = (jint)result;
2165 result = (int)(0x10);
2166 jresult = (jint)result;
2177 result = (int)(0x20);
2178 jresult = (jint)result;
2189 result = (int)(0x40);
2190 jresult = (jint)result;
2201 result = (int)(0x80);
2202 jresult = (jint)result;
2213 result = (int)(0x100);
2214 jresult = (jint)result;
2225 result = (int)(0x200);
2226 jresult = (jint)result;
2237 result = (int)(0x400);
2238 jresult = (jint)result;
2249 result = (int)(0x800);
2250 jresult = (jint)result;
2261 result = (int)(0x1000);
2262 jresult = (jint)result;
2273 result = (int)(0x2000);
2274 jresult = (jint)result;
2285 result = (int)(0x4000);
2286 jresult = (jint)result;
2297 result = (int)(0x8000);
2298 jresult = (jint)result;
2309 result = (int)(0x10000);
2310 jresult = (jint)result;
2321 result = (int)(0x0);
2322 jresult = (jint)result;
2333 result = (int)(0x1);
2334 jresult = (jint)result;
2345 result = (int)(0x2);
2346 jresult = (jint)result;
2357 result = (int)(0x4);
2358 jresult = (jint)result;
2369 result = (int)(0x001);
2370 jresult = (jint)result;
2381 result = (int)(0x002);
2382 jresult = (jint)result;
2393 result = (int)(0x003);
2394 jresult = (jint)result;
2405 result = (int)(0x004);
2406 jresult = (jint)result;
2417 result = (int)(0x008);
2418 jresult = (jint)result;
2429 result = (int)(0x010);
2430 jresult = (jint)result;
2441 result = (int)(0x020);
2442 jresult = (jint)result;
2453 result = (int)(0x040);
2454 jresult = (jint)result;
2465 result = (int)(0x080);
2466 jresult = (jint)result;
2477 result = (int)(0x100);
2478 jresult = (jint)result;
2491 if (arg1) (arg1)->type = arg2;
2503 result = (int) ((arg1)->type);
2504 jresult = (jint)result;
2516 arg2 = (
unsigned int)jarg2;
2517 if (arg1) (arg1)->state = arg2;
2524 unsigned int result;
2529 result = (
unsigned int) ((arg1)->state);
2530 jresult = (jlong)result;
2542 arg2 = (
unsigned int)jarg2;
2543 if (arg1) (arg1)->keysym = arg2;
2550 unsigned int result;
2555 result = (
unsigned int) ((arg1)->keysym);
2556 jresult = (jlong)result;
2568 arg2 = (
unsigned int)jarg2;
2569 if (arg1) (arg1)->button = arg2;
2576 unsigned int result;
2581 result = (
unsigned int) ((arg1)->button);
2582 jresult = (jlong)result;
2594 arg2 = (
PLINT)jarg2;
2595 if (arg1) (arg1)->subwindow = arg2;
2607 result = (
PLINT) ((arg1)->subwindow);
2608 jresult = (jint)result;
2622 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
2627 strncpy((
char*)arg1->
string, (
const char *)arg2, 16-1);
2634 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
2639 jstring jresult = 0 ;
2646 result = (
char *)(
char *) ((arg1)->
string);
2647 if (result) jresult = (*jenv)->NewStringUTF(jenv, (
const char *)result);
2660 if (arg1) (arg1)->pX = arg2;
2672 result = (int) ((arg1)->pX);
2673 jresult = (jint)result;
2686 if (arg1) (arg1)->pY = arg2;
2698 result = (int) ((arg1)->pY);
2699 jresult = (jint)result;
2711 arg2 = (
PLFLT)jarg2;
2712 if (arg1) (arg1)->dX = arg2;
2717 jdouble jresult = 0 ;
2724 result = (
PLFLT) ((arg1)->dX);
2725 jresult = (jdouble)result;
2737 arg2 = (
PLFLT)jarg2;
2738 if (arg1) (arg1)->dY = arg2;
2743 jdouble jresult = 0 ;
2750 result = (
PLFLT) ((arg1)->dY);
2751 jresult = (jdouble)result;
2763 arg2 = (
PLFLT)jarg2;
2764 if (arg1) (arg1)->wX = arg2;
2769 jdouble jresult = 0 ;
2776 result = (
PLFLT) ((arg1)->wX);
2777 jresult = (jdouble)result;
2789 arg2 = (
PLFLT)jarg2;
2790 if (arg1) (arg1)->wY = arg2;
2795 jdouble jresult = 0 ;
2802 result = (
PLFLT) ((arg1)->wY);
2803 jresult = (jdouble)result;
2826 free((
char *) arg1);
2836 arg1 = (
PLINT)jarg1;
2837 arg2 = (
PLINT)jarg2;
2850 arg1 = (
PLFLT)jarg1;
2851 arg2 = (
PLFLT)jarg2;
2852 arg3 = (
PLFLT)jarg3;
2853 arg4 = (
PLINT)jarg4;
2863 arg1 = (
PLINT)jarg1;
2880 arg1 = (
PLFLT)jarg1;
2881 arg2 = (
PLFLT)jarg2;
2882 arg3 = (
PLFLT)jarg3;
2883 arg4 = (
PLFLT)jarg4;
2884 arg5 = (
PLFLT)jarg5;
2885 arg6 = (
PLFLT)jarg6;
2886 arg7 = (
PLFLT)jarg7;
2888 arg8 = jarg8 ? 1 : 0;
2890 plarc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
2897 char *arg3 = (
char *) 0 ;
2900 char *arg6 = (
char *) 0 ;
2906 arg1 = (
PLFLT)jarg1;
2907 arg2 = (
PLFLT)jarg2;
2910 arg3 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg3, 0);
2913 arg4 = (
PLFLT)jarg4;
2914 arg5 = (
PLINT)jarg5;
2917 arg6 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg6, 0);
2920 arg7 = (
PLFLT)jarg7;
2921 arg8 = (
PLINT)jarg8;
2922 plaxes(arg1,arg2,(
char const *)arg3,arg4,arg5,(
char const *)arg6,arg7,arg8);
2923 if (arg3) (*jenv)->ReleaseStringUTFChars(jenv, jarg3, (
const char *)arg3);
2924 if (arg6) (*jenv)->ReleaseStringUTFChars(jenv, jarg6, (
const char *)arg6);
2930 PLFLT *arg2 = (PLFLT *) 0 ;
2931 PLFLT *arg3 = (PLFLT *) 0 ;
2937 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
2938 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
2944 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
2947 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
2948 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
2950 printf(
"Vectors must be same length.\n" );
2954 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
2956 arg4 = (
PLINT)jarg4;
2957 plbin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
2968 PLINT *arg1 = (PLINT *) 0 ;
2969 PLINT *arg2 = (PLINT *) 0 ;
2970 PLINT *arg3 = (PLINT *) 0 ;
2971 PLINT *arg4 = (PLINT *) 0 ;
2972 PLINT *arg5 = (PLINT *) 0 ;
2973 PLFLT *arg6 = (PLFLT *) 0 ;
2989 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
3001 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
3013 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
3025 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
3037 if ((*jenv)->GetArrayLength(jenv, jarg5) == 0) {
3049 if ((*jenv)->GetArrayLength(jenv, jarg6) == 0) {
3056 arg7 = (
PLFLT)jarg7;
3057 plbtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
3059 jint jvalue = (jint)temp1;
3060 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
3063 jint jvalue = (jint)temp2;
3064 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
3067 jint jvalue = (jint)temp3;
3068 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
3071 jint jvalue = (jint)temp4;
3072 (*jenv)->SetIntArrayRegion(jenv, jarg4, 0, 1, &jvalue);
3075 jint jvalue = (jint)temp5;
3076 (*jenv)->SetIntArrayRegion(jenv, jarg5, 0, 1, &jvalue);
3079 jdouble jvalue = (jdouble)temp6;
3080 (*jenv)->SetDoubleArrayRegion(jenv, jarg6, 0, 1, &jvalue);
3099 char *arg1 = (
char *) 0 ;
3102 char *arg4 = (
char *) 0 ;
3110 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
3113 arg2 = (
PLFLT)jarg2;
3114 arg3 = (
PLINT)jarg3;
3117 arg4 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg4, 0);
3120 arg5 = (
PLFLT)jarg5;
3121 arg6 = (
PLINT)jarg6;
3122 plbox((
char const *)arg1,arg2,arg3,(
char const *)arg4,arg5,arg6);
3123 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
3124 if (arg4) (*jenv)->ReleaseStringUTFChars(jenv, jarg4, (
const char *)arg4);
3128 SWIGEXPORT void JNICALL
Java_plplot_core_plplotjavacJNI_plbox3(JNIEnv *jenv, jclass jcls, jstring jarg1, jstring jarg2, jdouble jarg3, jint jarg4, jstring jarg5, jstring jarg6, jdouble jarg7, jint jarg8, jstring jarg9, jstring jarg10, jdouble jarg11, jint jarg12) {
3129 char *arg1 = (
char *) 0 ;
3130 char *arg2 = (
char *) 0 ;
3133 char *arg5 = (
char *) 0 ;
3134 char *arg6 = (
char *) 0 ;
3137 char *arg9 = (
char *) 0 ;
3138 char *arg10 = (
char *) 0 ;
3146 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
3151 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
3154 arg3 = (
PLFLT)jarg3;
3155 arg4 = (
PLINT)jarg4;
3158 arg5 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg5, 0);
3163 arg6 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg6, 0);
3166 arg7 = (
PLFLT)jarg7;
3167 arg8 = (
PLINT)jarg8;
3170 arg9 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg9, 0);
3175 arg10 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg10, 0);
3176 if (!arg10) return ;
3178 arg11 = (
PLFLT)jarg11;
3179 arg12 = (
PLINT)jarg12;
3180 plbox3((
char const *)arg1,(
char const *)arg2,arg3,arg4,(
char const *)arg5,(
char const *)arg6,arg7,arg8,(
char const *)arg9,(
char const *)arg10,arg11,arg12);
3181 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
3182 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
3183 if (arg5) (*jenv)->ReleaseStringUTFChars(jenv, jarg5, (
const char *)arg5);
3184 if (arg6) (*jenv)->ReleaseStringUTFChars(jenv, jarg6, (
const char *)arg6);
3185 if (arg9) (*jenv)->ReleaseStringUTFChars(jenv, jarg9, (
const char *)arg9);
3186 if (arg10) (*jenv)->ReleaseStringUTFChars(jenv, jarg10, (
const char *)arg10);
3193 PLFLT *arg3 = (PLFLT *) 0 ;
3194 PLFLT *arg4 = (PLFLT *) 0 ;
3195 PLINT *arg5 = (PLINT *) 0 ;
3202 arg1 = (
PLFLT)jarg1;
3203 arg2 = (
PLFLT)jarg2;
3209 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
3221 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
3233 if ((*jenv)->GetArrayLength(jenv, jarg5) == 0) {
3242 jdouble jvalue = (jdouble)temp3;
3243 (*jenv)->SetDoubleArrayRegion(jenv, jarg3, 0, 1, &jvalue);
3246 jdouble jvalue = (jdouble)temp4;
3247 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
3250 jint jvalue = (jint)temp5;
3251 (*jenv)->SetIntArrayRegion(jenv, jarg5, 0, 1, &jvalue);
3271 arg1 = (
PLINT)jarg1;
3281 arg1 = (
PLFLT)jarg1;
3286 SWIGEXPORT void JNICALL
Java_plplot_core_plplotjavacJNI_plconfigtime(JNIEnv *jenv, jclass jcls, jdouble jarg1, jdouble jarg2, jdouble jarg3, jint jarg4, jboolean jarg5, jint jarg6, jint jarg7, jint jarg8, jint jarg9, jint jarg10, jdouble jarg11) {
3301 arg1 = (
PLFLT)jarg1;
3302 arg2 = (
PLFLT)jarg2;
3303 arg3 = (
PLFLT)jarg3;
3304 arg4 = (
PLINT)jarg4;
3306 arg5 = jarg5 ? 1 : 0;
3308 arg6 = (
PLINT)jarg6;
3309 arg7 = (
PLINT)jarg7;
3310 arg8 = (
PLINT)jarg8;
3311 arg9 = (
PLINT)jarg9;
3312 arg10 = (
PLINT)jarg10;
3313 arg11 = (
PLFLT)jarg11;
3314 plconfigtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
3319 PLFLT **arg1 = (PLFLT **) 0 ;
3326 PLFLT *arg8 = (PLFLT *) 0 ;
3336 int nx = ( *jenv )->GetArrayLength( jenv, jarg1 );
3339 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
3340 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
3342 ( *jenv )->EnsureLocalCapacity( jenv, nx );
3344 for ( i = 0; i < nx; i++ )
3346 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
3347 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
3350 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
3351 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
3353 printf(
"Misshapen a array.\n" );
3354 for ( j = 0; j <= i; j++ )
3355 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
3367 for ( i = 0; i < nx; i++ )
3369 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
3370 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
3376 arg4 = (
PLINT)jarg4;
3377 arg5 = (
PLINT)jarg5;
3378 arg6 = (
PLINT)jarg6;
3379 arg7 = (
PLINT)jarg7;
3381 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg8, 0 );
3382 arg9 = ( *jenv )->GetArrayLength( jenv, jarg8 );
3384 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg8, jxdata, 0 );
3389 int nx = ( *jenv )->GetArrayLength( jenv, jarg10 );
3392 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
3393 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
3395 ( *jenv )->EnsureLocalCapacity( jenv, nx );
3397 for ( i = 0; i < nx; i++ )
3399 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg10, i );
3400 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
3403 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
3404 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
3406 printf(
"Misshapen a array.\n" );
3407 for ( j = 0; j <= i; j++ )
3408 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
3415 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx == Xlen && ny == 1 ) ) )
3417 printf(
"Xlen =%d, nx =%d, Ylen =%d, ny =%d\n", Xlen, nx,
Ylen, ny );
3418 printf(
"X vector or matrix must match matrix dimensions.\n" );
3419 for ( i = 0; i < nx; i++ )
3420 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
3428 for ( i = 0; i < nx; i++ )
3430 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
3431 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
3441 int nx = ( *jenv )->GetArrayLength( jenv, jarg11 );
3444 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
3445 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
3447 ( *jenv )->EnsureLocalCapacity( jenv, nx );
3449 for ( i = 0; i < nx; i++ )
3451 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg11, i );
3452 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
3455 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
3456 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
3458 printf(
"Misshapen a array.\n" );
3459 for ( j = 0; j <= i; j++ )
3460 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
3467 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx ==
Ylen && ny == 1 && ny == Alen ) ) )
3469 printf(
"Xlen =%d, nx =%d, Ylen =%d, Alen =%d, ny =%d\n",
3470 Xlen, nx,
Ylen, Alen, ny );
3471 printf(
"Y vector or matrix must match matrix dimensions.\n" );
3472 for ( i = 0; i < nx; i++ )
3473 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
3479 for ( i = 0; i < nx; i++ )
3481 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
3482 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
3494 plcont((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(
double const *)arg8,arg9,arg10,arg11);
3521 PLFLT *arg7 = (PLFLT *) 0 ;
3526 arg1 = (
PLINT)jarg1;
3527 arg2 = (
PLINT)jarg2;
3528 arg3 = (
PLINT)jarg3;
3529 arg4 = (
PLINT)jarg4;
3530 arg5 = (
PLINT)jarg5;
3531 arg6 = (
PLFLT)jarg6;
3537 if ((*jenv)->GetArrayLength(jenv, jarg7) == 0) {
3544 plctime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
3546 jdouble jvalue = (jdouble)temp7;
3547 (*jenv)->SetDoubleArrayRegion(jenv, jarg7, 0, 1, &jvalue);
3559 arg1 = (
PLINT)jarg1;
3561 arg2 = jarg2 ? 1 : 0;
3591 arg1 = (
PLFLT)jarg1;
3592 arg2 = (
PLFLT)jarg2;
3593 arg3 = (
PLFLT)jarg3;
3594 arg4 = (
PLFLT)jarg4;
3595 arg5 = (
PLINT)jarg5;
3596 arg6 = (
PLINT)jarg6;
3597 plenv(arg1,arg2,arg3,arg4,arg5,arg6);
3611 arg1 = (
PLFLT)jarg1;
3612 arg2 = (
PLFLT)jarg2;
3613 arg3 = (
PLFLT)jarg3;
3614 arg4 = (
PLFLT)jarg4;
3615 arg5 = (
PLINT)jarg5;
3616 arg6 = (
PLINT)jarg6;
3617 plenv0(arg1,arg2,arg3,arg4,arg5,arg6);
3630 PLFLT *arg2 = (PLFLT *) 0 ;
3631 PLFLT *arg3 = (PLFLT *) 0 ;
3632 PLFLT *arg4 = (PLFLT *) 0 ;
3637 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
3638 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
3644 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
3647 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
3648 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
3650 printf(
"Vectors must be same length.\n" );
3654 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
3657 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
3658 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
3660 printf(
"Vectors must be same length.\n" );
3664 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
3666 plerrx(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
3681 PLFLT *arg2 = (PLFLT *) 0 ;
3682 PLFLT *arg3 = (PLFLT *) 0 ;
3683 PLFLT *arg4 = (PLFLT *) 0 ;
3688 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
3689 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
3695 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
3698 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
3699 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
3701 printf(
"Vectors must be same length.\n" );
3705 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
3708 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
3709 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
3711 printf(
"Vectors must be same length.\n" );
3715 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
3717 plerry(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
3739 PLFLT *arg2 = (PLFLT *) 0 ;
3740 PLFLT *arg3 = (PLFLT *) 0 ;
3745 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
3746 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
3752 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
3755 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
3756 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
3758 printf(
"Vectors must be same length.\n" );
3762 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
3764 plfill(arg1,(
double const *)arg2,(
double const *)arg3);
3776 PLFLT *arg2 = (PLFLT *) 0 ;
3777 PLFLT *arg3 = (PLFLT *) 0 ;
3778 PLFLT *arg4 = (PLFLT *) 0 ;
3783 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
3784 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
3790 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
3793 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
3794 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
3796 printf(
"Vectors must be same length.\n" );
3800 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
3803 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
3804 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
3806 printf(
"Vectors must be same length.\n" );
3810 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
3812 plfill3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
3827 PLFLT *arg2 = (PLFLT *) 0 ;
3828 PLFLT *arg3 = (PLFLT *) 0 ;
3834 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
3835 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
3841 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
3844 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
3845 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
3847 printf(
"Vectors must be same length.\n" );
3851 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
3853 arg4 = (
PLFLT)jarg4;
3854 plgradient(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
3876 arg1 = (
PLINT)jarg1;
3886 arg1 = (
PLINT)jarg1;
3892 PLFLT *arg1 = (PLFLT *) 0 ;
3893 PLFLT *arg2 = (PLFLT *) 0 ;
3904 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
3916 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
3925 jdouble jvalue = (jdouble)temp1;
3926 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
3929 jdouble jvalue = (jdouble)temp2;
3930 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
3939 PLINT *arg2 = (PLINT *) 0 ;
3940 PLINT *arg3 = (PLINT *) 0 ;
3941 PLINT *arg4 = (PLINT *) 0 ;
3948 arg1 = (
PLINT)jarg1;
3954 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
3966 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
3978 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
3987 jint jvalue = (jint)temp2;
3988 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
3991 jint jvalue = (jint)temp3;
3992 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
3995 jint jvalue = (jint)temp4;
3996 (*jenv)->SetIntArrayRegion(jenv, jarg4, 0, 1, &jvalue);
4006 PLINT *arg2 = (PLINT *) 0 ;
4007 PLINT *arg3 = (PLINT *) 0 ;
4008 PLINT *arg4 = (PLINT *) 0 ;
4009 PLFLT *arg5 = (PLFLT *) 0 ;
4017 arg1 = (
PLINT)jarg1;
4023 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4035 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4047 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
4059 if ((*jenv)->GetArrayLength(jenv, jarg5) == 0) {
4066 plgcol0a(arg1,arg2,arg3,arg4,arg5);
4068 jint jvalue = (jint)temp2;
4069 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4072 jint jvalue = (jint)temp3;
4073 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4076 jint jvalue = (jint)temp4;
4077 (*jenv)->SetIntArrayRegion(jenv, jarg4, 0, 1, &jvalue);
4080 jdouble jvalue = (jdouble)temp5;
4081 (*jenv)->SetDoubleArrayRegion(jenv, jarg5, 0, 1, &jvalue);
4091 PLINT *arg1 = (PLINT *) 0 ;
4092 PLINT *arg2 = (PLINT *) 0 ;
4093 PLINT *arg3 = (PLINT *) 0 ;
4105 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4117 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4129 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4138 jint jvalue = (jint)temp1;
4139 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4142 jint jvalue = (jint)temp2;
4143 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4146 jint jvalue = (jint)temp3;
4147 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4156 PLINT *arg1 = (PLINT *) 0 ;
4157 PLINT *arg2 = (PLINT *) 0 ;
4158 PLINT *arg3 = (PLINT *) 0 ;
4159 PLFLT *arg4 = (PLFLT *) 0 ;
4172 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4184 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4196 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4208 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
4217 jint jvalue = (jint)temp1;
4218 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4221 jint jvalue = (jint)temp2;
4222 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4225 jint jvalue = (jint)temp3;
4226 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4229 jdouble jvalue = (jdouble)temp4;
4230 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
4240 PLINT *arg1 = (PLINT *) 0 ;
4250 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4259 jint jvalue = (jint)temp1;
4260 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4267 char *arg1 = (
char *) 0 ;
4273 if ( jarg1 != NULL )
4276 jmethodID setLengthID;
4277 jclass sbufClass = ( *jenv )->GetObjectClass( jenv, jarg1 );
4279 jmethodID capacityID = ( *jenv )->GetMethodID( jenv, sbufClass,
"capacity",
"()I" );
4280 jint capacity = ( *jenv )->CallIntMethod( jenv, jarg1, capacityID );
4281 arg1 = (
char *) malloc( (
size_t) ( capacity + 1 ) );
4284 setLengthID = ( *jenv )->GetMethodID( jenv, sbufClass,
"setLength",
"(I)V" );
4285 ( *jenv )->CallVoidMethod( jenv, jarg1, setLengthID, (jint) 0 );
4293 jstring newString = ( *jenv )->NewStringUTF( jenv, arg1 );
4294 jclass sbufClass = ( *jenv )->GetObjectClass( jenv, jarg1 );
4295 jmethodID appendStringID = ( *jenv )->GetMethodID( jenv, sbufClass,
"append",
"(Ljava/lang/String;)Ljava/lang/StringBuffer;" );
4296 ( *jenv )->CallObjectMethod( jenv, jarg1, appendStringID, newString );
4308 PLFLT *arg1 = (PLFLT *) 0 ;
4309 PLFLT *arg2 = (PLFLT *) 0 ;
4310 PLFLT *arg3 = (PLFLT *) 0 ;
4311 PLFLT *arg4 = (PLFLT *) 0 ;
4324 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4336 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4348 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4360 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
4369 jdouble jvalue = (jdouble)temp1;
4370 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4373 jdouble jvalue = (jdouble)temp2;
4374 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4377 jdouble jvalue = (jdouble)temp3;
4378 (*jenv)->SetDoubleArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4381 jdouble jvalue = (jdouble)temp4;
4382 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
4392 PLFLT *arg1 = (PLFLT *) 0 ;
4402 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4411 jdouble jvalue = (jdouble)temp1;
4412 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4419 PLFLT *arg1 = (PLFLT *) 0 ;
4420 PLFLT *arg2 = (PLFLT *) 0 ;
4421 PLFLT *arg3 = (PLFLT *) 0 ;
4422 PLFLT *arg4 = (PLFLT *) 0 ;
4435 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4447 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4459 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4471 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
4480 jdouble jvalue = (jdouble)temp1;
4481 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4484 jdouble jvalue = (jdouble)temp2;
4485 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4488 jdouble jvalue = (jdouble)temp3;
4489 (*jenv)->SetDoubleArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4492 jdouble jvalue = (jdouble)temp4;
4493 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
4503 PLINT *arg1 = (PLINT *) 0 ;
4504 PLINT *arg2 = (PLINT *) 0 ;
4505 PLINT *arg3 = (PLINT *) 0 ;
4517 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4529 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4541 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4550 jint jvalue = (jint)temp1;
4551 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4554 jint jvalue = (jint)temp2;
4555 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4558 jint jvalue = (jint)temp3;
4559 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4578 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4587 jlong jvalue = (jlong)temp1;
4588 (*jenv)->SetLongArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4595 char *arg1 = (
char *) 0 ;
4601 if ( jarg1 != NULL )
4604 jmethodID setLengthID;
4605 jclass sbufClass = ( *jenv )->GetObjectClass( jenv, jarg1 );
4607 jmethodID capacityID = ( *jenv )->GetMethodID( jenv, sbufClass,
"capacity",
"()I" );
4608 jint capacity = ( *jenv )->CallIntMethod( jenv, jarg1, capacityID );
4609 arg1 = (
char *) malloc( (
size_t) ( capacity + 1 ) );
4612 setLengthID = ( *jenv )->GetMethodID( jenv, sbufClass,
"setLength",
"(I)V" );
4613 ( *jenv )->CallVoidMethod( jenv, jarg1, setLengthID, (jint) 0 );
4621 jstring newString = ( *jenv )->NewStringUTF( jenv, arg1 );
4622 jclass sbufClass = ( *jenv )->GetObjectClass( jenv, jarg1 );
4623 jmethodID appendStringID = ( *jenv )->GetMethodID( jenv, sbufClass,
"append",
"(Ljava/lang/String;)Ljava/lang/StringBuffer;" );
4624 ( *jenv )->CallObjectMethod( jenv, jarg1, appendStringID, newString );
4636 PLINT *arg1 = (PLINT *) 0 ;
4637 PLINT *arg2 = (PLINT *) 0 ;
4638 PLINT *arg3 = (PLINT *) 0 ;
4650 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4662 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4674 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4683 jint jvalue = (jint)temp1;
4684 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4687 jint jvalue = (jint)temp2;
4688 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4691 jint jvalue = (jint)temp3;
4692 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4701 PLINT *arg1 = (PLINT *) 0 ;
4711 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4720 jint jvalue = (jint)temp1;
4721 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4728 PLFLT *arg1 = (PLFLT *) 0 ;
4729 PLFLT *arg2 = (PLFLT *) 0 ;
4730 PLINT *arg3 = (PLINT *) 0 ;
4731 PLINT *arg4 = (PLINT *) 0 ;
4732 PLINT *arg5 = (PLINT *) 0 ;
4733 PLINT *arg6 = (PLINT *) 0 ;
4748 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4760 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4772 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4784 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
4796 if ((*jenv)->GetArrayLength(jenv, jarg5) == 0) {
4808 if ((*jenv)->GetArrayLength(jenv, jarg6) == 0) {
4815 plgpage(arg1,arg2,arg3,arg4,arg5,arg6);
4817 jdouble jvalue = (jdouble)temp1;
4818 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4821 jdouble jvalue = (jdouble)temp2;
4822 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4825 jint jvalue = (jint)temp3;
4826 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4829 jint jvalue = (jint)temp4;
4830 (*jenv)->SetIntArrayRegion(jenv, jarg4, 0, 1, &jvalue);
4833 jint jvalue = (jint)temp5;
4834 (*jenv)->SetIntArrayRegion(jenv, jarg5, 0, 1, &jvalue);
4837 jint jvalue = (jint)temp6;
4838 (*jenv)->SetIntArrayRegion(jenv, jarg6, 0, 1, &jvalue);
4857 PLFLT *arg1 = (PLFLT *) 0 ;
4858 PLFLT *arg2 = (PLFLT *) 0 ;
4859 PLFLT *arg3 = (PLFLT *) 0 ;
4861 PLFLT *arg5 = (PLFLT *) 0 ;
4863 PLFLT *arg7 = (PLFLT *) 0 ;
4865 PLFLT **arg9 = (PLFLT **) 0 ;
4872 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
4873 Alen = ( *jenv )->GetArrayLength( jenv, jarg1 );
4875 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
4878 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
4879 if ( ( *jenv )->GetArrayLength( jenv, jarg2 ) !=
Alen )
4881 printf(
"Vectors must be same length.\n" );
4885 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
4888 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
4889 arg4 = ( *jenv )->GetArrayLength( jenv, jarg3 );
4890 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
4892 printf(
"Vectors must be same length.\n" );
4896 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
4899 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg5, 0 );
4900 Xlen = ( *jenv )->GetArrayLength( jenv, jarg5 );
4903 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg5, jxdata, 0 );
4906 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg7, 0 );
4907 Ylen = ( *jenv )->GetArrayLength( jenv, jarg7 );
4910 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg7, jydata, 0 );
4915 int nx = ( *jenv )->GetArrayLength( jenv, jarg9 );
4919 ( *jenv )->EnsureLocalCapacity( jenv, nx );
4921 for ( i = 0; i < nx; i++ )
4923 ai = ( *jenv )->GetObjectArrayElement( jenv, jarg9, i );
4926 ny = ( *jenv )->GetArrayLength( jenv, ai );
4927 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai ) )
4929 printf(
"Misshapen a array.\n" );
4934 if ( nx != Xlen || ny !=
Ylen )
4936 printf(
"Vectors must match matrix.\n" );
4940 ptr = (PLFLT **) malloc( (
size_t) nx *
sizeof ( PLFLT * ) );
4941 ptr[0] = (PLFLT *) malloc( (
size_t) nx * ny *
sizeof (
PLFLT ) );
4942 for ( i = 0; i < nx; i++ )
4944 ptr[i] = ptr[0] + i * ny;
4949 arg10 = (
PLINT)jarg10;
4950 arg11 = (
PLFLT)jarg11;
4951 plgriddata((
double const *)arg1,(
double const *)arg2,(
double const *)arg3,arg4,(
double const *)arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,arg11);
4957 int nx = ( *jenv )->GetArrayLength( jenv, jarg9 );
4962 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
4963 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
4965 for ( i = 0; i < nx; i++ )
4967 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg9, i );
4968 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
4971 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
4973 for ( i = 0; i < nx; i++ )
4975 for ( j = 0; j < ny; j++ )
4977 adat[i][j] = ptr[i][j];
4979 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
4980 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
5009 PLFLT *arg1 = (PLFLT *) 0 ;
5010 PLFLT *arg2 = (PLFLT *) 0 ;
5011 PLFLT *arg3 = (PLFLT *) 0 ;
5012 PLFLT *arg4 = (PLFLT *) 0 ;
5025 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5037 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
5049 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
5061 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
5068 plgspa(arg1,arg2,arg3,arg4);
5070 jdouble jvalue = (jdouble)temp1;
5071 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5074 jdouble jvalue = (jdouble)temp2;
5075 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
5078 jdouble jvalue = (jdouble)temp3;
5079 (*jenv)->SetDoubleArrayRegion(jenv, jarg3, 0, 1, &jvalue);
5082 jdouble jvalue = (jdouble)temp4;
5083 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
5093 PLINT *arg1 = (PLINT *) 0 ;
5103 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5112 jint jvalue = (jint)temp1;
5113 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5120 char *arg1 = (
char *) 0 ;
5126 if ( jarg1 != NULL )
5129 jmethodID setLengthID;
5130 jclass sbufClass = ( *jenv )->GetObjectClass( jenv, jarg1 );
5132 jmethodID capacityID = ( *jenv )->GetMethodID( jenv, sbufClass,
"capacity",
"()I" );
5133 jint capacity = ( *jenv )->CallIntMethod( jenv, jarg1, capacityID );
5134 arg1 = (
char *) malloc( (
size_t) ( capacity + 1 ) );
5137 setLengthID = ( *jenv )->GetMethodID( jenv, sbufClass,
"setLength",
"(I)V" );
5138 ( *jenv )->CallVoidMethod( jenv, jarg1, setLengthID, (jint) 0 );
5146 jstring newString = ( *jenv )->NewStringUTF( jenv, arg1 );
5147 jclass sbufClass = ( *jenv )->GetObjectClass( jenv, jarg1 );
5148 jmethodID appendStringID = ( *jenv )->GetMethodID( jenv, sbufClass,
"append",
"(Ljava/lang/String;)Ljava/lang/StringBuffer;" );
5149 ( *jenv )->CallObjectMethod( jenv, jarg1, appendStringID, newString );
5161 PLFLT *arg1 = (PLFLT *) 0 ;
5162 PLFLT *arg2 = (PLFLT *) 0 ;
5163 PLFLT *arg3 = (PLFLT *) 0 ;
5164 PLFLT *arg4 = (PLFLT *) 0 ;
5177 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5189 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
5201 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
5213 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
5220 plgvpd(arg1,arg2,arg3,arg4);
5222 jdouble jvalue = (jdouble)temp1;
5223 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5226 jdouble jvalue = (jdouble)temp2;
5227 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
5230 jdouble jvalue = (jdouble)temp3;
5231 (*jenv)->SetDoubleArrayRegion(jenv, jarg3, 0, 1, &jvalue);
5234 jdouble jvalue = (jdouble)temp4;
5235 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
5245 PLFLT *arg1 = (PLFLT *) 0 ;
5246 PLFLT *arg2 = (PLFLT *) 0 ;
5247 PLFLT *arg3 = (PLFLT *) 0 ;
5248 PLFLT *arg4 = (PLFLT *) 0 ;
5261 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5273 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
5285 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
5297 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
5304 plgvpw(arg1,arg2,arg3,arg4);
5306 jdouble jvalue = (jdouble)temp1;
5307 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5310 jdouble jvalue = (jdouble)temp2;
5311 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
5314 jdouble jvalue = (jdouble)temp3;
5315 (*jenv)->SetDoubleArrayRegion(jenv, jarg3, 0, 1, &jvalue);
5318 jdouble jvalue = (jdouble)temp4;
5319 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
5329 PLINT *arg1 = (PLINT *) 0 ;
5330 PLINT *arg2 = (PLINT *) 0 ;
5341 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5353 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
5362 jint jvalue = (jint)temp1;
5363 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5366 jint jvalue = (jint)temp2;
5367 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
5375 PLINT *arg1 = (PLINT *) 0 ;
5376 PLINT *arg2 = (PLINT *) 0 ;
5387 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5399 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
5408 jint jvalue = (jint)temp1;
5409 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5412 jint jvalue = (jint)temp2;
5413 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
5421 PLINT *arg1 = (PLINT *) 0 ;
5422 PLINT *arg2 = (PLINT *) 0 ;
5433 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5445 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
5454 jint jvalue = (jint)temp1;
5455 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5458 jint jvalue = (jint)temp2;
5459 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
5468 PLFLT *arg2 = (PLFLT *) 0 ;
5477 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
5478 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
5484 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
5486 arg3 = (
PLFLT)jarg3;
5487 arg4 = (
PLFLT)jarg4;
5488 arg5 = (
PLINT)jarg5;
5489 arg6 = (
PLINT)jarg6;
5490 plhist(arg1,(
double const *)arg2,arg3,arg4,arg5,arg6);
5501 PLFLT *arg4 = (PLFLT *) 0 ;
5502 PLFLT *arg5 = (PLFLT *) 0 ;
5503 PLFLT *arg6 = (PLFLT *) 0 ;
5510 arg1 = (
PLFLT)jarg1;
5511 arg2 = (
PLFLT)jarg2;
5512 arg3 = (
PLFLT)jarg3;
5518 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
5530 if ((*jenv)->GetArrayLength(jenv, jarg5) == 0) {
5542 if ((*jenv)->GetArrayLength(jenv, jarg6) == 0) {
5549 plhlsrgb(arg1,arg2,arg3,arg4,arg5,arg6);
5551 jdouble jvalue = (jdouble)temp4;
5552 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
5555 jdouble jvalue = (jdouble)temp5;
5556 (*jenv)->SetDoubleArrayRegion(jenv, jarg5, 0, 1, &jvalue);
5559 jdouble jvalue = (jdouble)temp6;
5560 (*jenv)->SetDoubleArrayRegion(jenv, jarg6, 0, 1, &jvalue);
5583 arg1 = (
PLFLT)jarg1;
5584 arg2 = (
PLFLT)jarg2;
5585 arg3 = (
PLFLT)jarg3;
5586 arg4 = (
PLFLT)jarg4;
5587 pljoin(arg1,arg2,arg3,arg4);
5592 char *arg1 = (
char *) 0 ;
5593 char *arg2 = (
char *) 0 ;
5594 char *arg3 = (
char *) 0 ;
5600 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
5605 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
5610 arg3 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg3, 0);
5613 pllab((
char const *)arg1,(
char const *)arg2,(
char const *)arg3);
5614 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
5615 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
5616 if (arg3) (*jenv)->ReleaseStringUTFChars(jenv, jarg3, (
const char *)arg3);
5620 SWIGEXPORT void JNICALL
Java_plplot_core_plplotjavacJNI_pllegend(JNIEnv *jenv, jclass jcls, jdoubleArray jarg1, jdoubleArray jarg2, jint jarg3, jint jarg4, jdouble jarg5, jdouble jarg6, jdouble jarg7, jint jarg8, jint jarg9, jint jarg10, jint jarg11, jint jarg12, jintArray jarg13, jdouble jarg15, jdouble jarg16, jdouble jarg17, jdouble jarg18, jintArray jarg19, jobjectArray jarg20, jintArray jarg21, jintArray jarg22, jdoubleArray jarg23, jdoubleArray jarg24, jintArray jarg25, jintArray jarg26, jdoubleArray jarg27, jintArray jarg28, jdoubleArray jarg29, jintArray jarg30, jobjectArray jarg31) {
5621 PLFLT *arg1 = (PLFLT *) 0 ;
5622 PLFLT *arg2 = (PLFLT *) 0 ;
5634 PLINT *arg14 = (PLINT *) 0 ;
5639 PLINT *arg19 = (PLINT *) 0 ;
5640 char **arg20 = (
char **) 0 ;
5641 PLINT *arg21 = (PLINT *) 0 ;
5642 PLINT *arg22 = (PLINT *) 0 ;
5643 PLFLT *arg23 = (PLFLT *) 0 ;
5644 PLFLT *arg24 = (PLFLT *) 0 ;
5645 PLINT *arg25 = (PLINT *) 0 ;
5646 PLINT *arg26 = (PLINT *) 0 ;
5647 PLFLT *arg27 = (PLFLT *) 0 ;
5648 PLINT *arg28 = (PLINT *) 0 ;
5649 PLFLT *arg29 = (PLFLT *) 0 ;
5650 PLINT *arg30 = (PLINT *) 0 ;
5651 char **arg31 = (
char **) 0 ;
5662 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5674 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
5681 arg3 = (
PLINT)jarg3;
5682 arg4 = (
PLINT)jarg4;
5683 arg5 = (
PLFLT)jarg5;
5684 arg6 = (
PLFLT)jarg6;
5685 arg7 = (
PLFLT)jarg7;
5686 arg8 = (
PLINT)jarg8;
5687 arg9 = (
PLINT)jarg9;
5688 arg10 = (
PLINT)jarg10;
5689 arg11 = (
PLINT)jarg11;
5690 arg12 = (
PLINT)jarg12;
5692 jint *jxdata = ( *jenv )->GetIntArrayElements( jenv, jarg13, 0 );
5693 arg13 = ( *jenv )->GetArrayLength( jenv, jarg13 );
5699 ( *jenv )->ReleaseIntArrayElements( jenv, jarg13, jxdata, 0 );
5701 arg15 = (
PLFLT)jarg15;
5702 arg16 = (
PLFLT)jarg16;
5703 arg17 = (
PLFLT)jarg17;
5704 arg18 = (
PLFLT)jarg18;
5706 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg19, 0 );
5707 if ( ( *jenv )->GetArrayLength( jenv, jarg19 ) !=
Alen )
5709 printf(
"Vectors must be same length.\n" );
5713 ( *jenv )->ReleaseIntArrayElements( jenv, jarg19, jydata, 0 );
5717 if ( jarg20 != NULL )
5719 int size = ( *jenv )->GetArrayLength( jenv, jarg20 );
5722 printf(
"Arrays must be the same length\n" );
5725 arg20 = (
char **) malloc( (
size_t) Alen *
sizeof (
char * ) );
5727 for ( i = 0; i <
Alen; i++ )
5729 jstring j_string = (jstring) ( *jenv )->GetObjectArrayElement( jenv, jarg20, i );
5730 const char * c_string = (
char *) ( *jenv )->GetStringUTFChars( jenv, j_string, 0 );
5731 arg20[i] = malloc( ( strlen( c_string ) + 1 ) *
sizeof (
const char * ) );
5732 strcpy( arg20[i], c_string );
5733 ( *jenv )->ReleaseStringUTFChars( jenv, j_string, c_string );
5734 ( *jenv )->DeleteLocalRef( jenv, j_string );
5743 if ( jarg21 != NULL )
5745 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg21, 0 );
5746 if ( ( *jenv )->GetArrayLength( jenv, jarg21 ) !=
Alen )
5748 printf(
"Vectors must be same length.\n" );
5752 ( *jenv )->ReleaseIntArrayElements( jenv, jarg21, jydata, 0 );
5760 if ( jarg22 != NULL )
5762 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg22, 0 );
5763 if ( ( *jenv )->GetArrayLength( jenv, jarg22 ) !=
Alen )
5765 printf(
"Vectors must be same length.\n" );
5769 ( *jenv )->ReleaseIntArrayElements( jenv, jarg22, jydata, 0 );
5777 if ( jarg23 != NULL )
5779 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg23, 0 );
5780 if ( ( *jenv )->GetArrayLength( jenv, jarg23 ) !=
Alen )
5782 printf(
"Vectors must be same length.\n" );
5786 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg23, jydata, 0 );
5794 if ( jarg24 != NULL )
5796 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg24, 0 );
5797 if ( ( *jenv )->GetArrayLength( jenv, jarg24 ) !=
Alen )
5799 printf(
"Vectors must be same length.\n" );
5803 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg24, jydata, 0 );
5811 if ( jarg25 != NULL )
5813 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg25, 0 );
5814 if ( ( *jenv )->GetArrayLength( jenv, jarg25 ) !=
Alen )
5816 printf(
"Vectors must be same length.\n" );
5820 ( *jenv )->ReleaseIntArrayElements( jenv, jarg25, jydata, 0 );
5828 if ( jarg26 != NULL )
5830 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg26, 0 );
5831 if ( ( *jenv )->GetArrayLength( jenv, jarg26 ) !=
Alen )
5833 printf(
"Vectors must be same length.\n" );
5837 ( *jenv )->ReleaseIntArrayElements( jenv, jarg26, jydata, 0 );
5845 if ( jarg27 != NULL )
5847 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg27, 0 );
5848 if ( ( *jenv )->GetArrayLength( jenv, jarg27 ) !=
Alen )
5850 printf(
"Vectors must be same length.\n" );
5854 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg27, jydata, 0 );
5862 if ( jarg28 != NULL )
5864 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg28, 0 );
5865 if ( ( *jenv )->GetArrayLength( jenv, jarg28 ) !=
Alen )
5867 printf(
"Vectors must be same length.\n" );
5871 ( *jenv )->ReleaseIntArrayElements( jenv, jarg28, jydata, 0 );
5879 if ( jarg29 != NULL )
5881 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg29, 0 );
5882 if ( ( *jenv )->GetArrayLength( jenv, jarg29 ) !=
Alen )
5884 printf(
"Vectors must be same length.\n" );
5888 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg29, jydata, 0 );
5896 if ( jarg30 != NULL )
5898 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg30, 0 );
5899 if ( ( *jenv )->GetArrayLength( jenv, jarg30 ) !=
Alen )
5901 printf(
"Vectors must be same length.\n" );
5905 ( *jenv )->ReleaseIntArrayElements( jenv, jarg30, jydata, 0 );
5914 if ( jarg31 != NULL )
5916 int size = ( *jenv )->GetArrayLength( jenv, jarg31 );
5919 printf(
"Arrays must be the same length\n" );
5922 arg31 = (
char **) malloc( (
size_t) Alen *
sizeof (
char * ) );
5924 for ( i = 0; i <
Alen; i++ )
5926 jstring j_string = (jstring) ( *jenv )->GetObjectArrayElement( jenv, jarg31, i );
5927 const char * c_string = (
char *) ( *jenv )->GetStringUTFChars( jenv, j_string, 0 );
5928 arg31[i] = malloc( ( strlen( c_string ) + 1 ) *
sizeof (
const char * ) );
5929 strcpy( arg31[i], c_string );
5930 ( *jenv )->ReleaseStringUTFChars( jenv, j_string, c_string );
5931 ( *jenv )->DeleteLocalRef( jenv, j_string );
5939 pllegend(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,(
int const *)arg14,arg15,arg16,arg17,arg18,(
int const *)arg19,(
char const **)arg20,(
int const *)arg21,(
int const *)arg22,(
double const *)arg23,(
double const *)arg24,(
int const *)arg25,(
int const *)arg26,(
double const *)arg27,(
int const *)arg28,(
double const *)arg29,(
int const *)arg30,(
char const **)arg31);
5941 jdouble jvalue = (jdouble)temp1;
5942 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5945 jdouble jvalue = (jdouble)temp2;
5946 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
5958 if ( arg20 != NULL )
5960 for ( i = 0; i <
Alen; i++ )
5966 if ( arg21 != NULL )
5970 if ( arg22 != NULL )
5974 if ( arg23 != NULL )
5978 if ( arg24 != NULL )
5982 if ( arg25 != NULL )
5986 if ( arg26 != NULL )
5990 if ( arg27 != NULL )
5994 if ( arg28 != NULL )
5998 if ( arg29 != NULL )
6002 if ( arg30 != NULL )
6007 if ( arg31 != NULL )
6009 for ( i = 0; i <
Alen; i++ )
6017 SWIGEXPORT void JNICALL
Java_plplot_core_plplotjavacJNI_plcolorbar(JNIEnv *jenv, jclass jcls, jdoubleArray jarg1, jdoubleArray jarg2, jint jarg3, jint jarg4, jdouble jarg5, jdouble jarg6, jdouble jarg7, jdouble jarg8, jint jarg9, jint jarg10, jint jarg11, jdouble jarg12, jdouble jarg13, jint jarg14, jdouble jarg15, jintArray jarg16, jobjectArray jarg18, jobjectArray jarg19, jdoubleArray jarg21, jintArray jarg22, jintArray jarg23, jobjectArray jarg24) {
6018 PLFLT *arg1 = (PLFLT *) 0 ;
6019 PLFLT *arg2 = (PLFLT *) 0 ;
6034 PLINT *arg17 = (PLINT *) 0 ;
6035 char **arg18 = (
char **) 0 ;
6037 char **arg20 = (
char **) 0 ;
6038 PLFLT *arg21 = (PLFLT *) 0 ;
6039 PLINT *arg22 = (PLINT *) 0 ;
6040 PLINT *arg23 = (PLINT *) 0 ;
6041 PLFLT **arg24 = (PLFLT **) 0 ;
6052 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
6064 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
6071 arg3 = (
PLINT)jarg3;
6072 arg4 = (
PLINT)jarg4;
6073 arg5 = (
PLFLT)jarg5;
6074 arg6 = (
PLFLT)jarg6;
6075 arg7 = (
PLFLT)jarg7;
6076 arg8 = (
PLFLT)jarg8;
6077 arg9 = (
PLINT)jarg9;
6078 arg10 = (
PLINT)jarg10;
6079 arg11 = (
PLINT)jarg11;
6080 arg12 = (
PLFLT)jarg12;
6081 arg13 = (
PLFLT)jarg13;
6082 arg14 = (
PLINT)jarg14;
6083 arg15 = (
PLFLT)jarg15;
6085 jint *jxdata = ( *jenv )->GetIntArrayElements( jenv, jarg16, 0 );
6086 arg16 = ( *jenv )->GetArrayLength( jenv, jarg16 );
6092 ( *jenv )->ReleaseIntArrayElements( jenv, jarg16, jxdata, 0 );
6096 if ( jarg18 != NULL )
6098 int size = ( *jenv )->GetArrayLength( jenv, jarg18 );
6101 printf(
"Arrays must be the same length\n" );
6104 arg18 = (
char **) malloc( (
size_t) Alen *
sizeof (
char * ) );
6106 for ( i = 0; i <
Alen; i++ )
6108 jstring j_string = (jstring) ( *jenv )->GetObjectArrayElement( jenv, jarg18, i );
6109 const char * c_string = (
char *) ( *jenv )->GetStringUTFChars( jenv, j_string, 0 );
6110 arg18[i] = malloc( ( strlen( c_string ) + 1 ) *
sizeof (
const char * ) );
6111 strcpy( arg18[i], c_string );
6112 ( *jenv )->ReleaseStringUTFChars( jenv, j_string, c_string );
6113 ( *jenv )->DeleteLocalRef( jenv, j_string );
6123 if ( jarg19 != NULL )
6125 int size = ( *jenv )->GetArrayLength( jenv, jarg19 );
6128 arg20 = (
char **) malloc( (
size_t) Alen *
sizeof (
char * ) );
6130 for ( i = 0; i <
Alen; i++ )
6132 jstring j_string = (jstring) ( *jenv )->GetObjectArrayElement( jenv, jarg19, i );
6133 const char * c_string = (
char *) ( *jenv )->GetStringUTFChars( jenv, j_string, 0 );
6134 arg20[i] = malloc( ( strlen( c_string ) + 1 ) *
sizeof (
const char * ) );
6135 strcpy( arg20[i], c_string );
6136 ( *jenv )->ReleaseStringUTFChars( jenv, j_string, c_string );
6137 ( *jenv )->DeleteLocalRef( jenv, j_string );
6147 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg21, 0 );
6148 if ( ( *jenv )->GetArrayLength( jenv, jarg21 ) !=
Alen )
6150 printf(
"Vectors must be same length.\n" );
6154 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg21, jydata, 0 );
6157 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg22, 0 );
6158 if ( ( *jenv )->GetArrayLength( jenv, jarg22 ) !=
Alen )
6160 printf(
"Vectors must be same length.\n" );
6164 ( *jenv )->ReleaseIntArrayElements( jenv, jarg22, jydata, 0 );
6168 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg23, 0 );
6169 if ( ( *jenv )->GetArrayLength( jenv, jarg23 ) !=
Alen )
6171 printf(
"Vectors must be same length.\n" );
6174 Xlen = ( *jenv )->GetArrayLength( jenv, jarg23 );
6176 for ( i = 0; i <
Xlen; i++ )
6177 if ( jydata[i] >
Ylen )
6180 ( *jenv )->ReleaseIntArrayElements( jenv, jarg23, jydata, 0 );
6185 int nx = ( *jenv )->GetArrayLength( jenv, jarg24 );
6188 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
6189 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
6191 ( *jenv )->EnsureLocalCapacity( jenv, nx );
6193 for ( i = 0; i < nx; i++ )
6195 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg24, i );
6196 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
6199 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
6200 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
6202 printf(
"Misshapen a array.\n" );
6203 for ( j = 0; j <= i; j++ )
6204 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
6211 if ( nx != Xlen || ny !=
Ylen )
6213 printf(
"Vectors must match matrix.\n" );
6214 for ( i = 0; i < nx; i++ )
6215 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6221 for ( i = 0; i < nx; i++ )
6223 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6224 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
6230 plcolorbar(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,(
int const *)arg17,(
char const **)arg18,arg19,(
char const **)arg20,(
double const *)arg21,(
int const *)arg22,(
int const *)arg23,(
double const **)arg24);
6232 jdouble jvalue = (jdouble)temp1;
6233 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
6236 jdouble jvalue = (jdouble)temp2;
6237 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
6246 if ( arg18 != NULL )
6248 for ( i = 0; i <
Alen; i++ )
6255 if ( arg20 != NULL )
6257 for ( i = 0; i <
Alen; i++ )
6285 arg1 = (
PLFLT)jarg1;
6286 arg2 = (
PLFLT)jarg2;
6287 arg3 = (
PLFLT)jarg3;
6294 PLFLT *arg2 = (PLFLT *) 0 ;
6295 PLFLT *arg3 = (PLFLT *) 0 ;
6300 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6301 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
6307 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6310 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
6311 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
6313 printf(
"Vectors must be same length.\n" );
6317 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
6319 plline(arg1,(
double const *)arg2,(
double const *)arg3);
6331 PLFLT *arg2 = (PLFLT *) 0 ;
6332 PLFLT *arg3 = (PLFLT *) 0 ;
6333 PLFLT *arg4 = (PLFLT *) 0 ;
6338 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6339 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
6345 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6348 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
6349 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
6351 printf(
"Vectors must be same length.\n" );
6355 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
6358 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
6359 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
6361 printf(
"Vectors must be same length.\n" );
6365 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
6367 plline3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
6385 arg1 = (
PLINT)jarg1;
6391 PLFLT *arg1 = (PLFLT *) 0 ;
6392 PLFLT *arg2 = (PLFLT *) 0 ;
6393 PLFLT **arg3 = (PLFLT **) 0 ;
6401 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6402 Xlen = ( *jenv )->GetArrayLength( jenv, jarg1 );
6404 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6407 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
6408 Ylen = ( *jenv )->GetArrayLength( jenv, jarg2 );
6410 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
6415 int nx = ( *jenv )->GetArrayLength( jenv, jarg3 );
6418 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
6419 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
6421 ( *jenv )->EnsureLocalCapacity( jenv, nx );
6423 for ( i = 0; i < nx; i++ )
6425 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg3, i );
6426 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
6429 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
6430 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
6432 printf(
"Misshapen a array.\n" );
6433 for ( j = 0; j <= i; j++ )
6434 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
6441 if ( nx != Xlen || ny !=
Ylen )
6443 printf(
"Vectors must match matrix.\n" );
6444 for ( i = 0; i < nx; i++ )
6445 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6453 for ( i = 0; i < nx; i++ )
6455 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6456 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
6463 arg6 = (
PLINT)jarg6;
6464 plmesh((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6);
6479 PLFLT *arg1 = (PLFLT *) 0 ;
6480 PLFLT *arg2 = (PLFLT *) 0 ;
6481 PLFLT **arg3 = (PLFLT **) 0 ;
6485 PLFLT *arg7 = (PLFLT *) 0 ;
6491 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6492 Xlen = ( *jenv )->GetArrayLength( jenv, jarg1 );
6494 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6497 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
6498 Ylen = ( *jenv )->GetArrayLength( jenv, jarg2 );
6500 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
6505 int nx = ( *jenv )->GetArrayLength( jenv, jarg3 );
6508 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
6509 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
6511 ( *jenv )->EnsureLocalCapacity( jenv, nx );
6513 for ( i = 0; i < nx; i++ )
6515 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg3, i );
6516 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
6519 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
6520 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
6522 printf(
"Misshapen a array.\n" );
6523 for ( j = 0; j <= i; j++ )
6524 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
6531 if ( nx != Xlen || ny !=
Ylen )
6533 printf(
"Vectors must match matrix.\n" );
6534 for ( i = 0; i < nx; i++ )
6535 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6543 for ( i = 0; i < nx; i++ )
6545 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6546 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
6553 arg6 = (
PLINT)jarg6;
6555 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg7, 0 );
6556 arg8 = ( *jenv )->GetArrayLength( jenv, jarg7 );
6558 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg7, jxdata, 0 );
6560 plmeshc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
6578 PLINT *arg1 = (PLINT *) 0 ;
6588 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
6597 jint jvalue = (jint)temp1;
6598 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
6605 char *arg1 = (
char *) 0 ;
6609 char *arg5 = (
char *) 0 ;
6615 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
6618 arg2 = (
PLFLT)jarg2;
6619 arg3 = (
PLFLT)jarg3;
6620 arg4 = (
PLFLT)jarg4;
6623 arg5 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg5, 0);
6626 plmtex((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
6627 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
6628 if (arg5) (*jenv)->ReleaseStringUTFChars(jenv, jarg5, (
const char *)arg5);
6633 char *arg1 = (
char *) 0 ;
6637 char *arg5 = (
char *) 0 ;
6643 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
6646 arg2 = (
PLFLT)jarg2;
6647 arg3 = (
PLFLT)jarg3;
6648 arg4 = (
PLFLT)jarg4;
6651 arg5 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg5, 0);
6654 plmtex3((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
6655 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
6656 if (arg5) (*jenv)->ReleaseStringUTFChars(jenv, jarg5, (
const char *)arg5);
6661 PLFLT *arg1 = (PLFLT *) 0 ;
6662 PLFLT *arg2 = (PLFLT *) 0 ;
6663 PLFLT **arg3 = (PLFLT **) 0 ;
6672 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6673 Xlen = ( *jenv )->GetArrayLength( jenv, jarg1 );
6675 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6678 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
6679 Ylen = ( *jenv )->GetArrayLength( jenv, jarg2 );
6681 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
6686 int nx = ( *jenv )->GetArrayLength( jenv, jarg3 );
6689 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
6690 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
6692 ( *jenv )->EnsureLocalCapacity( jenv, nx );
6694 for ( i = 0; i < nx; i++ )
6696 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg3, i );
6697 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
6700 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
6701 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
6703 printf(
"Misshapen a array.\n" );
6704 for ( j = 0; j <= i; j++ )
6705 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
6712 if ( nx != Xlen || ny !=
Ylen )
6714 printf(
"Vectors must match matrix.\n" );
6715 for ( i = 0; i < nx; i++ )
6716 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6724 for ( i = 0; i < nx; i++ )
6726 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6727 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
6734 arg6 = (
PLINT)jarg6;
6736 arg7 = jarg7 ? 1 : 0;
6738 plot3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,arg7);
6753 PLFLT *arg1 = (PLFLT *) 0 ;
6754 PLFLT *arg2 = (PLFLT *) 0 ;
6755 PLFLT **arg3 = (PLFLT **) 0 ;
6759 PLFLT *arg7 = (PLFLT *) 0 ;
6765 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6766 Xlen = ( *jenv )->GetArrayLength( jenv, jarg1 );
6768 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6771 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
6772 Ylen = ( *jenv )->GetArrayLength( jenv, jarg2 );
6774 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
6779 int nx = ( *jenv )->GetArrayLength( jenv, jarg3 );
6782 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
6783 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
6785 ( *jenv )->EnsureLocalCapacity( jenv, nx );
6787 for ( i = 0; i < nx; i++ )
6789 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg3, i );
6790 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
6793 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
6794 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
6796 printf(
"Misshapen a array.\n" );
6797 for ( j = 0; j <= i; j++ )
6798 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
6805 if ( nx != Xlen || ny !=
Ylen )
6807 printf(
"Vectors must match matrix.\n" );
6808 for ( i = 0; i < nx; i++ )
6809 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6817 for ( i = 0; i < nx; i++ )
6819 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6820 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
6827 arg6 = (
PLINT)jarg6;
6829 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg7, 0 );
6830 arg8 = ( *jenv )->GetArrayLength( jenv, jarg7 );
6832 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg7, jxdata, 0 );
6834 plot3dc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
6852 PLFLT *arg1 = (PLFLT *) 0 ;
6853 PLFLT *arg2 = (PLFLT *) 0 ;
6854 PLFLT **arg3 = (PLFLT **) 0 ;
6858 PLFLT *arg7 = (PLFLT *) 0 ;
6862 PLINT *arg11 = (PLINT *) 0 ;
6863 PLINT *arg12 = (PLINT *) 0 ;
6868 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6869 Xlen = ( *jenv )->GetArrayLength( jenv, jarg1 );
6871 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6874 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
6875 Ylen = ( *jenv )->GetArrayLength( jenv, jarg2 );
6877 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
6882 int nx = ( *jenv )->GetArrayLength( jenv, jarg3 );
6885 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
6886 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
6888 ( *jenv )->EnsureLocalCapacity( jenv, nx );
6890 for ( i = 0; i < nx; i++ )
6892 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg3, i );
6893 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
6896 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
6897 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
6899 printf(
"Misshapen a array.\n" );
6900 for ( j = 0; j <= i; j++ )
6901 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
6908 if ( nx != Xlen || ny !=
Ylen )
6910 printf(
"Vectors must match matrix.\n" );
6911 for ( i = 0; i < nx; i++ )
6912 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6920 for ( i = 0; i < nx; i++ )
6922 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6923 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
6930 arg6 = (
PLINT)jarg6;
6932 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg7, 0 );
6933 arg8 = ( *jenv )->GetArrayLength( jenv, jarg7 );
6935 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg7, jxdata, 0 );
6937 arg9 = (
PLINT)jarg9;
6939 jint *jxdata = ( *jenv )->GetIntArrayElements( jenv, jarg10, 0 );
6940 arg10 = ( *jenv )->GetArrayLength( jenv, jarg10 );
6946 ( *jenv )->ReleaseIntArrayElements( jenv, jarg10, jxdata, 0 );
6949 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg12, 0 );
6950 if ( ( *jenv )->GetArrayLength( jenv, jarg12 ) !=
Alen )
6952 printf(
"Vectors must be same length.\n" );
6956 ( *jenv )->ReleaseIntArrayElements( jenv, jarg12, jydata, 0 );
6958 plot3dcl((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,(
int const *)arg11,(
int const *)arg12);
6982 PLFLT *arg1 = (PLFLT *) 0 ;
6983 PLFLT *arg2 = (PLFLT *) 0 ;
6984 PLFLT **arg3 = (PLFLT **) 0 ;
6988 PLFLT *arg7 = (PLFLT *) 0 ;
6994 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6995 Xlen = ( *jenv )->GetArrayLength( jenv, jarg1 );
6997 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
7000 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
7001 Ylen = ( *jenv )->GetArrayLength( jenv, jarg2 );
7003 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
7008 int nx = ( *jenv )->GetArrayLength( jenv, jarg3 );
7011 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
7012 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
7014 ( *jenv )->EnsureLocalCapacity( jenv, nx );
7016 for ( i = 0; i < nx; i++ )
7018 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg3, i );
7019 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
7022 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
7023 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
7025 printf(
"Misshapen a array.\n" );
7026 for ( j = 0; j <= i; j++ )
7027 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
7034 if ( nx != Xlen || ny !=
Ylen )
7036 printf(
"Vectors must match matrix.\n" );
7037 for ( i = 0; i < nx; i++ )
7038 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
7046 for ( i = 0; i < nx; i++ )
7048 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
7049 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
7056 arg6 = (
PLINT)jarg6;
7058 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg7, 0 );
7059 arg8 = ( *jenv )->GetArrayLength( jenv, jarg7 );
7061 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg7, jxdata, 0 );
7063 plsurf3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7081 PLFLT *arg1 = (PLFLT *) 0 ;
7082 PLFLT *arg2 = (PLFLT *) 0 ;
7083 PLFLT **arg3 = (PLFLT **) 0 ;
7087 PLFLT *arg7 = (PLFLT *) 0 ;
7091 PLINT *arg11 = (PLINT *) 0 ;
7092 PLINT *arg12 = (PLINT *) 0 ;
7097 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
7098 Xlen = ( *jenv )->GetArrayLength( jenv, jarg1 );
7100 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
7103 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
7104 Ylen = ( *jenv )->GetArrayLength( jenv, jarg2 );
7106 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
7111 int nx = ( *jenv )->GetArrayLength( jenv, jarg3 );
7114 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
7115 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
7117 ( *jenv )->EnsureLocalCapacity( jenv, nx );
7119 for ( i = 0; i < nx; i++ )
7121 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg3, i );
7122 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
7125 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
7126 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
7128 printf(
"Misshapen a array.\n" );
7129 for ( j = 0; j <= i; j++ )
7130 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
7137 if ( nx != Xlen || ny !=
Ylen )
7139 printf(
"Vectors must match matrix.\n" );
7140 for ( i = 0; i < nx; i++ )
7141 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
7149 for ( i = 0; i < nx; i++ )
7151 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
7152 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
7159 arg6 = (
PLINT)jarg6;
7161 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg7, 0 );
7162 arg8 = ( *jenv )->GetArrayLength( jenv, jarg7 );
7164 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg7, jxdata, 0 );
7166 arg9 = (
PLINT)jarg9;
7168 jint *jxdata = ( *jenv )->GetIntArrayElements( jenv, jarg10, 0 );
7169 arg10 = ( *jenv )->GetArrayLength( jenv, jarg10 );
7175 ( *jenv )->ReleaseIntArrayElements( jenv, jarg10, jxdata, 0 );
7178 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg12, 0 );
7179 if ( ( *jenv )->GetArrayLength( jenv, jarg12 ) !=
Alen )
7181 printf(
"Vectors must be same length.\n" );
7185 ( *jenv )->ReleaseIntArrayElements( jenv, jarg12, jydata, 0 );
7187 plsurf3dl((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,(
int const *)arg11,(
int const *)arg12);
7212 int *arg1 = (
int *) 0 ;
7213 char **arg2 = (
char **) 0 ;
7222 size1 = (int) ( ( *jenv )->GetArrayLength( jenv, jarg1 ) );
7224 arg2 = (
char **) malloc( (
size_t) ( size1 + 1 ) *
sizeof (
char * ) );
7226 for ( i = 0; i < size1; i++ )
7228 jstring j_string = (jstring) ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
7229 const char * c_string = (
char *) ( *jenv )->GetStringUTFChars( jenv, j_string, 0 );
7233 arg2[i] = malloc( ( strlen( c_string ) + 1 ) *
sizeof (
const char * ) );
7234 strcpy( arg2[i], c_string );
7235 ( *jenv )->ReleaseStringUTFChars( jenv, j_string, c_string );
7236 ( *jenv )->DeleteLocalRef( jenv, j_string );
7240 arg3 = (
PLINT)jarg3;
7242 jresult = (jint)result;
7248 for ( i = 0; i < size1; i++ )
7258 PLINT *arg2 = (PLINT *) 0 ;
7259 PLINT *arg3 = (PLINT *) 0 ;
7264 jint *jxdata = ( *jenv )->GetIntArrayElements( jenv, jarg1, 0 );
7265 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
7271 ( *jenv )->ReleaseIntArrayElements( jenv, jarg1, jxdata, 0 );
7274 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg3, 0 );
7275 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7277 printf(
"Vectors must be same length.\n" );
7281 ( *jenv )->ReleaseIntArrayElements( jenv, jarg3, jydata, 0 );
7283 plpat(arg1,(
int const *)arg2,(
int const *)arg3);
7302 arg1 = (
PLINT)jarg1;
7303 arg2 = (
PLFLT)jarg2;
7304 arg3 = (
PLFLT)jarg3;
7305 arg4 = (
PLFLT)jarg4;
7306 arg5 = (
PLFLT)jarg5;
7307 plpath(arg1,arg2,arg3,arg4,arg5);
7313 PLFLT *arg2 = (PLFLT *) 0 ;
7314 PLFLT *arg3 = (PLFLT *) 0 ;
7320 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
7321 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
7327 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
7330 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
7331 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7333 printf(
"Vectors must be same length.\n" );
7337 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
7339 arg4 = (
PLINT)jarg4;
7340 plpoin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
7352 PLFLT *arg2 = (PLFLT *) 0 ;
7353 PLFLT *arg3 = (PLFLT *) 0 ;
7354 PLFLT *arg4 = (PLFLT *) 0 ;
7360 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
7361 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
7367 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
7370 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
7371 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7373 printf(
"Vectors must be same length.\n" );
7377 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
7380 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
7381 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
7383 printf(
"Vectors must be same length.\n" );
7387 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
7389 arg5 = (
PLINT)jarg5;
7390 plpoin3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,arg5);
7405 PLFLT *arg2 = (PLFLT *) 0 ;
7406 PLFLT *arg3 = (PLFLT *) 0 ;
7407 PLFLT *arg4 = (PLFLT *) 0 ;
7414 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
7415 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
7421 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
7424 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
7425 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7427 printf(
"Vectors must be same length.\n" );
7431 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
7434 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
7435 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
7437 printf(
"Vectors must be same length.\n" );
7441 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
7444 jboolean *jydata = ( *jenv )->GetBooleanArrayElements( jenv, jarg5, 0 );
7445 if ( ( *jenv )->GetArrayLength( jenv, jarg5 ) < Alen - 1 )
7447 printf(
"Vector must be at least length of others minus 1.\n" );
7451 ( *jenv )->ReleaseBooleanArrayElements( jenv, jarg5, jydata, 0 );
7454 arg6 = jarg6 ? 1 : 0;
7456 plpoly3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
int const *)arg5,arg6);
7478 arg1 = (
PLINT)jarg1;
7479 arg2 = (
PLINT)jarg2;
7489 arg1 = (
PLINT)jarg1;
7500 char *arg6 = (
char *) 0 ;
7504 arg1 = (
PLFLT)jarg1;
7505 arg2 = (
PLFLT)jarg2;
7506 arg3 = (
PLFLT)jarg3;
7507 arg4 = (
PLFLT)jarg4;
7508 arg5 = (
PLFLT)jarg5;
7511 arg6 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg6, 0);
7514 plptex(arg1,arg2,arg3,arg4,arg5,(
char const *)arg6);
7515 if (arg6) (*jenv)->ReleaseStringUTFChars(jenv, jarg6, (
const char *)arg6);
7519 SWIGEXPORT void JNICALL
Java_plplot_core_plplotjavacJNI_plptex3(JNIEnv *jenv, jclass jcls, jdouble jarg1, jdouble jarg2, jdouble jarg3, jdouble jarg4, jdouble jarg5, jdouble jarg6, jdouble jarg7, jdouble jarg8, jdouble jarg9, jdouble jarg10, jstring jarg11) {
7530 char *arg11 = (
char *) 0 ;
7534 arg1 = (
PLFLT)jarg1;
7535 arg2 = (
PLFLT)jarg2;
7536 arg3 = (
PLFLT)jarg3;
7537 arg4 = (
PLFLT)jarg4;
7538 arg5 = (
PLFLT)jarg5;
7539 arg6 = (
PLFLT)jarg6;
7540 arg7 = (
PLFLT)jarg7;
7541 arg8 = (
PLFLT)jarg8;
7542 arg9 = (
PLFLT)jarg9;
7543 arg10 = (
PLFLT)jarg10;
7546 arg11 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg11, 0);
7547 if (!arg11) return ;
7549 plptex3(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(
char const *)arg11);
7550 if (arg11) (*jenv)->ReleaseStringUTFChars(jenv, jarg11, (
const char *)arg11);
7555 jdouble jresult = 0 ;
7561 jresult = (jdouble)result;
7577 PLFLT *arg4 = (PLFLT *) 0 ;
7578 PLFLT *arg5 = (PLFLT *) 0 ;
7579 PLFLT *arg6 = (PLFLT *) 0 ;
7586 arg1 = (
PLFLT)jarg1;
7587 arg2 = (
PLFLT)jarg2;
7588 arg3 = (
PLFLT)jarg3;
7594 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
7606 if ((*jenv)->GetArrayLength(jenv, jarg5) == 0) {
7618 if ((*jenv)->GetArrayLength(jenv, jarg6) == 0) {
7625 plrgbhls(arg1,arg2,arg3,arg4,arg5,arg6);
7627 jdouble jvalue = (jdouble)temp4;
7628 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
7631 jdouble jvalue = (jdouble)temp5;
7632 (*jenv)->SetDoubleArrayRegion(jenv, jarg5, 0, 1, &jvalue);
7635 jdouble jvalue = (jdouble)temp6;
7636 (*jenv)->SetDoubleArrayRegion(jenv, jarg6, 0, 1, &jvalue);
7650 arg1 = (
PLFLT)jarg1;
7651 arg2 = (
PLFLT)jarg2;
7657 PLINT *arg1 = (PLINT *) 0 ;
7658 PLINT *arg2 = (PLINT *) 0 ;
7659 PLINT *arg3 = (PLINT *) 0 ;
7665 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg1, 0 );
7666 Alen = ( *jenv )->GetArrayLength( jenv, jarg1 );
7668 ( *jenv )->ReleaseIntArrayElements( jenv, jarg1, jydata, 0 );
7671 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg2, 0 );
7672 if ( ( *jenv )->GetArrayLength( jenv, jarg2 ) !=
Alen )
7674 printf(
"Vectors must be same length.\n" );
7678 ( *jenv )->ReleaseIntArrayElements( jenv, jarg2, jydata, 0 );
7681 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg3, 0 );
7682 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7684 printf(
"Vectors must be same length.\n" );
7687 arg4 = ( *jenv )->GetArrayLength( jenv, jarg3 );
7689 ( *jenv )->ReleaseIntArrayElements( jenv, jarg3, jydata, 0 );
7691 plscmap0((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
7705 PLINT *arg1 = (PLINT *) 0 ;
7706 PLINT *arg2 = (PLINT *) 0 ;
7707 PLINT *arg3 = (PLINT *) 0 ;
7708 PLFLT *arg4 = (PLFLT *) 0 ;
7714 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg1, 0 );
7715 Alen = ( *jenv )->GetArrayLength( jenv, jarg1 );
7717 ( *jenv )->ReleaseIntArrayElements( jenv, jarg1, jydata, 0 );
7720 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg2, 0 );
7721 if ( ( *jenv )->GetArrayLength( jenv, jarg2 ) !=
Alen )
7723 printf(
"Vectors must be same length.\n" );
7727 ( *jenv )->ReleaseIntArrayElements( jenv, jarg2, jydata, 0 );
7730 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg3, 0 );
7731 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7733 printf(
"Vectors must be same length.\n" );
7737 ( *jenv )->ReleaseIntArrayElements( jenv, jarg3, jydata, 0 );
7740 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
7741 arg5 = ( *jenv )->GetArrayLength( jenv, jarg4 );
7742 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
7744 printf(
"Vectors must be same length.\n" );
7748 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
7750 plscmap0a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
7771 arg1 = (
PLINT)jarg1;
7777 PLINT *arg1 = (PLINT *) 0 ;
7778 PLINT *arg2 = (PLINT *) 0 ;
7779 PLINT *arg3 = (PLINT *) 0 ;
7785 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg1, 0 );
7786 Alen = ( *jenv )->GetArrayLength( jenv, jarg1 );
7788 ( *jenv )->ReleaseIntArrayElements( jenv, jarg1, jydata, 0 );
7791 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg2, 0 );
7792 if ( ( *jenv )->GetArrayLength( jenv, jarg2 ) !=
Alen )
7794 printf(
"Vectors must be same length.\n" );
7798 ( *jenv )->ReleaseIntArrayElements( jenv, jarg2, jydata, 0 );
7801 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg3, 0 );
7802 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7804 printf(
"Vectors must be same length.\n" );
7807 arg4 = ( *jenv )->GetArrayLength( jenv, jarg3 );
7809 ( *jenv )->ReleaseIntArrayElements( jenv, jarg3, jydata, 0 );
7811 plscmap1((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
7825 PLINT *arg1 = (PLINT *) 0 ;
7826 PLINT *arg2 = (PLINT *) 0 ;
7827 PLINT *arg3 = (PLINT *) 0 ;
7828 PLFLT *arg4 = (PLFLT *) 0 ;
7834 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg1, 0 );
7835 Alen = ( *jenv )->GetArrayLength( jenv, jarg1 );
7837 ( *jenv )->ReleaseIntArrayElements( jenv, jarg1, jydata, 0 );
7840 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg2, 0 );
7841 if ( ( *jenv )->GetArrayLength( jenv, jarg2 ) !=
Alen )
7843 printf(
"Vectors must be same length.\n" );
7847 ( *jenv )->ReleaseIntArrayElements( jenv, jarg2, jydata, 0 );
7850 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg3, 0 );
7851 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7853 printf(
"Vectors must be same length.\n" );
7857 ( *jenv )->ReleaseIntArrayElements( jenv, jarg3, jydata, 0 );
7860 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
7861 arg5 = ( *jenv )->GetArrayLength( jenv, jarg4 );
7862 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
7864 printf(
"Vectors must be same length.\n" );
7868 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
7870 plscmap1a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
7889 PLFLT *arg3 = (PLFLT *) 0 ;
7890 PLFLT *arg4 = (PLFLT *) 0 ;
7891 PLFLT *arg5 = (PLFLT *) 0 ;
7892 PLFLT *arg6 = (PLFLT *) 0 ;
7898 arg1 = jarg1 ? 1 : 0;
7901 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
7902 arg2 = ( *jenv )->GetArrayLength( jenv, jarg2 );
7908 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jxdata, 0 );
7911 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
7912 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
7914 printf(
"Vectors must be same length.\n" );
7918 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
7921 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg5, 0 );
7922 if ( ( *jenv )->GetArrayLength( jenv, jarg5 ) !=
Alen )
7924 printf(
"Vectors must be same length.\n" );
7928 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg5, jydata, 0 );
7931 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg6, 0 );
7932 if ( ( *jenv )->GetArrayLength( jenv, jarg6 ) !=
Alen )
7934 printf(
"Vectors must be same length.\n" );
7938 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg6, jydata, 0 );
7941 if ( jarg7 != NULL )
7943 jboolean *jydata = ( *jenv )->GetBooleanArrayElements( jenv, jarg7, 0 );
7944 if ( ( *jenv )->GetArrayLength( jenv, jarg7 ) < Alen - 1 )
7946 printf(
"Vector must be at least length of others minus 1.\n" );
7950 ( *jenv )->ReleaseBooleanArrayElements( jenv, jarg7, jydata, 0 );
7957 plscmap1l(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
int const *)arg7);
7980 PLFLT *arg3 = (PLFLT *) 0 ;
7981 PLFLT *arg4 = (PLFLT *) 0 ;
7982 PLFLT *arg5 = (PLFLT *) 0 ;
7983 PLFLT *arg6 = (PLFLT *) 0 ;
7984 PLFLT *arg7 = (PLFLT *) 0 ;
7990 arg1 = jarg1 ? 1 : 0;
7993 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
7994 arg2 = ( *jenv )->GetArrayLength( jenv, jarg2 );
8000 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jxdata, 0 );
8003 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
8004 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
8006 printf(
"Vectors must be same length.\n" );
8010 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
8013 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg5, 0 );
8014 if ( ( *jenv )->GetArrayLength( jenv, jarg5 ) !=
Alen )
8016 printf(
"Vectors must be same length.\n" );
8020 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg5, jydata, 0 );
8023 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg6, 0 );
8024 if ( ( *jenv )->GetArrayLength( jenv, jarg6 ) !=
Alen )
8026 printf(
"Vectors must be same length.\n" );
8030 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg6, jydata, 0 );
8033 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg7, 0 );
8034 if ( ( *jenv )->GetArrayLength( jenv, jarg7 ) !=
Alen )
8036 printf(
"Vectors must be same length.\n" );
8040 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg7, jydata, 0 );
8043 if ( jarg8 != NULL )
8045 jboolean *jydata = ( *jenv )->GetBooleanArrayElements( jenv, jarg8, 0 );
8046 if ( ( *jenv )->GetArrayLength( jenv, jarg8 ) < Alen - 1 )
8048 printf(
"Vector must be at least length of others minus 1.\n" );
8052 ( *jenv )->ReleaseBooleanArrayElements( jenv, jarg8, jydata, 0 );
8059 plscmap1la(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
double const *)arg7,(
int const *)arg8);
8087 arg1 = (
PLINT)jarg1;
8098 arg1 = (
PLFLT)jarg1;
8099 arg2 = (
PLFLT)jarg2;
8105 PLFLT *arg1 = (PLFLT *) 0 ;
8106 PLFLT *arg2 = (PLFLT *) 0 ;
8117 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
8129 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
8138 jdouble jvalue = (jdouble)temp1;
8139 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
8142 jdouble jvalue = (jdouble)temp2;
8143 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
8158 arg1 = (
PLINT)jarg1;
8159 arg2 = (
PLINT)jarg2;
8160 arg3 = (
PLINT)jarg3;
8161 arg4 = (
PLINT)jarg4;
8175 arg1 = (
PLINT)jarg1;
8176 arg2 = (
PLINT)jarg2;
8177 arg3 = (
PLINT)jarg3;
8178 arg4 = (
PLINT)jarg4;
8179 arg5 = (
PLFLT)jarg5;
8180 plscol0a(arg1,arg2,arg3,arg4,arg5);
8191 arg1 = (
PLINT)jarg1;
8192 arg2 = (
PLINT)jarg2;
8193 arg3 = (
PLINT)jarg3;
8206 arg1 = (
PLINT)jarg1;
8207 arg2 = (
PLINT)jarg2;
8208 arg3 = (
PLINT)jarg3;
8209 arg4 = (
PLFLT)jarg4;
8219 arg1 = (
PLINT)jarg1;
8229 arg1 = (
PLINT)jarg1;
8235 char *arg1 = (
char *) 0 ;
8241 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
8244 plsdev((
char const *)arg1);
8245 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
8257 arg1 = (
PLFLT)jarg1;
8258 arg2 = (
PLFLT)jarg2;
8259 arg3 = (
PLFLT)jarg3;
8260 arg4 = (
PLFLT)jarg4;
8275 arg1 = (
PLINT)jarg1;
8276 arg2 = (
PLINT)jarg2;
8277 arg3 = (
PLINT)jarg3;
8278 arg4 = (
PLINT)jarg4;
8279 arg5 = (
PLFLT)jarg5;
8280 arg6 = (
PLFLT)jarg6;
8281 plsdimap(arg1,arg2,arg3,arg4,arg5,arg6);
8290 arg1 = (
PLFLT)jarg1;
8303 arg1 = (
PLFLT)jarg1;
8304 arg2 = (
PLFLT)jarg2;
8305 arg3 = (
PLFLT)jarg3;
8306 arg4 = (
PLFLT)jarg4;
8319 arg1 = (
PLFLT)jarg1;
8320 arg2 = (
PLFLT)jarg2;
8321 arg3 = (
PLFLT)jarg3;
8322 arg4 = (
PLFLT)jarg4;
8332 arg1 = (
unsigned int)jarg1;
8349 char *arg1 = (
char *) 0 ;
8350 char *arg2 = (
char *) 0 ;
8357 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
8358 if (!arg1)
return 0;
8362 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
8363 if (!arg2)
return 0;
8365 result = (
PLINT)
plsetopt((
char const *)arg1,(
char const *)arg2);
8366 jresult = (jint)result;
8367 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
8368 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
8380 arg1 = (
PLINT)jarg1;
8381 arg2 = (
PLINT)jarg2;
8382 arg3 = (
PLINT)jarg3;
8398 char *arg1 = (
char *) 0 ;
8404 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
8408 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
8419 arg1 = (
PLINT)jarg1;
8420 arg2 = (
PLINT)jarg2;
8421 arg3 = (
PLINT)jarg3;
8426 SWIGEXPORT void JNICALL
Java_plplot_core_plplotjavacJNI_plshades(JNIEnv *jenv, jclass jcls, jobjectArray jarg1, jdouble jarg5, jdouble jarg6, jdouble jarg7, jdouble jarg8, jdoubleArray jarg9, jdouble jarg11, jint jarg12, jdouble jarg13, jboolean jarg15, jobjectArray jarg16, jobjectArray jarg17) {
8427 PLFLT **arg1 = (PLFLT **) 0 ;
8435 PLFLT *arg9 = (PLFLT *) 0 ;
8456 int nx = ( *jenv )->GetArrayLength( jenv, jarg1 );
8459 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
8460 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
8462 ( *jenv )->EnsureLocalCapacity( jenv, nx );
8464 for ( i = 0; i < nx; i++ )
8466 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
8467 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
8470 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
8471 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
8473 printf(
"Misshapen a array.\n" );
8474 for ( j = 0; j <= i; j++ )
8475 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
8487 for ( i = 0; i < nx; i++ )
8489 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8490 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
8496 arg5 = (
PLFLT)jarg5;
8497 arg6 = (
PLFLT)jarg6;
8498 arg7 = (
PLFLT)jarg7;
8499 arg8 = (
PLFLT)jarg8;
8501 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg9, 0 );
8502 arg10 = ( *jenv )->GetArrayLength( jenv, jarg9 );
8504 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg9, jxdata, 0 );
8506 arg11 = (
PLFLT)jarg11;
8507 arg12 = (
PLINT)jarg12;
8508 arg13 = (
PLFLT)jarg13;
8510 arg15 = jarg15 ? 1 : 0;
8515 int nx = ( *jenv )->GetArrayLength( jenv, jarg16 );
8518 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
8519 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
8521 ( *jenv )->EnsureLocalCapacity( jenv, nx );
8523 for ( i = 0; i < nx; i++ )
8525 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg16, i );
8526 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
8529 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
8530 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
8532 printf(
"Misshapen a array.\n" );
8533 for ( j = 0; j <= i; j++ )
8534 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
8541 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx == Xlen && ny == 1 ) ) )
8543 printf(
"Xlen =%d, nx =%d, Ylen =%d, ny =%d\n", Xlen, nx,
Ylen, ny );
8544 printf(
"X vector or matrix must match matrix dimensions.\n" );
8545 for ( i = 0; i < nx; i++ )
8546 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8554 for ( i = 0; i < nx; i++ )
8556 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8557 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
8567 int nx = ( *jenv )->GetArrayLength( jenv, jarg17 );
8570 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
8571 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
8573 ( *jenv )->EnsureLocalCapacity( jenv, nx );
8575 for ( i = 0; i < nx; i++ )
8577 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg17, i );
8578 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
8581 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
8582 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
8584 printf(
"Misshapen a array.\n" );
8585 for ( j = 0; j <= i; j++ )
8586 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
8593 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx ==
Ylen && ny == 1 && ny == Alen ) ) )
8595 printf(
"Xlen =%d, nx =%d, Ylen =%d, Alen =%d, ny =%d\n",
8596 Xlen, nx,
Ylen, Alen, ny );
8597 printf(
"Y vector or matrix must match matrix dimensions.\n" );
8598 for ( i = 0; i < nx; i++ )
8599 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8605 for ( i = 0; i < nx; i++ )
8607 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8608 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
8620 plshades((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,(
double const *)arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17);
8640 SWIGEXPORT void JNICALL
Java_plplot_core_plplotjavacJNI_plshade(JNIEnv *jenv, jclass jcls, jobjectArray jarg1, jdouble jarg5, jdouble jarg6, jdouble jarg7, jdouble jarg8, jdouble jarg9, jdouble jarg10, jint jarg11, jdouble jarg12, jdouble jarg13, jint jarg14, jdouble jarg15, jint jarg16, jdouble jarg17, jboolean jarg19, jobjectArray jarg20, jobjectArray jarg21) {
8641 PLFLT **arg1 = (PLFLT **) 0 ;
8674 int nx = ( *jenv )->GetArrayLength( jenv, jarg1 );
8677 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
8678 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
8680 ( *jenv )->EnsureLocalCapacity( jenv, nx );
8682 for ( i = 0; i < nx; i++ )
8684 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
8685 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
8688 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
8689 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
8691 printf(
"Misshapen a array.\n" );
8692 for ( j = 0; j <= i; j++ )
8693 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
8705 for ( i = 0; i < nx; i++ )
8707 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8708 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
8714 arg5 = (
PLFLT)jarg5;
8715 arg6 = (
PLFLT)jarg6;
8716 arg7 = (
PLFLT)jarg7;
8717 arg8 = (
PLFLT)jarg8;
8718 arg9 = (
PLFLT)jarg9;
8719 arg10 = (
PLFLT)jarg10;
8720 arg11 = (
PLINT)jarg11;
8721 arg12 = (
PLFLT)jarg12;
8722 arg13 = (
PLFLT)jarg13;
8723 arg14 = (
PLINT)jarg14;
8724 arg15 = (
PLFLT)jarg15;
8725 arg16 = (
PLINT)jarg16;
8726 arg17 = (
PLFLT)jarg17;
8728 arg19 = jarg19 ? 1 : 0;
8733 int nx = ( *jenv )->GetArrayLength( jenv, jarg20 );
8736 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
8737 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
8739 ( *jenv )->EnsureLocalCapacity( jenv, nx );
8741 for ( i = 0; i < nx; i++ )
8743 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg20, i );
8744 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
8747 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
8748 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
8750 printf(
"Misshapen a array.\n" );
8751 for ( j = 0; j <= i; j++ )
8752 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
8759 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx == Xlen && ny == 1 ) ) )
8761 printf(
"Xlen =%d, nx =%d, Ylen =%d, ny =%d\n", Xlen, nx,
Ylen, ny );
8762 printf(
"X vector or matrix must match matrix dimensions.\n" );
8763 for ( i = 0; i < nx; i++ )
8764 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8772 for ( i = 0; i < nx; i++ )
8774 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8775 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
8785 int nx = ( *jenv )->GetArrayLength( jenv, jarg21 );
8788 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
8789 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
8791 ( *jenv )->EnsureLocalCapacity( jenv, nx );
8793 for ( i = 0; i < nx; i++ )
8795 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg21, i );
8796 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
8799 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
8800 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
8802 printf(
"Misshapen a array.\n" );
8803 for ( j = 0; j <= i; j++ )
8804 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
8811 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx ==
Ylen && ny == 1 && ny == Alen ) ) )
8813 printf(
"Xlen =%d, nx =%d, Ylen =%d, Alen =%d, ny =%d\n",
8814 Xlen, nx,
Ylen, Alen, ny );
8815 printf(
"Y vector or matrix must match matrix dimensions.\n" );
8816 for ( i = 0; i < nx; i++ )
8817 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8823 for ( i = 0; i < nx; i++ )
8825 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8826 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
8838 plshade((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20,arg21);
8862 jobject obj = jarg1;
8865 if ( labelClass != 0 )
8867 ( *jenv )->DeleteGlobalRef( jenv, labelClass );
8874 labelClass = ( *jenv )->NewGlobalRef( jenv, obj );
8876 if ( labelClass != 0 )
8898 arg1 = (
PLFLT)jarg1;
8899 arg2 = (
PLFLT)jarg2;
8910 arg1 = (
PLFLT)jarg1;
8911 arg2 = (
PLFLT)jarg2;
8921 arg1 = (
PLINT)jarg1;
8936 arg1 = (
PLFLT)jarg1;
8937 arg2 = (
PLFLT)jarg2;
8938 arg3 = (
PLINT)jarg3;
8939 arg4 = (
PLINT)jarg4;
8940 arg5 = (
PLINT)jarg5;
8941 arg6 = (
PLINT)jarg6;
8942 plspage(arg1,arg2,arg3,arg4,arg5,arg6);
8947 char *arg1 = (
char *) 0 ;
8953 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
8957 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
8962 char *arg1 = (
char *) 0 ;
8969 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
8973 arg2 = jarg2 ? 1 : 0;
8975 plspal1((
char const *)arg1,arg2);
8976 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
8986 arg1 = jarg1 ? 1 : 0;
8997 arg1 = (
PLINT)jarg1;
9008 arg1 = (
PLINT)jarg1;
9009 arg2 = (
PLINT)jarg2;
9020 arg1 = (
PLFLT)jarg1;
9021 arg2 = (
PLFLT)jarg2;
9032 arg1 = (
PLINT)jarg1;
9033 arg2 = (
PLINT)jarg2;
9039 char *arg1 = (
char *) 0 ;
9047 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
9050 arg2 = (
PLINT)jarg2;
9051 arg3 = (
PLINT)jarg3;
9052 plstart((
char const *)arg1,arg2,arg3);
9053 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
9064 jobject obj = jarg1;
9069 ( *jenv )->DeleteGlobalRef( jenv, ctClass );
9076 ctClass = ( *jenv )->NewGlobalRef( jenv, obj );
9096 PLFLT *arg2 = (PLFLT *) 0 ;
9097 PLFLT *arg3 = (PLFLT *) 0 ;
9098 char *arg4 = (
char *) 0 ;
9103 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
9104 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
9110 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
9113 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
9114 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
9116 printf(
"Vectors must be same length.\n" );
9120 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
9124 arg4 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg4, 0);
9127 plstring(arg1,(
double const *)arg2,(
double const *)arg3,(
char const *)arg4);
9134 if (arg4) (*jenv)->ReleaseStringUTFChars(jenv, jarg4, (
const char *)arg4);
9140 PLFLT *arg2 = (PLFLT *) 0 ;
9141 PLFLT *arg3 = (PLFLT *) 0 ;
9142 PLFLT *arg4 = (PLFLT *) 0 ;
9143 char *arg5 = (
char *) 0 ;
9148 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
9149 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
9155 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
9158 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
9159 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
9161 printf(
"Vectors must be same length.\n" );
9165 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
9168 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
9169 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
9171 printf(
"Vectors must be same length.\n" );
9175 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
9179 arg5 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg5, 0);
9182 plstring3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
char const *)arg5);
9192 if (arg5) (*jenv)->ReleaseStringUTFChars(jenv, jarg5, (
const char *)arg5);
9204 arg1 = (
PLINT)jarg1;
9205 arg2 = (
PLINT)jarg2;
9206 arg3 = (
PLFLT)jarg3;
9207 arg4 = (
PLFLT)jarg4;
9212 SWIGEXPORT void JNICALL
Java_plplot_core_plplotjavacJNI_plstripc(JNIEnv *jenv, jclass jcls, jintArray jarg1, jstring jarg2, jstring jarg3, jdouble jarg4, jdouble jarg5, jdouble jarg6, jdouble jarg7, jdouble jarg8, jdouble jarg9, jdouble jarg10, jboolean jarg11, jboolean jarg12, jint jarg13, jint jarg14, jintArray jarg15, jintArray jarg16, jobjectArray jarg17, jstring jarg18, jstring jarg19, jstring jarg20) {
9213 PLINT *arg1 = (PLINT *) 0 ;
9214 char *arg2 = (
char *) 0 ;
9215 char *arg3 = (
char *) 0 ;
9227 PLINT *arg15 = (PLINT *) 0 ;
9228 PLINT *arg16 = (PLINT *) 0 ;
9230 char *arg18 = (
char *) 0 ;
9231 char *arg19 = (
char *) 0 ;
9232 char *arg20 = (
char *) 0 ;
9242 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
9251 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
9256 arg3 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg3, 0);
9259 arg4 = (
PLFLT)jarg4;
9260 arg5 = (
PLFLT)jarg5;
9261 arg6 = (
PLFLT)jarg6;
9262 arg7 = (
PLFLT)jarg7;
9263 arg8 = (
PLFLT)jarg8;
9264 arg9 = (
PLFLT)jarg9;
9265 arg10 = (
PLFLT)jarg10;
9267 arg11 = jarg11 ? 1 : 0;
9270 arg12 = jarg12 ? 1 : 0;
9272 arg13 = (
PLINT)jarg13;
9273 arg14 = (
PLINT)jarg14;
9275 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg15, 0 );
9276 Alen = ( *jenv )->GetArrayLength( jenv, jarg15 );
9278 ( *jenv )->ReleaseIntArrayElements( jenv, jarg15, jydata, 0 );
9281 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg16, 0 );
9282 if ( ( *jenv )->GetArrayLength( jenv, jarg16 ) !=
Alen )
9284 printf(
"Vectors must be same length.\n" );
9288 ( *jenv )->ReleaseIntArrayElements( jenv, jarg16, jydata, 0 );
9292 int size = ( *jenv )->GetArrayLength( jenv, jarg17 );
9295 printf(
"legline must be an array of length 4\n" );
9298 arg17 = (
char **) malloc( 4 *
sizeof (
char * ) );
9300 for ( i = 0; i < 4; i++ )
9302 jstring j_string = (jstring) ( *jenv )->GetObjectArrayElement( jenv, jarg17, i );
9303 const char * c_string = (
char *) ( *jenv )->GetStringUTFChars( jenv, j_string, 0 );
9304 arg17[i] = malloc( ( strlen( c_string ) + 1 ) *
sizeof (
const char * ) );
9305 strcpy( arg17[i], c_string );
9306 ( *jenv )->ReleaseStringUTFChars( jenv, j_string, c_string );
9307 ( *jenv )->DeleteLocalRef( jenv, j_string );
9312 arg18 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg18, 0);
9313 if (!arg18) return ;
9317 arg19 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg19, 0);
9318 if (!arg19) return ;
9322 arg20 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg20, 0);
9323 if (!arg20) return ;
9325 plstripc(arg1,(
char const *)arg2,(
char const *)arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,(
int const *)arg15,(
int const *)arg16,(
char const *(*))arg17,(
char const *)arg18,(
char const *)arg19,(
char const *)arg20);
9327 jint jvalue = (jint)temp1;
9328 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
9331 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
9332 if (arg3) (*jenv)->ReleaseStringUTFChars(jenv, jarg3, (
const char *)arg3);
9341 for ( i = 0; i < 4; i++ )
9345 if (arg18) (*jenv)->ReleaseStringUTFChars(jenv, jarg18, (
const char *)arg18);
9346 if (arg19) (*jenv)->ReleaseStringUTFChars(jenv, jarg19, (
const char *)arg19);
9347 if (arg20) (*jenv)->ReleaseStringUTFChars(jenv, jarg20, (
const char *)arg20);
9356 arg1 = (
PLINT)jarg1;
9363 PLINT *arg2 = (PLINT *) 0 ;
9364 PLINT *arg3 = (PLINT *) 0 ;
9369 jint *jxdata = ( *jenv )->GetIntArrayElements( jenv, jarg1, 0 );
9370 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
9376 ( *jenv )->ReleaseIntArrayElements( jenv, jarg1, jxdata, 0 );
9379 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg3, 0 );
9380 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
9382 printf(
"Vectors must be same length.\n" );
9386 ( *jenv )->ReleaseIntArrayElements( jenv, jarg3, jydata, 0 );
9388 plstyl(arg1,(
int const *)arg2,(
int const *)arg3);
9399 PLFLT *arg1 = (PLFLT *) 0 ;
9400 PLFLT *arg2 = (PLFLT *) 0 ;
9407 if ( jarg1 != NULL )
9409 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
9410 Alen = ( *jenv )->GetArrayLength( jenv, jarg1 );
9412 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
9421 if ( jarg2 != NULL )
9423 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
9424 arg3 = ( *jenv )->GetArrayLength( jenv, jarg2 );
9425 if ( ( *jenv )->GetArrayLength( jenv, jarg2 ) !=
Alen )
9427 printf(
"Vectors must be same length.\n" );
9431 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
9440 arg4 = jarg4 ? 1 : 0;
9442 plsvect((
double const *)arg1,(
double const *)arg2,arg3,arg4);
9462 arg1 = (
PLFLT)jarg1;
9463 arg2 = (
PLFLT)jarg2;
9464 arg3 = (
PLFLT)jarg3;
9465 arg4 = (
PLFLT)jarg4;
9466 plsvpa(arg1,arg2,arg3,arg4);
9476 arg1 = (
PLINT)jarg1;
9477 arg2 = (
PLINT)jarg2;
9488 arg1 = (
PLINT)jarg1;
9489 arg2 = (
PLINT)jarg2;
9496 PLFLT *arg2 = (PLFLT *) 0 ;
9497 PLFLT *arg3 = (PLFLT *) 0 ;
9503 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
9504 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
9510 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
9513 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
9514 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
9516 printf(
"Vectors must be same length.\n" );
9520 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
9522 arg4 = (
PLINT)jarg4;
9523 plsym(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
9539 arg1 = (
PLINT)jarg1;
9540 arg2 = (
PLINT)jarg2;
9553 char *arg1 = (
char *) 0 ;
9559 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
9563 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
9572 arg1 = (
PLFLT)jarg1;
9578 PLFLT **arg1 = (PLFLT **) 0 ;
9579 PLFLT **arg2 = (PLFLT **) 0 ;
9591 int nx = ( *jenv )->GetArrayLength( jenv, jarg1 );
9594 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
9595 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
9597 ( *jenv )->EnsureLocalCapacity( jenv, nx );
9599 for ( i = 0; i < nx; i++ )
9601 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
9602 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
9605 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
9606 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
9608 printf(
"Misshapen a array.\n" );
9609 for ( j = 0; j <= i; j++ )
9610 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
9620 for ( i = 0; i < nx; i++ )
9622 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
9623 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
9632 int nx = ( *jenv )->GetArrayLength( jenv, jarg2 );
9635 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
9636 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
9638 ( *jenv )->EnsureLocalCapacity( jenv, nx );
9640 for ( i = 0; i < nx; i++ )
9642 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg2, i );
9643 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
9646 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
9647 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
9649 printf(
"Misshapen a array.\n" );
9650 for ( j = 0; j <= i; j++ )
9651 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
9658 if ( nx != Xlen || ny !=
Ylen )
9660 printf(
"Vectors must match matrix.\n" );
9661 for ( i = 0; i < nx; i++ )
9662 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
9670 for ( i = 0; i < nx; i++ )
9672 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
9673 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
9680 arg5 = (
PLFLT)jarg5;
9684 int nx = ( *jenv )->GetArrayLength( jenv, jarg6 );
9687 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
9688 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
9690 ( *jenv )->EnsureLocalCapacity( jenv, nx );
9692 for ( i = 0; i < nx; i++ )
9694 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg6, i );
9695 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
9698 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
9699 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
9701 printf(
"Misshapen a array.\n" );
9702 for ( j = 0; j <= i; j++ )
9703 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
9710 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx == Xlen && ny == 1 ) ) )
9712 printf(
"Xlen =%d, nx =%d, Ylen =%d, ny =%d\n", Xlen, nx,
Ylen, ny );
9713 printf(
"X vector or matrix must match matrix dimensions.\n" );
9714 for ( i = 0; i < nx; i++ )
9715 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
9723 for ( i = 0; i < nx; i++ )
9725 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
9726 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
9736 int nx = ( *jenv )->GetArrayLength( jenv, jarg7 );
9739 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
9740 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
9742 ( *jenv )->EnsureLocalCapacity( jenv, nx );
9744 for ( i = 0; i < nx; i++ )
9746 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg7, i );
9747 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
9750 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
9751 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
9753 printf(
"Misshapen a array.\n" );
9754 for ( j = 0; j <= i; j++ )
9755 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
9762 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx ==
Ylen && ny == 1 && ny == Alen ) ) )
9764 printf(
"Xlen =%d, nx =%d, Ylen =%d, Alen =%d, ny =%d\n",
9765 Xlen, nx,
Ylen, Alen, ny );
9766 printf(
"Y vector or matrix must match matrix dimensions.\n" );
9767 for ( i = 0; i < nx; i++ )
9768 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
9774 for ( i = 0; i < nx; i++ )
9776 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
9777 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
9789 plvect((
double const **)arg1,(
double const **)arg2,arg3,arg4,arg5,arg6,arg7);
9819 arg1 = (
PLFLT)jarg1;
9820 arg2 = (
PLFLT)jarg2;
9821 arg3 = (
PLFLT)jarg3;
9822 arg4 = (
PLFLT)jarg4;
9823 arg5 = (
PLFLT)jarg5;
9824 plvpas(arg1,arg2,arg3,arg4,arg5);
9836 arg1 = (
PLFLT)jarg1;
9837 arg2 = (
PLFLT)jarg2;
9838 arg3 = (
PLFLT)jarg3;
9839 arg4 = (
PLFLT)jarg4;
9840 plvpor(arg1,arg2,arg3,arg4);
9851 SWIGEXPORT void JNICALL
Java_plplot_core_plplotjavacJNI_plw3d(JNIEnv *jenv, jclass jcls, jdouble jarg1, jdouble jarg2, jdouble jarg3, jdouble jarg4, jdouble jarg5, jdouble jarg6, jdouble jarg7, jdouble jarg8, jdouble jarg9, jdouble jarg10, jdouble jarg11) {
9866 arg1 = (
PLFLT)jarg1;
9867 arg2 = (
PLFLT)jarg2;
9868 arg3 = (
PLFLT)jarg3;
9869 arg4 = (
PLFLT)jarg4;
9870 arg5 = (
PLFLT)jarg5;
9871 arg6 = (
PLFLT)jarg6;
9872 arg7 = (
PLFLT)jarg7;
9873 arg8 = (
PLFLT)jarg8;
9874 arg9 = (
PLFLT)jarg9;
9875 arg10 = (
PLFLT)jarg10;
9876 arg11 = (
PLFLT)jarg11;
9877 plw3d(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
9886 arg1 = (
PLFLT)jarg1;
9899 arg1 = (
PLFLT)jarg1;
9900 arg2 = (
PLFLT)jarg2;
9901 arg3 = (
PLFLT)jarg3;
9902 arg4 = (
PLFLT)jarg4;
9903 plwind(arg1,arg2,arg3,arg4);
9917 arg1 = jarg1 ? 1 : 0;
9925 if ( (*jenv)->GetArrayLength(jenv, jarg2) == 0 )
9934 jboolean jvalue = (jboolean) temp2;
9935 (*jenv)->SetBooleanArrayRegion(jenv, jarg2, 0, 1, &jvalue);
9943 char *arg2 = (
char *) 0 ;
9952 jobject obj = jarg1;
9955 jclass cls = ( *jenv )->GetObjectClass( jenv, obj );
9956 mapformID = ( *jenv )->GetMethodID( jenv, cls,
"mapform",
"([D[D)V" );
9958 cbenvMapform = jenv;
9968 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
9971 arg3 = (
PLFLT)jarg3;
9972 arg4 = (
PLFLT)jarg4;
9973 arg5 = (
PLFLT)jarg5;
9974 arg6 = (
PLFLT)jarg6;
9975 plmap(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6);
9976 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
9982 char *arg2 = (
char *) 0 ;
9987 PLINT *arg7 = (PLINT *) 0 ;
9993 jobject obj = jarg1;
9996 jclass cls = ( *jenv )->GetObjectClass( jenv, obj );
9997 mapformID = ( *jenv )->GetMethodID( jenv, cls,
"mapform",
"([D[D)V" );
9999 cbenvMapform = jenv;
10009 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
10010 if (!arg2) return ;
10012 arg3 = (
PLFLT)jarg3;
10013 arg4 = (
PLFLT)jarg4;
10014 arg5 = (
PLFLT)jarg5;
10015 arg6 = (
PLFLT)jarg6;
10017 if ( jarg7 != NULL )
10019 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg7, 0 );
10020 arg8 = ( *jenv )->GetArrayLength( jenv, jarg7 );
10022 ( *jenv )->ReleaseIntArrayElements( jenv, jarg7, jydata, 0 );
10030 plmapline(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
10031 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
10040 char *arg2 = (
char *) 0 ;
10041 char *arg3 = (
char *) 0 ;
10046 PLINT *arg8 = (PLINT *) 0 ;
10052 jobject obj = jarg1;
10055 jclass cls = ( *jenv )->GetObjectClass( jenv, obj );
10056 mapformID = ( *jenv )->GetMethodID( jenv, cls,
"mapform",
"([D[D)V" );
10057 mapformClass = obj;
10058 cbenvMapform = jenv;
10068 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
10069 if (!arg2) return ;
10073 arg3 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg3, 0);
10074 if (!arg3) return ;
10076 arg4 = (
PLFLT)jarg4;
10077 arg5 = (
PLFLT)jarg5;
10078 arg6 = (
PLFLT)jarg6;
10079 arg7 = (
PLFLT)jarg7;
10081 if ( jarg8 != NULL )
10083 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg8, 0 );
10084 arg9 = ( *jenv )->GetArrayLength( jenv, jarg8 );
10086 ( *jenv )->ReleaseIntArrayElements( jenv, jarg8, jydata, 0 );
10094 plmapstring(arg1,(
char const *)arg2,(
char const *)arg3,arg4,arg5,arg6,arg7,(
int const *)arg8,arg9);
10095 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
10096 if (arg3) (*jenv)->ReleaseStringUTFChars(jenv, jarg3, (
const char *)arg3);
10103 SWIGEXPORT void JNICALL
Java_plplot_core_plplotjavacJNI_plmaptex(JNIEnv *jenv, jclass jcls, jobject jarg1, jstring jarg2, jdouble jarg3, jdouble jarg4, jdouble jarg5, jstring jarg6, jdouble jarg7, jdouble jarg8, jdouble jarg9, jdouble jarg10, jint jarg11) {
10105 char *arg2 = (
char *) 0 ;
10109 char *arg6 = (
char *) 0 ;
10119 jobject obj = jarg1;
10122 jclass cls = ( *jenv )->GetObjectClass( jenv, obj );
10123 mapformID = ( *jenv )->GetMethodID( jenv, cls,
"mapform",
"([D[D)V" );
10124 mapformClass = obj;
10125 cbenvMapform = jenv;
10135 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
10136 if (!arg2) return ;
10138 arg3 = (
PLFLT)jarg3;
10139 arg4 = (
PLFLT)jarg4;
10140 arg5 = (
PLFLT)jarg5;
10143 arg6 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg6, 0);
10144 if (!arg6) return ;
10146 arg7 = (
PLFLT)jarg7;
10147 arg8 = (
PLFLT)jarg8;
10148 arg9 = (
PLFLT)jarg9;
10149 arg10 = (
PLFLT)jarg10;
10150 arg11 = (
PLINT)jarg11;
10151 plmaptex(arg1,(
char const *)arg2,arg3,arg4,arg5,(
char const *)arg6,arg7,arg8,arg9,arg10,arg11);
10152 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
10153 if (arg6) (*jenv)->ReleaseStringUTFChars(jenv, jarg6, (
const char *)arg6);
10159 char *arg2 = (
char *) 0 ;
10164 PLINT *arg7 = (PLINT *) 0 ;
10170 jobject obj = jarg1;
10173 jclass cls = ( *jenv )->GetObjectClass( jenv, obj );
10174 mapformID = ( *jenv )->GetMethodID( jenv, cls,
"mapform",
"([D[D)V" );
10175 mapformClass = obj;
10176 cbenvMapform = jenv;
10186 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
10187 if (!arg2) return ;
10189 arg3 = (
PLFLT)jarg3;
10190 arg4 = (
PLFLT)jarg4;
10191 arg5 = (
PLFLT)jarg5;
10192 arg6 = (
PLFLT)jarg6;
10194 if ( jarg7 != NULL )
10196 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg7, 0 );
10197 arg8 = ( *jenv )->GetArrayLength( jenv, jarg7 );
10199 ( *jenv )->ReleaseIntArrayElements( jenv, jarg7, jydata, 0 );
10207 plmapfill(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
10208 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
10227 jobject obj = jarg1;
10230 jclass cls = ( *jenv )->GetObjectClass( jenv, obj );
10231 mapformID = ( *jenv )->GetMethodID( jenv, cls,
"mapform",
"([D[D)V" );
10232 mapformClass = obj;
10233 cbenvMapform = jenv;
10241 arg2 = (
PLFLT)jarg2;
10242 arg3 = (
PLFLT)jarg3;
10243 arg4 = (
PLFLT)jarg4;
10244 arg5 = (
PLFLT)jarg5;
10245 arg6 = (
PLFLT)jarg6;
10246 arg7 = (
PLFLT)jarg7;
10251 SWIGEXPORT void JNICALL
Java_plplot_core_plplotjavacJNI_plimage(JNIEnv *jenv, jclass jcls, jobjectArray jarg1, jdouble jarg4, jdouble jarg5, jdouble jarg6, jdouble jarg7, jdouble jarg8, jdouble jarg9, jdouble jarg10, jdouble jarg11, jdouble jarg12, jdouble jarg13) {
10252 PLFLT **arg1 = (PLFLT **) 0 ;
10271 int nx = ( *jenv )->GetArrayLength( jenv, jarg1 );
10274 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
10275 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
10277 ( *jenv )->EnsureLocalCapacity( jenv, nx );
10279 for ( i = 0; i < nx; i++ )
10281 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
10282 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
10285 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
10286 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
10288 printf(
"Misshapen a array.\n" );
10289 for ( j = 0; j <= i; j++ )
10290 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
10302 for ( i = 0; i < nx; i++ )
10304 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
10305 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
10311 arg4 = (
PLFLT)jarg4;
10312 arg5 = (
PLFLT)jarg5;
10313 arg6 = (
PLFLT)jarg6;
10314 arg7 = (
PLFLT)jarg7;
10315 arg8 = (
PLFLT)jarg8;
10316 arg9 = (
PLFLT)jarg9;
10317 arg10 = (
PLFLT)jarg10;
10318 arg11 = (
PLFLT)jarg11;
10319 arg12 = (
PLFLT)jarg12;
10320 arg13 = (
PLFLT)jarg13;
10321 plimage((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
10329 SWIGEXPORT void JNICALL
Java_plplot_core_plplotjavacJNI_plimagefr(JNIEnv *jenv, jclass jcls, jobjectArray jarg1, jdouble jarg4, jdouble jarg5, jdouble jarg6, jdouble jarg7, jdouble jarg8, jdouble jarg9, jdouble jarg10, jdouble jarg11, jobjectArray jarg12, jobjectArray jarg13) {
10330 PLFLT **arg1 = (PLFLT **) 0 ;
10349 int nx = ( *jenv )->GetArrayLength( jenv, jarg1 );
10352 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
10353 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
10355 ( *jenv )->EnsureLocalCapacity( jenv, nx );
10357 for ( i = 0; i < nx; i++ )
10359 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
10360 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
10363 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
10364 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
10366 printf(
"Misshapen a array.\n" );
10367 for ( j = 0; j <= i; j++ )
10368 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
10380 for ( i = 0; i < nx; i++ )
10382 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
10383 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
10389 arg4 = (
PLFLT)jarg4;
10390 arg5 = (
PLFLT)jarg5;
10391 arg6 = (
PLFLT)jarg6;
10392 arg7 = (
PLFLT)jarg7;
10393 arg8 = (
PLFLT)jarg8;
10394 arg9 = (
PLFLT)jarg9;
10395 arg10 = (
PLFLT)jarg10;
10396 arg11 = (
PLFLT)jarg11;
10400 int nx = ( *jenv )->GetArrayLength( jenv, jarg12 );
10403 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
10404 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
10406 ( *jenv )->EnsureLocalCapacity( jenv, nx );
10408 for ( i = 0; i < nx; i++ )
10410 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg12, i );
10411 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
10414 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
10415 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
10417 printf(
"Misshapen a array.\n" );
10418 for ( j = 0; j <= i; j++ )
10419 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
10426 if ( !( ( nx == Xlen + 1 && ny ==
Ylen + 1 ) || ( nx == Xlen + 1 && ny == 1 ) ) )
10428 printf(
"Xlen =%d, nx =%d, Ylen =%d, ny =%d\n", Xlen, nx,
Ylen, ny );
10429 printf(
"X vector or matrix must match matrix dimensions.\n" );
10430 for ( i = 0; i < nx; i++ )
10431 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
10439 for ( i = 0; i < nx; i++ )
10441 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
10442 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
10452 int nx = ( *jenv )->GetArrayLength( jenv, jarg13 );
10455 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
10456 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
10458 ( *jenv )->EnsureLocalCapacity( jenv, nx );
10460 for ( i = 0; i < nx; i++ )
10462 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg13, i );
10463 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
10466 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
10467 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
10469 printf(
"Misshapen a array.\n" );
10470 for ( j = 0; j <= i; j++ )
10471 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
10478 if ( !( ( nx == Xlen + 1 && ny ==
Ylen + 1 ) || ( nx ==
Ylen + 1 && ny == 1 && ny == Alen ) ) )
10480 printf(
"Xlen =%d, nx =%d, Ylen =%d, Alen =%d, ny =%d\n",
10481 Xlen, nx,
Ylen, Alen, ny );
10482 printf(
"Y vector or matrix must match matrix dimensions.\n" );
10483 for ( i = 0; i < nx; i++ )
10484 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
10490 for ( i = 0; i < nx; i++ )
10492 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
10493 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
10505 plimagefr((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
10537 char *arg1 = (
char *) 0 ;
10538 char *arg2 = (
char *) 0 ;
10544 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
10545 if (!arg1) return ;
10549 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
10550 if (!arg2) return ;
10552 plSetUsage((
char const *)arg1,(
char const *)arg2);
10553 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
10554 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
10566 PLFLT **arg1 = (PLFLT **) 0 ;
10569 PLFLT *arg4 = (PLFLT *) 0 ;
10570 PLFLT *arg5 = (PLFLT *) 0 ;
10579 int nx = ( *jenv )->GetArrayLength( jenv, jarg1 );
10582 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
10583 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
10585 ( *jenv )->EnsureLocalCapacity( jenv, nx );
10587 for ( i = 0; i < nx; i++ )
10589 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
10590 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
10593 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
10594 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
10596 printf(
"Misshapen a array.\n" );
10597 for ( j = 0; j <= i; j++ )
10598 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
10610 for ( i = 0; i < nx; i++ )
10612 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
10613 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
10624 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
10636 if ((*jenv)->GetArrayLength(jenv, jarg5) == 0) {
10645 jdouble jvalue = (jdouble)temp4;
10646 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
10649 jdouble jvalue = (jdouble)temp5;
10650 (*jenv)->SetDoubleArrayRegion(jenv, jarg5, 0, 1, &jvalue);
10670 jresult = (jint)result;