5 #include <caml/mlvalues.h>
6 #include <caml/memory.h>
7 #include <caml/alloc.h>
9 #include <caml/callback.h>
11 #include <caml/custom.h>
12 #include <caml/bigarray.h>
14 #include <caml/camlidlruntime.h>
81 default: invalid_argument(
"enum plplot_bin_enum: bad enum plplot_bin_enum value");
154 default: invalid_argument(
"enum plplot_run_level_enum: bad enum plplot_run_level_enum value");
339 default: invalid_argument(
"enum plplot_fci_style_enum: bad enum plplot_fci_style_enum value");
364 default: invalid_argument(
"enum plplot_fci_weight_enum: bad enum plplot_fci_weight_enum value");
391 default: 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] = 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] = copy_double(*wx);
697 _vres[1] = 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 = 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] = copy_double(*p_def);
1092 _vres[1] = 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] = copy_double(*min_color);
1114 _vres[1] = 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] = 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] = 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 = copy_string(p_dev);
1283 value _vres[4] = { 0, 0, 0, 0, };
1290 Begin_roots_block(_vres, 4)
1291 _vres[0] = copy_double(*p_mar);
1292 _vres[1] = copy_double(*p_aspect);
1293 _vres[2] = copy_double(*p_jx);
1294 _vres[3] = 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 = copy_double(*p_rot);
1327 value _vres[4] = { 0, 0, 0, 0, };
1334 Begin_roots_block(_vres, 4)
1335 _vres[0] = copy_double(*p_xmin);
1336 _vres[1] = copy_double(*p_ymin);
1337 _vres[2] = copy_double(*p_xmax);
1338 _vres[3] = 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 = 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 = 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] = copy_double(*p_xp);
1479 _vres[1] = 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] = copy_double(*xmin);
1551 _vres[1] = copy_double(*xmax);
1552 _vres[2] = copy_double(*ymin);
1553 _vres[3] = 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 = 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] = copy_double(*p_xmin);
1609 _vres[1] = copy_double(*p_xmax);
1610 _vres[2] = copy_double(*p_ymin);
1611 _vres[3] = 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] = copy_double(*p_xmin);
1641 _vres[1] = copy_double(*p_xmax);
1642 _vres[2] = copy_double(*p_ymin);
1643 _vres[3] = 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] = copy_double(*p_r);
1777 _vres[1] = copy_double(*p_g);
1778 _vres[2] = 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 = 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] = copy_double(*p_h);
2575 _vres[1] = copy_double(*p_l);
2576 _vres[2] = 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] = copy_double(*fmax);
4109 _vres[1] = 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] = copy_double(*tx);
4730 _vres[1] = 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 = copy_double(_res);
4770 _vres = copy_double(_res);
4780 _vres = copy_double(_res);