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;
1181 result = (int)(0x0001);
1182 jresult = (jint)result;
1193 result = (int)(0x0002);
1194 jresult = (jint)result;
1205 result = (int)(0x0004);
1206 jresult = (jint)result;
1217 result = (int)(0x0008);
1218 jresult = (jint)result;
1229 result = (int)(0x0010);
1230 jresult = (jint)result;
1241 result = (int)(0x0100);
1242 jresult = (jint)result;
1253 result = (int)(0x0200);
1254 jresult = (jint)result;
1265 result = (int)(0x0400);
1266 jresult = (jint)result;
1277 result = (int)(0x0800);
1278 jresult = (jint)result;
1289 result = (int)(0x1000);
1290 jresult = (jint)result;
1301 result = (int)(0x0000);
1302 jresult = (jint)result;
1313 result = (int)(0x0001);
1314 jresult = (jint)result;
1325 result = (int)(0x0002);
1326 jresult = (jint)result;
1337 result = (int)(0x0004);
1338 jresult = (jint)result;
1349 result = (int)(0x0008);
1350 jresult = (jint)result;
1361 result = (int)(0x0010);
1362 jresult = (jint)result;
1373 result = (int)(0x0020);
1374 jresult = (jint)result;
1385 result = (int)(0x0040);
1386 jresult = (jint)result;
1397 result = (int)(0x0080);
1398 jresult = (jint)result;
1409 result = (int)(0x80000000);
1410 jresult = (jint)result;
1421 result = (int)(0x00000000);
1422 jresult = (jint)result;
1433 result = (int)(0xf);
1434 jresult = (jint)result;
1445 result = (int)(0x7);
1446 jresult = (jint)result;
1457 result = (int)(0xf);
1458 jresult = (jint)result;
1469 result = (int)(0x0);
1470 jresult = (jint)result;
1481 result = (int)(0x1);
1482 jresult = (jint)result;
1493 result = (int)(0x2);
1494 jresult = (jint)result;
1505 result = (int)(0x0);
1506 jresult = (jint)result;
1517 result = (int)(0x1);
1518 jresult = (jint)result;
1529 result = (int)(0x2);
1530 jresult = (jint)result;
1541 result = (int)(0x3);
1542 jresult = (jint)result;
1553 result = (int)(0x4);
1554 jresult = (jint)result;
1565 result = (int)(0x0);
1566 jresult = (jint)result;
1577 result = (int)(0x1);
1578 jresult = (jint)result;
1589 result = (int)(0x2);
1590 jresult = (jint)result;
1601 result = (int)(0x0);
1602 jresult = (jint)result;
1613 result = (int)(0x1);
1614 jresult = (jint)result;
1626 jresult = (jint)result;
1638 jresult = (jint)result;
1649 result = (int)((-42));
1650 jresult = (jint)result;
1662 jresult = (jint)result;
1674 jresult = (jint)result;
1686 jresult = (jint)result;
1697 result = (int)(0x0);
1698 jresult = (jint)result;
1709 result = (int)(0x1);
1710 jresult = (jint)result;
1721 result = (int)(0x2);
1722 jresult = (jint)result;
1733 result = (int)(0x4);
1734 jresult = (jint)result;
1746 jresult = (jint)result;
1758 jresult = (jint)result;
1770 jresult = (jint)result;
1782 jresult = (jint)result;
1794 jresult = (jint)result;
1806 jresult = (jint)result;
1817 result = (int)(0x00);
1818 jresult = (jint)result;
1829 result = (int)(0x01);
1830 jresult = (jint)result;
1841 result = (int)(0x02);
1842 jresult = (jint)result;
1853 result = (int)(0x08);
1854 jresult = (jint)result;
1865 result = (int)(0x10);
1866 jresult = (jint)result;
1877 result = (int)(0x1);
1878 jresult = (jint)result;
1889 result = (int)(0x2);
1890 jresult = (jint)result;
1901 result = (int)(0x4);
1902 jresult = (jint)result;
1913 result = (int)(0x8);
1914 jresult = (jint)result;
1925 result = (int)(0x10);
1926 jresult = (jint)result;
1937 result = (int)(0x20);
1938 jresult = (jint)result;
1949 result = (int)(0x40);
1950 jresult = (jint)result;
1961 result = (int)(0x80);
1962 jresult = (jint)result;
1973 result = (int)(0x1);
1974 jresult = (jint)result;
1985 result = (int)(0x2);
1986 jresult = (jint)result;
1997 result = (int)(0x4);
1998 jresult = (jint)result;
2009 result = (int)(0x8);
2010 jresult = (jint)result;
2021 result = (int)(0x10);
2022 jresult = (jint)result;
2033 result = (int)(0x20);
2034 jresult = (jint)result;
2045 result = (int)(0x40);
2046 jresult = (jint)result;
2057 result = (int)(0x80);
2058 jresult = (jint)result;
2069 result = (int)(0x1);
2070 jresult = (jint)result;
2081 result = (int)(0x2);
2082 jresult = (jint)result;
2093 result = (int)(0x4);
2094 jresult = (jint)result;
2105 result = (int)(0x8);
2106 jresult = (jint)result;
2117 result = (int)(0x10);
2118 jresult = (jint)result;
2129 result = (int)(0x20);
2130 jresult = (jint)result;
2141 result = (int)(0x40);
2142 jresult = (jint)result;
2153 result = (int)(0x80);
2154 jresult = (jint)result;
2165 result = (int)(0x100);
2166 jresult = (jint)result;
2177 result = (int)(0x200);
2178 jresult = (jint)result;
2189 result = (int)(0x400);
2190 jresult = (jint)result;
2201 result = (int)(0x800);
2202 jresult = (jint)result;
2213 result = (int)(0x1000);
2214 jresult = (jint)result;
2225 result = (int)(0x2000);
2226 jresult = (jint)result;
2237 result = (int)(0x4000);
2238 jresult = (jint)result;
2249 result = (int)(0x8000);
2250 jresult = (jint)result;
2261 result = (int)(0x10000);
2262 jresult = (jint)result;
2273 result = (int)(0x0);
2274 jresult = (jint)result;
2285 result = (int)(0x1);
2286 jresult = (jint)result;
2297 result = (int)(0x2);
2298 jresult = (jint)result;
2309 result = (int)(0x4);
2310 jresult = (jint)result;
2321 result = (int)(0x001);
2322 jresult = (jint)result;
2333 result = (int)(0x002);
2334 jresult = (jint)result;
2345 result = (int)(0x003);
2346 jresult = (jint)result;
2357 result = (int)(0x004);
2358 jresult = (jint)result;
2369 result = (int)(0x008);
2370 jresult = (jint)result;
2381 result = (int)(0x010);
2382 jresult = (jint)result;
2393 result = (int)(0x020);
2394 jresult = (jint)result;
2405 result = (int)(0x040);
2406 jresult = (jint)result;
2417 result = (int)(0x080);
2418 jresult = (jint)result;
2429 result = (int)(0x100);
2430 jresult = (jint)result;
2443 if (arg1) (arg1)->type = arg2;
2455 result = (int) ((arg1)->type);
2456 jresult = (jint)result;
2468 arg2 = (
unsigned int)jarg2;
2469 if (arg1) (arg1)->state = arg2;
2476 unsigned int result;
2481 result = (
unsigned int) ((arg1)->state);
2482 jresult = (jlong)result;
2494 arg2 = (
unsigned int)jarg2;
2495 if (arg1) (arg1)->keysym = arg2;
2502 unsigned int result;
2507 result = (
unsigned int) ((arg1)->keysym);
2508 jresult = (jlong)result;
2520 arg2 = (
unsigned int)jarg2;
2521 if (arg1) (arg1)->button = arg2;
2528 unsigned int result;
2533 result = (
unsigned int) ((arg1)->button);
2534 jresult = (jlong)result;
2546 arg2 = (
PLINT)jarg2;
2547 if (arg1) (arg1)->subwindow = arg2;
2559 result = (
PLINT) ((arg1)->subwindow);
2560 jresult = (jint)result;
2574 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
2579 strncpy((
char*)arg1->
string, (
const char *)arg2, 16-1);
2586 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
2591 jstring jresult = 0 ;
2598 result = (
char *)(
char *) ((arg1)->
string);
2599 if (result) jresult = (*jenv)->NewStringUTF(jenv, (
const char *)result);
2612 if (arg1) (arg1)->pX = arg2;
2624 result = (int) ((arg1)->pX);
2625 jresult = (jint)result;
2638 if (arg1) (arg1)->pY = arg2;
2650 result = (int) ((arg1)->pY);
2651 jresult = (jint)result;
2663 arg2 = (
PLFLT)jarg2;
2664 if (arg1) (arg1)->dX = arg2;
2669 jdouble jresult = 0 ;
2676 result = (
PLFLT) ((arg1)->dX);
2677 jresult = (jdouble)result;
2689 arg2 = (
PLFLT)jarg2;
2690 if (arg1) (arg1)->dY = arg2;
2695 jdouble jresult = 0 ;
2702 result = (
PLFLT) ((arg1)->dY);
2703 jresult = (jdouble)result;
2715 arg2 = (
PLFLT)jarg2;
2716 if (arg1) (arg1)->wX = arg2;
2721 jdouble jresult = 0 ;
2728 result = (
PLFLT) ((arg1)->wX);
2729 jresult = (jdouble)result;
2741 arg2 = (
PLFLT)jarg2;
2742 if (arg1) (arg1)->wY = arg2;
2747 jdouble jresult = 0 ;
2754 result = (
PLFLT) ((arg1)->wY);
2755 jresult = (jdouble)result;
2778 free((
char *) arg1);
2788 arg1 = (
PLINT)jarg1;
2789 arg2 = (
PLINT)jarg2;
2802 arg1 = (
PLFLT)jarg1;
2803 arg2 = (
PLFLT)jarg2;
2804 arg3 = (
PLFLT)jarg3;
2805 arg4 = (
PLINT)jarg4;
2815 arg1 = (
PLINT)jarg1;
2832 arg1 = (
PLFLT)jarg1;
2833 arg2 = (
PLFLT)jarg2;
2834 arg3 = (
PLFLT)jarg3;
2835 arg4 = (
PLFLT)jarg4;
2836 arg5 = (
PLFLT)jarg5;
2837 arg6 = (
PLFLT)jarg6;
2838 arg7 = (
PLFLT)jarg7;
2840 arg8 = jarg8 ? 1 : 0;
2842 plarc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
2849 char *arg3 = (
char *) 0 ;
2852 char *arg6 = (
char *) 0 ;
2858 arg1 = (
PLFLT)jarg1;
2859 arg2 = (
PLFLT)jarg2;
2862 arg3 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg3, 0);
2865 arg4 = (
PLFLT)jarg4;
2866 arg5 = (
PLINT)jarg5;
2869 arg6 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg6, 0);
2872 arg7 = (
PLFLT)jarg7;
2873 arg8 = (
PLINT)jarg8;
2874 plaxes(arg1,arg2,(
char const *)arg3,arg4,arg5,(
char const *)arg6,arg7,arg8);
2875 if (arg3) (*jenv)->ReleaseStringUTFChars(jenv, jarg3, (
const char *)arg3);
2876 if (arg6) (*jenv)->ReleaseStringUTFChars(jenv, jarg6, (
const char *)arg6);
2882 PLFLT *arg2 = (PLFLT *) 0 ;
2883 PLFLT *arg3 = (PLFLT *) 0 ;
2889 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
2890 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
2896 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
2899 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
2900 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
2902 printf(
"Vectors must be same length.\n" );
2906 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
2908 arg4 = (
PLINT)jarg4;
2909 plbin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
2920 PLINT *arg1 = (PLINT *) 0 ;
2921 PLINT *arg2 = (PLINT *) 0 ;
2922 PLINT *arg3 = (PLINT *) 0 ;
2923 PLINT *arg4 = (PLINT *) 0 ;
2924 PLINT *arg5 = (PLINT *) 0 ;
2925 PLFLT *arg6 = (PLFLT *) 0 ;
2941 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
2953 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
2965 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
2977 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
2989 if ((*jenv)->GetArrayLength(jenv, jarg5) == 0) {
3001 if ((*jenv)->GetArrayLength(jenv, jarg6) == 0) {
3008 arg7 = (
PLFLT)jarg7;
3009 plbtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
3011 jint jvalue = (jint)temp1;
3012 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
3015 jint jvalue = (jint)temp2;
3016 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
3019 jint jvalue = (jint)temp3;
3020 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
3023 jint jvalue = (jint)temp4;
3024 (*jenv)->SetIntArrayRegion(jenv, jarg4, 0, 1, &jvalue);
3027 jint jvalue = (jint)temp5;
3028 (*jenv)->SetIntArrayRegion(jenv, jarg5, 0, 1, &jvalue);
3031 jdouble jvalue = (jdouble)temp6;
3032 (*jenv)->SetDoubleArrayRegion(jenv, jarg6, 0, 1, &jvalue);
3051 char *arg1 = (
char *) 0 ;
3054 char *arg4 = (
char *) 0 ;
3062 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
3065 arg2 = (
PLFLT)jarg2;
3066 arg3 = (
PLINT)jarg3;
3069 arg4 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg4, 0);
3072 arg5 = (
PLFLT)jarg5;
3073 arg6 = (
PLINT)jarg6;
3074 plbox((
char const *)arg1,arg2,arg3,(
char const *)arg4,arg5,arg6);
3075 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
3076 if (arg4) (*jenv)->ReleaseStringUTFChars(jenv, jarg4, (
const char *)arg4);
3080 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) {
3081 char *arg1 = (
char *) 0 ;
3082 char *arg2 = (
char *) 0 ;
3085 char *arg5 = (
char *) 0 ;
3086 char *arg6 = (
char *) 0 ;
3089 char *arg9 = (
char *) 0 ;
3090 char *arg10 = (
char *) 0 ;
3098 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
3103 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
3106 arg3 = (
PLFLT)jarg3;
3107 arg4 = (
PLINT)jarg4;
3110 arg5 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg5, 0);
3115 arg6 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg6, 0);
3118 arg7 = (
PLFLT)jarg7;
3119 arg8 = (
PLINT)jarg8;
3122 arg9 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg9, 0);
3127 arg10 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg10, 0);
3128 if (!arg10) return ;
3130 arg11 = (
PLFLT)jarg11;
3131 arg12 = (
PLINT)jarg12;
3132 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);
3133 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
3134 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
3135 if (arg5) (*jenv)->ReleaseStringUTFChars(jenv, jarg5, (
const char *)arg5);
3136 if (arg6) (*jenv)->ReleaseStringUTFChars(jenv, jarg6, (
const char *)arg6);
3137 if (arg9) (*jenv)->ReleaseStringUTFChars(jenv, jarg9, (
const char *)arg9);
3138 if (arg10) (*jenv)->ReleaseStringUTFChars(jenv, jarg10, (
const char *)arg10);
3145 PLFLT *arg3 = (PLFLT *) 0 ;
3146 PLFLT *arg4 = (PLFLT *) 0 ;
3147 PLINT *arg5 = (PLINT *) 0 ;
3154 arg1 = (
PLFLT)jarg1;
3155 arg2 = (
PLFLT)jarg2;
3161 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
3173 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
3185 if ((*jenv)->GetArrayLength(jenv, jarg5) == 0) {
3194 jdouble jvalue = (jdouble)temp3;
3195 (*jenv)->SetDoubleArrayRegion(jenv, jarg3, 0, 1, &jvalue);
3198 jdouble jvalue = (jdouble)temp4;
3199 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
3202 jint jvalue = (jint)temp5;
3203 (*jenv)->SetIntArrayRegion(jenv, jarg5, 0, 1, &jvalue);
3223 arg1 = (
PLINT)jarg1;
3233 arg1 = (
PLFLT)jarg1;
3238 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) {
3253 arg1 = (
PLFLT)jarg1;
3254 arg2 = (
PLFLT)jarg2;
3255 arg3 = (
PLFLT)jarg3;
3256 arg4 = (
PLINT)jarg4;
3258 arg5 = jarg5 ? 1 : 0;
3260 arg6 = (
PLINT)jarg6;
3261 arg7 = (
PLINT)jarg7;
3262 arg8 = (
PLINT)jarg8;
3263 arg9 = (
PLINT)jarg9;
3264 arg10 = (
PLINT)jarg10;
3265 arg11 = (
PLFLT)jarg11;
3266 plconfigtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
3271 PLFLT **arg1 = (PLFLT **) 0 ;
3278 PLFLT *arg8 = (PLFLT *) 0 ;
3288 int nx = ( *jenv )->GetArrayLength( jenv, jarg1 );
3291 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
3292 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
3294 ( *jenv )->EnsureLocalCapacity( jenv, nx );
3296 for ( i = 0; i <
nx; i++ )
3298 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
3299 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
3302 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
3303 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
3305 printf(
"Misshapen a array.\n" );
3306 for ( j = 0; j <= i; j++ )
3307 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
3319 for ( i = 0; i <
nx; i++ )
3321 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
3322 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
3328 arg4 = (
PLINT)jarg4;
3329 arg5 = (
PLINT)jarg5;
3330 arg6 = (
PLINT)jarg6;
3331 arg7 = (
PLINT)jarg7;
3333 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg8, 0 );
3334 arg9 = ( *jenv )->GetArrayLength( jenv, jarg8 );
3336 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg8, jxdata, 0 );
3341 int nx = ( *jenv )->GetArrayLength( jenv, jarg10 );
3344 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
3345 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
3347 ( *jenv )->EnsureLocalCapacity( jenv, nx );
3349 for ( i = 0; i <
nx; i++ )
3351 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg10, i );
3352 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
3355 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
3356 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
3358 printf(
"Misshapen a array.\n" );
3359 for ( j = 0; j <= i; j++ )
3360 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
3367 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx == Xlen && ny == 1 ) ) )
3369 printf(
"Xlen =%d, nx =%d, Ylen =%d, ny =%d\n", Xlen, nx,
Ylen, ny );
3370 printf(
"X vector or matrix must match matrix dimensions.\n" );
3371 for ( i = 0; i <
nx; i++ )
3372 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
3380 for ( i = 0; i <
nx; i++ )
3382 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
3383 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
3393 int nx = ( *jenv )->GetArrayLength( jenv, jarg11 );
3396 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
3397 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
3399 ( *jenv )->EnsureLocalCapacity( jenv, nx );
3401 for ( i = 0; i <
nx; i++ )
3403 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg11, i );
3404 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
3407 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
3408 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
3410 printf(
"Misshapen a array.\n" );
3411 for ( j = 0; j <= i; j++ )
3412 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
3419 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx ==
Ylen && ny == 1 && ny == Alen ) ) )
3421 printf(
"Xlen =%d, nx =%d, Ylen =%d, Alen =%d, ny =%d\n",
3422 Xlen, nx,
Ylen, Alen, ny );
3423 printf(
"Y vector or matrix must match matrix dimensions.\n" );
3424 for ( i = 0; i <
nx; i++ )
3425 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
3431 for ( i = 0; i <
nx; i++ )
3433 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
3434 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
3446 plcont((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(
double const *)arg8,arg9,arg10,arg11);
3473 PLFLT *arg7 = (PLFLT *) 0 ;
3478 arg1 = (
PLINT)jarg1;
3479 arg2 = (
PLINT)jarg2;
3480 arg3 = (
PLINT)jarg3;
3481 arg4 = (
PLINT)jarg4;
3482 arg5 = (
PLINT)jarg5;
3483 arg6 = (
PLFLT)jarg6;
3489 if ((*jenv)->GetArrayLength(jenv, jarg7) == 0) {
3496 plctime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
3498 jdouble jvalue = (jdouble)temp7;
3499 (*jenv)->SetDoubleArrayRegion(jenv, jarg7, 0, 1, &jvalue);
3511 arg1 = (
PLINT)jarg1;
3513 arg2 = jarg2 ? 1 : 0;
3543 arg1 = (
PLFLT)jarg1;
3544 arg2 = (
PLFLT)jarg2;
3545 arg3 = (
PLFLT)jarg3;
3546 arg4 = (
PLFLT)jarg4;
3547 arg5 = (
PLINT)jarg5;
3548 arg6 = (
PLINT)jarg6;
3549 plenv(arg1,arg2,arg3,arg4,arg5,arg6);
3563 arg1 = (
PLFLT)jarg1;
3564 arg2 = (
PLFLT)jarg2;
3565 arg3 = (
PLFLT)jarg3;
3566 arg4 = (
PLFLT)jarg4;
3567 arg5 = (
PLINT)jarg5;
3568 arg6 = (
PLINT)jarg6;
3569 plenv0(arg1,arg2,arg3,arg4,arg5,arg6);
3582 PLFLT *arg2 = (PLFLT *) 0 ;
3583 PLFLT *arg3 = (PLFLT *) 0 ;
3584 PLFLT *arg4 = (PLFLT *) 0 ;
3589 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
3590 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
3596 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
3599 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
3600 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
3602 printf(
"Vectors must be same length.\n" );
3606 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
3609 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
3610 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
3612 printf(
"Vectors must be same length.\n" );
3616 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
3618 plerrx(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
3633 PLFLT *arg2 = (PLFLT *) 0 ;
3634 PLFLT *arg3 = (PLFLT *) 0 ;
3635 PLFLT *arg4 = (PLFLT *) 0 ;
3640 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
3641 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
3647 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
3650 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
3651 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
3653 printf(
"Vectors must be same length.\n" );
3657 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
3660 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
3661 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
3663 printf(
"Vectors must be same length.\n" );
3667 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
3669 plerry(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
3691 PLFLT *arg2 = (PLFLT *) 0 ;
3692 PLFLT *arg3 = (PLFLT *) 0 ;
3697 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
3698 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
3704 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
3707 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
3708 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
3710 printf(
"Vectors must be same length.\n" );
3714 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
3716 plfill(arg1,(
double const *)arg2,(
double const *)arg3);
3728 PLFLT *arg2 = (PLFLT *) 0 ;
3729 PLFLT *arg3 = (PLFLT *) 0 ;
3730 PLFLT *arg4 = (PLFLT *) 0 ;
3735 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
3736 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
3742 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
3745 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
3746 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
3748 printf(
"Vectors must be same length.\n" );
3752 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
3755 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
3756 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
3758 printf(
"Vectors must be same length.\n" );
3762 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
3764 plfill3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
3779 PLFLT *arg2 = (PLFLT *) 0 ;
3780 PLFLT *arg3 = (PLFLT *) 0 ;
3786 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
3787 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
3793 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
3796 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
3797 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
3799 printf(
"Vectors must be same length.\n" );
3803 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
3805 arg4 = (
PLFLT)jarg4;
3806 plgradient(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
3828 arg1 = (
PLINT)jarg1;
3838 arg1 = (
PLINT)jarg1;
3844 PLFLT *arg1 = (PLFLT *) 0 ;
3845 PLFLT *arg2 = (PLFLT *) 0 ;
3856 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
3868 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
3877 jdouble jvalue = (jdouble)temp1;
3878 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
3881 jdouble jvalue = (jdouble)temp2;
3882 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
3891 PLINT *arg2 = (PLINT *) 0 ;
3892 PLINT *arg3 = (PLINT *) 0 ;
3893 PLINT *arg4 = (PLINT *) 0 ;
3900 arg1 = (
PLINT)jarg1;
3906 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
3918 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
3930 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
3939 jint jvalue = (jint)temp2;
3940 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
3943 jint jvalue = (jint)temp3;
3944 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
3947 jint jvalue = (jint)temp4;
3948 (*jenv)->SetIntArrayRegion(jenv, jarg4, 0, 1, &jvalue);
3958 PLINT *arg2 = (PLINT *) 0 ;
3959 PLINT *arg3 = (PLINT *) 0 ;
3960 PLINT *arg4 = (PLINT *) 0 ;
3961 PLFLT *arg5 = (PLFLT *) 0 ;
3969 arg1 = (
PLINT)jarg1;
3975 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
3987 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
3999 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
4011 if ((*jenv)->GetArrayLength(jenv, jarg5) == 0) {
4018 plgcol0a(arg1,arg2,arg3,arg4,arg5);
4020 jint jvalue = (jint)temp2;
4021 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4024 jint jvalue = (jint)temp3;
4025 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4028 jint jvalue = (jint)temp4;
4029 (*jenv)->SetIntArrayRegion(jenv, jarg4, 0, 1, &jvalue);
4032 jdouble jvalue = (jdouble)temp5;
4033 (*jenv)->SetDoubleArrayRegion(jenv, jarg5, 0, 1, &jvalue);
4043 PLINT *arg1 = (PLINT *) 0 ;
4044 PLINT *arg2 = (PLINT *) 0 ;
4045 PLINT *arg3 = (PLINT *) 0 ;
4057 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4069 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4081 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4090 jint jvalue = (jint)temp1;
4091 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4094 jint jvalue = (jint)temp2;
4095 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4098 jint jvalue = (jint)temp3;
4099 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4108 PLINT *arg1 = (PLINT *) 0 ;
4109 PLINT *arg2 = (PLINT *) 0 ;
4110 PLINT *arg3 = (PLINT *) 0 ;
4111 PLFLT *arg4 = (PLFLT *) 0 ;
4124 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4136 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4148 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4160 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
4169 jint jvalue = (jint)temp1;
4170 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4173 jint jvalue = (jint)temp2;
4174 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4177 jint jvalue = (jint)temp3;
4178 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4181 jdouble jvalue = (jdouble)temp4;
4182 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
4192 PLINT *arg1 = (PLINT *) 0 ;
4202 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4211 jint jvalue = (jint)temp1;
4212 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4219 char *arg1 = (
char *) 0 ;
4225 if ( jarg1 != NULL )
4228 jmethodID setLengthID;
4229 jclass sbufClass = ( *jenv )->GetObjectClass( jenv, jarg1 );
4231 jmethodID capacityID = ( *jenv )->GetMethodID( jenv, sbufClass,
"capacity",
"()I" );
4232 jint capacity = ( *jenv )->CallIntMethod( jenv, jarg1, capacityID );
4233 arg1 = (
char *) malloc( (
size_t) ( capacity + 1 ) );
4236 setLengthID = ( *jenv )->GetMethodID( jenv, sbufClass,
"setLength",
"(I)V" );
4237 ( *jenv )->CallVoidMethod( jenv, jarg1, setLengthID, (jint) 0 );
4245 jstring newString = ( *jenv )->NewStringUTF( jenv, arg1 );
4246 jclass sbufClass = ( *jenv )->GetObjectClass( jenv, jarg1 );
4247 jmethodID appendStringID = ( *jenv )->GetMethodID( jenv, sbufClass,
"append",
"(Ljava/lang/String;)Ljava/lang/StringBuffer;" );
4248 ( *jenv )->CallObjectMethod( jenv, jarg1, appendStringID, newString );
4260 PLFLT *arg1 = (PLFLT *) 0 ;
4261 PLFLT *arg2 = (PLFLT *) 0 ;
4262 PLFLT *arg3 = (PLFLT *) 0 ;
4263 PLFLT *arg4 = (PLFLT *) 0 ;
4276 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4288 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4300 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4312 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
4321 jdouble jvalue = (jdouble)temp1;
4322 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4325 jdouble jvalue = (jdouble)temp2;
4326 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4329 jdouble jvalue = (jdouble)temp3;
4330 (*jenv)->SetDoubleArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4333 jdouble jvalue = (jdouble)temp4;
4334 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
4344 PLFLT *arg1 = (PLFLT *) 0 ;
4354 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4363 jdouble jvalue = (jdouble)temp1;
4364 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4371 PLFLT *arg1 = (PLFLT *) 0 ;
4372 PLFLT *arg2 = (PLFLT *) 0 ;
4373 PLFLT *arg3 = (PLFLT *) 0 ;
4374 PLFLT *arg4 = (PLFLT *) 0 ;
4387 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4399 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4411 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4423 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
4432 jdouble jvalue = (jdouble)temp1;
4433 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4436 jdouble jvalue = (jdouble)temp2;
4437 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4440 jdouble jvalue = (jdouble)temp3;
4441 (*jenv)->SetDoubleArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4444 jdouble jvalue = (jdouble)temp4;
4445 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
4455 PLINT *arg1 = (PLINT *) 0 ;
4456 PLINT *arg2 = (PLINT *) 0 ;
4457 PLINT *arg3 = (PLINT *) 0 ;
4469 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4481 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4493 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4502 jint jvalue = (jint)temp1;
4503 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4506 jint jvalue = (jint)temp2;
4507 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4510 jint jvalue = (jint)temp3;
4511 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4530 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4539 jlong jvalue = (jlong)temp1;
4540 (*jenv)->SetLongArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4547 char *arg1 = (
char *) 0 ;
4553 if ( jarg1 != NULL )
4556 jmethodID setLengthID;
4557 jclass sbufClass = ( *jenv )->GetObjectClass( jenv, jarg1 );
4559 jmethodID capacityID = ( *jenv )->GetMethodID( jenv, sbufClass,
"capacity",
"()I" );
4560 jint capacity = ( *jenv )->CallIntMethod( jenv, jarg1, capacityID );
4561 arg1 = (
char *) malloc( (
size_t) ( capacity + 1 ) );
4564 setLengthID = ( *jenv )->GetMethodID( jenv, sbufClass,
"setLength",
"(I)V" );
4565 ( *jenv )->CallVoidMethod( jenv, jarg1, setLengthID, (jint) 0 );
4573 jstring newString = ( *jenv )->NewStringUTF( jenv, arg1 );
4574 jclass sbufClass = ( *jenv )->GetObjectClass( jenv, jarg1 );
4575 jmethodID appendStringID = ( *jenv )->GetMethodID( jenv, sbufClass,
"append",
"(Ljava/lang/String;)Ljava/lang/StringBuffer;" );
4576 ( *jenv )->CallObjectMethod( jenv, jarg1, appendStringID, newString );
4588 PLINT *arg1 = (PLINT *) 0 ;
4589 PLINT *arg2 = (PLINT *) 0 ;
4590 PLINT *arg3 = (PLINT *) 0 ;
4602 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4614 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4626 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4635 jint jvalue = (jint)temp1;
4636 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4639 jint jvalue = (jint)temp2;
4640 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4643 jint jvalue = (jint)temp3;
4644 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4653 PLINT *arg1 = (PLINT *) 0 ;
4663 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4672 jint jvalue = (jint)temp1;
4673 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4680 PLFLT *arg1 = (PLFLT *) 0 ;
4681 PLFLT *arg2 = (PLFLT *) 0 ;
4682 PLINT *arg3 = (PLINT *) 0 ;
4683 PLINT *arg4 = (PLINT *) 0 ;
4684 PLINT *arg5 = (PLINT *) 0 ;
4685 PLINT *arg6 = (PLINT *) 0 ;
4700 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4712 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
4724 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
4736 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
4748 if ((*jenv)->GetArrayLength(jenv, jarg5) == 0) {
4760 if ((*jenv)->GetArrayLength(jenv, jarg6) == 0) {
4767 plgpage(arg1,arg2,arg3,arg4,arg5,arg6);
4769 jdouble jvalue = (jdouble)temp1;
4770 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
4773 jdouble jvalue = (jdouble)temp2;
4774 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
4777 jint jvalue = (jint)temp3;
4778 (*jenv)->SetIntArrayRegion(jenv, jarg3, 0, 1, &jvalue);
4781 jint jvalue = (jint)temp4;
4782 (*jenv)->SetIntArrayRegion(jenv, jarg4, 0, 1, &jvalue);
4785 jint jvalue = (jint)temp5;
4786 (*jenv)->SetIntArrayRegion(jenv, jarg5, 0, 1, &jvalue);
4789 jint jvalue = (jint)temp6;
4790 (*jenv)->SetIntArrayRegion(jenv, jarg6, 0, 1, &jvalue);
4809 PLFLT *arg1 = (PLFLT *) 0 ;
4810 PLFLT *arg2 = (PLFLT *) 0 ;
4811 PLFLT *arg3 = (PLFLT *) 0 ;
4813 PLFLT *arg5 = (PLFLT *) 0 ;
4815 PLFLT *arg7 = (PLFLT *) 0 ;
4817 PLFLT **arg9 = (PLFLT **) 0 ;
4824 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
4825 Alen = ( *jenv )->GetArrayLength( jenv, jarg1 );
4827 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
4830 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
4831 if ( ( *jenv )->GetArrayLength( jenv, jarg2 ) !=
Alen )
4833 printf(
"Vectors must be same length.\n" );
4837 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
4840 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
4841 arg4 = ( *jenv )->GetArrayLength( jenv, jarg3 );
4842 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
4844 printf(
"Vectors must be same length.\n" );
4848 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
4851 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg5, 0 );
4852 Xlen = ( *jenv )->GetArrayLength( jenv, jarg5 );
4855 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg5, jxdata, 0 );
4858 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg7, 0 );
4859 Ylen = ( *jenv )->GetArrayLength( jenv, jarg7 );
4862 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg7, jydata, 0 );
4867 int nx = ( *jenv )->GetArrayLength( jenv, jarg9 );
4871 ( *jenv )->EnsureLocalCapacity( jenv, nx );
4873 for ( i = 0; i <
nx; i++ )
4875 ai = ( *jenv )->GetObjectArrayElement( jenv, jarg9, i );
4878 ny = ( *jenv )->GetArrayLength( jenv, ai );
4879 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai ) )
4881 printf(
"Misshapen a array.\n" );
4886 if ( nx != Xlen || ny !=
Ylen )
4888 printf(
"Vectors must match matrix.\n" );
4892 ptr = (PLFLT **) malloc( (
size_t) nx *
sizeof ( PLFLT * ) );
4893 ptr[0] = (PLFLT *) malloc( (
size_t) nx * ny *
sizeof (
PLFLT ) );
4894 for ( i = 0; i <
nx; i++ )
4896 ptr[i] = ptr[0] + i * ny;
4901 arg10 = (
PLINT)jarg10;
4902 arg11 = (
PLFLT)jarg11;
4903 plgriddata((
double const *)arg1,(
double const *)arg2,(
double const *)arg3,arg4,(
double const *)arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,arg11);
4909 int nx = ( *jenv )->GetArrayLength( jenv, jarg9 );
4914 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
4915 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
4917 for ( i = 0; i <
nx; i++ )
4919 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg9, i );
4920 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
4923 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
4925 for ( i = 0; i <
nx; i++ )
4927 for ( j = 0; j < ny; j++ )
4929 adat[i][j] = ptr[i][j];
4931 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
4932 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
4961 PLFLT *arg1 = (PLFLT *) 0 ;
4962 PLFLT *arg2 = (PLFLT *) 0 ;
4963 PLFLT *arg3 = (PLFLT *) 0 ;
4964 PLFLT *arg4 = (PLFLT *) 0 ;
4977 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
4989 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
5001 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
5013 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
5020 plgspa(arg1,arg2,arg3,arg4);
5022 jdouble jvalue = (jdouble)temp1;
5023 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5026 jdouble jvalue = (jdouble)temp2;
5027 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
5030 jdouble jvalue = (jdouble)temp3;
5031 (*jenv)->SetDoubleArrayRegion(jenv, jarg3, 0, 1, &jvalue);
5034 jdouble jvalue = (jdouble)temp4;
5035 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
5045 PLINT *arg1 = (PLINT *) 0 ;
5055 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5064 jint jvalue = (jint)temp1;
5065 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5072 char *arg1 = (
char *) 0 ;
5078 if ( jarg1 != NULL )
5081 jmethodID setLengthID;
5082 jclass sbufClass = ( *jenv )->GetObjectClass( jenv, jarg1 );
5084 jmethodID capacityID = ( *jenv )->GetMethodID( jenv, sbufClass,
"capacity",
"()I" );
5085 jint capacity = ( *jenv )->CallIntMethod( jenv, jarg1, capacityID );
5086 arg1 = (
char *) malloc( (
size_t) ( capacity + 1 ) );
5089 setLengthID = ( *jenv )->GetMethodID( jenv, sbufClass,
"setLength",
"(I)V" );
5090 ( *jenv )->CallVoidMethod( jenv, jarg1, setLengthID, (jint) 0 );
5098 jstring newString = ( *jenv )->NewStringUTF( jenv, arg1 );
5099 jclass sbufClass = ( *jenv )->GetObjectClass( jenv, jarg1 );
5100 jmethodID appendStringID = ( *jenv )->GetMethodID( jenv, sbufClass,
"append",
"(Ljava/lang/String;)Ljava/lang/StringBuffer;" );
5101 ( *jenv )->CallObjectMethod( jenv, jarg1, appendStringID, newString );
5113 PLFLT *arg1 = (PLFLT *) 0 ;
5114 PLFLT *arg2 = (PLFLT *) 0 ;
5115 PLFLT *arg3 = (PLFLT *) 0 ;
5116 PLFLT *arg4 = (PLFLT *) 0 ;
5129 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5141 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
5153 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
5165 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
5172 plgvpd(arg1,arg2,arg3,arg4);
5174 jdouble jvalue = (jdouble)temp1;
5175 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5178 jdouble jvalue = (jdouble)temp2;
5179 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
5182 jdouble jvalue = (jdouble)temp3;
5183 (*jenv)->SetDoubleArrayRegion(jenv, jarg3, 0, 1, &jvalue);
5186 jdouble jvalue = (jdouble)temp4;
5187 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
5197 PLFLT *arg1 = (PLFLT *) 0 ;
5198 PLFLT *arg2 = (PLFLT *) 0 ;
5199 PLFLT *arg3 = (PLFLT *) 0 ;
5200 PLFLT *arg4 = (PLFLT *) 0 ;
5213 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5225 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
5237 if ((*jenv)->GetArrayLength(jenv, jarg3) == 0) {
5249 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
5256 plgvpw(arg1,arg2,arg3,arg4);
5258 jdouble jvalue = (jdouble)temp1;
5259 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5262 jdouble jvalue = (jdouble)temp2;
5263 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
5266 jdouble jvalue = (jdouble)temp3;
5267 (*jenv)->SetDoubleArrayRegion(jenv, jarg3, 0, 1, &jvalue);
5270 jdouble jvalue = (jdouble)temp4;
5271 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
5281 PLINT *arg1 = (PLINT *) 0 ;
5282 PLINT *arg2 = (PLINT *) 0 ;
5293 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5305 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
5314 jint jvalue = (jint)temp1;
5315 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5318 jint jvalue = (jint)temp2;
5319 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
5327 PLINT *arg1 = (PLINT *) 0 ;
5328 PLINT *arg2 = (PLINT *) 0 ;
5339 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5351 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
5360 jint jvalue = (jint)temp1;
5361 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5364 jint jvalue = (jint)temp2;
5365 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
5373 PLINT *arg1 = (PLINT *) 0 ;
5374 PLINT *arg2 = (PLINT *) 0 ;
5385 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5397 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
5406 jint jvalue = (jint)temp1;
5407 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5410 jint jvalue = (jint)temp2;
5411 (*jenv)->SetIntArrayRegion(jenv, jarg2, 0, 1, &jvalue);
5420 PLFLT *arg2 = (PLFLT *) 0 ;
5429 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
5430 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
5436 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
5438 arg3 = (
PLFLT)jarg3;
5439 arg4 = (
PLFLT)jarg4;
5440 arg5 = (
PLINT)jarg5;
5441 arg6 = (
PLINT)jarg6;
5442 plhist(arg1,(
double const *)arg2,arg3,arg4,arg5,arg6);
5453 PLFLT *arg4 = (PLFLT *) 0 ;
5454 PLFLT *arg5 = (PLFLT *) 0 ;
5455 PLFLT *arg6 = (PLFLT *) 0 ;
5462 arg1 = (
PLFLT)jarg1;
5463 arg2 = (
PLFLT)jarg2;
5464 arg3 = (
PLFLT)jarg3;
5470 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
5482 if ((*jenv)->GetArrayLength(jenv, jarg5) == 0) {
5494 if ((*jenv)->GetArrayLength(jenv, jarg6) == 0) {
5501 plhlsrgb(arg1,arg2,arg3,arg4,arg5,arg6);
5503 jdouble jvalue = (jdouble)temp4;
5504 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
5507 jdouble jvalue = (jdouble)temp5;
5508 (*jenv)->SetDoubleArrayRegion(jenv, jarg5, 0, 1, &jvalue);
5511 jdouble jvalue = (jdouble)temp6;
5512 (*jenv)->SetDoubleArrayRegion(jenv, jarg6, 0, 1, &jvalue);
5535 arg1 = (
PLFLT)jarg1;
5536 arg2 = (
PLFLT)jarg2;
5537 arg3 = (
PLFLT)jarg3;
5538 arg4 = (
PLFLT)jarg4;
5539 pljoin(arg1,arg2,arg3,arg4);
5544 char *arg1 = (
char *) 0 ;
5545 char *arg2 = (
char *) 0 ;
5546 char *arg3 = (
char *) 0 ;
5552 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
5557 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
5562 arg3 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg3, 0);
5565 pllab((
char const *)arg1,(
char const *)arg2,(
char const *)arg3);
5566 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
5567 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
5568 if (arg3) (*jenv)->ReleaseStringUTFChars(jenv, jarg3, (
const char *)arg3);
5572 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) {
5573 PLFLT *arg1 = (PLFLT *) 0 ;
5574 PLFLT *arg2 = (PLFLT *) 0 ;
5586 PLINT *arg14 = (PLINT *) 0 ;
5591 PLINT *arg19 = (PLINT *) 0 ;
5592 char **arg20 = (
char **) 0 ;
5593 PLINT *arg21 = (PLINT *) 0 ;
5594 PLINT *arg22 = (PLINT *) 0 ;
5595 PLFLT *arg23 = (PLFLT *) 0 ;
5596 PLFLT *arg24 = (PLFLT *) 0 ;
5597 PLINT *arg25 = (PLINT *) 0 ;
5598 PLINT *arg26 = (PLINT *) 0 ;
5599 PLFLT *arg27 = (PLFLT *) 0 ;
5600 PLINT *arg28 = (PLINT *) 0 ;
5601 PLFLT *arg29 = (PLFLT *) 0 ;
5602 PLINT *arg30 = (PLINT *) 0 ;
5603 char **arg31 = (
char **) 0 ;
5614 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
5626 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
5633 arg3 = (
PLINT)jarg3;
5634 arg4 = (
PLINT)jarg4;
5635 arg5 = (
PLFLT)jarg5;
5636 arg6 = (
PLFLT)jarg6;
5637 arg7 = (
PLFLT)jarg7;
5638 arg8 = (
PLINT)jarg8;
5639 arg9 = (
PLINT)jarg9;
5640 arg10 = (
PLINT)jarg10;
5641 arg11 = (
PLINT)jarg11;
5642 arg12 = (
PLINT)jarg12;
5644 jint *jxdata = ( *jenv )->GetIntArrayElements( jenv, jarg13, 0 );
5645 arg13 = ( *jenv )->GetArrayLength( jenv, jarg13 );
5651 ( *jenv )->ReleaseIntArrayElements( jenv, jarg13, jxdata, 0 );
5653 arg15 = (
PLFLT)jarg15;
5654 arg16 = (
PLFLT)jarg16;
5655 arg17 = (
PLFLT)jarg17;
5656 arg18 = (
PLFLT)jarg18;
5658 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg19, 0 );
5659 if ( ( *jenv )->GetArrayLength( jenv, jarg19 ) !=
Alen )
5661 printf(
"Vectors must be same length.\n" );
5665 ( *jenv )->ReleaseIntArrayElements( jenv, jarg19, jydata, 0 );
5669 if ( jarg20 != NULL )
5671 int size = ( *jenv )->GetArrayLength( jenv, jarg20 );
5674 printf(
"Arrays must be the same length\n" );
5677 arg20 = (
char **) malloc( (
size_t) Alen *
sizeof (
char * ) );
5679 for ( i = 0; i <
Alen; i++ )
5681 jstring j_string = (jstring) ( *jenv )->GetObjectArrayElement( jenv, jarg20, i );
5682 const char * c_string = (
char *) ( *jenv )->GetStringUTFChars( jenv, j_string, 0 );
5683 arg20[i] = malloc( ( strlen( c_string ) + 1 ) *
sizeof (
const char * ) );
5684 strcpy( arg20[i], c_string );
5685 ( *jenv )->ReleaseStringUTFChars( jenv, j_string, c_string );
5686 ( *jenv )->DeleteLocalRef( jenv, j_string );
5695 if ( jarg21 != NULL )
5697 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg21, 0 );
5698 if ( ( *jenv )->GetArrayLength( jenv, jarg21 ) !=
Alen )
5700 printf(
"Vectors must be same length.\n" );
5704 ( *jenv )->ReleaseIntArrayElements( jenv, jarg21, jydata, 0 );
5712 if ( jarg22 != NULL )
5714 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg22, 0 );
5715 if ( ( *jenv )->GetArrayLength( jenv, jarg22 ) !=
Alen )
5717 printf(
"Vectors must be same length.\n" );
5721 ( *jenv )->ReleaseIntArrayElements( jenv, jarg22, jydata, 0 );
5729 if ( jarg23 != NULL )
5731 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg23, 0 );
5732 if ( ( *jenv )->GetArrayLength( jenv, jarg23 ) !=
Alen )
5734 printf(
"Vectors must be same length.\n" );
5738 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg23, jydata, 0 );
5746 if ( jarg24 != NULL )
5748 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg24, 0 );
5749 if ( ( *jenv )->GetArrayLength( jenv, jarg24 ) !=
Alen )
5751 printf(
"Vectors must be same length.\n" );
5755 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg24, jydata, 0 );
5763 if ( jarg25 != NULL )
5765 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg25, 0 );
5766 if ( ( *jenv )->GetArrayLength( jenv, jarg25 ) !=
Alen )
5768 printf(
"Vectors must be same length.\n" );
5772 ( *jenv )->ReleaseIntArrayElements( jenv, jarg25, jydata, 0 );
5780 if ( jarg26 != NULL )
5782 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg26, 0 );
5783 if ( ( *jenv )->GetArrayLength( jenv, jarg26 ) !=
Alen )
5785 printf(
"Vectors must be same length.\n" );
5789 ( *jenv )->ReleaseIntArrayElements( jenv, jarg26, jydata, 0 );
5797 if ( jarg27 != NULL )
5799 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg27, 0 );
5800 if ( ( *jenv )->GetArrayLength( jenv, jarg27 ) !=
Alen )
5802 printf(
"Vectors must be same length.\n" );
5806 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg27, jydata, 0 );
5814 if ( jarg28 != NULL )
5816 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg28, 0 );
5817 if ( ( *jenv )->GetArrayLength( jenv, jarg28 ) !=
Alen )
5819 printf(
"Vectors must be same length.\n" );
5823 ( *jenv )->ReleaseIntArrayElements( jenv, jarg28, jydata, 0 );
5831 if ( jarg29 != NULL )
5833 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg29, 0 );
5834 if ( ( *jenv )->GetArrayLength( jenv, jarg29 ) !=
Alen )
5836 printf(
"Vectors must be same length.\n" );
5840 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg29, jydata, 0 );
5848 if ( jarg30 != NULL )
5850 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg30, 0 );
5851 if ( ( *jenv )->GetArrayLength( jenv, jarg30 ) !=
Alen )
5853 printf(
"Vectors must be same length.\n" );
5857 ( *jenv )->ReleaseIntArrayElements( jenv, jarg30, jydata, 0 );
5866 if ( jarg31 != NULL )
5868 int size = ( *jenv )->GetArrayLength( jenv, jarg31 );
5871 printf(
"Arrays must be the same length\n" );
5874 arg31 = (
char **) malloc( (
size_t) Alen *
sizeof (
char * ) );
5876 for ( i = 0; i <
Alen; i++ )
5878 jstring j_string = (jstring) ( *jenv )->GetObjectArrayElement( jenv, jarg31, i );
5879 const char * c_string = (
char *) ( *jenv )->GetStringUTFChars( jenv, j_string, 0 );
5880 arg31[i] = malloc( ( strlen( c_string ) + 1 ) *
sizeof (
const char * ) );
5881 strcpy( arg31[i], c_string );
5882 ( *jenv )->ReleaseStringUTFChars( jenv, j_string, c_string );
5883 ( *jenv )->DeleteLocalRef( jenv, j_string );
5891 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);
5893 jdouble jvalue = (jdouble)temp1;
5894 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
5897 jdouble jvalue = (jdouble)temp2;
5898 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
5910 if ( arg20 != NULL )
5912 for ( i = 0; i <
Alen; i++ )
5918 if ( arg21 != NULL )
5922 if ( arg22 != NULL )
5926 if ( arg23 != NULL )
5930 if ( arg24 != NULL )
5934 if ( arg25 != NULL )
5938 if ( arg26 != NULL )
5942 if ( arg27 != NULL )
5946 if ( arg28 != NULL )
5950 if ( arg29 != NULL )
5954 if ( arg30 != NULL )
5959 if ( arg31 != NULL )
5961 for ( i = 0; i <
Alen; i++ )
5969 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) {
5970 PLFLT *arg1 = (PLFLT *) 0 ;
5971 PLFLT *arg2 = (PLFLT *) 0 ;
5986 PLINT *arg17 = (PLINT *) 0 ;
5987 char **arg18 = (
char **) 0 ;
5989 char **arg20 = (
char **) 0 ;
5990 PLFLT *arg21 = (PLFLT *) 0 ;
5991 PLINT *arg22 = (PLINT *) 0 ;
5992 PLINT *arg23 = (PLINT *) 0 ;
5993 PLFLT **arg24 = (PLFLT **) 0 ;
6004 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
6016 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
6023 arg3 = (
PLINT)jarg3;
6024 arg4 = (
PLINT)jarg4;
6025 arg5 = (
PLFLT)jarg5;
6026 arg6 = (
PLFLT)jarg6;
6027 arg7 = (
PLFLT)jarg7;
6028 arg8 = (
PLFLT)jarg8;
6029 arg9 = (
PLINT)jarg9;
6030 arg10 = (
PLINT)jarg10;
6031 arg11 = (
PLINT)jarg11;
6032 arg12 = (
PLFLT)jarg12;
6033 arg13 = (
PLFLT)jarg13;
6034 arg14 = (
PLINT)jarg14;
6035 arg15 = (
PLFLT)jarg15;
6037 jint *jxdata = ( *jenv )->GetIntArrayElements( jenv, jarg16, 0 );
6038 arg16 = ( *jenv )->GetArrayLength( jenv, jarg16 );
6044 ( *jenv )->ReleaseIntArrayElements( jenv, jarg16, jxdata, 0 );
6048 if ( jarg18 != NULL )
6050 int size = ( *jenv )->GetArrayLength( jenv, jarg18 );
6053 printf(
"Arrays must be the same length\n" );
6056 arg18 = (
char **) malloc( (
size_t) Alen *
sizeof (
char * ) );
6058 for ( i = 0; i <
Alen; i++ )
6060 jstring j_string = (jstring) ( *jenv )->GetObjectArrayElement( jenv, jarg18, i );
6061 const char * c_string = (
char *) ( *jenv )->GetStringUTFChars( jenv, j_string, 0 );
6062 arg18[i] = malloc( ( strlen( c_string ) + 1 ) *
sizeof (
const char * ) );
6063 strcpy( arg18[i], c_string );
6064 ( *jenv )->ReleaseStringUTFChars( jenv, j_string, c_string );
6065 ( *jenv )->DeleteLocalRef( jenv, j_string );
6075 if ( jarg19 != NULL )
6077 int size = ( *jenv )->GetArrayLength( jenv, jarg19 );
6080 arg20 = (
char **) malloc( (
size_t) Alen *
sizeof (
char * ) );
6082 for ( i = 0; i <
Alen; i++ )
6084 jstring j_string = (jstring) ( *jenv )->GetObjectArrayElement( jenv, jarg19, i );
6085 const char * c_string = (
char *) ( *jenv )->GetStringUTFChars( jenv, j_string, 0 );
6086 arg20[i] = malloc( ( strlen( c_string ) + 1 ) *
sizeof (
const char * ) );
6087 strcpy( arg20[i], c_string );
6088 ( *jenv )->ReleaseStringUTFChars( jenv, j_string, c_string );
6089 ( *jenv )->DeleteLocalRef( jenv, j_string );
6099 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg21, 0 );
6100 if ( ( *jenv )->GetArrayLength( jenv, jarg21 ) !=
Alen )
6102 printf(
"Vectors must be same length.\n" );
6106 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg21, jydata, 0 );
6109 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg22, 0 );
6110 if ( ( *jenv )->GetArrayLength( jenv, jarg22 ) !=
Alen )
6112 printf(
"Vectors must be same length.\n" );
6116 ( *jenv )->ReleaseIntArrayElements( jenv, jarg22, jydata, 0 );
6120 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg23, 0 );
6121 if ( ( *jenv )->GetArrayLength( jenv, jarg23 ) !=
Alen )
6123 printf(
"Vectors must be same length.\n" );
6126 Xlen = ( *jenv )->GetArrayLength( jenv, jarg23 );
6128 for ( i = 0; i <
Xlen; i++ )
6129 if ( jydata[i] >
Ylen )
6132 ( *jenv )->ReleaseIntArrayElements( jenv, jarg23, jydata, 0 );
6137 int nx = ( *jenv )->GetArrayLength( jenv, jarg24 );
6140 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
6141 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
6143 ( *jenv )->EnsureLocalCapacity( jenv, nx );
6145 for ( i = 0; i <
nx; i++ )
6147 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg24, i );
6148 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
6151 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
6152 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
6154 printf(
"Misshapen a array.\n" );
6155 for ( j = 0; j <= i; j++ )
6156 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
6163 if ( nx != Xlen || ny !=
Ylen )
6165 printf(
"Vectors must match matrix.\n" );
6166 for ( i = 0; i <
nx; i++ )
6167 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6173 for ( i = 0; i <
nx; i++ )
6175 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6176 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
6182 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);
6184 jdouble jvalue = (jdouble)temp1;
6185 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
6188 jdouble jvalue = (jdouble)temp2;
6189 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
6198 if ( arg18 != NULL )
6200 for ( i = 0; i <
Alen; i++ )
6207 if ( arg20 != NULL )
6209 for ( i = 0; i <
Alen; i++ )
6237 arg1 = (
PLFLT)jarg1;
6238 arg2 = (
PLFLT)jarg2;
6239 arg3 = (
PLFLT)jarg3;
6246 PLFLT *arg2 = (PLFLT *) 0 ;
6247 PLFLT *arg3 = (PLFLT *) 0 ;
6252 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6253 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
6259 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6262 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
6263 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
6265 printf(
"Vectors must be same length.\n" );
6269 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
6271 plline(arg1,(
double const *)arg2,(
double const *)arg3);
6283 PLFLT *arg2 = (PLFLT *) 0 ;
6284 PLFLT *arg3 = (PLFLT *) 0 ;
6285 PLFLT *arg4 = (PLFLT *) 0 ;
6290 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6291 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
6297 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6300 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
6301 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
6303 printf(
"Vectors must be same length.\n" );
6307 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
6310 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
6311 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
6313 printf(
"Vectors must be same length.\n" );
6317 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
6319 plline3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
6337 arg1 = (
PLINT)jarg1;
6343 PLFLT *arg1 = (PLFLT *) 0 ;
6344 PLFLT *arg2 = (PLFLT *) 0 ;
6345 PLFLT **arg3 = (PLFLT **) 0 ;
6353 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6354 Xlen = ( *jenv )->GetArrayLength( jenv, jarg1 );
6356 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6359 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
6360 Ylen = ( *jenv )->GetArrayLength( jenv, jarg2 );
6362 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
6367 int nx = ( *jenv )->GetArrayLength( jenv, jarg3 );
6370 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
6371 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
6373 ( *jenv )->EnsureLocalCapacity( jenv, nx );
6375 for ( i = 0; i <
nx; i++ )
6377 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg3, i );
6378 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
6381 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
6382 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
6384 printf(
"Misshapen a array.\n" );
6385 for ( j = 0; j <= i; j++ )
6386 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
6393 if ( nx != Xlen || ny !=
Ylen )
6395 printf(
"Vectors must match matrix.\n" );
6396 for ( i = 0; i <
nx; i++ )
6397 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6405 for ( i = 0; i <
nx; i++ )
6407 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6408 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
6415 arg6 = (
PLINT)jarg6;
6416 plmesh((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6);
6431 PLFLT *arg1 = (PLFLT *) 0 ;
6432 PLFLT *arg2 = (PLFLT *) 0 ;
6433 PLFLT **arg3 = (PLFLT **) 0 ;
6437 PLFLT *arg7 = (PLFLT *) 0 ;
6443 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6444 Xlen = ( *jenv )->GetArrayLength( jenv, jarg1 );
6446 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6449 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
6450 Ylen = ( *jenv )->GetArrayLength( jenv, jarg2 );
6452 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
6457 int nx = ( *jenv )->GetArrayLength( jenv, jarg3 );
6460 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
6461 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
6463 ( *jenv )->EnsureLocalCapacity( jenv, nx );
6465 for ( i = 0; i <
nx; i++ )
6467 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg3, i );
6468 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
6471 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
6472 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
6474 printf(
"Misshapen a array.\n" );
6475 for ( j = 0; j <= i; j++ )
6476 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
6483 if ( nx != Xlen || ny !=
Ylen )
6485 printf(
"Vectors must match matrix.\n" );
6486 for ( i = 0; i <
nx; i++ )
6487 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6495 for ( i = 0; i <
nx; i++ )
6497 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6498 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
6505 arg6 = (
PLINT)jarg6;
6507 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg7, 0 );
6508 arg8 = ( *jenv )->GetArrayLength( jenv, jarg7 );
6510 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg7, jxdata, 0 );
6512 plmeshc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
6530 PLINT *arg1 = (PLINT *) 0 ;
6540 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
6549 jint jvalue = (jint)temp1;
6550 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
6557 char *arg1 = (
char *) 0 ;
6561 char *arg5 = (
char *) 0 ;
6567 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
6570 arg2 = (
PLFLT)jarg2;
6571 arg3 = (
PLFLT)jarg3;
6572 arg4 = (
PLFLT)jarg4;
6575 arg5 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg5, 0);
6578 plmtex((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
6579 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
6580 if (arg5) (*jenv)->ReleaseStringUTFChars(jenv, jarg5, (
const char *)arg5);
6585 char *arg1 = (
char *) 0 ;
6589 char *arg5 = (
char *) 0 ;
6595 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
6598 arg2 = (
PLFLT)jarg2;
6599 arg3 = (
PLFLT)jarg3;
6600 arg4 = (
PLFLT)jarg4;
6603 arg5 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg5, 0);
6606 plmtex3((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
6607 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
6608 if (arg5) (*jenv)->ReleaseStringUTFChars(jenv, jarg5, (
const char *)arg5);
6613 PLFLT *arg1 = (PLFLT *) 0 ;
6614 PLFLT *arg2 = (PLFLT *) 0 ;
6615 PLFLT **arg3 = (PLFLT **) 0 ;
6624 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6625 Xlen = ( *jenv )->GetArrayLength( jenv, jarg1 );
6627 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6630 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
6631 Ylen = ( *jenv )->GetArrayLength( jenv, jarg2 );
6633 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
6638 int nx = ( *jenv )->GetArrayLength( jenv, jarg3 );
6641 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
6642 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
6644 ( *jenv )->EnsureLocalCapacity( jenv, nx );
6646 for ( i = 0; i <
nx; i++ )
6648 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg3, i );
6649 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
6652 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
6653 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
6655 printf(
"Misshapen a array.\n" );
6656 for ( j = 0; j <= i; j++ )
6657 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
6664 if ( nx != Xlen || ny !=
Ylen )
6666 printf(
"Vectors must match matrix.\n" );
6667 for ( i = 0; i <
nx; i++ )
6668 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6676 for ( i = 0; i <
nx; i++ )
6678 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6679 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
6686 arg6 = (
PLINT)jarg6;
6688 arg7 = jarg7 ? 1 : 0;
6690 plot3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,arg7);
6705 PLFLT *arg1 = (PLFLT *) 0 ;
6706 PLFLT *arg2 = (PLFLT *) 0 ;
6707 PLFLT **arg3 = (PLFLT **) 0 ;
6711 PLFLT *arg7 = (PLFLT *) 0 ;
6717 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6718 Xlen = ( *jenv )->GetArrayLength( jenv, jarg1 );
6720 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6723 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
6724 Ylen = ( *jenv )->GetArrayLength( jenv, jarg2 );
6726 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
6731 int nx = ( *jenv )->GetArrayLength( jenv, jarg3 );
6734 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
6735 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
6737 ( *jenv )->EnsureLocalCapacity( jenv, nx );
6739 for ( i = 0; i <
nx; i++ )
6741 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg3, i );
6742 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
6745 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
6746 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
6748 printf(
"Misshapen a array.\n" );
6749 for ( j = 0; j <= i; j++ )
6750 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
6757 if ( nx != Xlen || ny !=
Ylen )
6759 printf(
"Vectors must match matrix.\n" );
6760 for ( i = 0; i <
nx; i++ )
6761 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6769 for ( i = 0; i <
nx; i++ )
6771 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6772 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
6779 arg6 = (
PLINT)jarg6;
6781 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg7, 0 );
6782 arg8 = ( *jenv )->GetArrayLength( jenv, jarg7 );
6784 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg7, jxdata, 0 );
6786 plot3dc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
6804 PLFLT *arg1 = (PLFLT *) 0 ;
6805 PLFLT *arg2 = (PLFLT *) 0 ;
6806 PLFLT **arg3 = (PLFLT **) 0 ;
6810 PLFLT *arg7 = (PLFLT *) 0 ;
6814 PLINT *arg11 = (PLINT *) 0 ;
6815 PLINT *arg12 = (PLINT *) 0 ;
6820 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6821 Xlen = ( *jenv )->GetArrayLength( jenv, jarg1 );
6823 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6826 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
6827 Ylen = ( *jenv )->GetArrayLength( jenv, jarg2 );
6829 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
6834 int nx = ( *jenv )->GetArrayLength( jenv, jarg3 );
6837 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
6838 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
6840 ( *jenv )->EnsureLocalCapacity( jenv, nx );
6842 for ( i = 0; i <
nx; i++ )
6844 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg3, i );
6845 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
6848 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
6849 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
6851 printf(
"Misshapen a array.\n" );
6852 for ( j = 0; j <= i; j++ )
6853 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
6860 if ( nx != Xlen || ny !=
Ylen )
6862 printf(
"Vectors must match matrix.\n" );
6863 for ( i = 0; i <
nx; i++ )
6864 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6872 for ( i = 0; i <
nx; i++ )
6874 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6875 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
6882 arg6 = (
PLINT)jarg6;
6884 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg7, 0 );
6885 arg8 = ( *jenv )->GetArrayLength( jenv, jarg7 );
6887 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg7, jxdata, 0 );
6889 arg9 = (
PLINT)jarg9;
6891 jint *jxdata = ( *jenv )->GetIntArrayElements( jenv, jarg10, 0 );
6892 arg10 = ( *jenv )->GetArrayLength( jenv, jarg10 );
6898 ( *jenv )->ReleaseIntArrayElements( jenv, jarg10, jxdata, 0 );
6901 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg12, 0 );
6902 if ( ( *jenv )->GetArrayLength( jenv, jarg12 ) !=
Alen )
6904 printf(
"Vectors must be same length.\n" );
6908 ( *jenv )->ReleaseIntArrayElements( jenv, jarg12, jydata, 0 );
6910 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);
6934 PLFLT *arg1 = (PLFLT *) 0 ;
6935 PLFLT *arg2 = (PLFLT *) 0 ;
6936 PLFLT **arg3 = (PLFLT **) 0 ;
6940 PLFLT *arg7 = (PLFLT *) 0 ;
6946 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
6947 Xlen = ( *jenv )->GetArrayLength( jenv, jarg1 );
6949 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
6952 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
6953 Ylen = ( *jenv )->GetArrayLength( jenv, jarg2 );
6955 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
6960 int nx = ( *jenv )->GetArrayLength( jenv, jarg3 );
6963 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
6964 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
6966 ( *jenv )->EnsureLocalCapacity( jenv, nx );
6968 for ( i = 0; i <
nx; i++ )
6970 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg3, i );
6971 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
6974 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
6975 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
6977 printf(
"Misshapen a array.\n" );
6978 for ( j = 0; j <= i; j++ )
6979 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
6986 if ( nx != Xlen || ny !=
Ylen )
6988 printf(
"Vectors must match matrix.\n" );
6989 for ( i = 0; i <
nx; i++ )
6990 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
6998 for ( i = 0; i <
nx; i++ )
7000 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
7001 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
7008 arg6 = (
PLINT)jarg6;
7010 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg7, 0 );
7011 arg8 = ( *jenv )->GetArrayLength( jenv, jarg7 );
7013 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg7, jxdata, 0 );
7015 plsurf3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7033 PLFLT *arg1 = (PLFLT *) 0 ;
7034 PLFLT *arg2 = (PLFLT *) 0 ;
7035 PLFLT **arg3 = (PLFLT **) 0 ;
7039 PLFLT *arg7 = (PLFLT *) 0 ;
7043 PLINT *arg11 = (PLINT *) 0 ;
7044 PLINT *arg12 = (PLINT *) 0 ;
7049 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
7050 Xlen = ( *jenv )->GetArrayLength( jenv, jarg1 );
7052 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
7055 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
7056 Ylen = ( *jenv )->GetArrayLength( jenv, jarg2 );
7058 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
7063 int nx = ( *jenv )->GetArrayLength( jenv, jarg3 );
7066 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
7067 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
7069 ( *jenv )->EnsureLocalCapacity( jenv, nx );
7071 for ( i = 0; i <
nx; i++ )
7073 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg3, i );
7074 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
7077 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
7078 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
7080 printf(
"Misshapen a array.\n" );
7081 for ( j = 0; j <= i; j++ )
7082 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
7089 if ( nx != Xlen || ny !=
Ylen )
7091 printf(
"Vectors must match matrix.\n" );
7092 for ( i = 0; i <
nx; i++ )
7093 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
7101 for ( i = 0; i <
nx; i++ )
7103 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
7104 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
7111 arg6 = (
PLINT)jarg6;
7113 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg7, 0 );
7114 arg8 = ( *jenv )->GetArrayLength( jenv, jarg7 );
7116 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg7, jxdata, 0 );
7118 arg9 = (
PLINT)jarg9;
7120 jint *jxdata = ( *jenv )->GetIntArrayElements( jenv, jarg10, 0 );
7121 arg10 = ( *jenv )->GetArrayLength( jenv, jarg10 );
7127 ( *jenv )->ReleaseIntArrayElements( jenv, jarg10, jxdata, 0 );
7130 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg12, 0 );
7131 if ( ( *jenv )->GetArrayLength( jenv, jarg12 ) !=
Alen )
7133 printf(
"Vectors must be same length.\n" );
7137 ( *jenv )->ReleaseIntArrayElements( jenv, jarg12, jydata, 0 );
7139 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);
7164 int *arg1 = (
int *) 0 ;
7165 char **arg2 = (
char **) 0 ;
7174 size1 = (int) ( ( *jenv )->GetArrayLength( jenv, jarg1 ) );
7176 arg2 = (
char **) malloc( (
size_t) ( size1 + 1 ) *
sizeof (
char * ) );
7178 for ( i = 0; i < size1; i++ )
7180 jstring j_string = (jstring) ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
7181 const char * c_string = (
char *) ( *jenv )->GetStringUTFChars( jenv, j_string, 0 );
7185 arg2[i] = malloc( ( strlen( c_string ) + 1 ) *
sizeof (
const char * ) );
7186 strcpy( arg2[i], c_string );
7187 ( *jenv )->ReleaseStringUTFChars( jenv, j_string, c_string );
7188 ( *jenv )->DeleteLocalRef( jenv, j_string );
7192 arg3 = (
PLINT)jarg3;
7194 jresult = (jint)result;
7200 for ( i = 0; i < size1; i++ )
7210 PLINT *arg2 = (PLINT *) 0 ;
7211 PLINT *arg3 = (PLINT *) 0 ;
7216 jint *jxdata = ( *jenv )->GetIntArrayElements( jenv, jarg1, 0 );
7217 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
7223 ( *jenv )->ReleaseIntArrayElements( jenv, jarg1, jxdata, 0 );
7226 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg3, 0 );
7227 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7229 printf(
"Vectors must be same length.\n" );
7233 ( *jenv )->ReleaseIntArrayElements( jenv, jarg3, jydata, 0 );
7235 plpat(arg1,(
int const *)arg2,(
int const *)arg3);
7254 arg1 = (
PLINT)jarg1;
7255 arg2 = (
PLFLT)jarg2;
7256 arg3 = (
PLFLT)jarg3;
7257 arg4 = (
PLFLT)jarg4;
7258 arg5 = (
PLFLT)jarg5;
7259 plpath(arg1,arg2,arg3,arg4,arg5);
7265 PLFLT *arg2 = (PLFLT *) 0 ;
7266 PLFLT *arg3 = (PLFLT *) 0 ;
7272 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
7273 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
7279 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
7282 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
7283 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7285 printf(
"Vectors must be same length.\n" );
7289 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
7291 arg4 = (
PLINT)jarg4;
7292 plpoin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
7304 PLFLT *arg2 = (PLFLT *) 0 ;
7305 PLFLT *arg3 = (PLFLT *) 0 ;
7306 PLFLT *arg4 = (PLFLT *) 0 ;
7312 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
7313 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
7319 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
7322 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
7323 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7325 printf(
"Vectors must be same length.\n" );
7329 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
7332 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
7333 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
7335 printf(
"Vectors must be same length.\n" );
7339 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
7341 arg5 = (
PLINT)jarg5;
7342 plpoin3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,arg5);
7357 PLFLT *arg2 = (PLFLT *) 0 ;
7358 PLFLT *arg3 = (PLFLT *) 0 ;
7359 PLFLT *arg4 = (PLFLT *) 0 ;
7366 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
7367 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
7373 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
7376 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
7377 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7379 printf(
"Vectors must be same length.\n" );
7383 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
7386 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
7387 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
7389 printf(
"Vectors must be same length.\n" );
7393 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
7396 jboolean *jydata = ( *jenv )->GetBooleanArrayElements( jenv, jarg5, 0 );
7397 if ( ( *jenv )->GetArrayLength( jenv, jarg5 ) < Alen - 1 )
7399 printf(
"Vector must be at least length of others minus 1.\n" );
7403 ( *jenv )->ReleaseBooleanArrayElements( jenv, jarg5, jydata, 0 );
7406 arg6 = jarg6 ? 1 : 0;
7408 plpoly3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
int const *)arg5,arg6);
7430 arg1 = (
PLINT)jarg1;
7431 arg2 = (
PLINT)jarg2;
7441 arg1 = (
PLINT)jarg1;
7452 char *arg6 = (
char *) 0 ;
7456 arg1 = (
PLFLT)jarg1;
7457 arg2 = (
PLFLT)jarg2;
7458 arg3 = (
PLFLT)jarg3;
7459 arg4 = (
PLFLT)jarg4;
7460 arg5 = (
PLFLT)jarg5;
7463 arg6 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg6, 0);
7466 plptex(arg1,arg2,arg3,arg4,arg5,(
char const *)arg6);
7467 if (arg6) (*jenv)->ReleaseStringUTFChars(jenv, jarg6, (
const char *)arg6);
7471 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) {
7482 char *arg11 = (
char *) 0 ;
7486 arg1 = (
PLFLT)jarg1;
7487 arg2 = (
PLFLT)jarg2;
7488 arg3 = (
PLFLT)jarg3;
7489 arg4 = (
PLFLT)jarg4;
7490 arg5 = (
PLFLT)jarg5;
7491 arg6 = (
PLFLT)jarg6;
7492 arg7 = (
PLFLT)jarg7;
7493 arg8 = (
PLFLT)jarg8;
7494 arg9 = (
PLFLT)jarg9;
7495 arg10 = (
PLFLT)jarg10;
7498 arg11 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg11, 0);
7499 if (!arg11) return ;
7501 plptex3(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(
char const *)arg11);
7502 if (arg11) (*jenv)->ReleaseStringUTFChars(jenv, jarg11, (
const char *)arg11);
7507 jdouble jresult = 0 ;
7513 jresult = (jdouble)result;
7529 PLFLT *arg4 = (PLFLT *) 0 ;
7530 PLFLT *arg5 = (PLFLT *) 0 ;
7531 PLFLT *arg6 = (PLFLT *) 0 ;
7538 arg1 = (
PLFLT)jarg1;
7539 arg2 = (
PLFLT)jarg2;
7540 arg3 = (
PLFLT)jarg3;
7546 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
7558 if ((*jenv)->GetArrayLength(jenv, jarg5) == 0) {
7570 if ((*jenv)->GetArrayLength(jenv, jarg6) == 0) {
7577 plrgbhls(arg1,arg2,arg3,arg4,arg5,arg6);
7579 jdouble jvalue = (jdouble)temp4;
7580 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
7583 jdouble jvalue = (jdouble)temp5;
7584 (*jenv)->SetDoubleArrayRegion(jenv, jarg5, 0, 1, &jvalue);
7587 jdouble jvalue = (jdouble)temp6;
7588 (*jenv)->SetDoubleArrayRegion(jenv, jarg6, 0, 1, &jvalue);
7602 arg1 = (
PLFLT)jarg1;
7603 arg2 = (
PLFLT)jarg2;
7609 PLINT *arg1 = (PLINT *) 0 ;
7610 PLINT *arg2 = (PLINT *) 0 ;
7611 PLINT *arg3 = (PLINT *) 0 ;
7617 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg1, 0 );
7618 Alen = ( *jenv )->GetArrayLength( jenv, jarg1 );
7620 ( *jenv )->ReleaseIntArrayElements( jenv, jarg1, jydata, 0 );
7623 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg2, 0 );
7624 if ( ( *jenv )->GetArrayLength( jenv, jarg2 ) !=
Alen )
7626 printf(
"Vectors must be same length.\n" );
7630 ( *jenv )->ReleaseIntArrayElements( jenv, jarg2, jydata, 0 );
7633 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg3, 0 );
7634 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7636 printf(
"Vectors must be same length.\n" );
7639 arg4 = ( *jenv )->GetArrayLength( jenv, jarg3 );
7641 ( *jenv )->ReleaseIntArrayElements( jenv, jarg3, jydata, 0 );
7643 plscmap0((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
7657 PLINT *arg1 = (PLINT *) 0 ;
7658 PLINT *arg2 = (PLINT *) 0 ;
7659 PLINT *arg3 = (PLINT *) 0 ;
7660 PLFLT *arg4 = (PLFLT *) 0 ;
7666 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg1, 0 );
7667 Alen = ( *jenv )->GetArrayLength( jenv, jarg1 );
7669 ( *jenv )->ReleaseIntArrayElements( jenv, jarg1, jydata, 0 );
7672 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg2, 0 );
7673 if ( ( *jenv )->GetArrayLength( jenv, jarg2 ) !=
Alen )
7675 printf(
"Vectors must be same length.\n" );
7679 ( *jenv )->ReleaseIntArrayElements( jenv, jarg2, jydata, 0 );
7682 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg3, 0 );
7683 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7685 printf(
"Vectors must be same length.\n" );
7689 ( *jenv )->ReleaseIntArrayElements( jenv, jarg3, jydata, 0 );
7692 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
7693 arg5 = ( *jenv )->GetArrayLength( jenv, jarg4 );
7694 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
7696 printf(
"Vectors must be same length.\n" );
7700 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
7702 plscmap0a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
7723 arg1 = (
PLINT)jarg1;
7729 PLINT *arg1 = (PLINT *) 0 ;
7730 PLINT *arg2 = (PLINT *) 0 ;
7731 PLINT *arg3 = (PLINT *) 0 ;
7737 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg1, 0 );
7738 Alen = ( *jenv )->GetArrayLength( jenv, jarg1 );
7740 ( *jenv )->ReleaseIntArrayElements( jenv, jarg1, jydata, 0 );
7743 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg2, 0 );
7744 if ( ( *jenv )->GetArrayLength( jenv, jarg2 ) !=
Alen )
7746 printf(
"Vectors must be same length.\n" );
7750 ( *jenv )->ReleaseIntArrayElements( jenv, jarg2, jydata, 0 );
7753 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg3, 0 );
7754 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7756 printf(
"Vectors must be same length.\n" );
7759 arg4 = ( *jenv )->GetArrayLength( jenv, jarg3 );
7761 ( *jenv )->ReleaseIntArrayElements( jenv, jarg3, jydata, 0 );
7763 plscmap1((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
7777 PLINT *arg1 = (PLINT *) 0 ;
7778 PLINT *arg2 = (PLINT *) 0 ;
7779 PLINT *arg3 = (PLINT *) 0 ;
7780 PLFLT *arg4 = (PLFLT *) 0 ;
7786 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg1, 0 );
7787 Alen = ( *jenv )->GetArrayLength( jenv, jarg1 );
7789 ( *jenv )->ReleaseIntArrayElements( jenv, jarg1, jydata, 0 );
7792 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg2, 0 );
7793 if ( ( *jenv )->GetArrayLength( jenv, jarg2 ) !=
Alen )
7795 printf(
"Vectors must be same length.\n" );
7799 ( *jenv )->ReleaseIntArrayElements( jenv, jarg2, jydata, 0 );
7802 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg3, 0 );
7803 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
7805 printf(
"Vectors must be same length.\n" );
7809 ( *jenv )->ReleaseIntArrayElements( jenv, jarg3, jydata, 0 );
7812 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
7813 arg5 = ( *jenv )->GetArrayLength( jenv, jarg4 );
7814 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
7816 printf(
"Vectors must be same length.\n" );
7820 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
7822 plscmap1a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
7841 PLFLT *arg3 = (PLFLT *) 0 ;
7842 PLFLT *arg4 = (PLFLT *) 0 ;
7843 PLFLT *arg5 = (PLFLT *) 0 ;
7844 PLFLT *arg6 = (PLFLT *) 0 ;
7850 arg1 = jarg1 ? 1 : 0;
7853 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
7854 arg2 = ( *jenv )->GetArrayLength( jenv, jarg2 );
7860 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jxdata, 0 );
7863 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
7864 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
7866 printf(
"Vectors must be same length.\n" );
7870 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
7873 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg5, 0 );
7874 if ( ( *jenv )->GetArrayLength( jenv, jarg5 ) !=
Alen )
7876 printf(
"Vectors must be same length.\n" );
7880 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg5, jydata, 0 );
7883 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg6, 0 );
7884 if ( ( *jenv )->GetArrayLength( jenv, jarg6 ) !=
Alen )
7886 printf(
"Vectors must be same length.\n" );
7890 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg6, jydata, 0 );
7893 if ( jarg7 != NULL )
7895 jboolean *jydata = ( *jenv )->GetBooleanArrayElements( jenv, jarg7, 0 );
7896 if ( ( *jenv )->GetArrayLength( jenv, jarg7 ) < Alen - 1 )
7898 printf(
"Vector must be at least length of others minus 1.\n" );
7902 ( *jenv )->ReleaseBooleanArrayElements( jenv, jarg7, jydata, 0 );
7909 plscmap1l(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
int const *)arg7);
7932 PLFLT *arg3 = (PLFLT *) 0 ;
7933 PLFLT *arg4 = (PLFLT *) 0 ;
7934 PLFLT *arg5 = (PLFLT *) 0 ;
7935 PLFLT *arg6 = (PLFLT *) 0 ;
7936 PLFLT *arg7 = (PLFLT *) 0 ;
7942 arg1 = jarg1 ? 1 : 0;
7945 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
7946 arg2 = ( *jenv )->GetArrayLength( jenv, jarg2 );
7952 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jxdata, 0 );
7955 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
7956 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
7958 printf(
"Vectors must be same length.\n" );
7962 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
7965 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg5, 0 );
7966 if ( ( *jenv )->GetArrayLength( jenv, jarg5 ) !=
Alen )
7968 printf(
"Vectors must be same length.\n" );
7972 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg5, jydata, 0 );
7975 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg6, 0 );
7976 if ( ( *jenv )->GetArrayLength( jenv, jarg6 ) !=
Alen )
7978 printf(
"Vectors must be same length.\n" );
7982 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg6, jydata, 0 );
7985 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg7, 0 );
7986 if ( ( *jenv )->GetArrayLength( jenv, jarg7 ) !=
Alen )
7988 printf(
"Vectors must be same length.\n" );
7992 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg7, jydata, 0 );
7995 if ( jarg8 != NULL )
7997 jboolean *jydata = ( *jenv )->GetBooleanArrayElements( jenv, jarg8, 0 );
7998 if ( ( *jenv )->GetArrayLength( jenv, jarg8 ) < Alen - 1 )
8000 printf(
"Vector must be at least length of others minus 1.\n" );
8004 ( *jenv )->ReleaseBooleanArrayElements( jenv, jarg8, jydata, 0 );
8011 plscmap1la(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
double const *)arg7,(
int const *)arg8);
8039 arg1 = (
PLINT)jarg1;
8050 arg1 = (
PLFLT)jarg1;
8051 arg2 = (
PLFLT)jarg2;
8057 PLFLT *arg1 = (PLFLT *) 0 ;
8058 PLFLT *arg2 = (PLFLT *) 0 ;
8069 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
8081 if ((*jenv)->GetArrayLength(jenv, jarg2) == 0) {
8090 jdouble jvalue = (jdouble)temp1;
8091 (*jenv)->SetDoubleArrayRegion(jenv, jarg1, 0, 1, &jvalue);
8094 jdouble jvalue = (jdouble)temp2;
8095 (*jenv)->SetDoubleArrayRegion(jenv, jarg2, 0, 1, &jvalue);
8110 arg1 = (
PLINT)jarg1;
8111 arg2 = (
PLINT)jarg2;
8112 arg3 = (
PLINT)jarg3;
8113 arg4 = (
PLINT)jarg4;
8127 arg1 = (
PLINT)jarg1;
8128 arg2 = (
PLINT)jarg2;
8129 arg3 = (
PLINT)jarg3;
8130 arg4 = (
PLINT)jarg4;
8131 arg5 = (
PLFLT)jarg5;
8132 plscol0a(arg1,arg2,arg3,arg4,arg5);
8143 arg1 = (
PLINT)jarg1;
8144 arg2 = (
PLINT)jarg2;
8145 arg3 = (
PLINT)jarg3;
8158 arg1 = (
PLINT)jarg1;
8159 arg2 = (
PLINT)jarg2;
8160 arg3 = (
PLINT)jarg3;
8161 arg4 = (
PLFLT)jarg4;
8171 arg1 = (
PLINT)jarg1;
8181 arg1 = (
PLINT)jarg1;
8187 char *arg1 = (
char *) 0 ;
8193 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
8196 plsdev((
char const *)arg1);
8197 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
8209 arg1 = (
PLFLT)jarg1;
8210 arg2 = (
PLFLT)jarg2;
8211 arg3 = (
PLFLT)jarg3;
8212 arg4 = (
PLFLT)jarg4;
8227 arg1 = (
PLINT)jarg1;
8228 arg2 = (
PLINT)jarg2;
8229 arg3 = (
PLINT)jarg3;
8230 arg4 = (
PLINT)jarg4;
8231 arg5 = (
PLFLT)jarg5;
8232 arg6 = (
PLFLT)jarg6;
8233 plsdimap(arg1,arg2,arg3,arg4,arg5,arg6);
8242 arg1 = (
PLFLT)jarg1;
8255 arg1 = (
PLFLT)jarg1;
8256 arg2 = (
PLFLT)jarg2;
8257 arg3 = (
PLFLT)jarg3;
8258 arg4 = (
PLFLT)jarg4;
8271 arg1 = (
PLFLT)jarg1;
8272 arg2 = (
PLFLT)jarg2;
8273 arg3 = (
PLFLT)jarg3;
8274 arg4 = (
PLFLT)jarg4;
8284 arg1 = (
unsigned int)jarg1;
8301 char *arg1 = (
char *) 0 ;
8302 char *arg2 = (
char *) 0 ;
8309 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
8310 if (!arg1)
return 0;
8314 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
8315 if (!arg2)
return 0;
8317 result = (
PLINT)
plsetopt((
char const *)arg1,(
char const *)arg2);
8318 jresult = (jint)result;
8319 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
8320 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
8332 arg1 = (
PLINT)jarg1;
8333 arg2 = (
PLINT)jarg2;
8334 arg3 = (
PLINT)jarg3;
8350 char *arg1 = (
char *) 0 ;
8356 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
8360 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
8371 arg1 = (
PLINT)jarg1;
8372 arg2 = (
PLINT)jarg2;
8373 arg3 = (
PLINT)jarg3;
8378 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) {
8379 PLFLT **arg1 = (PLFLT **) 0 ;
8387 PLFLT *arg9 = (PLFLT *) 0 ;
8408 int nx = ( *jenv )->GetArrayLength( jenv, jarg1 );
8411 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
8412 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
8414 ( *jenv )->EnsureLocalCapacity( jenv, nx );
8416 for ( i = 0; i <
nx; i++ )
8418 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
8419 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
8422 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
8423 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
8425 printf(
"Misshapen a array.\n" );
8426 for ( j = 0; j <= i; j++ )
8427 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
8439 for ( i = 0; i <
nx; i++ )
8441 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8442 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
8448 arg5 = (
PLFLT)jarg5;
8449 arg6 = (
PLFLT)jarg6;
8450 arg7 = (
PLFLT)jarg7;
8451 arg8 = (
PLFLT)jarg8;
8453 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg9, 0 );
8454 arg10 = ( *jenv )->GetArrayLength( jenv, jarg9 );
8456 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg9, jxdata, 0 );
8458 arg11 = (
PLFLT)jarg11;
8459 arg12 = (
PLINT)jarg12;
8460 arg13 = (
PLFLT)jarg13;
8462 arg15 = jarg15 ? 1 : 0;
8467 int nx = ( *jenv )->GetArrayLength( jenv, jarg16 );
8470 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
8471 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
8473 ( *jenv )->EnsureLocalCapacity( jenv, nx );
8475 for ( i = 0; i <
nx; i++ )
8477 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg16, i );
8478 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
8481 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
8482 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
8484 printf(
"Misshapen a array.\n" );
8485 for ( j = 0; j <= i; j++ )
8486 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
8493 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx == Xlen && ny == 1 ) ) )
8495 printf(
"Xlen =%d, nx =%d, Ylen =%d, ny =%d\n", Xlen, nx,
Ylen, ny );
8496 printf(
"X vector or matrix must match matrix dimensions.\n" );
8497 for ( i = 0; i <
nx; i++ )
8498 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8506 for ( i = 0; i <
nx; i++ )
8508 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8509 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
8519 int nx = ( *jenv )->GetArrayLength( jenv, jarg17 );
8522 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
8523 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
8525 ( *jenv )->EnsureLocalCapacity( jenv, nx );
8527 for ( i = 0; i <
nx; i++ )
8529 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg17, i );
8530 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
8533 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
8534 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
8536 printf(
"Misshapen a array.\n" );
8537 for ( j = 0; j <= i; j++ )
8538 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
8545 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx ==
Ylen && ny == 1 && ny == Alen ) ) )
8547 printf(
"Xlen =%d, nx =%d, Ylen =%d, Alen =%d, ny =%d\n",
8548 Xlen, nx,
Ylen, Alen, ny );
8549 printf(
"Y vector or matrix must match matrix dimensions.\n" );
8550 for ( i = 0; i <
nx; i++ )
8551 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8557 for ( i = 0; i <
nx; i++ )
8559 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8560 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
8572 plshades((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,(
double const *)arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17);
8592 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) {
8593 PLFLT **arg1 = (PLFLT **) 0 ;
8626 int nx = ( *jenv )->GetArrayLength( jenv, jarg1 );
8629 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
8630 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
8632 ( *jenv )->EnsureLocalCapacity( jenv, nx );
8634 for ( i = 0; i <
nx; i++ )
8636 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
8637 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
8640 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
8641 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
8643 printf(
"Misshapen a array.\n" );
8644 for ( j = 0; j <= i; j++ )
8645 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
8657 for ( i = 0; i <
nx; i++ )
8659 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8660 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
8666 arg5 = (
PLFLT)jarg5;
8667 arg6 = (
PLFLT)jarg6;
8668 arg7 = (
PLFLT)jarg7;
8669 arg8 = (
PLFLT)jarg8;
8670 arg9 = (
PLFLT)jarg9;
8671 arg10 = (
PLFLT)jarg10;
8672 arg11 = (
PLINT)jarg11;
8673 arg12 = (
PLFLT)jarg12;
8674 arg13 = (
PLFLT)jarg13;
8675 arg14 = (
PLINT)jarg14;
8676 arg15 = (
PLFLT)jarg15;
8677 arg16 = (
PLINT)jarg16;
8678 arg17 = (
PLFLT)jarg17;
8680 arg19 = jarg19 ? 1 : 0;
8685 int nx = ( *jenv )->GetArrayLength( jenv, jarg20 );
8688 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
8689 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
8691 ( *jenv )->EnsureLocalCapacity( jenv, nx );
8693 for ( i = 0; i <
nx; i++ )
8695 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg20, i );
8696 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
8699 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
8700 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
8702 printf(
"Misshapen a array.\n" );
8703 for ( j = 0; j <= i; j++ )
8704 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
8711 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx == Xlen && ny == 1 ) ) )
8713 printf(
"Xlen =%d, nx =%d, Ylen =%d, ny =%d\n", Xlen, nx,
Ylen, ny );
8714 printf(
"X vector or matrix must match matrix dimensions.\n" );
8715 for ( i = 0; i <
nx; i++ )
8716 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8724 for ( i = 0; i <
nx; i++ )
8726 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8727 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
8737 int nx = ( *jenv )->GetArrayLength( jenv, jarg21 );
8740 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
8741 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
8743 ( *jenv )->EnsureLocalCapacity( jenv, nx );
8745 for ( i = 0; i <
nx; i++ )
8747 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg21, i );
8748 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
8751 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
8752 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
8754 printf(
"Misshapen a array.\n" );
8755 for ( j = 0; j <= i; j++ )
8756 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
8763 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx ==
Ylen && ny == 1 && ny == Alen ) ) )
8765 printf(
"Xlen =%d, nx =%d, Ylen =%d, Alen =%d, ny =%d\n",
8766 Xlen, nx,
Ylen, Alen, ny );
8767 printf(
"Y vector or matrix must match matrix dimensions.\n" );
8768 for ( i = 0; i <
nx; i++ )
8769 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8775 for ( i = 0; i <
nx; i++ )
8777 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
8778 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
8790 plshade((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20,arg21);
8814 jobject obj = jarg1;
8817 if ( labelClass != 0 )
8819 ( *jenv )->DeleteGlobalRef( jenv, labelClass );
8826 labelClass = ( *jenv )->NewGlobalRef( jenv, obj );
8828 if ( labelClass != 0 )
8850 arg1 = (
PLFLT)jarg1;
8851 arg2 = (
PLFLT)jarg2;
8862 arg1 = (
PLFLT)jarg1;
8863 arg2 = (
PLFLT)jarg2;
8873 arg1 = (
PLINT)jarg1;
8888 arg1 = (
PLFLT)jarg1;
8889 arg2 = (
PLFLT)jarg2;
8890 arg3 = (
PLINT)jarg3;
8891 arg4 = (
PLINT)jarg4;
8892 arg5 = (
PLINT)jarg5;
8893 arg6 = (
PLINT)jarg6;
8894 plspage(arg1,arg2,arg3,arg4,arg5,arg6);
8899 char *arg1 = (
char *) 0 ;
8905 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
8909 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
8914 char *arg1 = (
char *) 0 ;
8921 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
8925 arg2 = jarg2 ? 1 : 0;
8927 plspal1((
char const *)arg1,arg2);
8928 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
8938 arg1 = jarg1 ? 1 : 0;
8949 arg1 = (
PLINT)jarg1;
8960 arg1 = (
PLINT)jarg1;
8961 arg2 = (
PLINT)jarg2;
8972 arg1 = (
PLFLT)jarg1;
8973 arg2 = (
PLFLT)jarg2;
8984 arg1 = (
PLINT)jarg1;
8985 arg2 = (
PLINT)jarg2;
8991 char *arg1 = (
char *) 0 ;
8999 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
9002 arg2 = (
PLINT)jarg2;
9003 arg3 = (
PLINT)jarg3;
9004 plstart((
char const *)arg1,arg2,arg3);
9005 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
9016 jobject obj = jarg1;
9021 ( *jenv )->DeleteGlobalRef( jenv, ctClass );
9028 ctClass = ( *jenv )->NewGlobalRef( jenv, obj );
9048 PLFLT *arg2 = (PLFLT *) 0 ;
9049 PLFLT *arg3 = (PLFLT *) 0 ;
9050 char *arg4 = (
char *) 0 ;
9055 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
9056 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
9062 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
9065 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
9066 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
9068 printf(
"Vectors must be same length.\n" );
9072 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
9076 arg4 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg4, 0);
9079 plstring(arg1,(
double const *)arg2,(
double const *)arg3,(
char const *)arg4);
9086 if (arg4) (*jenv)->ReleaseStringUTFChars(jenv, jarg4, (
const char *)arg4);
9092 PLFLT *arg2 = (PLFLT *) 0 ;
9093 PLFLT *arg3 = (PLFLT *) 0 ;
9094 PLFLT *arg4 = (PLFLT *) 0 ;
9095 char *arg5 = (
char *) 0 ;
9100 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
9101 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
9107 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
9110 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
9111 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
9113 printf(
"Vectors must be same length.\n" );
9117 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
9120 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg4, 0 );
9121 if ( ( *jenv )->GetArrayLength( jenv, jarg4 ) !=
Alen )
9123 printf(
"Vectors must be same length.\n" );
9127 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg4, jydata, 0 );
9131 arg5 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg5, 0);
9134 plstring3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
char const *)arg5);
9144 if (arg5) (*jenv)->ReleaseStringUTFChars(jenv, jarg5, (
const char *)arg5);
9156 arg1 = (
PLINT)jarg1;
9157 arg2 = (
PLINT)jarg2;
9158 arg3 = (
PLFLT)jarg3;
9159 arg4 = (
PLFLT)jarg4;
9164 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) {
9165 PLINT *arg1 = (PLINT *) 0 ;
9166 char *arg2 = (
char *) 0 ;
9167 char *arg3 = (
char *) 0 ;
9179 PLINT *arg15 = (PLINT *) 0 ;
9180 PLINT *arg16 = (PLINT *) 0 ;
9182 char *arg18 = (
char *) 0 ;
9183 char *arg19 = (
char *) 0 ;
9184 char *arg20 = (
char *) 0 ;
9194 if ((*jenv)->GetArrayLength(jenv, jarg1) == 0) {
9203 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
9208 arg3 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg3, 0);
9211 arg4 = (
PLFLT)jarg4;
9212 arg5 = (
PLFLT)jarg5;
9213 arg6 = (
PLFLT)jarg6;
9214 arg7 = (
PLFLT)jarg7;
9215 arg8 = (
PLFLT)jarg8;
9216 arg9 = (
PLFLT)jarg9;
9217 arg10 = (
PLFLT)jarg10;
9219 arg11 = jarg11 ? 1 : 0;
9222 arg12 = jarg12 ? 1 : 0;
9224 arg13 = (
PLINT)jarg13;
9225 arg14 = (
PLINT)jarg14;
9227 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg15, 0 );
9228 Alen = ( *jenv )->GetArrayLength( jenv, jarg15 );
9230 ( *jenv )->ReleaseIntArrayElements( jenv, jarg15, jydata, 0 );
9233 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg16, 0 );
9234 if ( ( *jenv )->GetArrayLength( jenv, jarg16 ) !=
Alen )
9236 printf(
"Vectors must be same length.\n" );
9240 ( *jenv )->ReleaseIntArrayElements( jenv, jarg16, jydata, 0 );
9244 int size = ( *jenv )->GetArrayLength( jenv, jarg17 );
9247 printf(
"legline must be an array of length 4\n" );
9250 arg17 = (
char **) malloc( 4 *
sizeof (
char * ) );
9252 for ( i = 0; i < 4; i++ )
9254 jstring j_string = (jstring) ( *jenv )->GetObjectArrayElement( jenv, jarg17, i );
9255 const char * c_string = (
char *) ( *jenv )->GetStringUTFChars( jenv, j_string, 0 );
9256 arg17[i] = malloc( ( strlen( c_string ) + 1 ) *
sizeof (
const char * ) );
9257 strcpy( arg17[i], c_string );
9258 ( *jenv )->ReleaseStringUTFChars( jenv, j_string, c_string );
9259 ( *jenv )->DeleteLocalRef( jenv, j_string );
9264 arg18 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg18, 0);
9265 if (!arg18) return ;
9269 arg19 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg19, 0);
9270 if (!arg19) return ;
9274 arg20 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg20, 0);
9275 if (!arg20) return ;
9277 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);
9279 jint jvalue = (jint)temp1;
9280 (*jenv)->SetIntArrayRegion(jenv, jarg1, 0, 1, &jvalue);
9283 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
9284 if (arg3) (*jenv)->ReleaseStringUTFChars(jenv, jarg3, (
const char *)arg3);
9293 for ( i = 0; i < 4; i++ )
9297 if (arg18) (*jenv)->ReleaseStringUTFChars(jenv, jarg18, (
const char *)arg18);
9298 if (arg19) (*jenv)->ReleaseStringUTFChars(jenv, jarg19, (
const char *)arg19);
9299 if (arg20) (*jenv)->ReleaseStringUTFChars(jenv, jarg20, (
const char *)arg20);
9308 arg1 = (
PLINT)jarg1;
9315 PLINT *arg2 = (PLINT *) 0 ;
9316 PLINT *arg3 = (PLINT *) 0 ;
9321 jint *jxdata = ( *jenv )->GetIntArrayElements( jenv, jarg1, 0 );
9322 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
9328 ( *jenv )->ReleaseIntArrayElements( jenv, jarg1, jxdata, 0 );
9331 jint *jydata = ( *jenv )->GetIntArrayElements( jenv, jarg3, 0 );
9332 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
9334 printf(
"Vectors must be same length.\n" );
9338 ( *jenv )->ReleaseIntArrayElements( jenv, jarg3, jydata, 0 );
9340 plstyl(arg1,(
int const *)arg2,(
int const *)arg3);
9351 PLFLT *arg1 = (PLFLT *) 0 ;
9352 PLFLT *arg2 = (PLFLT *) 0 ;
9359 if ( jarg1 != NULL )
9361 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
9362 Alen = ( *jenv )->GetArrayLength( jenv, jarg1 );
9364 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
9373 if ( jarg2 != NULL )
9375 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg2, 0 );
9376 arg3 = ( *jenv )->GetArrayLength( jenv, jarg2 );
9377 if ( ( *jenv )->GetArrayLength( jenv, jarg2 ) !=
Alen )
9379 printf(
"Vectors must be same length.\n" );
9383 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg2, jydata, 0 );
9392 arg4 = jarg4 ? 1 : 0;
9394 plsvect((
double const *)arg1,(
double const *)arg2,arg3,arg4);
9414 arg1 = (
PLFLT)jarg1;
9415 arg2 = (
PLFLT)jarg2;
9416 arg3 = (
PLFLT)jarg3;
9417 arg4 = (
PLFLT)jarg4;
9418 plsvpa(arg1,arg2,arg3,arg4);
9428 arg1 = (
PLINT)jarg1;
9429 arg2 = (
PLINT)jarg2;
9440 arg1 = (
PLINT)jarg1;
9441 arg2 = (
PLINT)jarg2;
9448 PLFLT *arg2 = (PLFLT *) 0 ;
9449 PLFLT *arg3 = (PLFLT *) 0 ;
9455 jdouble *jxdata = ( *jenv )->GetDoubleArrayElements( jenv, jarg1, 0 );
9456 arg1 = ( *jenv )->GetArrayLength( jenv, jarg1 );
9462 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg1, jxdata, 0 );
9465 jdouble *jydata = ( *jenv )->GetDoubleArrayElements( jenv, jarg3, 0 );
9466 if ( ( *jenv )->GetArrayLength( jenv, jarg3 ) !=
Alen )
9468 printf(
"Vectors must be same length.\n" );
9472 ( *jenv )->ReleaseDoubleArrayElements( jenv, jarg3, jydata, 0 );
9474 arg4 = (
PLINT)jarg4;
9475 plsym(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
9491 arg1 = (
PLINT)jarg1;
9492 arg2 = (
PLINT)jarg2;
9505 char *arg1 = (
char *) 0 ;
9511 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
9515 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
9524 arg1 = (
PLFLT)jarg1;
9530 PLFLT **arg1 = (PLFLT **) 0 ;
9531 PLFLT **arg2 = (PLFLT **) 0 ;
9543 int nx = ( *jenv )->GetArrayLength( jenv, jarg1 );
9546 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
9547 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
9549 ( *jenv )->EnsureLocalCapacity( jenv, nx );
9551 for ( i = 0; i <
nx; i++ )
9553 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
9554 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
9557 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
9558 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
9560 printf(
"Misshapen a array.\n" );
9561 for ( j = 0; j <= i; j++ )
9562 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
9572 for ( i = 0; i <
nx; i++ )
9574 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
9575 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
9584 int nx = ( *jenv )->GetArrayLength( jenv, jarg2 );
9587 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
9588 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
9590 ( *jenv )->EnsureLocalCapacity( jenv, nx );
9592 for ( i = 0; i <
nx; i++ )
9594 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg2, i );
9595 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
9598 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
9599 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
9601 printf(
"Misshapen a array.\n" );
9602 for ( j = 0; j <= i; j++ )
9603 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
9610 if ( nx != Xlen || ny !=
Ylen )
9612 printf(
"Vectors must match matrix.\n" );
9613 for ( i = 0; i <
nx; i++ )
9614 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
9622 for ( i = 0; i <
nx; i++ )
9624 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
9625 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
9632 arg5 = (
PLFLT)jarg5;
9636 int nx = ( *jenv )->GetArrayLength( jenv, jarg6 );
9639 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
9640 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
9642 ( *jenv )->EnsureLocalCapacity( jenv, nx );
9644 for ( i = 0; i <
nx; i++ )
9646 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg6, i );
9647 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
9650 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
9651 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
9653 printf(
"Misshapen a array.\n" );
9654 for ( j = 0; j <= i; j++ )
9655 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
9662 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx == Xlen && ny == 1 ) ) )
9664 printf(
"Xlen =%d, nx =%d, Ylen =%d, ny =%d\n", Xlen, nx,
Ylen, ny );
9665 printf(
"X vector or matrix must match matrix dimensions.\n" );
9666 for ( i = 0; i <
nx; i++ )
9667 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
9675 for ( i = 0; i <
nx; i++ )
9677 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
9678 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
9688 int nx = ( *jenv )->GetArrayLength( jenv, jarg7 );
9691 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
9692 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
9694 ( *jenv )->EnsureLocalCapacity( jenv, nx );
9696 for ( i = 0; i <
nx; i++ )
9698 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg7, i );
9699 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
9702 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
9703 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
9705 printf(
"Misshapen a array.\n" );
9706 for ( j = 0; j <= i; j++ )
9707 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
9714 if ( !( ( nx == Xlen && ny ==
Ylen ) || ( nx ==
Ylen && ny == 1 && ny == Alen ) ) )
9716 printf(
"Xlen =%d, nx =%d, Ylen =%d, Alen =%d, ny =%d\n",
9717 Xlen, nx,
Ylen, Alen, ny );
9718 printf(
"Y vector or matrix must match matrix dimensions.\n" );
9719 for ( i = 0; i <
nx; i++ )
9720 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
9726 for ( i = 0; i <
nx; i++ )
9728 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
9729 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
9741 plvect((
double const **)arg1,(
double const **)arg2,arg3,arg4,arg5,arg6,arg7);
9771 arg1 = (
PLFLT)jarg1;
9772 arg2 = (
PLFLT)jarg2;
9773 arg3 = (
PLFLT)jarg3;
9774 arg4 = (
PLFLT)jarg4;
9775 arg5 = (
PLFLT)jarg5;
9776 plvpas(arg1,arg2,arg3,arg4,arg5);
9788 arg1 = (
PLFLT)jarg1;
9789 arg2 = (
PLFLT)jarg2;
9790 arg3 = (
PLFLT)jarg3;
9791 arg4 = (
PLFLT)jarg4;
9792 plvpor(arg1,arg2,arg3,arg4);
9803 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) {
9818 arg1 = (
PLFLT)jarg1;
9819 arg2 = (
PLFLT)jarg2;
9820 arg3 = (
PLFLT)jarg3;
9821 arg4 = (
PLFLT)jarg4;
9822 arg5 = (
PLFLT)jarg5;
9823 arg6 = (
PLFLT)jarg6;
9824 arg7 = (
PLFLT)jarg7;
9825 arg8 = (
PLFLT)jarg8;
9826 arg9 = (
PLFLT)jarg9;
9827 arg10 = (
PLFLT)jarg10;
9828 arg11 = (
PLFLT)jarg11;
9829 plw3d(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
9838 arg1 = (
PLINT)jarg1;
9851 arg1 = (
PLFLT)jarg1;
9852 arg2 = (
PLFLT)jarg2;
9853 arg3 = (
PLFLT)jarg3;
9854 arg4 = (
PLFLT)jarg4;
9855 plwind(arg1,arg2,arg3,arg4);
9869 arg1 = jarg1 ? 1 : 0;
9877 if ( (*jenv)->GetArrayLength(jenv, jarg2) == 0 )
9886 jboolean jvalue = (jboolean) temp2;
9887 (*jenv)->SetBooleanArrayRegion(jenv, jarg2, 0, 1, &jvalue);
9895 char *arg2 = (
char *) 0 ;
9904 jobject obj = jarg1;
9907 jclass cls = ( *jenv )->GetObjectClass( jenv, obj );
9908 mapformID = ( *jenv )->GetMethodID( jenv, cls,
"mapform",
"([D[D)V" );
9910 cbenvMapform = jenv;
9920 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
9923 arg3 = (
PLFLT)jarg3;
9924 arg4 = (
PLFLT)jarg4;
9925 arg5 = (
PLFLT)jarg5;
9926 arg6 = (
PLFLT)jarg6;
9927 plmap(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6);
9928 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
9944 jobject obj = jarg1;
9947 jclass cls = ( *jenv )->GetObjectClass( jenv, obj );
9948 mapformID = ( *jenv )->GetMethodID( jenv, cls,
"mapform",
"([D[D)V" );
9950 cbenvMapform = jenv;
9958 arg2 = (
PLFLT)jarg2;
9959 arg3 = (
PLFLT)jarg3;
9960 arg4 = (
PLFLT)jarg4;
9961 arg5 = (
PLFLT)jarg5;
9962 arg6 = (
PLFLT)jarg6;
9963 arg7 = (
PLFLT)jarg7;
9968 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) {
9969 PLFLT **arg1 = (PLFLT **) 0 ;
9988 int nx = ( *jenv )->GetArrayLength( jenv, jarg1 );
9991 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
9992 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
9994 ( *jenv )->EnsureLocalCapacity( jenv, nx );
9996 for ( i = 0; i <
nx; i++ )
9998 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
9999 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
10002 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
10003 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
10005 printf(
"Misshapen a array.\n" );
10006 for ( j = 0; j <= i; j++ )
10007 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
10019 for ( i = 0; i <
nx; i++ )
10021 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
10022 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
10028 arg4 = (
PLFLT)jarg4;
10029 arg5 = (
PLFLT)jarg5;
10030 arg6 = (
PLFLT)jarg6;
10031 arg7 = (
PLFLT)jarg7;
10032 arg8 = (
PLFLT)jarg8;
10033 arg9 = (
PLFLT)jarg9;
10034 arg10 = (
PLFLT)jarg10;
10035 arg11 = (
PLFLT)jarg11;
10036 arg12 = (
PLFLT)jarg12;
10037 arg13 = (
PLFLT)jarg13;
10038 plimage((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
10046 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) {
10047 PLFLT **arg1 = (PLFLT **) 0 ;
10066 int nx = ( *jenv )->GetArrayLength( jenv, jarg1 );
10069 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
10070 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
10072 ( *jenv )->EnsureLocalCapacity( jenv, nx );
10074 for ( i = 0; i <
nx; i++ )
10076 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
10077 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
10080 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
10081 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
10083 printf(
"Misshapen a array.\n" );
10084 for ( j = 0; j <= i; j++ )
10085 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
10097 for ( i = 0; i <
nx; i++ )
10099 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
10100 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
10106 arg4 = (
PLFLT)jarg4;
10107 arg5 = (
PLFLT)jarg5;
10108 arg6 = (
PLFLT)jarg6;
10109 arg7 = (
PLFLT)jarg7;
10110 arg8 = (
PLFLT)jarg8;
10111 arg9 = (
PLFLT)jarg9;
10112 arg10 = (
PLFLT)jarg10;
10113 arg11 = (
PLFLT)jarg11;
10117 int nx = ( *jenv )->GetArrayLength( jenv, jarg12 );
10120 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
10121 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
10123 ( *jenv )->EnsureLocalCapacity( jenv, nx );
10125 for ( i = 0; i <
nx; i++ )
10127 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg12, i );
10128 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
10131 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
10132 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
10134 printf(
"Misshapen a array.\n" );
10135 for ( j = 0; j <= i; j++ )
10136 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
10143 if ( !( ( nx == Xlen + 1 && ny ==
Ylen + 1 ) || ( nx == Xlen + 1 && ny == 1 ) ) )
10145 printf(
"Xlen =%d, nx =%d, Ylen =%d, ny =%d\n", Xlen, nx,
Ylen, ny );
10146 printf(
"X vector or matrix must match matrix dimensions.\n" );
10147 for ( i = 0; i <
nx; i++ )
10148 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
10156 for ( i = 0; i <
nx; i++ )
10158 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
10159 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
10169 int nx = ( *jenv )->GetArrayLength( jenv, jarg13 );
10172 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
10173 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
10175 ( *jenv )->EnsureLocalCapacity( jenv, nx );
10177 for ( i = 0; i <
nx; i++ )
10179 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg13, i );
10180 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
10183 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
10184 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
10186 printf(
"Misshapen a array.\n" );
10187 for ( j = 0; j <= i; j++ )
10188 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
10195 if ( !( ( nx == Xlen + 1 && ny ==
Ylen + 1 ) || ( nx ==
Ylen + 1 && ny == 1 && ny == Alen ) ) )
10197 printf(
"Xlen =%d, nx =%d, Ylen =%d, Alen =%d, ny =%d\n",
10198 Xlen, nx,
Ylen, Alen, ny );
10199 printf(
"Y vector or matrix must match matrix dimensions.\n" );
10200 for ( i = 0; i <
nx; i++ )
10201 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
10207 for ( i = 0; i <
nx; i++ )
10209 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
10210 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
10222 plimagefr((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
10254 char *arg1 = (
char *) 0 ;
10255 char *arg2 = (
char *) 0 ;
10261 arg1 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg1, 0);
10262 if (!arg1) return ;
10266 arg2 = (
char *)(*jenv)->GetStringUTFChars(jenv, jarg2, 0);
10267 if (!arg2) return ;
10269 plSetUsage((
char const *)arg1,(
char const *)arg2);
10270 if (arg1) (*jenv)->ReleaseStringUTFChars(jenv, jarg1, (
const char *)arg1);
10271 if (arg2) (*jenv)->ReleaseStringUTFChars(jenv, jarg2, (
const char *)arg2);
10283 PLFLT **arg1 = (PLFLT **) 0 ;
10286 PLFLT *arg4 = (PLFLT *) 0 ;
10287 PLFLT *arg5 = (PLFLT *) 0 ;
10296 int nx = ( *jenv )->GetArrayLength( jenv, jarg1 );
10299 ai = (jobject *) malloc( (
size_t) nx *
sizeof ( jobject ) );
10300 adat = (jdouble **) malloc( (
size_t) nx *
sizeof ( jdouble * ) );
10302 ( *jenv )->EnsureLocalCapacity( jenv, nx );
10304 for ( i = 0; i <
nx; i++ )
10306 ai[i] = ( *jenv )->GetObjectArrayElement( jenv, jarg1, i );
10307 adat[i] = ( *jenv )->GetDoubleArrayElements( jenv, ai[i], 0 );
10310 ny = ( *jenv )->GetArrayLength( jenv, ai[i] );
10311 else if ( ny != ( *jenv )->GetArrayLength( jenv, ai[i] ) )
10313 printf(
"Misshapen a array.\n" );
10314 for ( j = 0; j <= i; j++ )
10315 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[j], adat[j], 0 );
10327 for ( i = 0; i <
nx; i++ )
10329 ( *jenv )->ReleaseDoubleArrayElements( jenv, ai[i], adat[i], 0 );
10330 ( *jenv )->DeleteLocalRef( jenv, ai[i] );
10341 if ((*jenv)->GetArrayLength(jenv, jarg4) == 0) {
10353 if ((*jenv)->GetArrayLength(jenv, jarg5) == 0) {
10362 jdouble jvalue = (jdouble)temp4;
10363 (*jenv)->SetDoubleArrayRegion(jenv, jarg4, 0, 1, &jvalue);
10366 jdouble jvalue = (jdouble)temp5;
10367 (*jenv)->SetDoubleArrayRegion(jenv, jarg5, 0, 1, &jvalue);
10387 jresult = (jint)result;