5#include <caml/mlvalues.h>
6#include <caml/memory.h>
9#include <caml/callback.h>
11#include <caml/custom.h>
12#include <caml/bigarray.h>
14#include <caml/camlidlruntime.h>
81 default: caml_invalid_argument(
"enum plplot_bin_enum: bad enum plplot_bin_enum value");
154 default: caml_invalid_argument(
"enum plplot_run_level_enum: bad enum plplot_run_level_enum value");
339 default: caml_invalid_argument(
"enum plplot_fci_style_enum: bad enum plplot_fci_style_enum value");
364 default: caml_invalid_argument(
"enum plplot_fci_weight_enum: bad enum plplot_fci_weight_enum value");
391 default: caml_invalid_argument(
"enum plplot_draw_mode_enum: bad enum plplot_draw_mode_enum value");
398 (*_c2) = Int_val(_v1);
404 _v1 = Val_int((*_c2));
414 lexp = Int_val(_v_lexp);
415 sigdig = Int_val(_v_sigdig);
430 offset = Double_val(_v_offset);
431 size = Double_val(_v_size);
432 spacing = Double_val(_v_spacing);
433 active = Int_val(_v_active);
442 page = Int_val(_v_page);
465 x = Double_val(_v_x);
466 y = Double_val(_v_y);
467 a = Double_val(_v_a);
468 b = Double_val(_v_b);
469 angle1 = Double_val(_v_angle1);
470 angle2 = Double_val(_v_angle2);
471 rotate = Double_val(_v_rotate);
472 fill = Int_val(_v_fill);
500 x0 = Double_val(_v_x0);
501 y0 = Double_val(_v_y0);
502 xopt = String_val(_v_xopt);
503 xtick = Double_val(_v_xtick);
504 nxsub = Int_val(_v_nxsub);
505 yopt = String_val(_v_yopt);
506 ytick = Double_val(_v_ytick);
507 nysub = Int_val(_v_nysub);
508 c_plaxes(x0, y0, xopt, xtick, nxsub, yopt, ytick, nysub);
530 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
531 camlidl_ctx _ctx = &_ctxs;
532 _c1 = Wosize_val(_v_x) / Double_wosize;
533 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
534 for (_c2 = 0; _c2 < _c1; _c2++) {
535 x[_c2] = Double_field(_v_x, _c2);
538 _c3 = Wosize_val(_v_y) / Double_wosize;
539 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
540 for (_c4 = 0; _c4 < _c3; _c4++) {
541 y[_c4] = Double_field(_v_y, _c4);
567 value _vres[6] = { 0, 0, 0, 0, 0, 0, };
569 ctime = Double_val(_v_ctime);
577 Begin_roots_block(_vres, 6)
578 _vres[0] = Val_int(*year);
579 _vres[1] = Val_int(*month);
580 _vres[2] = Val_int(*day);
581 _vres[3] = Val_int(*hour);
582 _vres[4] = Val_int(*
min);
583 _vres[5] = caml_copy_double(*sec);
584 _vresult = camlidl_alloc_small(6, 0);
586 for (_c7 = 0; _c7 < 6; _c7++) Field(_vresult, _c7) = _vres[_c7];
612 xopt = String_val(_v_xopt);
613 xtick = Double_val(_v_xtick);
614 nxsub = Int_val(_v_nxsub);
615 yopt = String_val(_v_yopt);
616 ytick = Double_val(_v_ytick);
617 nysub = Int_val(_v_nysub);
618 c_plbox(xopt, xtick, nxsub, yopt, ytick, nysub);
653 xopt = String_val(_v_xopt);
654 xlabel = String_val(_v_xlabel);
655 xtick = Double_val(_v_xtick);
656 nxsub = Int_val(_v_nxsub);
657 yopt = String_val(_v_yopt);
658 ylabel = String_val(_v_ylabel);
659 ytick = Double_val(_v_ytick);
660 nysub = Int_val(_v_nysub);
661 zopt = String_val(_v_zopt);
662 zlabel = String_val(_v_zlabel);
663 ztick = Double_val(_v_ztick);
664 nzsub = Int_val(_v_nzsub);
665 c_plbox3(xopt, xlabel, xtick, nxsub, yopt, ylabel, ytick, nysub, zopt, zlabel, ztick, nzsub);
671 return camlidl_plplot_core_c_plbox3(
argv[0],
argv[1],
argv[2],
argv[3],
argv[4],
argv[5],
argv[6],
argv[7],
argv[8],
argv[9],
argv[10],
argv[11]);
687 value _vres[3] = { 0, 0, 0, };
689 rx = Double_val(_v_rx);
690 ry = Double_val(_v_ry);
695 Begin_roots_block(_vres, 3)
696 _vres[0] = caml_copy_double(*wx);
697 _vres[1] = caml_copy_double(*wy);
698 _vres[2] = Val_int(*window);
699 _vresult = camlidl_alloc_small(3, 0);
700 Field(_vresult, 0) = _vres[0];
701 Field(_vresult, 1) = _vres[1];
702 Field(_vresult, 2) = _vres[2];
717 icol0 = Int_val(_v_icol0);
726 col1 = Double_val(_v_col1);
736 value _v_ifbtime_offset,
755 scale = Double_val(_v_scale);
756 offset1 = Double_val(_v_offset1);
757 offset2 = Double_val(_v_offset2);
758 ccontrol = Int_val(_v_ccontrol);
759 ifbtime_offset = Int_val(_v_ifbtime_offset);
760 year = Int_val(_v_year);
761 month = Int_val(_v_month);
762 day = Int_val(_v_day);
763 hour = Int_val(_v_hour);
764 min = Int_val(_v_min);
765 sec = Double_val(_v_sec);
766 c_plconfigtime(scale, offset1, offset2, ccontrol, ifbtime_offset, year, month, day, hour,
min, sec);
772 return camlidl_plplot_core_c_plconfigtime(
argv[0],
argv[1],
argv[2],
argv[3],
argv[4],
argv[5],
argv[6],
argv[7],
argv[8],
argv[9],
argv[10]);
781 iplsr = Int_val(_v_iplsr);
782 flags = Int_val(_v_flags);
805 year = Int_val(_v_year);
806 month = Int_val(_v_month);
807 day = Int_val(_v_day);
808 hour = Int_val(_v_hour);
809 min = Int_val(_v_min);
810 sec = Double_val(_v_sec);
813 _vres = caml_copy_double(*ctime);
848 xmin = Double_val(_v_xmin);
849 xmax = Double_val(_v_xmax);
850 ymin = Double_val(_v_ymin);
851 ymax = Double_val(_v_ymax);
852 just = Int_val(_v_just);
853 axis = Int_val(_v_axis);
854 c_plenv(xmin, xmax, ymin, ymax, just, axis);
877 xmin = Double_val(_v_xmin);
878 xmax = Double_val(_v_xmax);
879 ymin = Double_val(_v_ymin);
880 ymax = Double_val(_v_ymax);
881 just = Int_val(_v_just);
882 axis = Int_val(_v_axis);
883 c_plenv0(xmin, xmax, ymin, ymax, just, axis);
913 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
914 camlidl_ctx _ctx = &_ctxs;
915 _c1 = Wosize_val(_v_xmin) / Double_wosize;
916 xmin = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
917 for (_c2 = 0; _c2 < _c1; _c2++) {
918 xmin[_c2] = Double_field(_v_xmin, _c2);
921 _c3 = Wosize_val(_v_xmax) / Double_wosize;
922 xmax = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
923 for (_c4 = 0; _c4 < _c3; _c4++) {
924 xmax[_c4] = Double_field(_v_xmax, _c4);
927 _c5 = Wosize_val(_v_y) / Double_wosize;
928 y = camlidl_malloc(_c5 *
sizeof(
double ), _ctx);
929 for (_c6 = 0; _c6 < _c5; _c6++) {
930 y[_c6] = Double_field(_v_y, _c6);
953 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
954 camlidl_ctx _ctx = &_ctxs;
955 _c1 = Wosize_val(_v_x) / Double_wosize;
956 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
957 for (_c2 = 0; _c2 < _c1; _c2++) {
958 x[_c2] = Double_field(_v_x, _c2);
961 _c3 = Wosize_val(_v_ymin) / Double_wosize;
962 ymin = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
963 for (_c4 = 0; _c4 < _c3; _c4++) {
964 ymin[_c4] = Double_field(_v_ymin, _c4);
967 _c5 = Wosize_val(_v_ymax) / Double_wosize;
968 ymax = camlidl_malloc(_c5 *
sizeof(
double ), _ctx);
969 for (_c6 = 0; _c6 < _c5; _c6++) {
970 ymax[_c6] = Double_field(_v_ymax, _c6);
995 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
996 camlidl_ctx _ctx = &_ctxs;
997 _c1 = Wosize_val(_v_x) / Double_wosize;
998 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
999 for (_c2 = 0; _c2 < _c1; _c2++) {
1000 x[_c2] = Double_field(_v_x, _c2);
1003 _c3 = Wosize_val(_v_y) / Double_wosize;
1004 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
1005 for (_c4 = 0; _c4 < _c3; _c4++) {
1006 y[_c4] = Double_field(_v_y, _c4);
1029 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1030 camlidl_ctx _ctx = &_ctxs;
1031 _c1 = Wosize_val(_v_x) / Double_wosize;
1032 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
1033 for (_c2 = 0; _c2 < _c1; _c2++) {
1034 x[_c2] = Double_field(_v_x, _c2);
1037 _c3 = Wosize_val(_v_y) / Double_wosize;
1038 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
1039 for (_c4 = 0; _c4 < _c3; _c4++) {
1040 y[_c4] = Double_field(_v_y, _c4);
1043 _c5 = Wosize_val(_v_z) / Double_wosize;
1044 z = camlidl_malloc(_c5 *
sizeof(
double ), _ctx);
1045 for (_c6 = 0; _c6 < _c5; _c6++) {
1046 z[_c6] = Double_field(_v_z, _c6);
1064 ifont = Int_val(_v_ifont);
1073 fnt = Int_val(_v_fnt);
1085 value _vres[2] = { 0, 0, };
1090 Begin_roots_block(_vres, 2)
1091 _vres[0] = caml_copy_double(*p_def);
1092 _vres[1] = caml_copy_double(*p_ht);
1093 _vresult = camlidl_alloc_small(2, 0);
1094 Field(_vresult, 0) = _vres[0];
1095 Field(_vresult, 1) = _vres[1];
1107 value _vres[2] = { 0, 0, };
1112 Begin_roots_block(_vres, 2)
1113 _vres[0] = caml_copy_double(*min_color);
1114 _vres[1] = caml_copy_double(*max_color);
1115 _vresult = camlidl_alloc_small(2, 0);
1116 Field(_vresult, 0) = _vres[0];
1117 Field(_vresult, 1) = _vres[1];
1133 value _vres[3] = { 0, 0, 0, };
1135 icol0 = Int_val(_v_icol0);
1140 Begin_roots_block(_vres, 3)
1141 _vres[0] = Val_int(*r);
1142 _vres[1] = Val_int(*g);
1143 _vres[2] = Val_int(*b);
1144 _vresult = camlidl_alloc_small(3, 0);
1145 Field(_vresult, 0) = _vres[0];
1146 Field(_vresult, 1) = _vres[1];
1147 Field(_vresult, 2) = _vres[2];
1165 value _vres[4] = { 0, 0, 0, 0, };
1167 icol0 = Int_val(_v_icol0);
1173 Begin_roots_block(_vres, 4)
1174 _vres[0] = Val_int(*r);
1175 _vres[1] = Val_int(*g);
1176 _vres[2] = Val_int(*b);
1177 _vres[3] = caml_copy_double(*alpha);
1178 _vresult = camlidl_alloc_small(4, 0);
1179 Field(_vresult, 0) = _vres[0];
1180 Field(_vresult, 1) = _vres[1];
1181 Field(_vresult, 2) = _vres[2];
1182 Field(_vresult, 3) = _vres[3];
1196 value _vres[3] = { 0, 0, 0, };
1202 Begin_roots_block(_vres, 3)
1203 _vres[0] = Val_int(*r);
1204 _vres[1] = Val_int(*g);
1205 _vres[2] = Val_int(*b);
1206 _vresult = camlidl_alloc_small(3, 0);
1207 Field(_vresult, 0) = _vres[0];
1208 Field(_vresult, 1) = _vres[1];
1209 Field(_vresult, 2) = _vres[2];
1225 value _vres[4] = { 0, 0, 0, 0, };
1232 Begin_roots_block(_vres, 4)
1233 _vres[0] = Val_int(*r);
1234 _vres[1] = Val_int(*g);
1235 _vres[2] = Val_int(*b);
1236 _vres[3] = caml_copy_double(*alpha);
1237 _vresult = camlidl_alloc_small(4, 0);
1238 Field(_vresult, 0) = _vres[0];
1239 Field(_vresult, 1) = _vres[1];
1240 Field(_vresult, 2) = _vres[2];
1241 Field(_vresult, 3) = _vres[3];
1254 _vres = Val_int(*compression);
1263 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1264 camlidl_ctx _ctx = &_ctxs;
1265 p_dev = camlidl_malloc(1024 *
sizeof(
char ), _ctx);
1267 _vres = caml_copy_string(p_dev);
1283 value _vres[4] = { 0, 0, 0, 0, };
1290 Begin_roots_block(_vres, 4)
1291 _vres[0] = caml_copy_double(*p_mar);
1292 _vres[1] = caml_copy_double(*p_aspect);
1293 _vres[2] = caml_copy_double(*p_jx);
1294 _vres[3] = caml_copy_double(*p_jy);
1295 _vresult = camlidl_alloc_small(4, 0);
1296 Field(_vresult, 0) = _vres[0];
1297 Field(_vresult, 1) = _vres[1];
1298 Field(_vresult, 2) = _vres[2];
1299 Field(_vresult, 3) = _vres[3];
1312 _vres = caml_copy_double(*p_rot);
1327 value _vres[4] = { 0, 0, 0, 0, };
1334 Begin_roots_block(_vres, 4)
1335 _vres[0] = caml_copy_double(*p_xmin);
1336 _vres[1] = caml_copy_double(*p_ymin);
1337 _vres[2] = caml_copy_double(*p_xmax);
1338 _vres[3] = caml_copy_double(*p_ymax);
1339 _vresult = camlidl_alloc_small(4, 0);
1340 Field(_vresult, 0) = _vres[0];
1341 Field(_vresult, 1) = _vres[1];
1342 Field(_vresult, 2) = _vres[2];
1343 Field(_vresult, 3) = _vres[3];
1366 _vres = caml_copy_int64(*p_fci);
1379 value _vres[3] = { 0, 0, 0, };
1385 Begin_roots_block(_vres, 3)
1386 _vres[0] = Val_int(*p_fam);
1387 _vres[1] = Val_int(*p_num);
1388 _vres[2] = Val_int(*p_bmax);
1389 _vresult = camlidl_alloc_small(3, 0);
1390 Field(_vresult, 0) = _vres[0];
1391 Field(_vresult, 1) = _vres[1];
1392 Field(_vresult, 2) = _vres[2];
1402 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1403 camlidl_ctx _ctx = &_ctxs;
1404 fnam = camlidl_malloc(1024 *
sizeof(
char ), _ctx);
1406 _vres = caml_copy_string(fnam);
1420 value _vres[3] = { 0, 0, 0, };
1426 Begin_roots_block(_vres, 3)
1427 _vres[0] = Val_int(*p_family);
1428 _vres[1] = Val_int(*p_style);
1429 _vres[2] = Val_int(*p_weight);
1430 _vresult = camlidl_alloc_small(3, 0);
1431 Field(_vresult, 0) = _vres[0];
1432 Field(_vresult, 1) = _vres[1];
1433 Field(_vresult, 2) = _vres[2];
1444 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1445 camlidl_ctx _ctx = &_ctxs;
1468 value _vres[6] = { 0, 0, 0, 0, 0, 0, };
1476 c_plgpage(p_xp, p_yp, p_xleng, p_yleng, p_xoff, p_yoff);
1477 Begin_roots_block(_vres, 6)
1478 _vres[0] = caml_copy_double(*p_xp);
1479 _vres[1] = caml_copy_double(*p_yp);
1480 _vres[2] = Val_int(*p_xleng);
1481 _vres[3] = Val_int(*p_yleng);
1482 _vres[4] = Val_int(*p_xoff);
1483 _vres[5] = Val_int(*p_yoff);
1484 _vresult = camlidl_alloc_small(6, 0);
1486 for (_c7 = 0; _c7 < 6; _c7++) Field(_vresult, _c7) = _vres[_c7];
1511 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1512 camlidl_ctx _ctx = &_ctxs;
1513 _c1 = Wosize_val(_v_x) / Double_wosize;
1514 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
1515 for (_c2 = 0; _c2 < _c1; _c2++) {
1516 x[_c2] = Double_field(_v_x, _c2);
1519 _c3 = Wosize_val(_v_y) / Double_wosize;
1520 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
1521 for (_c4 = 0; _c4 < _c3; _c4++) {
1522 y[_c4] = Double_field(_v_y, _c4);
1525 angle = Double_val(_v_angle);
1542 value _vres[4] = { 0, 0, 0, 0, };
1549 Begin_roots_block(_vres, 4)
1550 _vres[0] = caml_copy_double(*xmin);
1551 _vres[1] = caml_copy_double(*xmax);
1552 _vres[2] = caml_copy_double(*ymin);
1553 _vres[3] = caml_copy_double(*ymax);
1554 _vresult = camlidl_alloc_small(4, 0);
1555 Field(_vresult, 0) = _vres[0];
1556 Field(_vresult, 1) = _vres[1];
1557 Field(_vresult, 2) = _vres[2];
1558 Field(_vresult, 3) = _vres[3];
1571 _vres = Val_int(*p_strm);
1580 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1581 camlidl_ctx _ctx = &_ctxs;
1582 p_ver = camlidl_malloc(1024 *
sizeof(
char ), _ctx);
1584 _vres = caml_copy_string(p_ver);
1600 value _vres[4] = { 0, 0, 0, 0, };
1606 c_plgvpd(p_xmin, p_xmax, p_ymin, p_ymax);
1607 Begin_roots_block(_vres, 4)
1608 _vres[0] = caml_copy_double(*p_xmin);
1609 _vres[1] = caml_copy_double(*p_xmax);
1610 _vres[2] = caml_copy_double(*p_ymin);
1611 _vres[3] = caml_copy_double(*p_ymax);
1612 _vresult = camlidl_alloc_small(4, 0);
1613 Field(_vresult, 0) = _vres[0];
1614 Field(_vresult, 1) = _vres[1];
1615 Field(_vresult, 2) = _vres[2];
1616 Field(_vresult, 3) = _vres[3];
1632 value _vres[4] = { 0, 0, 0, 0, };
1638 c_plgvpw(p_xmin, p_xmax, p_ymin, p_ymax);
1639 Begin_roots_block(_vres, 4)
1640 _vres[0] = caml_copy_double(*p_xmin);
1641 _vres[1] = caml_copy_double(*p_xmax);
1642 _vres[2] = caml_copy_double(*p_ymin);
1643 _vres[3] = caml_copy_double(*p_ymax);
1644 _vresult = camlidl_alloc_small(4, 0);
1645 Field(_vresult, 0) = _vres[0];
1646 Field(_vresult, 1) = _vres[1];
1647 Field(_vresult, 2) = _vres[2];
1648 Field(_vresult, 3) = _vres[3];
1660 value _vres[2] = { 0, 0, };
1665 Begin_roots_block(_vres, 2)
1666 _vres[0] = Val_int(*p_digmax);
1667 _vres[1] = Val_int(*p_digits);
1668 _vresult = camlidl_alloc_small(2, 0);
1669 Field(_vresult, 0) = _vres[0];
1670 Field(_vresult, 1) = _vres[1];
1682 value _vres[2] = { 0, 0, };
1687 Begin_roots_block(_vres, 2)
1688 _vres[0] = Val_int(*p_digmax);
1689 _vres[1] = Val_int(*p_digits);
1690 _vresult = camlidl_alloc_small(2, 0);
1691 Field(_vresult, 0) = _vres[0];
1692 Field(_vresult, 1) = _vres[1];
1704 value _vres[2] = { 0, 0, };
1709 Begin_roots_block(_vres, 2)
1710 _vres[0] = Val_int(*p_digmax);
1711 _vres[1] = Val_int(*p_digits);
1712 _vresult = camlidl_alloc_small(2, 0);
1713 Field(_vresult, 0) = _vres[0];
1714 Field(_vresult, 1) = _vres[1];
1734 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1735 camlidl_ctx _ctx = &_ctxs;
1736 _c1 = Wosize_val(_v_data) / Double_wosize;
1737 data = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
1738 for (_c2 = 0; _c2 < _c1; _c2++) {
1739 data[_c2] = Double_field(_v_data, _c2);
1742 datmin = Double_val(_v_datmin);
1743 datmax = Double_val(_v_datmax);
1744 nbin = Int_val(_v_nbin);
1746 c_plhist(n, data, datmin, datmax, nbin, opt);
1766 value _vres[3] = { 0, 0, 0, };
1768 h = Double_val(_v_h);
1769 l = Double_val(_v_l);
1770 s = Double_val(_v_s);
1775 Begin_roots_block(_vres, 3)
1776 _vres[0] = caml_copy_double(*p_r);
1777 _vres[1] = caml_copy_double(*p_g);
1778 _vres[2] = caml_copy_double(*p_b);
1779 _vresult = camlidl_alloc_small(3, 0);
1780 Field(_vresult, 0) = _vres[0];
1781 Field(_vresult, 1) = _vres[1];
1782 Field(_vresult, 2) = _vres[2];
1803 x1 = Double_val(_v_x1);
1804 y1 = Double_val(_v_y1);
1805 x2 = Double_val(_v_x2);
1806 y2 = Double_val(_v_y2);
1819 xlabel = String_val(_v_xlabel);
1820 ylabel = String_val(_v_ylabel);
1821 tlabel = String_val(_v_tlabel);
1822 c_pllab(xlabel, ylabel, tlabel);
1834 x = Double_val(_v_x);
1835 y = Double_val(_v_y);
1836 z = Double_val(_v_z);
1852 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1853 camlidl_ctx _ctx = &_ctxs;
1854 _c1 = Wosize_val(_v_x) / Double_wosize;
1855 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
1856 for (_c2 = 0; _c2 < _c1; _c2++) {
1857 x[_c2] = Double_field(_v_x, _c2);
1860 _c3 = Wosize_val(_v_y) / Double_wosize;
1861 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
1862 for (_c4 = 0; _c4 < _c3; _c4++) {
1863 y[_c4] = Double_field(_v_y, _c4);
1886 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1887 camlidl_ctx _ctx = &_ctxs;
1888 _c1 = Wosize_val(_v_x) / Double_wosize;
1889 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
1890 for (_c2 = 0; _c2 < _c1; _c2++) {
1891 x[_c2] = Double_field(_v_x, _c2);
1894 _c3 = Wosize_val(_v_y) / Double_wosize;
1895 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
1896 for (_c4 = 0; _c4 < _c3; _c4++) {
1897 y[_c4] = Double_field(_v_y, _c4);
1900 _c5 = Wosize_val(_v_z) / Double_wosize;
1901 z = camlidl_malloc(_c5 *
sizeof(
double ), _ctx);
1902 for (_c6 = 0; _c6 < _c5; _c6++) {
1903 z[_c6] = Double_field(_v_z, _c6);
1915 lin = Int_val(_v_lin);
1941 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1942 camlidl_ctx _ctx = &_ctxs;
1943 _c1 = Wosize_val(_v_x) / Double_wosize;
1944 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
1945 for (_c2 = 0; _c2 < _c1; _c2++) {
1946 x[_c2] = Double_field(_v_x, _c2);
1949 _c3 = Wosize_val(_v_y) / Double_wosize;
1950 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
1951 for (_c4 = 0; _c4 < _c3; _c4++) {
1952 y[_c4] = Double_field(_v_y, _c4);
1955 _c5 = Wosize_val(_v_z);
1956 z = camlidl_malloc(_c5 *
sizeof(
double *), _ctx);
1957 for (_c6 = 0; _c6 < _c5; _c6++) {
1958 _v7 = Field(_v_z, _c6);
1959 _c8 = Wosize_val(_v7) / Double_wosize;
1960 z[_c6] = camlidl_malloc(_c8 *
sizeof(
double ), _ctx);
1961 for (_c9 = 0; _c9 < _c8; _c9++) {
1962 z[_c6][_c9] = Double_field(_v7, _c9);
1999 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2000 camlidl_ctx _ctx = &_ctxs;
2001 _c1 = Wosize_val(_v_x) / Double_wosize;
2002 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
2003 for (_c2 = 0; _c2 < _c1; _c2++) {
2004 x[_c2] = Double_field(_v_x, _c2);
2007 _c3 = Wosize_val(_v_y) / Double_wosize;
2008 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
2009 for (_c4 = 0; _c4 < _c3; _c4++) {
2010 y[_c4] = Double_field(_v_y, _c4);
2013 _c5 = Wosize_val(_v_z);
2014 z = camlidl_malloc(_c5 *
sizeof(
double *), _ctx);
2015 for (_c6 = 0; _c6 < _c5; _c6++) {
2016 _v7 = Field(_v_z, _c6);
2017 _c8 = Wosize_val(_v7) / Double_wosize;
2018 z[_c6] = camlidl_malloc(_c8 *
sizeof(
double ), _ctx);
2019 for (_c9 = 0; _c9 < _c8; _c9++) {
2020 z[_c6][_c9] = Double_field(_v7, _c9);
2026 _c10 = Wosize_val(_v_clevel) / Double_wosize;
2027 clevel = camlidl_malloc(_c10 *
sizeof(
double ), _ctx);
2028 for (_c11 = 0; _c11 < _c10; _c11++) {
2029 clevel[_c11] = Double_field(_v_clevel, _c11);
2032 c_plmeshc(x, y, z, nx, ny, opt, clevel, nlevel);
2045 _vres = Val_int(*p_strm);
2061 side = String_val(_v_side);
2062 disp = Double_val(_v_disp);
2063 pos = Double_val(_v_pos);
2064 just = Double_val(_v_just);
2065 text = String_val(_v_text);
2082 side = String_val(_v_side);
2083 disp = Double_val(_v_disp);
2084 pos = Double_val(_v_pos);
2085 just = Double_val(_v_just);
2086 text = String_val(_v_text);
2114 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2115 camlidl_ctx _ctx = &_ctxs;
2116 _c1 = Wosize_val(_v_x) / Double_wosize;
2117 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
2118 for (_c2 = 0; _c2 < _c1; _c2++) {
2119 x[_c2] = Double_field(_v_x, _c2);
2122 _c3 = Wosize_val(_v_y) / Double_wosize;
2123 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
2124 for (_c4 = 0; _c4 < _c3; _c4++) {
2125 y[_c4] = Double_field(_v_y, _c4);
2128 _c5 = Wosize_val(_v_z);
2129 z = camlidl_malloc(_c5 *
sizeof(
double *), _ctx);
2130 for (_c6 = 0; _c6 < _c5; _c6++) {
2131 _v7 = Field(_v_z, _c6);
2132 _c8 = Wosize_val(_v7) / Double_wosize;
2133 z[_c6] = camlidl_malloc(_c8 *
sizeof(
double ), _ctx);
2134 for (_c9 = 0; _c9 < _c8; _c9++) {
2135 z[_c6][_c9] = Double_field(_v7, _c9);
2141 side = Int_val(_v_side);
2142 c_plot3d(x, y, z, nx, ny, opt, side);
2173 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2174 camlidl_ctx _ctx = &_ctxs;
2175 _c1 = Wosize_val(_v_x) / Double_wosize;
2176 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
2177 for (_c2 = 0; _c2 < _c1; _c2++) {
2178 x[_c2] = Double_field(_v_x, _c2);
2181 _c3 = Wosize_val(_v_y) / Double_wosize;
2182 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
2183 for (_c4 = 0; _c4 < _c3; _c4++) {
2184 y[_c4] = Double_field(_v_y, _c4);
2187 _c5 = Wosize_val(_v_z);
2188 z = camlidl_malloc(_c5 *
sizeof(
double *), _ctx);
2189 for (_c6 = 0; _c6 < _c5; _c6++) {
2190 _v7 = Field(_v_z, _c6);
2191 _c8 = Wosize_val(_v7) / Double_wosize;
2192 z[_c6] = camlidl_malloc(_c8 *
sizeof(
double ), _ctx);
2193 for (_c9 = 0; _c9 < _c8; _c9++) {
2194 z[_c6][_c9] = Double_field(_v7, _c9);
2200 _c10 = Wosize_val(_v_clevel) / Double_wosize;
2201 clevel = camlidl_malloc(_c10 *
sizeof(
double ), _ctx);
2202 for (_c11 = 0; _c11 < _c10; _c11++) {
2203 clevel[_c11] = Double_field(_v_clevel, _c11);
2206 c_plot3dc(x, y, z, nx, ny, opt, clevel, nlevel);
2250 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2251 camlidl_ctx _ctx = &_ctxs;
2252 _c1 = Wosize_val(_v_x) / Double_wosize;
2253 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
2254 for (_c2 = 0; _c2 < _c1; _c2++) {
2255 x[_c2] = Double_field(_v_x, _c2);
2258 _c3 = Wosize_val(_v_y) / Double_wosize;
2259 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
2260 for (_c4 = 0; _c4 < _c3; _c4++) {
2261 y[_c4] = Double_field(_v_y, _c4);
2264 _c5 = Wosize_val(_v_z);
2265 z = camlidl_malloc(_c5 *
sizeof(
double *), _ctx);
2266 for (_c6 = 0; _c6 < _c5; _c6++) {
2267 _v7 = Field(_v_z, _c6);
2268 _c8 = Wosize_val(_v7) / Double_wosize;
2269 z[_c6] = camlidl_malloc(_c8 *
sizeof(
double ), _ctx);
2270 for (_c9 = 0; _c9 < _c8; _c9++) {
2271 z[_c6][_c9] = Double_field(_v7, _c9);
2277 _c10 = Wosize_val(_v_clevel) / Double_wosize;
2278 clevel = camlidl_malloc(_c10 *
sizeof(
double ), _ctx);
2279 for (_c11 = 0; _c11 < _c10; _c11++) {
2280 clevel[_c11] = Double_field(_v_clevel, _c11);
2283 indexxmin = Int_val(_v_indexxmin);
2284 _c12 = Wosize_val(_v_indexymin);
2285 indexymin = camlidl_malloc(_c12 *
sizeof(
int ), _ctx);
2286 for (_c13 = 0; _c13 < _c12; _c13++) {
2287 _v14 = Field(_v_indexymin, _c13);
2288 indexymin[_c13] = Int_val(_v14);
2291 _c15 = Wosize_val(_v_indexymax);
2292 indexymax = camlidl_malloc(_c15 *
sizeof(
int ), _ctx);
2293 for (_c16 = 0; _c16 < _c15; _c16++) {
2294 _v17 = Field(_v_indexymax, _c16);
2295 indexymax[_c16] = Int_val(_v17);
2298 c_plot3dcl(x, y, z, nx, ny, opt, clevel, nlevel, indexxmin, indexxmax, indexymin, indexymax);
2321 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2322 camlidl_ctx _ctx = &_ctxs;
2323 _c1 = Wosize_val(_v_inc);
2324 inc = camlidl_malloc(_c1 *
sizeof(
int ), _ctx);
2325 for (_c2 = 0; _c2 < _c1; _c2++) {
2326 _v3 = Field(_v_inc, _c2);
2327 inc[_c2] = Int_val(_v3);
2330 _c4 = Wosize_val(_v_del);
2331 del = camlidl_malloc(_c4 *
sizeof(
int ), _ctx);
2332 for (_c5 = 0; _c5 < _c4; _c5++) {
2333 _v6 = Field(_v_del, _c5);
2334 del[_c5] = Int_val(_v6);
2355 x1 = Double_val(_v_x1);
2356 y1 = Double_val(_v_y1);
2357 x2 = Double_val(_v_x2);
2358 y2 = Double_val(_v_y2);
2376 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2377 camlidl_ctx _ctx = &_ctxs;
2378 _c1 = Wosize_val(_v_x) / Double_wosize;
2379 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
2380 for (_c2 = 0; _c2 < _c1; _c2++) {
2381 x[_c2] = Double_field(_v_x, _c2);
2384 _c3 = Wosize_val(_v_y) / Double_wosize;
2385 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
2386 for (_c4 = 0; _c4 < _c3; _c4++) {
2387 y[_c4] = Double_field(_v_y, _c4);
2390 code = Int_val(_v_code);
2413 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2414 camlidl_ctx _ctx = &_ctxs;
2415 _c1 = Wosize_val(_v_x) / Double_wosize;
2416 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
2417 for (_c2 = 0; _c2 < _c1; _c2++) {
2418 x[_c2] = Double_field(_v_x, _c2);
2421 _c3 = Wosize_val(_v_y) / Double_wosize;
2422 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
2423 for (_c4 = 0; _c4 < _c3; _c4++) {
2424 y[_c4] = Double_field(_v_y, _c4);
2427 _c5 = Wosize_val(_v_z) / Double_wosize;
2428 z = camlidl_malloc(_c5 *
sizeof(
double ), _ctx);
2429 for (_c6 = 0; _c6 < _c5; _c6++) {
2430 z[_c6] = Double_field(_v_z, _c6);
2433 code = Int_val(_v_code);
2445 setp = Int_val(_v_setp);
2446 prec = Int_val(_v_prec);
2455 patt = Int_val(_v_patt);
2474 x = Double_val(_v_x);
2475 y = Double_val(_v_y);
2476 dx = Double_val(_v_dx);
2477 dy = Double_val(_v_dy);
2478 just = Double_val(_v_just);
2479 text = String_val(_v_text);
2513 wx = Double_val(_v_wx);
2514 wy = Double_val(_v_wy);
2515 wz = Double_val(_v_wz);
2516 dx = Double_val(_v_dx);
2517 dy = Double_val(_v_dy);
2518 dz = Double_val(_v_dz);
2519 sx = Double_val(_v_sx);
2520 sy = Double_val(_v_sy);
2521 sz = Double_val(_v_sz);
2522 just = Double_val(_v_just);
2523 text = String_val(_v_text);
2524 c_plptex3(wx, wy, wz, dx, dy, dz, sx, sy, sz, just,
text);
2530 return camlidl_plplot_core_c_plptex3(
argv[0],
argv[1],
argv[2],
argv[3],
argv[4],
argv[5],
argv[6],
argv[7],
argv[8],
argv[9],
argv[10]);
2539 _vres = caml_copy_double(_res);
2564 value _vres[3] = { 0, 0, 0, };
2566 r = Double_val(_v_r);
2567 g = Double_val(_v_g);
2568 b = Double_val(_v_b);
2573 Begin_roots_block(_vres, 3)
2574 _vres[0] = caml_copy_double(*p_h);
2575 _vres[1] = caml_copy_double(*p_l);
2576 _vres[2] = caml_copy_double(*p_s);
2577 _vresult = camlidl_alloc_small(3, 0);
2578 Field(_vresult, 0) = _vres[0];
2579 Field(_vresult, 1) = _vres[1];
2580 Field(_vresult, 2) = _vres[2];
2591 def = Double_val(_v_def);
2592 scale = Double_val(_v_scale);
2615 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2616 camlidl_ctx _ctx = &_ctxs;
2617 _c1 = Wosize_val(_v_r);
2618 r = camlidl_malloc(_c1 *
sizeof(
int ), _ctx);
2619 for (_c2 = 0; _c2 < _c1; _c2++) {
2620 _v3 = Field(_v_r, _c2);
2621 r[_c2] = Int_val(_v3);
2624 _c4 = Wosize_val(_v_g);
2625 g = camlidl_malloc(_c4 *
sizeof(
int ), _ctx);
2626 for (_c5 = 0; _c5 < _c4; _c5++) {
2627 _v6 = Field(_v_g, _c5);
2628 g[_c5] = Int_val(_v6);
2631 _c7 = Wosize_val(_v_b);
2632 b = camlidl_malloc(_c7 *
sizeof(
int ), _ctx);
2633 for (_c8 = 0; _c8 < _c7; _c8++) {
2634 _v9 = Field(_v_b, _c8);
2635 b[_c8] = Int_val(_v9);
2665 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2666 camlidl_ctx _ctx = &_ctxs;
2667 _c1 = Wosize_val(_v_r);
2668 r = camlidl_malloc(_c1 *
sizeof(
int ), _ctx);
2669 for (_c2 = 0; _c2 < _c1; _c2++) {
2670 _v3 = Field(_v_r, _c2);
2671 r[_c2] = Int_val(_v3);
2674 _c4 = Wosize_val(_v_g);
2675 g = camlidl_malloc(_c4 *
sizeof(
int ), _ctx);
2676 for (_c5 = 0; _c5 < _c4; _c5++) {
2677 _v6 = Field(_v_g, _c5);
2678 g[_c5] = Int_val(_v6);
2681 _c7 = Wosize_val(_v_b);
2682 b = camlidl_malloc(_c7 *
sizeof(
int ), _ctx);
2683 for (_c8 = 0; _c8 < _c7; _c8++) {
2684 _v9 = Field(_v_b, _c8);
2685 b[_c8] = Int_val(_v9);
2688 _c10 = Wosize_val(_v_alpha) / Double_wosize;
2689 alpha = camlidl_malloc(_c10 *
sizeof(
double ), _ctx);
2690 for (_c11 = 0; _c11 < _c10; _c11++) {
2691 alpha[_c11] = Double_field(_v_alpha, _c11);
2703 ncol0 = Int_val(_v_ncol0);
2726 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2727 camlidl_ctx _ctx = &_ctxs;
2728 _c1 = Wosize_val(_v_r);
2729 r = camlidl_malloc(_c1 *
sizeof(
int ), _ctx);
2730 for (_c2 = 0; _c2 < _c1; _c2++) {
2731 _v3 = Field(_v_r, _c2);
2732 r[_c2] = Int_val(_v3);
2735 _c4 = Wosize_val(_v_g);
2736 g = camlidl_malloc(_c4 *
sizeof(
int ), _ctx);
2737 for (_c5 = 0; _c5 < _c4; _c5++) {
2738 _v6 = Field(_v_g, _c5);
2739 g[_c5] = Int_val(_v6);
2742 _c7 = Wosize_val(_v_b);
2743 b = camlidl_malloc(_c7 *
sizeof(
int ), _ctx);
2744 for (_c8 = 0; _c8 < _c7; _c8++) {
2745 _v9 = Field(_v_b, _c8);
2746 b[_c8] = Int_val(_v9);
2776 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2777 camlidl_ctx _ctx = &_ctxs;
2778 _c1 = Wosize_val(_v_r);
2779 r = camlidl_malloc(_c1 *
sizeof(
int ), _ctx);
2780 for (_c2 = 0; _c2 < _c1; _c2++) {
2781 _v3 = Field(_v_r, _c2);
2782 r[_c2] = Int_val(_v3);
2785 _c4 = Wosize_val(_v_g);
2786 g = camlidl_malloc(_c4 *
sizeof(
int ), _ctx);
2787 for (_c5 = 0; _c5 < _c4; _c5++) {
2788 _v6 = Field(_v_g, _c5);
2789 g[_c5] = Int_val(_v6);
2792 _c7 = Wosize_val(_v_b);
2793 b = camlidl_malloc(_c7 *
sizeof(
int ), _ctx);
2794 for (_c8 = 0; _c8 < _c7; _c8++) {
2795 _v9 = Field(_v_b, _c8);
2796 b[_c8] = Int_val(_v9);
2799 _c10 = Wosize_val(_v_alpha) / Double_wosize;
2800 alpha = camlidl_malloc(_c10 *
sizeof(
double ), _ctx);
2801 for (_c11 = 0; _c11 < _c10; _c11++) {
2802 alpha[_c11] = Double_field(_v_alpha, _c11);
2816 value _v_alt_hue_path)
2837 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2838 camlidl_ctx _ctx = &_ctxs;
2839 itype = Int_val(_v_itype);
2840 _c1 = Wosize_val(_v_intensity) / Double_wosize;
2841 intensity = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
2842 for (_c2 = 0; _c2 < _c1; _c2++) {
2843 intensity[_c2] = Double_field(_v_intensity, _c2);
2846 _c3 = Wosize_val(_v_coord1) / Double_wosize;
2847 coord1 = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
2848 for (_c4 = 0; _c4 < _c3; _c4++) {
2849 coord1[_c4] = Double_field(_v_coord1, _c4);
2852 _c5 = Wosize_val(_v_coord2) / Double_wosize;
2853 coord2 = camlidl_malloc(_c5 *
sizeof(
double ), _ctx);
2854 for (_c6 = 0; _c6 < _c5; _c6++) {
2855 coord2[_c6] = Double_field(_v_coord2, _c6);
2858 _c7 = Wosize_val(_v_coord3) / Double_wosize;
2859 coord3 = camlidl_malloc(_c7 *
sizeof(
double ), _ctx);
2860 for (_c8 = 0; _c8 < _c7; _c8++) {
2861 coord3[_c8] = Double_field(_v_coord3, _c8);
2864 if (_v_alt_hue_path == Val_int(0)) {
2865 alt_hue_path = NULL;
2867 _v9 = Field(_v_alt_hue_path, 0);
2868 _c10 = Wosize_val(_v9);
2869 alt_hue_path = camlidl_malloc(_c10 *
sizeof(
int ), _ctx);
2870 for (_c11 = 0; _c11 < _c10; _c11++) {
2871 _v12 = Field(_v9, _c11);
2872 alt_hue_path[_c11] = Int_val(_v12);
2876 c_plscmap1l(itype, npts, intensity, coord1, coord2, coord3, alt_hue_path);
2893 value _v_alt_hue_path)
2917 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2918 camlidl_ctx _ctx = &_ctxs;
2919 itype = Int_val(_v_itype);
2920 _c1 = Wosize_val(_v_intensity) / Double_wosize;
2921 intensity = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
2922 for (_c2 = 0; _c2 < _c1; _c2++) {
2923 intensity[_c2] = Double_field(_v_intensity, _c2);
2926 _c3 = Wosize_val(_v_coord1) / Double_wosize;
2927 coord1 = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
2928 for (_c4 = 0; _c4 < _c3; _c4++) {
2929 coord1[_c4] = Double_field(_v_coord1, _c4);
2932 _c5 = Wosize_val(_v_coord2) / Double_wosize;
2933 coord2 = camlidl_malloc(_c5 *
sizeof(
double ), _ctx);
2934 for (_c6 = 0; _c6 < _c5; _c6++) {
2935 coord2[_c6] = Double_field(_v_coord2, _c6);
2938 _c7 = Wosize_val(_v_coord3) / Double_wosize;
2939 coord3 = camlidl_malloc(_c7 *
sizeof(
double ), _ctx);
2940 for (_c8 = 0; _c8 < _c7; _c8++) {
2941 coord3[_c8] = Double_field(_v_coord3, _c8);
2944 _c9 = Wosize_val(_v_alpha) / Double_wosize;
2945 alpha = camlidl_malloc(_c9 *
sizeof(
double ), _ctx);
2946 for (_c10 = 0; _c10 < _c9; _c10++) {
2947 alpha[_c10] = Double_field(_v_alpha, _c10);
2950 if (_v_alt_hue_path == Val_int(0)) {
2951 alt_hue_path = NULL;
2953 _v11 = Field(_v_alt_hue_path, 0);
2954 _c12 = Wosize_val(_v11);
2955 alt_hue_path = camlidl_malloc(_c12 *
sizeof(
int ), _ctx);
2956 for (_c13 = 0; _c13 < _c12; _c13++) {
2957 _v14 = Field(_v11, _c13);
2958 alt_hue_path[_c13] = Int_val(_v14);
2962 c_plscmap1la(itype, npts, intensity, coord1, coord2, coord3, alpha, alt_hue_path);
2976 ncol1 = Int_val(_v_ncol1);
2987 min_color = Double_val(_v_min_color);
2988 max_color = Double_val(_v_max_color);
3003 icol0 = Int_val(_v_icol0);
3023 icol0 = Int_val(_v_icol0);
3027 alpha = Double_val(_v_alpha);
3060 alpha = Double_val(_v_alpha);
3069 color = Int_val(_v_color);
3075 value _v_compression)
3078 compression = Int_val(_v_compression);
3086 char const *devname;
3087 devname = String_val(_v_devname);
3102 mar = Double_val(_v_mar);
3103 aspect = Double_val(_v_aspect);
3104 jx = Double_val(_v_jx);
3105 jy = Double_val(_v_jy);
3124 dimxmin = Int_val(_v_dimxmin);
3125 dimxmax = Int_val(_v_dimxmax);
3126 dimymin = Int_val(_v_dimymin);
3127 dimymax = Int_val(_v_dimymax);
3128 dimxpmm = Double_val(_v_dimxpmm);
3129 dimypmm = Double_val(_v_dimypmm);
3130 c_plsdimap(dimxmin, dimxmax, dimymin, dimymax, dimxpmm, dimypmm);
3143 rot = Double_val(_v_rot);
3158 xmin = Double_val(_v_xmin);
3159 ymin = Double_val(_v_ymin);
3160 xmax = Double_val(_v_xmax);
3161 ymax = Double_val(_v_ymax);
3176 xmin = Double_val(_v_xmin);
3177 ymin = Double_val(_v_ymin);
3178 xmax = Double_val(_v_xmax);
3179 ymax = Double_val(_v_ymax);
3197 seed = Int64_val(_v_seed);
3206 esc = Int_val(_v_esc);
3219 fam = Int_val(_v_fam);
3220 num = Int_val(_v_num);
3221 bmax = Int_val(_v_bmax);
3230 fci = Int64_val(_v_fci);
3239 fnam = String_val(_v_fnam);
3265 def = Double_val(_v_def);
3266 scale = Double_val(_v_scale);
3277 def = Double_val(_v_def);
3278 scale = Double_val(_v_scale);
3287 ori = Int_val(_v_ori);
3306 xp = Double_val(_v_xp);
3307 yp = Double_val(_v_yp);
3308 xleng = Int_val(_v_xleng);
3309 yleng = Int_val(_v_yleng);
3310 xoff = Int_val(_v_xoff);
3311 yoff = Int_val(_v_yoff);
3312 c_plspage(xp, yp, xleng, yleng, xoff, yoff);
3324 char const *filename;
3325 filename = String_val(_v_filename);
3332 value _v_interpolate)
3334 char const *filename;
3336 filename = String_val(_v_filename);
3337 interpolate = Int_val(_v_interpolate);
3346 pause = Int_val(_v_pause);
3355 strm = Int_val(_v_strm);
3366 nx = Int_val(_v_nx);
3367 ny = Int_val(_v_ny);
3378 def = Double_val(_v_def);
3379 scale = Double_val(_v_scale);
3390 nx = Int_val(_v_nx);
3391 ny = Int_val(_v_ny);
3401 char const *devname;
3404 devname = String_val(_v_devname);
3405 nx = Int_val(_v_nx);
3406 ny = Int_val(_v_ny);
3424 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3425 camlidl_ctx _ctx = &_ctxs;
3426 _c1 = Wosize_val(_v_x) / Double_wosize;
3427 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
3428 for (_c2 = 0; _c2 < _c1; _c2++) {
3429 x[_c2] = Double_field(_v_x, _c2);
3432 _c3 = Wosize_val(_v_y) / Double_wosize;
3433 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
3434 for (_c4 = 0; _c4 < _c3; _c4++) {
3435 y[_c4] = Double_field(_v_y, _c4);
3438 string = String_val(_v_string);
3461 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3462 camlidl_ctx _ctx = &_ctxs;
3463 _c1 = Wosize_val(_v_x) / Double_wosize;
3464 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
3465 for (_c2 = 0; _c2 < _c1; _c2++) {
3466 x[_c2] = Double_field(_v_x, _c2);
3469 _c3 = Wosize_val(_v_y) / Double_wosize;
3470 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
3471 for (_c4 = 0; _c4 < _c3; _c4++) {
3472 y[_c4] = Double_field(_v_y, _c4);
3475 _c5 = Wosize_val(_v_z) / Double_wosize;
3476 z = camlidl_malloc(_c5 *
sizeof(
double ), _ctx);
3477 for (_c6 = 0; _c6 < _c5; _c6++) {
3478 z[_c6] = Double_field(_v_z, _c6);
3481 string = String_val(_v_string);
3497 id = Int_val(_v_id);
3498 pen = Int_val(_v_pen);
3499 x = Double_val(_v_x);
3500 y = Double_val(_v_y);
3509 id = Int_val(_v_id);
3545 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3546 camlidl_ctx _ctx = &_ctxs;
3547 _c1 = Wosize_val(_v_idata);
3548 idata = camlidl_malloc(_c1 *
sizeof(
double *), _ctx);
3549 for (_c2 = 0; _c2 < _c1; _c2++) {
3550 _v3 = Field(_v_idata, _c2);
3551 _c4 = Wosize_val(_v3) / Double_wosize;
3552 idata[_c2] = camlidl_malloc(_c4 *
sizeof(
double ), _ctx);
3553 for (_c5 = 0; _c5 < _c4; _c5++) {
3554 idata[_c2][_c5] = Double_field(_v3, _c5);
3559 xmin = Double_val(_v_xmin);
3560 xmax = Double_val(_v_xmax);
3561 ymin = Double_val(_v_ymin);
3562 ymax = Double_val(_v_ymax);
3563 zmin = Double_val(_v_zmin);
3564 zmax = Double_val(_v_zmax);
3565 Dxmin = Double_val(_v_Dxmin);
3566 Dxmax = Double_val(_v_Dxmax);
3567 Dymin = Double_val(_v_Dymin);
3568 Dymax = Double_val(_v_Dymax);
3569 c_plimage(idata, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, Dxmin, Dxmax, Dymin, Dymax);
3576 return camlidl_plplot_core_c_plimage(
argv[0],
argv[1],
argv[2],
argv[3],
argv[4],
argv[5],
argv[6],
argv[7],
argv[8],
argv[9],
argv[10]);
3592 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3593 camlidl_ctx _ctx = &_ctxs;
3594 _c1 = Wosize_val(_v_mark);
3595 mark = camlidl_malloc(_c1 *
sizeof(
int ), _ctx);
3596 for (_c2 = 0; _c2 < _c1; _c2++) {
3597 _v3 = Field(_v_mark, _c2);
3598 mark[_c2] = Int_val(_v3);
3601 _c4 = Wosize_val(_v_space);
3602 space = camlidl_malloc(_c4 *
sizeof(
int ), _ctx);
3603 for (_c5 = 0; _c5 < _c4; _c5++) {
3604 _v6 = Field(_v_space, _c5);
3605 space[_c5] = Int_val(_v6);
3639 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3640 camlidl_ctx _ctx = &_ctxs;
3641 _c1 = Wosize_val(_v_x) / Double_wosize;
3642 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
3643 for (_c2 = 0; _c2 < _c1; _c2++) {
3644 x[_c2] = Double_field(_v_x, _c2);
3647 _c3 = Wosize_val(_v_y) / Double_wosize;
3648 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
3649 for (_c4 = 0; _c4 < _c3; _c4++) {
3650 y[_c4] = Double_field(_v_y, _c4);
3653 _c5 = Wosize_val(_v_z);
3654 z = camlidl_malloc(_c5 *
sizeof(
double *), _ctx);
3655 for (_c6 = 0; _c6 < _c5; _c6++) {
3656 _v7 = Field(_v_z, _c6);
3657 _c8 = Wosize_val(_v7) / Double_wosize;
3658 z[_c6] = camlidl_malloc(_c8 *
sizeof(
double ), _ctx);
3659 for (_c9 = 0; _c9 < _c8; _c9++) {
3660 z[_c6][_c9] = Double_field(_v7, _c9);
3666 _c10 = Wosize_val(_v_clevel) / Double_wosize;
3667 clevel = camlidl_malloc(_c10 *
sizeof(
double ), _ctx);
3668 for (_c11 = 0; _c11 < _c10; _c11++) {
3669 clevel[_c11] = Double_field(_v_clevel, _c11);
3672 c_plsurf3d(x, y, z, nx, ny, opt, clevel, nlevel);
3716 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3717 camlidl_ctx _ctx = &_ctxs;
3718 _c1 = Wosize_val(_v_x) / Double_wosize;
3719 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
3720 for (_c2 = 0; _c2 < _c1; _c2++) {
3721 x[_c2] = Double_field(_v_x, _c2);
3724 _c3 = Wosize_val(_v_y) / Double_wosize;
3725 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
3726 for (_c4 = 0; _c4 < _c3; _c4++) {
3727 y[_c4] = Double_field(_v_y, _c4);
3730 _c5 = Wosize_val(_v_z);
3731 z = camlidl_malloc(_c5 *
sizeof(
double *), _ctx);
3732 for (_c6 = 0; _c6 < _c5; _c6++) {
3733 _v7 = Field(_v_z, _c6);
3734 _c8 = Wosize_val(_v7) / Double_wosize;
3735 z[_c6] = camlidl_malloc(_c8 *
sizeof(
double ), _ctx);
3736 for (_c9 = 0; _c9 < _c8; _c9++) {
3737 z[_c6][_c9] = Double_field(_v7, _c9);
3743 _c10 = Wosize_val(_v_clevel) / Double_wosize;
3744 clevel = camlidl_malloc(_c10 *
sizeof(
double ), _ctx);
3745 for (_c11 = 0; _c11 < _c10; _c11++) {
3746 clevel[_c11] = Double_field(_v_clevel, _c11);
3749 indexxmin = Int_val(_v_indexxmin);
3750 _c12 = Wosize_val(_v_indexymin);
3751 indexymin = camlidl_malloc(_c12 *
sizeof(
int ), _ctx);
3752 for (_c13 = 0; _c13 < _c12; _c13++) {
3753 _v14 = Field(_v_indexymin, _c13);
3754 indexymin[_c13] = Int_val(_v14);
3757 _c15 = Wosize_val(_v_indexymax);
3758 indexymax = camlidl_malloc(_c15 *
sizeof(
int ), _ctx);
3759 for (_c16 = 0; _c16 < _c15; _c16++) {
3760 _v17 = Field(_v_indexymax, _c16);
3761 indexymax[_c16] = Int_val(_v17);
3764 c_plsurf3dl(x, y, z, nx, ny, opt, clevel, nlevel, indexxmin, indexxmax, indexymin, indexymax);
3787 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3788 camlidl_ctx _ctx = &_ctxs;
3789 _c1 = Wosize_val(_v_arrowx) / Double_wosize;
3790 arrowx = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
3791 for (_c2 = 0; _c2 < _c1; _c2++) {
3792 arrowx[_c2] = Double_field(_v_arrowx, _c2);
3795 _c3 = Wosize_val(_v_arrowy) / Double_wosize;
3796 arrowy = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
3797 for (_c4 = 0; _c4 < _c3; _c4++) {
3798 arrowy[_c4] = Double_field(_v_arrowy, _c4);
3801 fill = Int_val(_v_fill);
3817 xmin = Double_val(_v_xmin);
3818 xmax = Double_val(_v_xmax);
3819 ymin = Double_val(_v_ymin);
3820 ymax = Double_val(_v_ymax);
3831 digmax = Int_val(_v_digmax);
3832 digits = Int_val(_v_digits);
3841 window_id = Int_val(_v_window_id);
3852 digmax = Int_val(_v_digmax);
3853 digits = Int_val(_v_digits);
3871 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3872 camlidl_ctx _ctx = &_ctxs;
3873 _c1 = Wosize_val(_v_x) / Double_wosize;
3874 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
3875 for (_c2 = 0; _c2 < _c1; _c2++) {
3876 x[_c2] = Double_field(_v_x, _c2);
3879 _c3 = Wosize_val(_v_y) / Double_wosize;
3880 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
3881 for (_c4 = 0; _c4 < _c3; _c4++) {
3882 y[_c4] = Double_field(_v_y, _c4);
3885 code = Int_val(_v_code);
3897 digmax = Int_val(_v_digmax);
3898 digits = Int_val(_v_digits);
3913 fmt = String_val(_v_fmt);
3922 aspect = Double_val(_v_aspect);
3939 xmin = Double_val(_v_xmin);
3940 xmax = Double_val(_v_xmax);
3941 ymin = Double_val(_v_ymin);
3942 ymax = Double_val(_v_ymax);
3943 aspect = Double_val(_v_aspect);
3944 c_plvpas(xmin, xmax, ymin, ymax, aspect);
3958 xmin = Double_val(_v_xmin);
3959 xmax = Double_val(_v_xmax);
3960 ymin = Double_val(_v_ymin);
3961 ymax = Double_val(_v_ymax);
3996 basex = Double_val(_v_basex);
3997 basey = Double_val(_v_basey);
3998 height = Double_val(_v_height);
3999 xmin = Double_val(_v_xmin);
4000 xmax = Double_val(_v_xmax);
4001 ymin = Double_val(_v_ymin);
4002 ymax = Double_val(_v_ymax);
4003 zmin = Double_val(_v_zmin);
4004 zmax = Double_val(_v_zmax);
4005 alt = Double_val(_v_alt);
4006 az = Double_val(_v_az);
4007 c_plw3d(basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az);
4013 return camlidl_plplot_core_c_plw3d(
argv[0],
argv[1],
argv[2],
argv[3],
argv[4],
argv[5],
argv[6],
argv[7],
argv[8],
argv[9],
argv[10]);
4020 width = Double_val(_v_width);
4035 xmin = Double_val(_v_xmin);
4036 xmax = Double_val(_v_xmax);
4037 ymin = Double_val(_v_ymin);
4038 ymax = Double_val(_v_ymax);
4051 mode = Int_val(_v_mode);
4054 _vres = Val_int(*status);
4065 opt = String_val(_v_opt);
4066 optarg = String_val(_v_optarg);
4080 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4081 camlidl_ctx _ctx = &_ctxs;
4090 value _vres[2] = { 0, 0, };
4092 _c1 = Wosize_val(_v_f);
4093 f = camlidl_malloc(_c1 *
sizeof(
double *), _ctx);
4094 for (_c2 = 0; _c2 < _c1; _c2++) {
4095 _v3 = Field(_v_f, _c2);
4096 _c4 = Wosize_val(_v3) / Double_wosize;
4097 f[_c2] = camlidl_malloc(_c4 *
sizeof(
double ), _ctx);
4098 for (_c5 = 0; _c5 < _c4; _c5++) {
4099 f[_c2][_c5] = Double_field(_v3, _c5);
4107 Begin_roots_block(_vres, 2)
4108 _vres[0] = caml_copy_double(*fmax);
4109 _vres[1] = caml_copy_double(*fmin);
4110 _vresult = camlidl_alloc_small(2, 0);
4111 Field(_vresult, 0) = _vres[0];
4112 Field(_vresult, 1) = _vres[1];
4142 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4143 camlidl_ctx _ctx = &_ctxs;
4144 _c1 = Wosize_val(_v_f);
4145 f = camlidl_malloc(_c1 *
sizeof(
double *), _ctx);
4146 for (_c2 = 0; _c2 < _c1; _c2++) {
4147 _v3 = Field(_v_f, _c2);
4148 _c4 = Wosize_val(_v3) / Double_wosize;
4149 f[_c2] = camlidl_malloc(_c4 *
sizeof(
double ), _ctx);
4150 for (_c5 = 0; _c5 < _c4; _c5++) {
4151 f[_c2][_c5] = Double_field(_v3, _c5);
4156 kx = Int_val(_v_kx);
4157 lx = Int_val(_v_lx);
4158 ky = Int_val(_v_ky);
4159 ly = Int_val(_v_ly);
4160 _c6 = Wosize_val(_v_clevel) / Double_wosize;
4161 clevel = camlidl_malloc(_c6 *
sizeof(
double ), _ctx);
4162 for (_c7 = 0; _c7 < _c6; _c7++) {
4163 clevel[_c7] = Double_field(_v_clevel, _c7);
4166 ml_plcont(f, nx, ny, kx, lx, ky, ly, clevel, nlevel);
4191 value _v_rectangular)
4215 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4216 camlidl_ctx _ctx = &_ctxs;
4217 _c1 = Wosize_val(_v_a);
4218 a = camlidl_malloc(_c1 *
sizeof(
double *), _ctx);
4219 for (_c2 = 0; _c2 < _c1; _c2++) {
4220 _v3 = Field(_v_a, _c2);
4221 _c4 = Wosize_val(_v3) / Double_wosize;
4222 a[_c2] = camlidl_malloc(_c4 *
sizeof(
double ), _ctx);
4223 for (_c5 = 0; _c5 < _c4; _c5++) {
4224 a[_c2][_c5] = Double_field(_v3, _c5);
4229 left = Double_val(_v_left);
4230 right = Double_val(_v_right);
4231 bottom = Double_val(_v_bottom);
4232 top = Double_val(_v_top);
4233 shade_min = Double_val(_v_shade_min);
4234 shade_max = Double_val(_v_shade_max);
4235 sh_cmap = Int_val(_v_sh_cmap);
4236 sh_color = Double_val(_v_sh_color);
4237 sh_width = Double_val(_v_sh_width);
4238 min_color = Int_val(_v_min_color);
4239 min_width = Double_val(_v_min_width);
4240 max_color = Int_val(_v_max_color);
4241 max_width = Double_val(_v_max_width);
4242 rectangular = Int_val(_v_rectangular);
4243 ml_plshade(a, nx, ny, left, right, bottom, top, shade_min, shade_max, sh_cmap, sh_color, sh_width, min_color, min_width, max_color, max_width, rectangular);
4250 return camlidl_plplot_core_ml_plshade(
argv[0],
argv[1],
argv[2],
argv[3],
argv[4],
argv[5],
argv[6],
argv[7],
argv[8],
argv[9],
argv[10],
argv[11],
argv[12],
argv[13],
argv[14]);
4260 value _v_fill_width,
4261 value _v_cont_color,
4262 value _v_cont_width,
4263 value _v_rectangular)
4285 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4286 camlidl_ctx _ctx = &_ctxs;
4287 _c1 = Wosize_val(_v_a);
4288 a = camlidl_malloc(_c1 *
sizeof(
double *), _ctx);
4289 for (_c2 = 0; _c2 < _c1; _c2++) {
4290 _v3 = Field(_v_a, _c2);
4291 _c4 = Wosize_val(_v3) / Double_wosize;
4292 a[_c2] = camlidl_malloc(_c4 *
sizeof(
double ), _ctx);
4293 for (_c5 = 0; _c5 < _c4; _c5++) {
4294 a[_c2][_c5] = Double_field(_v3, _c5);
4299 xmin = Double_val(_v_xmin);
4300 xmax = Double_val(_v_xmax);
4301 ymin = Double_val(_v_ymin);
4302 ymax = Double_val(_v_ymax);
4303 _c6 = Wosize_val(_v_clevel) / Double_wosize;
4304 clevel = camlidl_malloc(_c6 *
sizeof(
double ), _ctx);
4305 for (_c7 = 0; _c7 < _c6; _c7++) {
4306 clevel[_c7] = Double_field(_v_clevel, _c7);
4309 fill_width = Double_val(_v_fill_width);
4310 cont_color = Int_val(_v_cont_color);
4311 cont_width = Double_val(_v_cont_width);
4312 rectangular = Int_val(_v_rectangular);
4313 ml_plshades(a, nx, ny, xmin, xmax, ymin, ymax, clevel, nlevel, fill_width, cont_color, cont_width, rectangular);
4350 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4351 camlidl_ctx _ctx = &_ctxs;
4352 _c1 = Wosize_val(_v_idata);
4353 idata = camlidl_malloc(_c1 *
sizeof(
double *), _ctx);
4354 for (_c2 = 0; _c2 < _c1; _c2++) {
4355 _v3 = Field(_v_idata, _c2);
4356 _c4 = Wosize_val(_v3) / Double_wosize;
4357 idata[_c2] = camlidl_malloc(_c4 *
sizeof(
double ), _ctx);
4358 for (_c5 = 0; _c5 < _c4; _c5++) {
4359 idata[_c2][_c5] = Double_field(_v3, _c5);
4364 xmin = Double_val(_v_xmin);
4365 xmax = Double_val(_v_xmax);
4366 ymin = Double_val(_v_ymin);
4367 ymax = Double_val(_v_ymax);
4368 zmin = Double_val(_v_zmin);
4369 zmax = Double_val(_v_zmax);
4370 valuemin = Double_val(_v_valuemin);
4371 valuemax = Double_val(_v_valuemax);
4372 ml_plimagefr(idata, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax);
4402 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4403 camlidl_ctx _ctx = &_ctxs;
4404 _c1 = Wosize_val(_v_u);
4405 u = camlidl_malloc(_c1 *
sizeof(
double *), _ctx);
4406 for (_c2 = 0; _c2 < _c1; _c2++) {
4407 _v3 = Field(_v_u, _c2);
4408 _c4 = Wosize_val(_v3) / Double_wosize;
4409 u[_c2] = camlidl_malloc(_c4 *
sizeof(
double ), _ctx);
4410 for (_c5 = 0; _c5 < _c4; _c5++) {
4411 u[_c2][_c5] = Double_field(_v3, _c5);
4416 _c6 = Wosize_val(_v_v);
4417 v = camlidl_malloc(_c6 *
sizeof(
double *), _ctx);
4418 for (_c7 = 0; _c7 < _c6; _c7++) {
4419 _v8 = Field(_v_v, _c7);
4420 _c9 = Wosize_val(_v8) / Double_wosize;
4421 v[_c7] = camlidl_malloc(_c9 *
sizeof(
double ), _ctx);
4422 for (_c10 = 0; _c10 < _c9; _c10++) {
4423 v[_c7][_c10] = Double_field(_v8, _c10);
4428 scale = Double_val(_v_scale);
4446 name = String_val(_v_name);
4447 minx = Double_val(_v_minx);
4448 maxx = Double_val(_v_maxx);
4449 miny = Double_val(_v_miny);
4450 maxy = Double_val(_v_maxy);
4461 value _v_plotentries)
4473 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4474 camlidl_ctx _ctx = &_ctxs;
4475 name = String_val(_v_name);
4476 minx = Double_val(_v_minx);
4477 maxx = Double_val(_v_maxx);
4478 miny = Double_val(_v_miny);
4479 maxy = Double_val(_v_maxy);
4480 _c1 = Wosize_val(_v_plotentries);
4481 plotentries = camlidl_malloc(_c1 *
sizeof(
int ), _ctx);
4482 for (_c2 = 0; _c2 < _c1; _c2++) {
4483 _v3 = Field(_v_plotentries, _c2);
4484 plotentries[_c2] = Int_val(_v3);
4504 value _v_plotentries)
4517 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4518 camlidl_ctx _ctx = &_ctxs;
4519 name = String_val(_v_name);
4520 string = String_val(_v_string);
4521 minx = Double_val(_v_minx);
4522 maxx = Double_val(_v_maxx);
4523 miny = Double_val(_v_miny);
4524 maxy = Double_val(_v_maxy);
4525 _c1 = Wosize_val(_v_plotentries);
4526 plotentries = camlidl_malloc(_c1 *
sizeof(
int ), _ctx);
4527 for (_c2 = 0; _c2 < _c1; _c2++) {
4528 _v3 = Field(_v_plotentries, _c2);
4529 plotentries[_c2] = Int_val(_v3);
4564 name = String_val(_v_name);
4565 dx = Double_val(_v_dx);
4566 dy = Double_val(_v_dy);
4567 just = Double_val(_v_just);
4568 text = String_val(_v_text);
4569 minx = Double_val(_v_minx);
4570 maxx = Double_val(_v_maxx);
4571 miny = Double_val(_v_miny);
4572 maxy = Double_val(_v_maxy);
4573 plotentry = Int_val(_v_plotentry);
4589 value _v_plotentries)
4601 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4602 camlidl_ctx _ctx = &_ctxs;
4603 name = String_val(_v_name);
4604 minx = Double_val(_v_minx);
4605 maxx = Double_val(_v_maxx);
4606 miny = Double_val(_v_miny);
4607 maxy = Double_val(_v_maxy);
4608 _c1 = Wosize_val(_v_plotentries);
4609 plotentries = camlidl_malloc(_c1 *
sizeof(
int ), _ctx);
4610 for (_c2 = 0; _c2 < _c1; _c2++) {
4611 _v3 = Field(_v_plotentries, _c2);
4612 plotentries[_c2] = Int_val(_v3);
4639 dlong = Double_val(_v_dlong);
4640 dlat = Double_val(_v_dlat);
4641 minlong = Double_val(_v_minlong);
4642 maxlong = Double_val(_v_maxlong);
4643 minlat = Double_val(_v_minlat);
4644 maxlat = Double_val(_v_maxlat);
4677 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4678 camlidl_ctx _ctx = &_ctxs;
4679 _c1 = Wosize_val(_v_x) / Double_wosize;
4680 x = camlidl_malloc(_c1 *
sizeof(
double ), _ctx);
4681 for (_c2 = 0; _c2 < _c1; _c2++) {
4682 x[_c2] = Double_field(_v_x, _c2);
4685 _c3 = Wosize_val(_v_y) / Double_wosize;
4686 y = camlidl_malloc(_c3 *
sizeof(
double ), _ctx);
4687 for (_c4 = 0; _c4 < _c3; _c4++) {
4688 y[_c4] = Double_field(_v_y, _c4);
4691 _c5 = Wosize_val(_v_z) / Double_wosize;
4692 z = camlidl_malloc(_c5 *
sizeof(
double ), _ctx);
4693 for (_c6 = 0; _c6 < _c5; _c6++) {
4694 z[_c6] = Double_field(_v_z, _c6);
4697 _c7 = Wosize_val(_v_draw);
4698 draw = camlidl_malloc(_c7 *
sizeof(
int ), _ctx);
4699 for (_c8 = 0; _c8 < _c7; _c8++) {
4700 _v9 = Field(_v_draw, _c8);
4701 draw[_c8] = Int_val(_v9);
4704 ifcc = Int_val(_v_ifcc);
4721 value _vres[2] = { 0, 0, };
4723 x = Double_val(_v_x);
4724 y = Double_val(_v_y);
4728 Begin_roots_block(_vres, 2)
4729 _vres[0] = caml_copy_double(*tx);
4730 _vres[1] = caml_copy_double(*ty);
4731 _vresult = camlidl_alloc_small(2, 0);
4732 Field(_vresult, 0) = _vres[0];
4733 Field(_vresult, 1) = _vres[1];
4750 _vres = Val_int(_res);
4760 _vres = caml_copy_double(_res);
4770 _vres = caml_copy_double(_res);
4780 _vres = caml_copy_double(_res);
void ml_plshade(const PLFLT **a, PLINT nx, PLINT ny, PLFLT left, PLFLT right, PLFLT bottom, PLFLT top, PLFLT shade_min, PLFLT shade_max, PLINT sh_cmap, PLFLT sh_color, PLFLT sh_width, PLINT min_color, PLFLT min_width, PLINT max_color, PLFLT max_width, PLBOOL rectangular)
void ml_plshades(const PLFLT **a, PLINT nx, PLINT ny, PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax, PLFLT *clevel, PLINT nlevel, PLFLT fill_width, PLINT cont_color, PLFLT cont_width, PLBOOL rectangular)
void plplot_check_nonzero_result(int result)
void ml_plvect(const PLFLT **u, const PLFLT **v, PLINT nx, PLINT ny, PLFLT scale)
void ml_plmapfill(PLCHAR_VECTOR name, PLFLT minx, PLFLT maxx, PLFLT miny, PLFLT maxy, PLINT_VECTOR plotentries, PLINT nplotentries)
void ml_plpoly3(PLINT n, PLFLT *x, PLFLT *y, PLFLT *z, PLINT ndraw, PLBOOL *draw, PLBOOL ifcc)
void ml_plcont(const PLFLT **f, PLINT nx, PLINT ny, PLINT kx, PLINT lx, PLINT ky, PLINT ly, PLFLT *clevel, PLINT nlevel)
void ml_pltr0(double x, double y, double *tx, double *ty)
void ml_plmeridians(PLFLT dlong, PLFLT dlat, PLFLT minlong, PLFLT maxlong, PLFLT minlat, PLFLT maxlat)
void ml_plimagefr(const PLFLT **idata, PLINT nx, PLINT ny, PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax, PLFLT zmin, PLFLT zmax, PLFLT valuemin, PLFLT valuemax)
int plg_current_col0(void)
void ml_plmapline(PLCHAR_VECTOR name, PLFLT minx, PLFLT maxx, PLFLT miny, PLFLT maxy, PLINT_VECTOR plotentries, PLINT nplotentries)
void ml_plmaptex(PLCHAR_VECTOR name, PLFLT dx, PLFLT dy, PLFLT just, PLCHAR_VECTOR text, PLFLT minx, PLFLT maxx, PLFLT miny, PLFLT maxy, PLINT plotentry)
void ml_plmap(PLCHAR_VECTOR name, PLFLT minx, PLFLT maxx, PLFLT miny, PLFLT maxy)
PLFLT plg_current_col1(void)
void ml_plmapstring(PLCHAR_VECTOR name, PLCHAR_VECTOR string, PLFLT minx, PLFLT maxx, PLFLT miny, PLFLT maxy, PLINT_VECTOR plotentries, PLINT nplotentries)
PLDLLIMPEXP_CXX void fill(PLINT n, const PLFLT *x, const PLFLT *y)
void c_plarc(PLFLT x, PLFLT y, PLFLT a, PLFLT b, PLFLT angle1, PLFLT angle2, PLFLT rotate, PLBOOL fill)
PLINT c_plsetopt(PLCHAR_VECTOR opt, PLCHAR_VECTOR opt_arg)
void c_plbox(PLCHAR_VECTOR xopt, PLFLT xtick, PLINT nxsub, PLCHAR_VECTOR yopt, PLFLT ytick, PLINT nysub)
void c_plbox3(PLCHAR_VECTOR xopt, PLCHAR_VECTOR xlabel, PLFLT xtick, PLINT nxsub, PLCHAR_VECTOR yopt, PLCHAR_VECTOR ylabel, PLFLT ytick, PLINT nysub, PLCHAR_VECTOR zopt, PLCHAR_VECTOR zlabel, PLFLT ztick, PLINT nzsub)
void c_plaxes(PLFLT x0, PLFLT y0, PLCHAR_VECTOR xopt, PLFLT xtick, PLINT nxsub, PLCHAR_VECTOR yopt, PLFLT ytick, PLINT nysub)
void c_pl_setcontlabelparam(PLFLT offset, PLFLT size, PLFLT spacing, PLINT active)
void c_pl_setcontlabelformat(PLINT lexp, PLINT sigdig)
void c_plglevel(PLINT *p_level)
void c_plgdidev(PLFLT *p_mar, PLFLT *p_aspect, PLFLT *p_jx, PLFLT *p_jy)
void c_plscompression(PLINT compression)
void c_plsfam(PLINT fam, PLINT num, PLINT bmax)
void c_plgver(char *p_ver)
void c_plstart(PLCHAR_VECTOR devname, PLINT nx, PLINT ny)
void c_plszax(PLINT digmax, PLINT digits)
void c_plsdidev(PLFLT mar, PLFLT aspect, PLFLT jx, PLFLT jy)
void c_plsdiplt(PLFLT xmin, PLFLT ymin, PLFLT xmax, PLFLT ymax)
void c_plstar(PLINT nx, PLINT ny)
void c_plssub(PLINT nx, PLINT ny)
void c_plsdimap(PLINT dimxmin, PLINT dimxmax, PLINT dimymin, PLINT dimymax, PLFLT dimxpmm, PLFLT dimypmm)
void c_plgchr(PLFLT *p_def, PLFLT *p_ht)
void c_plgvpw(PLFLT *p_xmin, PLFLT *p_xmax, PLFLT *p_ymin, PLFLT *p_ymax)
void plsxwin(PLINT window_id)
void c_plgzax(PLINT *p_digmax, PLINT *p_digits)
void c_plgdev(char *p_dev)
void c_plgfnam(char *fnam)
void c_plgfam(PLINT *p_fam, PLINT *p_num, PLINT *p_bmax)
void c_plwidth(PLFLT width)
void c_plgxax(PLINT *p_digmax, PLINT *p_digits)
void c_plcpstrm(PLINT iplsr, PLINT flags)
void c_plgfci(PLUNICODE *p_fci)
void c_plgcompression(PLINT *compression)
void c_plsstrm(PLINT strm)
void c_plgstrm(PLINT *p_strm)
void c_plsyax(PLINT digmax, PLINT digits)
void c_plprec(PLINT setp, PLINT prec)
void c_plgdiplt(PLFLT *p_xmin, PLFLT *p_ymin, PLFLT *p_xmax, PLFLT *p_ymax)
void c_plsfci(PLUNICODE fci)
void c_plsxax(PLINT digmax, PLINT digits)
void c_plsdiori(PLFLT rot)
void c_plspage(PLFLT xp, PLFLT yp, PLINT xleng, PLINT yleng, PLINT xoff, PLINT yoff)
void c_plmkstrm(PLINT *p_strm)
void c_plgpage(PLFLT *p_xp, PLFLT *p_yp, PLINT *p_xleng, PLINT *p_yleng, PLINT *p_xoff, PLINT *p_yoff)
void c_plfontld(PLINT ifont)
void c_plgyax(PLINT *p_digmax, PLINT *p_digits)
void c_plsdiplz(PLFLT xmin, PLFLT ymin, PLFLT xmax, PLFLT ymax)
void c_plsdev(PLCHAR_VECTOR devname)
void c_plsfnam(PLCHAR_VECTOR fnam)
void c_plgvpd(PLFLT *p_xmin, PLFLT *p_xmax, PLFLT *p_ymin, PLFLT *p_ymax)
void c_plgdiori(PLFLT *p_rot)
void c_plscmap1la(PLINT itype, PLINT npts, PLFLT_VECTOR intensity, PLFLT_VECTOR coord1, PLFLT_VECTOR coord2, PLFLT_VECTOR coord3, PLFLT_VECTOR alpha, PLINT_VECTOR alt_hue_path)
void c_plgcolbga(PLINT *r, PLINT *g, PLINT *b, PLFLT *alpha)
void c_plgcmap1_range(PLFLT *min_color, PLFLT *max_color)
void c_plxormod(PLINT mode, PLINT *status)
static PLFLT value(double n1, double n2, double hue)
void c_plgcol0(PLINT icol0, PLINT *r, PLINT *g, PLINT *b)
void c_plspal1(PLCHAR_VECTOR filename, PLBOOL interpolate)
PLINT c_plgdrawmode(void)
void c_plcol0(PLINT icol0)
void c_plscmap1_range(PLFLT min_color, PLFLT max_color)
void c_plscmap1l(PLINT itype, PLINT npts, PLFLT_VECTOR intensity, PLFLT_VECTOR coord1, PLFLT_VECTOR coord2, PLFLT_VECTOR coord3, PLINT_VECTOR alt_hue_path)
void c_pltext(void)
Switches to text screen.
void c_plscolbga(PLINT r, PLINT g, PLINT b, PLFLT alpha)
void c_plcol1(PLFLT col1)
void c_plscmap0a(PLINT_VECTOR r, PLINT_VECTOR g, PLINT_VECTOR b, PLFLT_VECTOR alpha, PLINT ncol0)
void c_plrgbhls(PLFLT r, PLFLT g, PLFLT b, PLFLT *p_h, PLFLT *p_l, PLFLT *p_s)
void c_plscmap0(PLINT_VECTOR r, PLINT_VECTOR g, PLINT_VECTOR b, PLINT ncol0)
void c_plgcol0a(PLINT icol0, PLINT *r, PLINT *g, PLINT *b, PLFLT *alpha)
void c_plscmap1(PLINT_VECTOR r, PLINT_VECTOR g, PLINT_VECTOR b, PLINT ncol1)
void c_plsdrawmode(PLINT mode)
void c_plscol0a(PLINT icol0, PLINT r, PLINT g, PLINT b, PLFLT alpha)
void c_plscol0(PLINT icol0, PLINT r, PLINT g, PLINT b)
void c_plseed(unsigned int seed)
void c_plscmap1a(PLINT_VECTOR r, PLINT_VECTOR g, PLINT_VECTOR b, PLFLT_VECTOR alpha, PLINT ncol1)
void c_plscolbg(PLINT r, PLINT g, PLINT b)
void c_plscolor(PLINT color)
void c_plscmap0n(PLINT ncol0)
void c_plscmap1n(PLINT ncol1)
void c_plspal0(PLCHAR_VECTOR filename)
void c_plgcolbg(PLINT *r, PLINT *g, PLINT *b)
void c_plhlsrgb(PLFLT h, PLFLT l, PLFLT s, PLFLT *p_r, PLFLT *p_g, PLFLT *p_b)
void c_plfill3(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_VECTOR z)
void c_plfill(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y)
void c_plgradient(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT angle)
void c_plhist(PLINT n, PLFLT_VECTOR data, PLFLT datmin, PLFLT datmax, PLINT nbin, PLINT flags)
void c_plbin(PLINT nbin, PLFLT_VECTOR x, PLFLT_VECTOR y, PLINT flags)
void c_plimage(PLFLT_MATRIX idata, PLINT nx, PLINT ny, PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax, PLFLT zmin, PLFLT zmax, PLFLT Dxmin, PLFLT Dxmax, PLFLT Dymin, PLFLT Dymax)
void c_plline(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y)
void c_plline3(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_VECTOR z)
void c_plpath(PLINT n, PLFLT x1, PLFLT y1, PLFLT x2, PLFLT y2)
void c_plstyl(PLINT nms, PLINT_VECTOR mark, PLINT_VECTOR space)
void c_pljoin(PLFLT x1, PLFLT y1, PLFLT x2, PLFLT y2)
void plMinMax2dGrid(PLFLT_MATRIX f, PLINT nx, PLINT ny, PLFLT *fnmax, PLFLT *fnmin)
void c_plsurf3d(PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_MATRIX z, PLINT nx, PLINT ny, PLINT opt, PLFLT_VECTOR clevel, PLINT nlevel)
void c_plmeshc(PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_MATRIX z, PLINT nx, PLINT ny, PLINT opt, PLFLT_VECTOR clevel, PLINT nlevel)
void c_plot3dcl(PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_MATRIX z, PLINT nx, PLINT ny, PLINT opt, PLFLT_VECTOR clevel, PLINT nlevel, PLINT indexxmin, PLINT indexxmax, PLINT_VECTOR indexymin, PLINT_VECTOR indexymax)
void c_plsurf3dl(PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_MATRIX z, PLINT nx, PLINT ny, PLINT opt, PLFLT_VECTOR clevel, PLINT nlevel, PLINT indexxmin, PLINT indexxmax, PLINT_VECTOR indexymin, PLINT_VECTOR indexymax)
void c_plmesh(PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_MATRIX z, PLINT nx, PLINT ny, PLINT opt)
void c_plot3d(PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_MATRIX z, PLINT nx, PLINT ny, PLINT opt, PLBOOL side)
void c_plot3dc(PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_MATRIX z, PLINT nx, PLINT ny, PLINT opt, PLFLT_VECTOR clevel, PLINT nlevel)
void c_pllightsource(PLFLT x, PLFLT y, PLFLT z)
void c_plcalc_world(PLFLT rx, PLFLT ry, PLFLT *wx, PLFLT *wy, PLINT *window)
void c_plgspa(PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax)
@ PL_FCI_WEIGHT_UNCHANGED
@ PL_COLORBAR_SHADE_LABEL
@ PL_COLORBAR_ORIENT_BOTTOM
@ PL_COLORBAR_BOUNDING_BOX
@ PL_COLORBAR_ORIENT_RIGHT
@ PL_COLORBAR_LABEL_BOTTOM
@ PL_COLORBAR_ORIENT_LEFT
@ PL_COLORBAR_LABEL_RIGHT
@ PL_FCI_FAMILY_UNCHANGED
@ PL_HIST_IGNORE_OUTLIERS
@ PL_WORLD_COORDINATES_DEFINED
value camlidl_plplot_core_c_plscmap1la(value _v_itype, value _v_intensity, value _v_coord1, value _v_coord2, value _v_coord3, value _v_alpha, value _v_alt_hue_path)
int camlidl_ml2c_plplot_core_enum_plplot_bin_enum(value _v1)
value camlidl_plplot_core_c_plpath(value _v_n, value _v_x1, value _v_y1, value _v_x2, value _v_y2)
value camlidl_plplot_core_c_plptex3_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plpoin3(value _v_x, value _v_y, value _v_z, value _v_code)
value camlidl_plplot_core_ml_plshades_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plspal0(value _v_filename)
value camlidl_plplot_core_c_plgspa(value _unit)
value camlidl_c2ml_plplot_core_enum_plplot_fci_family_enum(int _c1)
void camlidl_ml2c_plplot_core_plplot3d_style(value _v1, plplot3d_style *_c2, camlidl_ctx _ctx)
value camlidl_plplot_core_c_plscmap1n(value _v_ncol1)
value camlidl_c2ml_plplot_core_plplot_colorbar_opt(plplot_colorbar_opt *_c2, camlidl_ctx _ctx)
value camlidl_plplot_core_c_plbop(value _unit)
value camlidl_plplot_core_c_plcol0(value _v_icol0)
value camlidl_plplot_core_c_plscolbg(value _v_r, value _v_g, value _v_b)
value camlidl_plplot_core_c_plbox(value _v_xopt, value _v_xtick, value _v_nxsub, value _v_yopt, value _v_ytick, value _v_nysub)
value camlidl_plplot_core_c_plscmap1la_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plsurf3dl_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plsdiplt(value _v_xmin, value _v_ymin, value _v_xmax, value _v_ymax)
value camlidl_plplot_core_c_plstripd(value _v_id)
value camlidl_plplot_core_ml_plshade(value _v_a, value _v_left, value _v_right, value _v_bottom, value _v_top, value _v_shade_min, value _v_shade_max, value _v_sh_cmap, value _v_sh_color, value _v_sh_width, value _v_min_color, value _v_min_width, value _v_max_color, value _v_max_width, value _v_rectangular)
value camlidl_plplot_core_c_plcol1(value _v_col1)
value camlidl_plplot_core_c_plspal1(value _v_filename, value _v_interpolate)
value camlidl_plplot_core_c_plgcol0a(value _v_icol0)
value camlidl_plplot_core_c_plenv_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_pllightsource(value _v_x, value _v_y, value _v_z)
void camlidl_ml2c_plplot_core_plplot_run_level(value _v1, plplot_run_level *_c2, camlidl_ctx _ctx)
value camlidl_plplot_core_c_plstring(value _v_x, value _v_y, value _v_string)
value camlidl_plplot_core_c_plgfam(value _unit)
value camlidl_plplot_core_c_plstyl(value _v_mark, value _v_space)
value camlidl_plplot_core_c_plbox3_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plline(value _v_x, value _v_y)
value camlidl_plplot_core_c_plsurf3d(value _v_x, value _v_y, value _v_z, value _v_opt, value _v_clevel)
value camlidl_c2ml_plplot_core_enum_plplot_bin_enum(int _c1)
value camlidl_plplot_core_c_plot3dc(value _v_x, value _v_y, value _v_z, value _v_opt, value _v_clevel)
value camlidl_plplot_core_c_plsetopt(value _v_opt, value _v_optarg)
value camlidl_plplot_core_c_pladv(value _v_page)
value camlidl_plplot_core_c_plspage(value _v_xp, value _v_yp, value _v_xleng, value _v_yleng, value _v_xoff, value _v_yoff)
value camlidl_plplot_core_c_plpat(value _v_inc, value _v_del)
value camlidl_plplot_core_ml_plimagefr_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plgcolbga(value _unit)
value camlidl_plplot_core_c_plbin(value _v_x, value _v_y, value _v_opt)
value camlidl_plplot_core_c_plreplot(value _unit)
value camlidl_plplot_core_c_plsyax(value _v_digmax, value _v_digits)
value camlidl_plplot_core_c_plcalc_world(value _v_rx, value _v_ry)
value camlidl_plplot_core_c_plsfci(value _v_fci)
value camlidl_plplot_core_c_plcpstrm(value _v_iplsr, value _v_flags)
value camlidl_plplot_core_c_plsdimap(value _v_dimxmin, value _v_dimxmax, value _v_dimymin, value _v_dimymax, value _v_dimxpmm, value _v_dimypmm)
value camlidl_plplot_core_c_plgra(value _unit)
value camlidl_plplot_core_c_plsdiori(value _v_rot)
value camlidl_plplot_core_c_plscmap1(value _v_r, value _v_g, value _v_b)
value camlidl_plplot_core_c_plsfam(value _v_fam, value _v_num, value _v_bmax)
value camlidl_plplot_core_c_plsdidev(value _v_mar, value _v_aspect, value _v_jx, value _v_jy)
value camlidl_plplot_core_c_plbox3(value _v_xopt, value _v_xlabel, value _v_xtick, value _v_nxsub, value _v_yopt, value _v_ylabel, value _v_ytick, value _v_nysub, value _v_zopt, value _v_zlabel, value _v_ztick, value _v_nzsub)
value camlidl_plplot_core_c_plwind(value _v_xmin, value _v_xmax, value _v_ymin, value _v_ymax)
value camlidl_plplot_core_ml_plmapfill_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plwidth(value _v_width)
value camlidl_plplot_core_c_plflush(value _unit)
value camlidl_plplot_core_c_pltext(value _unit)
value camlidl_plplot_core_c_plgdidev(value _unit)
value camlidl_plplot_core_c_plssym(value _v_def, value _v_scale)
value camlidl_plplot_core_c_plsstrm(value _v_strm)
value camlidl_c2ml_plplot_core_enum_plplot_fci_weight_enum(int _c1)
int camlidl_ml2c_plplot_core_enum_plplot_draw_mode_enum(value _v1)
value camlidl_plplot_core_ml_plmaptex_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plgxax(value _unit)
value camlidl_plplot_core_c_plscompression(value _v_compression)
value camlidl_plplot_core_c_plmeshc(value _v_x, value _v_y, value _v_z, value _v_opt, value _v_clevel)
value camlidl_plplot_core_c_plenv(value _v_xmin, value _v_xmax, value _v_ymin, value _v_ymax, value _v_just, value _v_axis)
value camlidl_plplot_core_c_plgcolbg(value _unit)
value camlidl_plplot_core_c_plpoin(value _v_x, value _v_y, value _v_code)
int camlidl_ml2c_plplot_core_enum_plplot_run_level_enum(value _v1)
value camlidl_plplot_core_c_plerrx(value _v_xmin, value _v_xmax, value _v_y)
value camlidl_plplot_core_c_plspause(value _v_pause)
int camlidl_transl_table_plplot_core_enum_9[4]
value camlidl_plplot_core_c_plsmin(value _v_def, value _v_scale)
value camlidl_plplot_core_ml_plcont_bytecode(value *argv, int argn)
int camlidl_ml2c_plplot_core_enum_plplot_fci_weight_enum(value _v1)
value camlidl_plplot_core_ml_plmapfill(value _v_name, value _v_minx, value _v_maxx, value _v_miny, value _v_maxy, value _v_plotentries)
int camlidl_transl_table_plplot_core_enum_7[18]
value camlidl_plplot_core_c_plgchr(value _unit)
value camlidl_plplot_core_c_plgdev(value _unit)
value camlidl_plplot_core_plgchrht(value _unit)
int camlidl_transl_table_plplot_core_enum_1[11]
value camlidl_plplot_core_c_plfont(value _v_ifont)
value camlidl_plplot_core_c_plgzax(value _unit)
value camlidl_plplot_core_c_plerry(value _v_x, value _v_ymin, value _v_ymax)
value camlidl_c2ml_plplot_core_enum_plplot_colorbar_enum(int _c1)
value camlidl_plplot_core_c_plsurf3dl(value _v_x, value _v_y, value _v_z, value _v_opt, value _v_clevel, value _v_indexxmin, value _v_indexymin, value _v_indexymax)
value camlidl_plplot_core_c_plscol0(value _v_icol0, value _v_r, value _v_g, value _v_b)
value camlidl_plplot_core_c_plstar(value _v_nx, value _v_ny)
value camlidl_plplot_core_c_plctime(value _v_year, value _v_month, value _v_day, value _v_hour, value _v_min, value _v_sec)
value camlidl_plplot_core_c_plsvect(value _v_arrowx, value _v_arrowy, value _v_fill)
value camlidl_plplot_core_c_pllsty(value _v_lin)
value camlidl_plplot_core_c_plscmap0(value _v_r, value _v_g, value _v_b)
value camlidl_plplot_core_c_plgdrawmode(value _unit)
value camlidl_plplot_core_c_plscol0a(value _v_icol0, value _v_r, value _v_g, value _v_b, value _v_alpha)
value camlidl_plplot_core_c_plschr(value _v_def, value _v_scale)
int camlidl_transl_table_plplot_core_enum_10[3]
value camlidl_plplot_core_c_pljoin(value _v_x1, value _v_y1, value _v_x2, value _v_y2)
value camlidl_plplot_core_c_plscmap1_range(value _v_min_color, value _v_max_color)
value camlidl_plplot_core_ml_plmaptex(value _v_name, value _v_dx, value _v_dy, value _v_just, value _v_text, value _v_minx, value _v_maxx, value _v_miny, value _v_maxy, value _v_plotentry)
value camlidl_c2ml_plplot_core_plplot3d_style(plplot3d_style *_c2, camlidl_ctx _ctx)
value camlidl_c2ml_plplot_core_enum_plplot_position_enum(int _c1)
value camlidl_plplot_core_c_plsdev(value _v_devname)
value camlidl_plplot_core_c_plgvpw(value _unit)
int camlidl_transl_table_plplot_core_enum_5[9]
value camlidl_plplot_core_ml_plmap(value _v_name, value _v_minx, value _v_maxx, value _v_miny, value _v_maxy)
value camlidl_plplot_core_c_plw3d(value _v_basex, value _v_basey, value _v_height, value _v_xmin, value _v_xmax, value _v_ymin, value _v_ymax, value _v_zmin, value _v_zmax, value _v_alt, value _v_az)
value camlidl_plplot_core_c_plscolbga(value _v_r, value _v_g, value _v_b, value _v_alpha)
value camlidl_plplot_core_c_plclear(value _unit)
value camlidl_plplot_core_c_plgcmap1_range(value _unit)
value camlidl_plplot_core_c_plhist(value _v_data, value _v_datmin, value _v_datmax, value _v_nbin, value _v_opt)
value camlidl_plplot_core_c_plsym(value _v_x, value _v_y, value _v_code)
void camlidl_ml2c_plplot_core_plplot_hist_style(value _v1, plplot_hist_style *_c2, camlidl_ctx _ctx)
value camlidl_plplot_core_c_plgradient(value _v_x, value _v_y, value _v_angle)
value camlidl_plplot_core_c_plsxax(value _v_digmax, value _v_digits)
value camlidl_c2ml_plplot_core_plplot_bin_style(plplot_bin_style *_c2, camlidl_ctx _ctx)
int camlidl_transl_table_plplot_core_enum_4[4]
value camlidl_plplot_core_c_plfill(value _v_x, value _v_y)
void camlidl_ml2c_plplot_core_plplot_colorbar_opt(value _v1, plplot_colorbar_opt *_c2, camlidl_ctx _ctx)
value camlidl_plplot_core_c_plrgbhls(value _v_r, value _v_g, value _v_b)
value camlidl_plplot_core_ml_plmapline(value _v_name, value _v_minx, value _v_maxx, value _v_miny, value _v_maxy, value _v_plotentries)
value camlidl_plplot_core_c_plsdimap_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plot3dcl(value _v_x, value _v_y, value _v_z, value _v_opt, value _v_clevel, value _v_indexxmin, value _v_indexymin, value _v_indexymax)
int camlidl_transl_table_plplot_core_enum_2[4]
value camlidl_plplot_core_c_plline3(value _v_x, value _v_y, value _v_z)
value camlidl_c2ml_plplot_core_enum_plplot_hist_enum(int _c1)
value camlidl_plplot_core_ml_pltr0(value _v_x, value _v_y)
value camlidl_plplot_core_ml_plshade_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_pl_setcontlabelformat(value _v_lexp, value _v_sigdig)
value camlidl_plplot_core_ml_plshades(value _v_a, value _v_xmin, value _v_xmax, value _v_ymin, value _v_ymax, value _v_clevel, value _v_fill_width, value _v_cont_color, value _v_cont_width, value _v_rectangular)
value camlidl_plplot_core_c_plsmaj(value _v_def, value _v_scale)
value camlidl_plplot_core_c_plvpas(value _v_xmin, value _v_xmax, value _v_ymin, value _v_ymax, value _v_aspect)
int camlidl_ml2c_plplot_core_enum_plplot_colorbar_enum(value _v1)
int camlidl_transl_table_plplot_core_enum_3[5]
value camlidl_plplot_core_c_plvpor(value _v_xmin, value _v_xmax, value _v_ymin, value _v_ymax)
int camlidl_transl_table_plplot_core_enum_11[4]
value camlidl_plplot_core_c_plptex3(value _v_wx, value _v_wy, value _v_wz, value _v_dx, value _v_dy, value _v_dz, value _v_sx, value _v_sy, value _v_sz, value _v_just, value _v_text)
value camlidl_plplot_core_c_plend1(value _unit)
value camlidl_plplot_core_c_plpsty(value _v_patt)
value camlidl_plplot_core_c_plgstrm(value _unit)
int camlidl_ml2c_plplot_core_enum_plplot3d_style_enum(value _v1)
value camlidl_plplot_core_c_pl_setcontlabelparam(value _v_offset, value _v_size, value _v_spacing, value _v_active)
value camlidl_plplot_core_c_plfamadv(value _unit)
value camlidl_plplot_core_c_plimage(value _v_idata, value _v_xmin, value _v_xmax, value _v_ymin, value _v_ymax, value _v_zmin, value _v_zmax, value _v_Dxmin, value _v_Dxmax, value _v_Dymin, value _v_Dymax)
value camlidl_plplot_core_c_pltimefmt(value _v_fmt)
int camlidl_ml2c_plplot_core_enum_plplot_fci_style_enum(value _v1)
value camlidl_plplot_core_c_plstripa(value _v_id, value _v_pen, value _v_x, value _v_y)
value camlidl_plplot_core_c_plscmap1l(value _v_itype, value _v_intensity, value _v_coord1, value _v_coord2, value _v_coord3, value _v_alt_hue_path)
value camlidl_plplot_core_ml_plmapline_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plmtex3(value _v_side, value _v_disp, value _v_pos, value _v_just, value _v_text)
void camlidl_ml2c_plplot_core_nonzero_error_int(value _v1, nonzero_error_int *_c2, camlidl_ctx _ctx)
value camlidl_c2ml_plplot_core_plplot_run_level(plplot_run_level *_c2, camlidl_ctx _ctx)
value camlidl_plplot_core_c_plgver(value _unit)
value camlidl_c2ml_plplot_core_enum_plplot3d_style_enum(int _c1)
value camlidl_c2ml_plplot_core_enum_plplot_draw_mode_enum(int _c1)
value camlidl_plplot_core_ml_plvect(value _v_u, value _v_v, value _v_scale)
value camlidl_plplot_core_c_plrandd(value _unit)
int camlidl_transl_table_plplot_core_enum_6[9]
value camlidl_plplot_core_c_plctime_bytecode(value *argv, int argn)
value camlidl_c2ml_plplot_core_nonzero_error_int(nonzero_error_int *_c2, camlidl_ctx _ctx)
value camlidl_plplot_core_c_plot3dcl_bytecode(value *argv, int argn)
void camlidl_ml2c_plplot_core_plplot_legend_opt(value _v1, plplot_legend_opt *_c2, camlidl_ctx _ctx)
value camlidl_plplot_core_c_plot3d(value _v_x, value _v_y, value _v_z, value _v_opt, value _v_side)
value camlidl_c2ml_plplot_core_plplot_legend_opt(plplot_legend_opt *_c2, camlidl_ctx _ctx)
value camlidl_plplot_core_c_plsfnam(value _v_fnam)
value camlidl_plplot_core_c_plenv0_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plszax(value _v_digmax, value _v_digits)
value camlidl_plplot_core_c_plhlsrgb(value _v_h, value _v_l, value _v_s)
value camlidl_plplot_core_c_plarc(value _v_x, value _v_y, value _v_a, value _v_b, value _v_angle1, value _v_angle2, value _v_rotate, value _v_fill)
value camlidl_plplot_core_ml_plimagefr(value _v_idata, value _v_xmin, value _v_xmax, value _v_ymin, value _v_ymax, value _v_zmin, value _v_zmax, value _v_valuemin, value _v_valuemax)
value camlidl_plplot_core_c_plmesh(value _v_x, value _v_y, value _v_z, value _v_opt)
value camlidl_plplot_core_c_plsesc(value _v_esc)
value camlidl_plplot_core_c_plfontld(value _v_fnt)
int camlidl_ml2c_plplot_core_enum_plplot_position_enum(value _v1)
int camlidl_ml2c_plplot_core_enum_plplot_legend_enum(value _v1)
value camlidl_plplot_core_c_plimage_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plsfont(value _v_family, value _v_style, value _v_weight)
value camlidl_plplot_core_c_plconfigtime_bytecode(value *argv, int argn)
value camlidl_plplot_core_plgwidth(value _unit)
value camlidl_plplot_core_c_plgdiori(value _unit)
value camlidl_plplot_core_c_plbox_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plaxes(value _v_x0, value _v_y0, value _v_xopt, value _v_xtick, value _v_nxsub, value _v_yopt, value _v_ytick, value _v_nysub)
value camlidl_plplot_core_c_plsvpa(value _v_xmin, value _v_xmax, value _v_ymin, value _v_ymax)
int camlidl_ml2c_plplot_core_enum_plplot_hist_enum(value _v1)
void camlidl_ml2c_plplot_core_plplot_position_opt(value _v1, plplot_position_opt *_c2, camlidl_ctx _ctx)
void camlidl_ml2c_plplot_core_plplot_bin_style(value _v1, plplot_bin_style *_c2, camlidl_ctx _ctx)
value camlidl_plplot_core_c_plgfci(value _unit)
value camlidl_plplot_core_plsxwin(value _v_window_id)
value camlidl_plplot_core_c_plprec(value _v_setp, value _v_prec)
value camlidl_plplot_core_c_plstring3(value _v_x, value _v_y, value _v_z, value _v_string)
value camlidl_c2ml_plplot_core_plplot_hist_style(plplot_hist_style *_c2, camlidl_ctx _ctx)
value camlidl_plplot_core_ml_plcont(value _v_f, value _v_kx, value _v_lx, value _v_ky, value _v_ly, value _v_clevel)
value camlidl_plplot_core_c_plseed(value _v_seed)
value camlidl_plplot_core_c_plgfont(value _unit)
value camlidl_plplot_core_c_plmtex(value _v_side, value _v_disp, value _v_pos, value _v_just, value _v_text)
value camlidl_c2ml_plplot_core_enum_plplot_fci_style_enum(int _c1)
value camlidl_plplot_core_c_plbtime(value _v_ctime)
int camlidl_ml2c_plplot_core_enum_plplot_fci_family_enum(value _v1)
value camlidl_plplot_core_c_plgpage(value _unit)
value camlidl_plplot_core_c_plsdrawmode(value _v_mode)
value camlidl_plplot_core_c_plsdiplz(value _v_xmin, value _v_ymin, value _v_xmax, value _v_ymax)
value camlidl_plplot_core_ml_plmeridians(value _v_dlong, value _v_dlat, value _v_minlong, value _v_maxlong, value _v_minlat, value _v_maxlat)
value camlidl_plplot_core_plg_current_col1(value _unit)
int camlidl_transl_table_plplot_core_enum_8[6]
value camlidl_plplot_core_c_plspage_bytecode(value *argv, int argn)
value camlidl_c2ml_plplot_core_enum_plplot_legend_enum(int _c1)
value camlidl_plplot_core_c_plvsta(value _unit)
value camlidl_plplot_core_c_plaxes_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plscmap0a(value _v_r, value _v_g, value _v_b, value _v_alpha)
value camlidl_c2ml_plplot_core_enum_plplot_run_level_enum(int _c1)
value camlidl_plplot_core_c_plend(value _unit)
value camlidl_plplot_core_ml_plmeridians_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plenv0(value _v_xmin, value _v_xmax, value _v_ymin, value _v_ymax, value _v_just, value _v_axis)
value camlidl_plplot_core_c_plgfnam(value _unit)
value camlidl_plplot_core_c_pllab(value _v_xlabel, value _v_ylabel, value _v_tlabel)
value camlidl_plplot_core_c_plsori(value _v_ori)
value camlidl_plplot_core_c_plgdiplt(value _unit)
value camlidl_plplot_core_c_plscmap0n(value _v_ncol0)
value camlidl_plplot_core_c_plinit(value _unit)
value camlidl_plplot_core_ml_plmapstring_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_pleop(value _unit)
value camlidl_plplot_core_c_plconfigtime(value _v_scale, value _v_offset1, value _v_offset2, value _v_ccontrol, value _v_ifbtime_offset, value _v_year, value _v_month, value _v_day, value _v_hour, value _v_min, value _v_sec)
value camlidl_plplot_core_c_plgvpd(value _unit)
value camlidl_plplot_core_c_plarc_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plmkstrm(value _unit)
value camlidl_plplot_core_c_plglevel(value _unit)
value camlidl_plplot_core_c_plptex(value _v_x, value _v_y, value _v_dx, value _v_dy, value _v_just, value _v_text)
value camlidl_plplot_core_c_plscmap1l_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plptex_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plssub(value _v_nx, value _v_ny)
value camlidl_plplot_core_c_plstart(value _v_devname, value _v_nx, value _v_ny)
value camlidl_c2ml_plplot_core_plplot_position_opt(plplot_position_opt *_c2, camlidl_ctx _ctx)
value camlidl_plplot_core_plMinMax2dGrid(value _v_f)
value camlidl_plplot_core_c_plvasp(value _v_aspect)
value camlidl_plplot_core_plg_current_col0(value _unit)
value camlidl_plplot_core_c_plscolor(value _v_color)
value camlidl_plplot_core_c_plgyax(value _unit)
value camlidl_plplot_core_ml_plpoly3(value _v_x, value _v_y, value _v_z, value _v_draw, value _v_ifcc)
value camlidl_plplot_core_c_plxormod(value _v_mode)
value camlidl_plplot_core_c_plfill3(value _v_x, value _v_y, value _v_z)
value camlidl_plplot_core_ml_plmapstring(value _v_name, value _v_string, value _v_minx, value _v_maxx, value _v_miny, value _v_maxy, value _v_plotentries)
value camlidl_plplot_core_ml_plsvect_reset(value _unit)
value camlidl_plplot_core_c_plgcompression(value _unit)
value camlidl_plplot_core_c_plscmap1a(value _v_r, value _v_g, value _v_b, value _v_alpha)
value camlidl_plplot_core_c_plw3d_bytecode(value *argv, int argn)
value camlidl_plplot_core_c_plgcol0(value _v_icol0)
void c_plsmin(PLFLT def, PLFLT scale)
void c_plssym(PLFLT def, PLFLT scale)
void c_plpsty(PLINT patt)
void c_plpat(PLINT nlin, PLINT_VECTOR inc, PLINT_VECTOR del)
void c_plschr(PLFLT def, PLFLT scale)
void c_plsmaj(PLFLT def, PLFLT scale)
void c_plstripd(PLINT id)
void c_plstripa(PLINT id, PLINT p, PLFLT x, PLFLT y)
void c_plpoin3(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_VECTOR z, PLINT code)
void c_plsym(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLINT code)
void c_plmtex3(PLCHAR_VECTOR side, PLFLT disp, PLFLT pos, PLFLT just, PLCHAR_VECTOR text)
void c_plpoin(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLINT code)
void c_plstring(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLCHAR_VECTOR string)
void c_plstring3(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_VECTOR z, PLCHAR_VECTOR string)
void c_pllab(PLCHAR_VECTOR xlabel, PLCHAR_VECTOR ylabel, PLCHAR_VECTOR tlabel)
void c_plfont(PLINT ifont)
void c_plgfont(PLINT *p_family, PLINT *p_style, PLINT *p_weight)
void c_plmtex(PLCHAR_VECTOR side, PLFLT disp, PLFLT pos, PLFLT just, PLCHAR_VECTOR text)
void c_plsfont(PLINT family, PLINT style, PLINT weight)
void c_plptex3(PLFLT wx, PLFLT wy, PLFLT wz, PLFLT dx, PLFLT dy, PLFLT dz, PLFLT sx, PLFLT sy, PLFLT sz, PLFLT just, PLCHAR_VECTOR text)
void c_plptex(PLFLT wx, PLFLT wy, PLFLT dx, PLFLT dy, PLFLT just, PLCHAR_VECTOR text)
void c_plerry(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR ymin, PLFLT_VECTOR ymax)
void c_plerrx(PLINT n, PLFLT_VECTOR xmin, PLFLT_VECTOR xmax, PLFLT_VECTOR y)
void c_plconfigtime(PLFLT scale, PLFLT offset1, PLFLT offset2, PLINT ccontrol, PLBOOL ifbtime_offset, PLINT year, PLINT month, PLINT day, PLINT hour, PLINT min, PLFLT sec)
void c_plbtime(PLINT *year, PLINT *month, PLINT *day, PLINT *hour, PLINT *min, PLFLT *sec, PLFLT ctime)
void c_pltimefmt(PLCHAR_VECTOR fmt)
void c_plctime(PLINT year, PLINT month, PLINT day, PLINT hour, PLINT min, PLFLT sec, PLFLT *ctime)
void c_plsvect(PLFLT_VECTOR arrowx, PLFLT_VECTOR arrowy, PLINT npts, PLBOOL fill)
void c_plvpor(PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax)
void c_plvasp(PLFLT aspect)
void c_plsvpa(PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax)
void c_plvpas(PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax, PLFLT aspect)
void c_plenv(PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax, PLINT just, PLINT axis)
void c_plenv0(PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax, PLINT just, PLINT axis)
void c_plwind(PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax)
void c_plw3d(PLFLT basex, PLFLT basey, PLFLT height, PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax, PLFLT zmin, PLFLT zmax, PLFLT alt, PLFLT az)