PLplot 5.15.0
Loading...
Searching...
No Matches
plplot_core_stubs.c
Go to the documentation of this file.
1/* File generated from plplot_core.idl */
2
3#include <stddef.h>
4#include <string.h>
5#include <caml/mlvalues.h>
6#include <caml/memory.h>
7#include <caml/alloc.h>
8#include <caml/fail.h>
9#include <caml/callback.h>
10#ifdef Custom_tag
11#include <caml/custom.h>
12#include <caml/bigarray.h>
13#endif
14#include <caml/camlidlruntime.h>
15
16
17#include "plplot_core.h"
18
32
34{
35 int _c2;
37 return _c2;
38}
39
41{
42 value _v2;
43 _v2 = camlidl_find_enum(_c1, camlidl_transl_table_plplot_core_enum_1, 11, "enum plplot3d_style_enum: bad enum plplot3d_style_enum value");
44 return _v2;
45}
46
48{
49 (*_c2) = caml_convert_flag_list(_v1, camlidl_transl_table_plplot_core_enum_1);
50}
51
53{
54value _v1;
55 _v1 = camlidl_alloc_flag_list((*_c2), camlidl_transl_table_plplot_core_enum_1, 11);
56 return _v1;
57}
58
65
67{
68 int _c2;
70 return _c2;
71}
72
74{
75 value _v2;
76 switch(_c1) {
77 case PL_BIN_DEFAULT: _v2 = Val_int(0); break;
78 case PL_BIN_CENTRED: _v2 = Val_int(1); break;
79 case PL_BIN_NOEXPAND: _v2 = Val_int(2); break;
80 case PL_BIN_NOEMPTY: _v2 = Val_int(3); break;
81 default: caml_invalid_argument("enum plplot_bin_enum: bad enum plplot_bin_enum value");
82 }
83 return _v2;
84}
85
87{
88 (*_c2) = caml_convert_flag_list(_v1, camlidl_transl_table_plplot_core_enum_2);
89}
90
92{
93value _v1;
94 _v1 = camlidl_alloc_flag_list((*_c2), camlidl_transl_table_plplot_core_enum_2, 4);
95 return _v1;
96}
97
105
107{
108 int _c2;
109 _c2 = camlidl_transl_table_plplot_core_enum_3[Int_val(_v1)];
110 return _c2;
111}
112
114{
115 value _v2;
116 _v2 = camlidl_find_enum(_c1, camlidl_transl_table_plplot_core_enum_3, 5, "enum plplot_hist_enum: bad enum plplot_hist_enum value");
117 return _v2;
118}
119
121{
122 (*_c2) = caml_convert_flag_list(_v1, camlidl_transl_table_plplot_core_enum_3);
123}
124
126{
127value _v1;
128 _v1 = camlidl_alloc_flag_list((*_c2), camlidl_transl_table_plplot_core_enum_3, 5);
129 return _v1;
130}
131
138
140{
141 int _c2;
142 _c2 = camlidl_transl_table_plplot_core_enum_4[Int_val(_v1)];
143 return _c2;
144}
145
147{
148 value _v2;
149 switch(_c1) {
150 case PL_UNINITIALIZED: _v2 = Val_int(0); break;
151 case PL_INITIALIZED: _v2 = Val_int(1); break;
152 case PL_VIEWPORT_DEFINED: _v2 = Val_int(2); break;
153 case PL_WORLD_COORDINATES_DEFINED: _v2 = Val_int(3); break;
154 default: caml_invalid_argument("enum plplot_run_level_enum: bad enum plplot_run_level_enum value");
155 }
156 return _v2;
157}
158
163
165{
166value _v1;
168 return _v1;
169}
170
182
184{
185 int _c2;
186 _c2 = camlidl_transl_table_plplot_core_enum_5[Int_val(_v1)];
187 return _c2;
188}
189
191{
192 value _v2;
193 _v2 = camlidl_find_enum(_c1, camlidl_transl_table_plplot_core_enum_5, 9, "enum plplot_position_enum: bad enum plplot_position_enum value");
194 return _v2;
195}
196
198{
199 (*_c2) = caml_convert_flag_list(_v1, camlidl_transl_table_plplot_core_enum_5);
200}
201
203{
204value _v1;
205 _v1 = camlidl_alloc_flag_list((*_c2), camlidl_transl_table_plplot_core_enum_5, 9);
206 return _v1;
207}
208
220
222{
223 int _c2;
224 _c2 = camlidl_transl_table_plplot_core_enum_6[Int_val(_v1)];
225 return _c2;
226}
227
229{
230 value _v2;
231 _v2 = camlidl_find_enum(_c1, camlidl_transl_table_plplot_core_enum_6, 9, "enum plplot_legend_enum: bad enum plplot_legend_enum value");
232 return _v2;
233}
234
236{
237 (*_c2) = caml_convert_flag_list(_v1, camlidl_transl_table_plplot_core_enum_6);
238}
239
241{
242value _v1;
243 _v1 = camlidl_alloc_flag_list((*_c2), camlidl_transl_table_plplot_core_enum_6, 9);
244 return _v1;
245}
246
267
269{
270 int _c2;
271 _c2 = camlidl_transl_table_plplot_core_enum_7[Int_val(_v1)];
272 return _c2;
273}
274
276{
277 value _v2;
278 _v2 = camlidl_find_enum(_c1, camlidl_transl_table_plplot_core_enum_7, 18, "enum plplot_colorbar_enum: bad enum plplot_colorbar_enum value");
279 return _v2;
280}
281
283{
284 (*_c2) = caml_convert_flag_list(_v1, camlidl_transl_table_plplot_core_enum_7);
285}
286
288{
289value _v1;
290 _v1 = camlidl_alloc_flag_list((*_c2), camlidl_transl_table_plplot_core_enum_7, 18);
291 return _v1;
292}
293
302
304{
305 int _c2;
306 _c2 = camlidl_transl_table_plplot_core_enum_8[Int_val(_v1)];
307 return _c2;
308}
309
311{
312 value _v2;
313 _v2 = camlidl_find_enum(_c1, camlidl_transl_table_plplot_core_enum_8, 6, "enum plplot_fci_family_enum: bad enum plplot_fci_family_enum value");
314 return _v2;
315}
316
323
325{
326 int _c2;
327 _c2 = camlidl_transl_table_plplot_core_enum_9[Int_val(_v1)];
328 return _c2;
329}
330
332{
333 value _v2;
334 switch(_c1) {
335 case PL_FCI_STYLE_UNCHANGED: _v2 = Val_int(0); break;
336 case PL_FCI_UPRIGHT: _v2 = Val_int(1); break;
337 case PL_FCI_ITALIC: _v2 = Val_int(2); break;
338 case PL_FCI_OBLIQUE: _v2 = Val_int(3); break;
339 default: caml_invalid_argument("enum plplot_fci_style_enum: bad enum plplot_fci_style_enum value");
340 }
341 return _v2;
342}
343
349
351{
352 int _c2;
354 return _c2;
355}
356
358{
359 value _v2;
360 switch(_c1) {
361 case PL_FCI_WEIGHT_UNCHANGED: _v2 = Val_int(0); break;
362 case PL_FCI_MEDIUM: _v2 = Val_int(1); break;
363 case PL_FCI_BOLD: _v2 = Val_int(2); break;
364 default: caml_invalid_argument("enum plplot_fci_weight_enum: bad enum plplot_fci_weight_enum value");
365 }
366 return _v2;
367}
368
375
377{
378 int _c2;
380 return _c2;
381}
382
384{
385 value _v2;
386 switch(_c1) {
387 case PL_DRAWMODE_UNKNOWN: _v2 = Val_int(0); break;
388 case PL_DRAWMODE_DEFAULT: _v2 = Val_int(1); break;
389 case PL_DRAWMODE_REPLACE: _v2 = Val_int(2); break;
390 case PL_DRAWMODE_XOR: _v2 = Val_int(3); break;
391 default: caml_invalid_argument("enum plplot_draw_mode_enum: bad enum plplot_draw_mode_enum value");
392 }
393 return _v2;
394}
395
397{
398 (*_c2) = Int_val(_v1);
399}
400
402{
403value _v1;
404 _v1 = Val_int((*_c2));
405 return _v1;
406}
407
409 value _v_lexp,
410 value _v_sigdig)
411{
412 int lexp; /*in*/
413 int sigdig; /*in*/
414 lexp = Int_val(_v_lexp);
415 sigdig = Int_val(_v_sigdig);
416 c_pl_setcontlabelformat(lexp, sigdig);
417 return Val_unit;
418}
419
421 value _v_offset,
422 value _v_size,
423 value _v_spacing,
424 value _v_active)
425{
426 double offset; /*in*/
427 double size; /*in*/
428 double spacing; /*in*/
429 int active; /*in*/
430 offset = Double_val(_v_offset);
431 size = Double_val(_v_size);
432 spacing = Double_val(_v_spacing);
433 active = Int_val(_v_active);
434 c_pl_setcontlabelparam(offset, size, spacing, active);
435 return Val_unit;
436}
437
439 value _v_page)
440{
441 int page; /*in*/
442 page = Int_val(_v_page);
443 c_pladv(page);
444 return Val_unit;
445}
446
448 value _v_x,
449 value _v_y,
450 value _v_a,
451 value _v_b,
452 value _v_angle1,
453 value _v_angle2,
454 value _v_rotate,
455 value _v_fill)
456{
457 double x; /*in*/
458 double y; /*in*/
459 double a; /*in*/
460 double b; /*in*/
461 double angle1; /*in*/
462 double angle2; /*in*/
463 double rotate; /*in*/
464 int fill; /*in*/
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);
473 c_plarc(x, y, a, b, angle1, angle2, rotate, fill);
474 return Val_unit;
475}
476
478{
479 return camlidl_plplot_core_c_plarc(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7]);
480}
481
483 value _v_x0,
484 value _v_y0,
485 value _v_xopt,
486 value _v_xtick,
487 value _v_nxsub,
488 value _v_yopt,
489 value _v_ytick,
490 value _v_nysub)
491{
492 double x0; /*in*/
493 double y0; /*in*/
494 char const *xopt; /*in*/
495 double xtick; /*in*/
496 int nxsub; /*in*/
497 char const *yopt; /*in*/
498 double ytick; /*in*/
499 int nysub; /*in*/
500 x0 = Double_val(_v_x0);
501 y0 = Double_val(_v_y0);
502 xopt = (char const *) String_val(_v_xopt);
503 xtick = Double_val(_v_xtick);
504 nxsub = Int_val(_v_nxsub);
505 yopt = (char const *) 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);
509 return Val_unit;
510}
511
513{
514 return camlidl_plplot_core_c_plaxes(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7]);
515}
516
518 value _v_x,
519 value _v_y,
520 value _v_opt)
521{
522 int nbin; /*in*/
523 double *x; /*in*/
524 double *y; /*in*/
525 plplot_bin_style opt; /*in*/
526 mlsize_t _c1;
527 mlsize_t _c2;
528 mlsize_t _c3;
529 mlsize_t _c4;
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);
536 }
537 nbin = _c1;
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);
542 }
543 nbin = _c3;
545 c_plbin(nbin, x, y, opt);
546 camlidl_free(_ctx);
547 return Val_unit;
548}
549
551 value _v_ctime)
552{
553 int *year; /*out*/
554 int *month; /*out*/
555 int *day; /*out*/
556 int *hour; /*out*/
557 int *min; /*out*/
558 double *sec; /*out*/
559 double ctime; /*in*/
560 int _c1;
561 int _c2;
562 int _c3;
563 int _c4;
564 int _c5;
565 double _c6;
566 value _vresult;
567 value _vres[6] = { 0, 0, 0, 0, 0, 0, };
568
569 ctime = Double_val(_v_ctime);
570 year = &_c1;
571 month = &_c2;
572 day = &_c3;
573 hour = &_c4;
574 min = &_c5;
575 sec = &_c6;
576 c_plbtime(year, month, day, hour, min, sec, 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);
585 { mlsize_t _c7;
586 for (_c7 = 0; _c7 < 6; _c7++) Field(_vresult, _c7) = _vres[_c7];
587 }
588 End_roots()
589 return _vresult;
590}
591
593{
594 c_plbop();
595 return Val_unit;
596}
597
599 value _v_xopt,
600 value _v_xtick,
601 value _v_nxsub,
602 value _v_yopt,
603 value _v_ytick,
604 value _v_nysub)
605{
606 char const *xopt; /*in*/
607 double xtick; /*in*/
608 int nxsub; /*in*/
609 char const *yopt; /*in*/
610 double ytick; /*in*/
611 int nysub; /*in*/
612 xopt = (char const *) String_val(_v_xopt);
613 xtick = Double_val(_v_xtick);
614 nxsub = Int_val(_v_nxsub);
615 yopt = (char const *) 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);
619 return Val_unit;
620}
621
623{
624 return camlidl_plplot_core_c_plbox(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]);
625}
626
628 value _v_xopt,
629 value _v_xlabel,
630 value _v_xtick,
631 value _v_nxsub,
632 value _v_yopt,
633 value _v_ylabel,
634 value _v_ytick,
635 value _v_nysub,
636 value _v_zopt,
637 value _v_zlabel,
638 value _v_ztick,
639 value _v_nzsub)
640{
641 char const *xopt; /*in*/
642 char const *xlabel; /*in*/
643 double xtick; /*in*/
644 int nxsub; /*in*/
645 char const *yopt; /*in*/
646 char const *ylabel; /*in*/
647 double ytick; /*in*/
648 int nysub; /*in*/
649 char const *zopt; /*in*/
650 char const *zlabel; /*in*/
651 double ztick; /*in*/
652 int nzsub; /*in*/
653 xopt = (char const *) String_val(_v_xopt);
654 xlabel = (char const *) String_val(_v_xlabel);
655 xtick = Double_val(_v_xtick);
656 nxsub = Int_val(_v_nxsub);
657 yopt = (char const *) String_val(_v_yopt);
658 ylabel = (char const *) String_val(_v_ylabel);
659 ytick = Double_val(_v_ytick);
660 nysub = Int_val(_v_nysub);
661 zopt = (char const *) String_val(_v_zopt);
662 zlabel = (char const *) 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);
666 return Val_unit;
667}
668
670{
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]);
672}
673
675 value _v_rx,
676 value _v_ry)
677{
678 double rx; /*in*/
679 double ry; /*in*/
680 double *wx; /*out*/
681 double *wy; /*out*/
682 int *window; /*out*/
683 double _c1;
684 double _c2;
685 int _c3;
686 value _vresult;
687 value _vres[3] = { 0, 0, 0, };
688
689 rx = Double_val(_v_rx);
690 ry = Double_val(_v_ry);
691 wx = &_c1;
692 wy = &_c2;
693 window = &_c3;
694 c_plcalc_world(rx, ry, wx, wy, window);
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];
703 End_roots()
704 return _vresult;
705}
706
708{
709 c_plclear();
710 return Val_unit;
711}
712
714 value _v_icol0)
715{
716 int icol0; /*in*/
717 icol0 = Int_val(_v_icol0);
718 c_plcol0(icol0);
719 return Val_unit;
720}
721
723 value _v_col1)
724{
725 double col1; /*in*/
726 col1 = Double_val(_v_col1);
727 c_plcol1(col1);
728 return Val_unit;
729}
730
732 value _v_scale,
733 value _v_offset1,
734 value _v_offset2,
735 value _v_ccontrol,
736 value _v_ifbtime_offset,
737 value _v_year,
738 value _v_month,
739 value _v_day,
740 value _v_hour,
741 value _v_min,
742 value _v_sec)
743{
744 double scale; /*in*/
745 double offset1; /*in*/
746 double offset2; /*in*/
747 int ccontrol; /*in*/
748 int ifbtime_offset; /*in*/
749 int year; /*in*/
750 int month; /*in*/
751 int day; /*in*/
752 int hour; /*in*/
753 int min; /*in*/
754 double sec; /*in*/
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);
767 return Val_unit;
768}
769
771{
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]);
773}
774
776 value _v_iplsr,
777 value _v_flags)
778{
779 int iplsr; /*in*/
780 int flags; /*in*/
781 iplsr = Int_val(_v_iplsr);
782 flags = Int_val(_v_flags);
783 c_plcpstrm(iplsr, flags);
784 return Val_unit;
785}
786
788 value _v_year,
789 value _v_month,
790 value _v_day,
791 value _v_hour,
792 value _v_min,
793 value _v_sec)
794{
795 int year; /*in*/
796 int month; /*in*/
797 int day; /*in*/
798 int hour; /*in*/
799 int min; /*in*/
800 double sec; /*in*/
801 double *ctime; /*out*/
802 double _c1;
803 value _vres;
804
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);
811 ctime = &_c1;
812 c_plctime(year, month, day, hour, min, sec, ctime);
813 _vres = caml_copy_double(*ctime);
814 return _vres;
815}
816
821
823{
824 c_plend();
825 return Val_unit;
826}
827
829{
830 c_plend1();
831 return Val_unit;
832}
833
835 value _v_xmin,
836 value _v_xmax,
837 value _v_ymin,
838 value _v_ymax,
839 value _v_just,
840 value _v_axis)
841{
842 double xmin; /*in*/
843 double xmax; /*in*/
844 double ymin; /*in*/
845 double ymax; /*in*/
846 int just; /*in*/
847 int axis; /*in*/
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);
855 return Val_unit;
856}
857
859{
860 return camlidl_plplot_core_c_plenv(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]);
861}
862
864 value _v_xmin,
865 value _v_xmax,
866 value _v_ymin,
867 value _v_ymax,
868 value _v_just,
869 value _v_axis)
870{
871 double xmin; /*in*/
872 double xmax; /*in*/
873 double ymin; /*in*/
874 double ymax; /*in*/
875 int just; /*in*/
876 int axis; /*in*/
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);
884 return Val_unit;
885}
886
891
893{
894 c_pleop();
895 return Val_unit;
896}
897
899 value _v_xmin,
900 value _v_xmax,
901 value _v_y)
902{
903 int n; /*in*/
904 double *xmin; /*in*/
905 double *xmax; /*in*/
906 double *y; /*in*/
907 mlsize_t _c1;
908 mlsize_t _c2;
909 mlsize_t _c3;
910 mlsize_t _c4;
911 mlsize_t _c5;
912 mlsize_t _c6;
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);
919 }
920 n = _c1;
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);
925 }
926 n = _c3;
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);
931 }
932 n = _c5;
933 c_plerrx(n, xmin, xmax, y);
934 camlidl_free(_ctx);
935 return Val_unit;
936}
937
939 value _v_x,
940 value _v_ymin,
941 value _v_ymax)
942{
943 int n; /*in*/
944 double *x; /*in*/
945 double *ymin; /*in*/
946 double *ymax; /*in*/
947 mlsize_t _c1;
948 mlsize_t _c2;
949 mlsize_t _c3;
950 mlsize_t _c4;
951 mlsize_t _c5;
952 mlsize_t _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);
959 }
960 n = _c1;
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);
965 }
966 n = _c3;
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);
971 }
972 n = _c5;
973 c_plerry(n, x, ymin, ymax);
974 camlidl_free(_ctx);
975 return Val_unit;
976}
977
979{
980 c_plfamadv();
981 return Val_unit;
982}
983
985 value _v_x,
986 value _v_y)
987{
988 int n; /*in*/
989 double *x; /*in*/
990 double *y; /*in*/
991 mlsize_t _c1;
992 mlsize_t _c2;
993 mlsize_t _c3;
994 mlsize_t _c4;
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);
1001 }
1002 n = _c1;
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);
1007 }
1008 n = _c3;
1009 c_plfill(n, x, y);
1010 camlidl_free(_ctx);
1011 return Val_unit;
1012}
1013
1015 value _v_x,
1016 value _v_y,
1017 value _v_z)
1018{
1019 int n; /*in*/
1020 double *x; /*in*/
1021 double *y; /*in*/
1022 double *z; /*in*/
1023 mlsize_t _c1;
1024 mlsize_t _c2;
1025 mlsize_t _c3;
1026 mlsize_t _c4;
1027 mlsize_t _c5;
1028 mlsize_t _c6;
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);
1035 }
1036 n = _c1;
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);
1041 }
1042 n = _c3;
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);
1047 }
1048 n = _c5;
1049 c_plfill3(n, x, y, z);
1050 camlidl_free(_ctx);
1051 return Val_unit;
1052}
1053
1055{
1056 c_plflush();
1057 return Val_unit;
1058}
1059
1061 value _v_ifont)
1062{
1063 int ifont; /*in*/
1064 ifont = Int_val(_v_ifont);
1065 c_plfont(ifont);
1066 return Val_unit;
1067}
1068
1070 value _v_fnt)
1071{
1072 int fnt; /*in*/
1073 fnt = Int_val(_v_fnt);
1074 c_plfontld(fnt);
1075 return Val_unit;
1076}
1077
1079{
1080 double *p_def; /*out*/
1081 double *p_ht; /*out*/
1082 double _c1;
1083 double _c2;
1084 value _vresult;
1085 value _vres[2] = { 0, 0, };
1086
1087 p_def = &_c1;
1088 p_ht = &_c2;
1089 c_plgchr(p_def, p_ht);
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];
1096 End_roots()
1097 return _vresult;
1098}
1099
1101{
1102 double *min_color; /*out*/
1103 double *max_color; /*out*/
1104 double _c1;
1105 double _c2;
1106 value _vresult;
1107 value _vres[2] = { 0, 0, };
1108
1109 min_color = &_c1;
1110 max_color = &_c2;
1111 c_plgcmap1_range(min_color, max_color);
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];
1118 End_roots()
1119 return _vresult;
1120}
1121
1123 value _v_icol0)
1124{
1125 int icol0; /*in*/
1126 int *r; /*out*/
1127 int *g; /*out*/
1128 int *b; /*out*/
1129 int _c1;
1130 int _c2;
1131 int _c3;
1132 value _vresult;
1133 value _vres[3] = { 0, 0, 0, };
1134
1135 icol0 = Int_val(_v_icol0);
1136 r = &_c1;
1137 g = &_c2;
1138 b = &_c3;
1139 c_plgcol0(icol0, r, g, b);
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];
1148 End_roots()
1149 return _vresult;
1150}
1151
1153 value _v_icol0)
1154{
1155 int icol0; /*in*/
1156 int *r; /*out*/
1157 int *g; /*out*/
1158 int *b; /*out*/
1159 double *alpha; /*out*/
1160 int _c1;
1161 int _c2;
1162 int _c3;
1163 double _c4;
1164 value _vresult;
1165 value _vres[4] = { 0, 0, 0, 0, };
1166
1167 icol0 = Int_val(_v_icol0);
1168 r = &_c1;
1169 g = &_c2;
1170 b = &_c3;
1171 alpha = &_c4;
1172 c_plgcol0a(icol0, r, g, b, alpha);
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];
1183 End_roots()
1184 return _vresult;
1185}
1186
1188{
1189 int *r; /*out*/
1190 int *g; /*out*/
1191 int *b; /*out*/
1192 int _c1;
1193 int _c2;
1194 int _c3;
1195 value _vresult;
1196 value _vres[3] = { 0, 0, 0, };
1197
1198 r = &_c1;
1199 g = &_c2;
1200 b = &_c3;
1201 c_plgcolbg(r, g, b);
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];
1210 End_roots()
1211 return _vresult;
1212}
1213
1215{
1216 int *r; /*out*/
1217 int *g; /*out*/
1218 int *b; /*out*/
1219 double *alpha; /*out*/
1220 int _c1;
1221 int _c2;
1222 int _c3;
1223 double _c4;
1224 value _vresult;
1225 value _vres[4] = { 0, 0, 0, 0, };
1226
1227 r = &_c1;
1228 g = &_c2;
1229 b = &_c3;
1230 alpha = &_c4;
1231 c_plgcolbga(r, g, b, alpha);
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];
1242 End_roots()
1243 return _vresult;
1244}
1245
1247{
1248 int *compression; /*out*/
1249 int _c1;
1250 value _vres;
1251
1252 compression = &_c1;
1253 c_plgcompression(compression);
1254 _vres = Val_int(*compression);
1255 return _vres;
1256}
1257
1259{
1260 char *p_dev; /*out*/
1261 value _vres;
1262
1263 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1264 camlidl_ctx _ctx = &_ctxs;
1265 p_dev = camlidl_malloc(1024 * sizeof(char ), _ctx);
1266 c_plgdev(p_dev);
1267 _vres = caml_copy_string(p_dev);
1268 camlidl_free(_ctx);
1269 return _vres;
1270}
1271
1273{
1274 double *p_mar; /*out*/
1275 double *p_aspect; /*out*/
1276 double *p_jx; /*out*/
1277 double *p_jy; /*out*/
1278 double _c1;
1279 double _c2;
1280 double _c3;
1281 double _c4;
1282 value _vresult;
1283 value _vres[4] = { 0, 0, 0, 0, };
1284
1285 p_mar = &_c1;
1286 p_aspect = &_c2;
1287 p_jx = &_c3;
1288 p_jy = &_c4;
1289 c_plgdidev(p_mar, p_aspect, p_jx, p_jy);
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];
1300 End_roots()
1301 return _vresult;
1302}
1303
1305{
1306 double *p_rot; /*out*/
1307 double _c1;
1308 value _vres;
1309
1310 p_rot = &_c1;
1311 c_plgdiori(p_rot);
1312 _vres = caml_copy_double(*p_rot);
1313 return _vres;
1314}
1315
1317{
1318 double *p_xmin; /*out*/
1319 double *p_ymin; /*out*/
1320 double *p_xmax; /*out*/
1321 double *p_ymax; /*out*/
1322 double _c1;
1323 double _c2;
1324 double _c3;
1325 double _c4;
1326 value _vresult;
1327 value _vres[4] = { 0, 0, 0, 0, };
1328
1329 p_xmin = &_c1;
1330 p_ymin = &_c2;
1331 p_xmax = &_c3;
1332 p_ymax = &_c4;
1333 c_plgdiplt(p_xmin, p_ymin, p_xmax, p_ymax);
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];
1344 End_roots()
1345 return _vresult;
1346}
1347
1349{
1350 int _res;
1351 value _vres;
1352
1353 _res = c_plgdrawmode();
1355 return _vres;
1356}
1357
1359{
1360 long long *p_fci; /*out*/
1361 long long _c1;
1362 value _vres;
1363
1364 p_fci = &_c1;
1365 c_plgfci(p_fci);
1366 _vres = caml_copy_int64(*p_fci);
1367 return _vres;
1368}
1369
1371{
1372 int *p_fam; /*out*/
1373 int *p_num; /*out*/
1374 int *p_bmax; /*out*/
1375 int _c1;
1376 int _c2;
1377 int _c3;
1378 value _vresult;
1379 value _vres[3] = { 0, 0, 0, };
1380
1381 p_fam = &_c1;
1382 p_num = &_c2;
1383 p_bmax = &_c3;
1384 c_plgfam(p_fam, p_num, p_bmax);
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];
1393 End_roots()
1394 return _vresult;
1395}
1396
1398{
1399 char *fnam; /*out*/
1400 value _vres;
1401
1402 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1403 camlidl_ctx _ctx = &_ctxs;
1404 fnam = camlidl_malloc(1024 * sizeof(char ), _ctx);
1405 c_plgfnam(fnam);
1406 _vres = caml_copy_string(fnam);
1407 camlidl_free(_ctx);
1408 return _vres;
1409}
1410
1412{
1413 int *p_family; /*out*/
1414 int *p_style; /*out*/
1415 int *p_weight; /*out*/
1416 int _c1;
1417 int _c2;
1418 int _c3;
1419 value _vresult;
1420 value _vres[3] = { 0, 0, 0, };
1421
1422 p_family = &_c1;
1423 p_style = &_c2;
1424 p_weight = &_c3;
1425 c_plgfont(p_family, p_style, p_weight);
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];
1434 End_roots()
1435 return _vresult;
1436}
1437
1439{
1440 plplot_run_level *p_level; /*out*/
1441 plplot_run_level _c1;
1442 value _vres;
1443
1444 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1445 camlidl_ctx _ctx = &_ctxs;
1446 p_level = &_c1;
1447 c_plglevel(p_level);
1448 _vres = camlidl_c2ml_plplot_core_plplot_run_level(&*p_level, _ctx);
1449 camlidl_free(_ctx);
1450 return _vres;
1451}
1452
1454{
1455 double *p_xp; /*out*/
1456 double *p_yp; /*out*/
1457 int *p_xleng; /*out*/
1458 int *p_yleng; /*out*/
1459 int *p_xoff; /*out*/
1460 int *p_yoff; /*out*/
1461 double _c1;
1462 double _c2;
1463 int _c3;
1464 int _c4;
1465 int _c5;
1466 int _c6;
1467 value _vresult;
1468 value _vres[6] = { 0, 0, 0, 0, 0, 0, };
1469
1470 p_xp = &_c1;
1471 p_yp = &_c2;
1472 p_xleng = &_c3;
1473 p_yleng = &_c4;
1474 p_xoff = &_c5;
1475 p_yoff = &_c6;
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);
1485 { mlsize_t _c7;
1486 for (_c7 = 0; _c7 < 6; _c7++) Field(_vresult, _c7) = _vres[_c7];
1487 }
1488 End_roots()
1489 return _vresult;
1490}
1491
1493{
1494 c_plgra();
1495 return Val_unit;
1496}
1497
1499 value _v_x,
1500 value _v_y,
1501 value _v_angle)
1502{
1503 int n; /*in*/
1504 double *x; /*in*/
1505 double *y; /*in*/
1506 double angle; /*in*/
1507 mlsize_t _c1;
1508 mlsize_t _c2;
1509 mlsize_t _c3;
1510 mlsize_t _c4;
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);
1517 }
1518 n = _c1;
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);
1523 }
1524 n = _c3;
1525 angle = Double_val(_v_angle);
1526 c_plgradient(n, x, y, angle);
1527 camlidl_free(_ctx);
1528 return Val_unit;
1529}
1530
1532{
1533 double *xmin; /*out*/
1534 double *xmax; /*out*/
1535 double *ymin; /*out*/
1536 double *ymax; /*out*/
1537 double _c1;
1538 double _c2;
1539 double _c3;
1540 double _c4;
1541 value _vresult;
1542 value _vres[4] = { 0, 0, 0, 0, };
1543
1544 xmin = &_c1;
1545 xmax = &_c2;
1546 ymin = &_c3;
1547 ymax = &_c4;
1548 c_plgspa(xmin, xmax, ymin, ymax);
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];
1559 End_roots()
1560 return _vresult;
1561}
1562
1564{
1565 int *p_strm; /*out*/
1566 int _c1;
1567 value _vres;
1568
1569 p_strm = &_c1;
1570 c_plgstrm(p_strm);
1571 _vres = Val_int(*p_strm);
1572 return _vres;
1573}
1574
1576{
1577 char *p_ver; /*out*/
1578 value _vres;
1579
1580 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1581 camlidl_ctx _ctx = &_ctxs;
1582 p_ver = camlidl_malloc(1024 * sizeof(char ), _ctx);
1583 c_plgver(p_ver);
1584 _vres = caml_copy_string(p_ver);
1585 camlidl_free(_ctx);
1586 return _vres;
1587}
1588
1590{
1591 double *p_xmin; /*out*/
1592 double *p_xmax; /*out*/
1593 double *p_ymin; /*out*/
1594 double *p_ymax; /*out*/
1595 double _c1;
1596 double _c2;
1597 double _c3;
1598 double _c4;
1599 value _vresult;
1600 value _vres[4] = { 0, 0, 0, 0, };
1601
1602 p_xmin = &_c1;
1603 p_xmax = &_c2;
1604 p_ymin = &_c3;
1605 p_ymax = &_c4;
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];
1617 End_roots()
1618 return _vresult;
1619}
1620
1622{
1623 double *p_xmin; /*out*/
1624 double *p_xmax; /*out*/
1625 double *p_ymin; /*out*/
1626 double *p_ymax; /*out*/
1627 double _c1;
1628 double _c2;
1629 double _c3;
1630 double _c4;
1631 value _vresult;
1632 value _vres[4] = { 0, 0, 0, 0, };
1633
1634 p_xmin = &_c1;
1635 p_xmax = &_c2;
1636 p_ymin = &_c3;
1637 p_ymax = &_c4;
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];
1649 End_roots()
1650 return _vresult;
1651}
1652
1654{
1655 int *p_digmax; /*out*/
1656 int *p_digits; /*out*/
1657 int _c1;
1658 int _c2;
1659 value _vresult;
1660 value _vres[2] = { 0, 0, };
1661
1662 p_digmax = &_c1;
1663 p_digits = &_c2;
1664 c_plgxax(p_digmax, p_digits);
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];
1671 End_roots()
1672 return _vresult;
1673}
1674
1676{
1677 int *p_digmax; /*out*/
1678 int *p_digits; /*out*/
1679 int _c1;
1680 int _c2;
1681 value _vresult;
1682 value _vres[2] = { 0, 0, };
1683
1684 p_digmax = &_c1;
1685 p_digits = &_c2;
1686 c_plgyax(p_digmax, p_digits);
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];
1693 End_roots()
1694 return _vresult;
1695}
1696
1698{
1699 int *p_digmax; /*out*/
1700 int *p_digits; /*out*/
1701 int _c1;
1702 int _c2;
1703 value _vresult;
1704 value _vres[2] = { 0, 0, };
1705
1706 p_digmax = &_c1;
1707 p_digits = &_c2;
1708 c_plgzax(p_digmax, p_digits);
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];
1715 End_roots()
1716 return _vresult;
1717}
1718
1720 value _v_data,
1721 value _v_datmin,
1722 value _v_datmax,
1723 value _v_nbin,
1724 value _v_opt)
1725{
1726 int n; /*in*/
1727 double *data; /*in*/
1728 double datmin; /*in*/
1729 double datmax; /*in*/
1730 int nbin; /*in*/
1731 plplot_hist_style opt; /*in*/
1732 mlsize_t _c1;
1733 mlsize_t _c2;
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);
1740 }
1741 n = _c1;
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);
1747 camlidl_free(_ctx);
1748 return Val_unit;
1749}
1750
1752 value _v_h,
1753 value _v_l,
1754 value _v_s)
1755{
1756 double h; /*in*/
1757 double l; /*in*/
1758 double s; /*in*/
1759 double *p_r; /*out*/
1760 double *p_g; /*out*/
1761 double *p_b; /*out*/
1762 double _c1;
1763 double _c2;
1764 double _c3;
1765 value _vresult;
1766 value _vres[3] = { 0, 0, 0, };
1767
1768 h = Double_val(_v_h);
1769 l = Double_val(_v_l);
1770 s = Double_val(_v_s);
1771 p_r = &_c1;
1772 p_g = &_c2;
1773 p_b = &_c3;
1774 c_plhlsrgb(h, l, s, p_r, p_g, p_b);
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];
1783 End_roots()
1784 return _vresult;
1785}
1786
1788{
1789 c_plinit();
1790 return Val_unit;
1791}
1792
1794 value _v_x1,
1795 value _v_y1,
1796 value _v_x2,
1797 value _v_y2)
1798{
1799 double x1; /*in*/
1800 double y1; /*in*/
1801 double x2; /*in*/
1802 double y2; /*in*/
1803 x1 = Double_val(_v_x1);
1804 y1 = Double_val(_v_y1);
1805 x2 = Double_val(_v_x2);
1806 y2 = Double_val(_v_y2);
1807 c_pljoin(x1, y1, x2, y2);
1808 return Val_unit;
1809}
1810
1812 value _v_xlabel,
1813 value _v_ylabel,
1814 value _v_tlabel)
1815{
1816 char const *xlabel; /*in*/
1817 char const *ylabel; /*in*/
1818 char const *tlabel; /*in*/
1819 xlabel = (char const *) String_val(_v_xlabel);
1820 ylabel = (char const *) String_val(_v_ylabel);
1821 tlabel = (char const *) String_val(_v_tlabel);
1822 c_pllab(xlabel, ylabel, tlabel);
1823 return Val_unit;
1824}
1825
1827 value _v_x,
1828 value _v_y,
1829 value _v_z)
1830{
1831 double x; /*in*/
1832 double y; /*in*/
1833 double z; /*in*/
1834 x = Double_val(_v_x);
1835 y = Double_val(_v_y);
1836 z = Double_val(_v_z);
1837 c_pllightsource(x, y, z);
1838 return Val_unit;
1839}
1840
1842 value _v_x,
1843 value _v_y)
1844{
1845 int n; /*in*/
1846 double *x; /*in*/
1847 double *y; /*in*/
1848 mlsize_t _c1;
1849 mlsize_t _c2;
1850 mlsize_t _c3;
1851 mlsize_t _c4;
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);
1858 }
1859 n = _c1;
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);
1864 }
1865 n = _c3;
1866 c_plline(n, x, y);
1867 camlidl_free(_ctx);
1868 return Val_unit;
1869}
1870
1872 value _v_x,
1873 value _v_y,
1874 value _v_z)
1875{
1876 int n; /*in*/
1877 double *x; /*in*/
1878 double *y; /*in*/
1879 double *z; /*in*/
1880 mlsize_t _c1;
1881 mlsize_t _c2;
1882 mlsize_t _c3;
1883 mlsize_t _c4;
1884 mlsize_t _c5;
1885 mlsize_t _c6;
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);
1892 }
1893 n = _c1;
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);
1898 }
1899 n = _c3;
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);
1904 }
1905 n = _c5;
1906 c_plline3(n, x, y, z);
1907 camlidl_free(_ctx);
1908 return Val_unit;
1909}
1910
1912 value _v_lin)
1913{
1914 int lin; /*in*/
1915 lin = Int_val(_v_lin);
1916 c_pllsty(lin);
1917 return Val_unit;
1918}
1919
1921 value _v_x,
1922 value _v_y,
1923 value _v_z,
1924 value _v_opt)
1925{
1926 double *x; /*in*/
1927 double *y; /*in*/
1928 double **z; /*in*/
1929 int nx; /*in*/
1930 int ny; /*in*/
1931 plplot3d_style opt; /*in*/
1932 mlsize_t _c1;
1933 mlsize_t _c2;
1934 mlsize_t _c3;
1935 mlsize_t _c4;
1936 mlsize_t _c5;
1937 mlsize_t _c6;
1938 value _v7;
1939 mlsize_t _c8;
1940 mlsize_t _c9;
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);
1947 }
1948 nx = _c1;
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);
1953 }
1954 ny = _c3;
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);
1963 }
1964 ny = _c8;
1965 }
1966 nx = _c5;
1967 camlidl_ml2c_plplot_core_plplot3d_style(_v_opt, &opt, _ctx);
1968 c_plmesh(x, y, z, nx, ny, opt);
1969 camlidl_free(_ctx);
1970 return Val_unit;
1971}
1972
1974 value _v_x,
1975 value _v_y,
1976 value _v_z,
1977 value _v_opt,
1978 value _v_clevel)
1979{
1980 double *x; /*in*/
1981 double *y; /*in*/
1982 double **z; /*in*/
1983 int nx; /*in*/
1984 int ny; /*in*/
1985 plplot3d_style opt; /*in*/
1986 double *clevel; /*in*/
1987 int nlevel; /*in*/
1988 mlsize_t _c1;
1989 mlsize_t _c2;
1990 mlsize_t _c3;
1991 mlsize_t _c4;
1992 mlsize_t _c5;
1993 mlsize_t _c6;
1994 value _v7;
1995 mlsize_t _c8;
1996 mlsize_t _c9;
1997 mlsize_t _c10;
1998 mlsize_t _c11;
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);
2005 }
2006 nx = _c1;
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);
2011 }
2012 ny = _c3;
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);
2021 }
2022 ny = _c8;
2023 }
2024 nx = _c5;
2025 camlidl_ml2c_plplot_core_plplot3d_style(_v_opt, &opt, _ctx);
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);
2030 }
2031 nlevel = _c10;
2032 c_plmeshc(x, y, z, nx, ny, opt, clevel, nlevel);
2033 camlidl_free(_ctx);
2034 return Val_unit;
2035}
2036
2038{
2039 int *p_strm; /*out*/
2040 int _c1;
2041 value _vres;
2042
2043 p_strm = &_c1;
2044 c_plmkstrm(p_strm);
2045 _vres = Val_int(*p_strm);
2046 return _vres;
2047}
2048
2050 value _v_side,
2051 value _v_disp,
2052 value _v_pos,
2053 value _v_just,
2054 value _v_text)
2055{
2056 char const *side; /*in*/
2057 double disp; /*in*/
2058 double pos; /*in*/
2059 double just; /*in*/
2060 char const *text; /*in*/
2061 side = (char const *) String_val(_v_side);
2062 disp = Double_val(_v_disp);
2063 pos = Double_val(_v_pos);
2064 just = Double_val(_v_just);
2065 text = (char const *) String_val(_v_text);
2066 c_plmtex(side, disp, pos, just, text);
2067 return Val_unit;
2068}
2069
2071 value _v_side,
2072 value _v_disp,
2073 value _v_pos,
2074 value _v_just,
2075 value _v_text)
2076{
2077 char const *side; /*in*/
2078 double disp; /*in*/
2079 double pos; /*in*/
2080 double just; /*in*/
2081 char const *text; /*in*/
2082 side = (char const *) String_val(_v_side);
2083 disp = Double_val(_v_disp);
2084 pos = Double_val(_v_pos);
2085 just = Double_val(_v_just);
2086 text = (char const *) String_val(_v_text);
2087 c_plmtex3(side, disp, pos, just, text);
2088 return Val_unit;
2089}
2090
2092 value _v_x,
2093 value _v_y,
2094 value _v_z,
2095 value _v_opt,
2096 value _v_side)
2097{
2098 double *x; /*in*/
2099 double *y; /*in*/
2100 double **z; /*in*/
2101 int nx; /*in*/
2102 int ny; /*in*/
2103 plplot3d_style opt; /*in*/
2104 int side; /*in*/
2105 mlsize_t _c1;
2106 mlsize_t _c2;
2107 mlsize_t _c3;
2108 mlsize_t _c4;
2109 mlsize_t _c5;
2110 mlsize_t _c6;
2111 value _v7;
2112 mlsize_t _c8;
2113 mlsize_t _c9;
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);
2120 }
2121 nx = _c1;
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);
2126 }
2127 ny = _c3;
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);
2136 }
2137 ny = _c8;
2138 }
2139 nx = _c5;
2140 camlidl_ml2c_plplot_core_plplot3d_style(_v_opt, &opt, _ctx);
2141 side = Int_val(_v_side);
2142 c_plot3d(x, y, z, nx, ny, opt, side);
2143 camlidl_free(_ctx);
2144 return Val_unit;
2145}
2146
2148 value _v_x,
2149 value _v_y,
2150 value _v_z,
2151 value _v_opt,
2152 value _v_clevel)
2153{
2154 double *x; /*in*/
2155 double *y; /*in*/
2156 double **z; /*in*/
2157 int nx; /*in*/
2158 int ny; /*in*/
2159 plplot3d_style opt; /*in*/
2160 double *clevel; /*in*/
2161 int nlevel; /*in*/
2162 mlsize_t _c1;
2163 mlsize_t _c2;
2164 mlsize_t _c3;
2165 mlsize_t _c4;
2166 mlsize_t _c5;
2167 mlsize_t _c6;
2168 value _v7;
2169 mlsize_t _c8;
2170 mlsize_t _c9;
2171 mlsize_t _c10;
2172 mlsize_t _c11;
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);
2179 }
2180 nx = _c1;
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);
2185 }
2186 ny = _c3;
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);
2195 }
2196 ny = _c8;
2197 }
2198 nx = _c5;
2199 camlidl_ml2c_plplot_core_plplot3d_style(_v_opt, &opt, _ctx);
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);
2204 }
2205 nlevel = _c10;
2206 c_plot3dc(x, y, z, nx, ny, opt, clevel, nlevel);
2207 camlidl_free(_ctx);
2208 return Val_unit;
2209}
2210
2212 value _v_x,
2213 value _v_y,
2214 value _v_z,
2215 value _v_opt,
2216 value _v_clevel,
2217 value _v_indexxmin,
2218 value _v_indexymin,
2219 value _v_indexymax)
2220{
2221 double *x; /*in*/
2222 double *y; /*in*/
2223 double **z; /*in*/
2224 int nx; /*in*/
2225 int ny; /*in*/
2226 plplot3d_style opt; /*in*/
2227 double *clevel; /*in*/
2228 int nlevel; /*in*/
2229 int indexxmin; /*in*/
2230 int indexxmax; /*in*/
2231 int *indexymin; /*in*/
2232 int *indexymax; /*in*/
2233 mlsize_t _c1;
2234 mlsize_t _c2;
2235 mlsize_t _c3;
2236 mlsize_t _c4;
2237 mlsize_t _c5;
2238 mlsize_t _c6;
2239 value _v7;
2240 mlsize_t _c8;
2241 mlsize_t _c9;
2242 mlsize_t _c10;
2243 mlsize_t _c11;
2244 mlsize_t _c12;
2245 mlsize_t _c13;
2246 value _v14;
2247 mlsize_t _c15;
2248 mlsize_t _c16;
2249 value _v17;
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);
2256 }
2257 nx = _c1;
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);
2262 }
2263 ny = _c3;
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);
2272 }
2273 ny = _c8;
2274 }
2275 nx = _c5;
2276 camlidl_ml2c_plplot_core_plplot3d_style(_v_opt, &opt, _ctx);
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);
2281 }
2282 nlevel = _c10;
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);
2289 }
2290 indexxmax = _c12;
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);
2296 }
2297 indexxmax = _c15;
2298 c_plot3dcl(x, y, z, nx, ny, opt, clevel, nlevel, indexxmin, indexxmax, indexymin, indexymax);
2299 camlidl_free(_ctx);
2300 return Val_unit;
2301}
2302
2304{
2305 return camlidl_plplot_core_c_plot3dcl(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7]);
2306}
2307
2309 value _v_inc,
2310 value _v_del)
2311{
2312 int nlin; /*in*/
2313 int *inc; /*in*/
2314 int *del; /*in*/
2315 mlsize_t _c1;
2316 mlsize_t _c2;
2317 value _v3;
2318 mlsize_t _c4;
2319 mlsize_t _c5;
2320 value _v6;
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);
2328 }
2329 nlin = _c1;
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);
2335 }
2336 nlin = _c4;
2337 c_plpat(nlin, inc, del);
2338 camlidl_free(_ctx);
2339 return Val_unit;
2340}
2341
2343 value _v_n,
2344 value _v_x1,
2345 value _v_y1,
2346 value _v_x2,
2347 value _v_y2)
2348{
2349 int n; /*in*/
2350 double x1; /*in*/
2351 double y1; /*in*/
2352 double x2; /*in*/
2353 double y2; /*in*/
2354 n = Int_val(_v_n);
2355 x1 = Double_val(_v_x1);
2356 y1 = Double_val(_v_y1);
2357 x2 = Double_val(_v_x2);
2358 y2 = Double_val(_v_y2);
2359 c_plpath(n, x1, y1, x2, y2);
2360 return Val_unit;
2361}
2362
2364 value _v_x,
2365 value _v_y,
2366 value _v_code)
2367{
2368 int n; /*in*/
2369 double *x; /*in*/
2370 double *y; /*in*/
2371 int code; /*in*/
2372 mlsize_t _c1;
2373 mlsize_t _c2;
2374 mlsize_t _c3;
2375 mlsize_t _c4;
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);
2382 }
2383 n = _c1;
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);
2388 }
2389 n = _c3;
2390 code = Int_val(_v_code);
2391 c_plpoin(n, x, y, code);
2392 camlidl_free(_ctx);
2393 return Val_unit;
2394}
2395
2397 value _v_x,
2398 value _v_y,
2399 value _v_z,
2400 value _v_code)
2401{
2402 int n; /*in*/
2403 double *x; /*in*/
2404 double *y; /*in*/
2405 double *z; /*in*/
2406 int code; /*in*/
2407 mlsize_t _c1;
2408 mlsize_t _c2;
2409 mlsize_t _c3;
2410 mlsize_t _c4;
2411 mlsize_t _c5;
2412 mlsize_t _c6;
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);
2419 }
2420 n = _c1;
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);
2425 }
2426 n = _c3;
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);
2431 }
2432 n = _c5;
2433 code = Int_val(_v_code);
2434 c_plpoin3(n, x, y, z, code);
2435 camlidl_free(_ctx);
2436 return Val_unit;
2437}
2438
2440 value _v_setp,
2441 value _v_prec)
2442{
2443 int setp; /*in*/
2444 int prec; /*in*/
2445 setp = Int_val(_v_setp);
2446 prec = Int_val(_v_prec);
2447 c_plprec(setp, prec);
2448 return Val_unit;
2449}
2450
2452 value _v_patt)
2453{
2454 int patt; /*in*/
2455 patt = Int_val(_v_patt);
2456 c_plpsty(patt);
2457 return Val_unit;
2458}
2459
2461 value _v_x,
2462 value _v_y,
2463 value _v_dx,
2464 value _v_dy,
2465 value _v_just,
2466 value _v_text)
2467{
2468 double x; /*in*/
2469 double y; /*in*/
2470 double dx; /*in*/
2471 double dy; /*in*/
2472 double just; /*in*/
2473 char const *text; /*in*/
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 = (char const *) String_val(_v_text);
2480 c_plptex(x, y, dx, dy, just, text);
2481 return Val_unit;
2482}
2483
2485{
2486 return camlidl_plplot_core_c_plptex(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]);
2487}
2488
2490 value _v_wx,
2491 value _v_wy,
2492 value _v_wz,
2493 value _v_dx,
2494 value _v_dy,
2495 value _v_dz,
2496 value _v_sx,
2497 value _v_sy,
2498 value _v_sz,
2499 value _v_just,
2500 value _v_text)
2501{
2502 double wx; /*in*/
2503 double wy; /*in*/
2504 double wz; /*in*/
2505 double dx; /*in*/
2506 double dy; /*in*/
2507 double dz; /*in*/
2508 double sx; /*in*/
2509 double sy; /*in*/
2510 double sz; /*in*/
2511 double just; /*in*/
2512 char const *text; /*in*/
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 = (char const *) String_val(_v_text);
2524 c_plptex3(wx, wy, wz, dx, dy, dz, sx, sy, sz, just, text);
2525 return Val_unit;
2526}
2527
2529{
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]);
2531}
2532
2534{
2535 double _res;
2536 value _vres;
2537
2538 _res = c_plrandd();
2539 _vres = caml_copy_double(_res);
2540 return _vres;
2541}
2542
2544{
2545 c_plreplot();
2546 return Val_unit;
2547}
2548
2550 value _v_r,
2551 value _v_g,
2552 value _v_b)
2553{
2554 double r; /*in*/
2555 double g; /*in*/
2556 double b; /*in*/
2557 double *p_h; /*out*/
2558 double *p_l; /*out*/
2559 double *p_s; /*out*/
2560 double _c1;
2561 double _c2;
2562 double _c3;
2563 value _vresult;
2564 value _vres[3] = { 0, 0, 0, };
2565
2566 r = Double_val(_v_r);
2567 g = Double_val(_v_g);
2568 b = Double_val(_v_b);
2569 p_h = &_c1;
2570 p_l = &_c2;
2571 p_s = &_c3;
2572 c_plrgbhls(r, g, b, p_h, p_l, p_s);
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];
2581 End_roots()
2582 return _vresult;
2583}
2584
2586 value _v_def,
2587 value _v_scale)
2588{
2589 double def; /*in*/
2590 double scale; /*in*/
2591 def = Double_val(_v_def);
2592 scale = Double_val(_v_scale);
2593 c_plschr(def, scale);
2594 return Val_unit;
2595}
2596
2598 value _v_r,
2599 value _v_g,
2600 value _v_b)
2601{
2602 int *r; /*in*/
2603 int *g; /*in*/
2604 int *b; /*in*/
2605 int ncol0; /*in*/
2606 mlsize_t _c1;
2607 mlsize_t _c2;
2608 value _v3;
2609 mlsize_t _c4;
2610 mlsize_t _c5;
2611 value _v6;
2612 mlsize_t _c7;
2613 mlsize_t _c8;
2614 value _v9;
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);
2622 }
2623 ncol0 = _c1;
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);
2629 }
2630 ncol0 = _c4;
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);
2636 }
2637 ncol0 = _c7;
2638 c_plscmap0(r, g, b, ncol0);
2639 camlidl_free(_ctx);
2640 return Val_unit;
2641}
2642
2644 value _v_r,
2645 value _v_g,
2646 value _v_b,
2647 value _v_alpha)
2648{
2649 int *r; /*in*/
2650 int *g; /*in*/
2651 int *b; /*in*/
2652 double *alpha; /*in*/
2653 int ncol0; /*in*/
2654 mlsize_t _c1;
2655 mlsize_t _c2;
2656 value _v3;
2657 mlsize_t _c4;
2658 mlsize_t _c5;
2659 value _v6;
2660 mlsize_t _c7;
2661 mlsize_t _c8;
2662 value _v9;
2663 mlsize_t _c10;
2664 mlsize_t _c11;
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);
2672 }
2673 ncol0 = _c1;
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);
2679 }
2680 ncol0 = _c4;
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);
2686 }
2687 ncol0 = _c7;
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);
2692 }
2693 ncol0 = _c10;
2694 c_plscmap0a(r, g, b, alpha, ncol0);
2695 camlidl_free(_ctx);
2696 return Val_unit;
2697}
2698
2700 value _v_ncol0)
2701{
2702 int ncol0; /*in*/
2703 ncol0 = Int_val(_v_ncol0);
2704 c_plscmap0n(ncol0);
2705 return Val_unit;
2706}
2707
2709 value _v_r,
2710 value _v_g,
2711 value _v_b)
2712{
2713 int *r; /*in*/
2714 int *g; /*in*/
2715 int *b; /*in*/
2716 int ncol1; /*in*/
2717 mlsize_t _c1;
2718 mlsize_t _c2;
2719 value _v3;
2720 mlsize_t _c4;
2721 mlsize_t _c5;
2722 value _v6;
2723 mlsize_t _c7;
2724 mlsize_t _c8;
2725 value _v9;
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);
2733 }
2734 ncol1 = _c1;
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);
2740 }
2741 ncol1 = _c4;
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);
2747 }
2748 ncol1 = _c7;
2749 c_plscmap1(r, g, b, ncol1);
2750 camlidl_free(_ctx);
2751 return Val_unit;
2752}
2753
2755 value _v_r,
2756 value _v_g,
2757 value _v_b,
2758 value _v_alpha)
2759{
2760 int *r; /*in*/
2761 int *g; /*in*/
2762 int *b; /*in*/
2763 double *alpha; /*in*/
2764 int ncol1; /*in*/
2765 mlsize_t _c1;
2766 mlsize_t _c2;
2767 value _v3;
2768 mlsize_t _c4;
2769 mlsize_t _c5;
2770 value _v6;
2771 mlsize_t _c7;
2772 mlsize_t _c8;
2773 value _v9;
2774 mlsize_t _c10;
2775 mlsize_t _c11;
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);
2783 }
2784 ncol1 = _c1;
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);
2790 }
2791 ncol1 = _c4;
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);
2797 }
2798 ncol1 = _c7;
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);
2803 }
2804 ncol1 = _c10;
2805 c_plscmap1a(r, g, b, alpha, ncol1);
2806 camlidl_free(_ctx);
2807 return Val_unit;
2808}
2809
2811 value _v_itype,
2812 value _v_intensity,
2813 value _v_coord1,
2814 value _v_coord2,
2815 value _v_coord3,
2816 value _v_alt_hue_path)
2817{
2818 int itype; /*in*/
2819 int npts; /*in*/
2820 double *intensity; /*in*/
2821 double *coord1; /*in*/
2822 double *coord2; /*in*/
2823 double *coord3; /*in*/
2824 int *alt_hue_path; /*in*/
2825 mlsize_t _c1;
2826 mlsize_t _c2;
2827 mlsize_t _c3;
2828 mlsize_t _c4;
2829 mlsize_t _c5;
2830 mlsize_t _c6;
2831 mlsize_t _c7;
2832 mlsize_t _c8;
2833 value _v9;
2834 mlsize_t _c10;
2835 mlsize_t _c11;
2836 value _v12;
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);
2844 }
2845 npts = _c1;
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);
2850 }
2851 npts = _c3;
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);
2856 }
2857 npts = _c5;
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);
2862 }
2863 npts = _c7;
2864 if (_v_alt_hue_path == Val_int(0)) {
2865 alt_hue_path = NULL;
2866 } else {
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);
2873 }
2874 npts = _c10;
2875 }
2876 c_plscmap1l(itype, npts, intensity, coord1, coord2, coord3, alt_hue_path);
2877 camlidl_free(_ctx);
2878 return Val_unit;
2879}
2880
2885
2887 value _v_itype,
2888 value _v_intensity,
2889 value _v_coord1,
2890 value _v_coord2,
2891 value _v_coord3,
2892 value _v_alpha,
2893 value _v_alt_hue_path)
2894{
2895 int itype; /*in*/
2896 int npts; /*in*/
2897 double *intensity; /*in*/
2898 double *coord1; /*in*/
2899 double *coord2; /*in*/
2900 double *coord3; /*in*/
2901 double *alpha; /*in*/
2902 int *alt_hue_path; /*in*/
2903 mlsize_t _c1;
2904 mlsize_t _c2;
2905 mlsize_t _c3;
2906 mlsize_t _c4;
2907 mlsize_t _c5;
2908 mlsize_t _c6;
2909 mlsize_t _c7;
2910 mlsize_t _c8;
2911 mlsize_t _c9;
2912 mlsize_t _c10;
2913 value _v11;
2914 mlsize_t _c12;
2915 mlsize_t _c13;
2916 value _v14;
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);
2924 }
2925 npts = _c1;
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);
2930 }
2931 npts = _c3;
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);
2936 }
2937 npts = _c5;
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);
2942 }
2943 npts = _c7;
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);
2948 }
2949 npts = _c9;
2950 if (_v_alt_hue_path == Val_int(0)) {
2951 alt_hue_path = NULL;
2952 } else {
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);
2959 }
2960 npts = _c12;
2961 }
2962 c_plscmap1la(itype, npts, intensity, coord1, coord2, coord3, alpha, alt_hue_path);
2963 camlidl_free(_ctx);
2964 return Val_unit;
2965}
2966
2971
2973 value _v_ncol1)
2974{
2975 int ncol1; /*in*/
2976 ncol1 = Int_val(_v_ncol1);
2977 c_plscmap1n(ncol1);
2978 return Val_unit;
2979}
2980
2982 value _v_min_color,
2983 value _v_max_color)
2984{
2985 double min_color; /*in*/
2986 double max_color; /*in*/
2987 min_color = Double_val(_v_min_color);
2988 max_color = Double_val(_v_max_color);
2989 c_plscmap1_range(min_color, max_color);
2990 return Val_unit;
2991}
2992
2994 value _v_icol0,
2995 value _v_r,
2996 value _v_g,
2997 value _v_b)
2998{
2999 int icol0; /*in*/
3000 int r; /*in*/
3001 int g; /*in*/
3002 int b; /*in*/
3003 icol0 = Int_val(_v_icol0);
3004 r = Int_val(_v_r);
3005 g = Int_val(_v_g);
3006 b = Int_val(_v_b);
3007 c_plscol0(icol0, r, g, b);
3008 return Val_unit;
3009}
3010
3012 value _v_icol0,
3013 value _v_r,
3014 value _v_g,
3015 value _v_b,
3016 value _v_alpha)
3017{
3018 int icol0; /*in*/
3019 int r; /*in*/
3020 int g; /*in*/
3021 int b; /*in*/
3022 double alpha; /*in*/
3023 icol0 = Int_val(_v_icol0);
3024 r = Int_val(_v_r);
3025 g = Int_val(_v_g);
3026 b = Int_val(_v_b);
3027 alpha = Double_val(_v_alpha);
3028 c_plscol0a(icol0, r, g, b, alpha);
3029 return Val_unit;
3030}
3031
3033 value _v_r,
3034 value _v_g,
3035 value _v_b)
3036{
3037 int r; /*in*/
3038 int g; /*in*/
3039 int b; /*in*/
3040 r = Int_val(_v_r);
3041 g = Int_val(_v_g);
3042 b = Int_val(_v_b);
3043 c_plscolbg(r, g, b);
3044 return Val_unit;
3045}
3046
3048 value _v_r,
3049 value _v_g,
3050 value _v_b,
3051 value _v_alpha)
3052{
3053 int r; /*in*/
3054 int g; /*in*/
3055 int b; /*in*/
3056 double alpha; /*in*/
3057 r = Int_val(_v_r);
3058 g = Int_val(_v_g);
3059 b = Int_val(_v_b);
3060 alpha = Double_val(_v_alpha);
3061 c_plscolbga(r, g, b, alpha);
3062 return Val_unit;
3063}
3064
3066 value _v_color)
3067{
3068 int color; /*in*/
3069 color = Int_val(_v_color);
3071 return Val_unit;
3072}
3073
3075 value _v_compression)
3076{
3077 int compression; /*in*/
3078 compression = Int_val(_v_compression);
3079 c_plscompression(compression);
3080 return Val_unit;
3081}
3082
3084 value _v_devname)
3085{
3086 char const *devname; /*in*/
3087 devname = (char const *) String_val(_v_devname);
3088 c_plsdev(devname);
3089 return Val_unit;
3090}
3091
3093 value _v_mar,
3094 value _v_aspect,
3095 value _v_jx,
3096 value _v_jy)
3097{
3098 double mar; /*in*/
3099 double aspect; /*in*/
3100 double jx; /*in*/
3101 double jy; /*in*/
3102 mar = Double_val(_v_mar);
3103 aspect = Double_val(_v_aspect);
3104 jx = Double_val(_v_jx);
3105 jy = Double_val(_v_jy);
3106 c_plsdidev(mar, aspect, jx, jy);
3107 return Val_unit;
3108}
3109
3111 value _v_dimxmin,
3112 value _v_dimxmax,
3113 value _v_dimymin,
3114 value _v_dimymax,
3115 value _v_dimxpmm,
3116 value _v_dimypmm)
3117{
3118 int dimxmin; /*in*/
3119 int dimxmax; /*in*/
3120 int dimymin; /*in*/
3121 int dimymax; /*in*/
3122 double dimxpmm; /*in*/
3123 double dimypmm; /*in*/
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);
3131 return Val_unit;
3132}
3133
3138
3140 value _v_rot)
3141{
3142 double rot; /*in*/
3143 rot = Double_val(_v_rot);
3144 c_plsdiori(rot);
3145 return Val_unit;
3146}
3147
3149 value _v_xmin,
3150 value _v_ymin,
3151 value _v_xmax,
3152 value _v_ymax)
3153{
3154 double xmin; /*in*/
3155 double ymin; /*in*/
3156 double xmax; /*in*/
3157 double ymax; /*in*/
3158 xmin = Double_val(_v_xmin);
3159 ymin = Double_val(_v_ymin);
3160 xmax = Double_val(_v_xmax);
3161 ymax = Double_val(_v_ymax);
3162 c_plsdiplt(xmin, ymin, xmax, ymax);
3163 return Val_unit;
3164}
3165
3167 value _v_xmin,
3168 value _v_ymin,
3169 value _v_xmax,
3170 value _v_ymax)
3171{
3172 double xmin; /*in*/
3173 double ymin; /*in*/
3174 double xmax; /*in*/
3175 double ymax; /*in*/
3176 xmin = Double_val(_v_xmin);
3177 ymin = Double_val(_v_ymin);
3178 xmax = Double_val(_v_xmax);
3179 ymax = Double_val(_v_ymax);
3180 c_plsdiplz(xmin, ymin, xmax, ymax);
3181 return Val_unit;
3182}
3183
3185 value _v_mode)
3186{
3187 int mode; /*in*/
3189 c_plsdrawmode(mode);
3190 return Val_unit;
3191}
3192
3194 value _v_seed)
3195{
3196 unsigned int seed; /*in*/
3197 seed = Int64_val(_v_seed);
3198 c_plseed(seed);
3199 return Val_unit;
3200}
3201
3203 value _v_esc)
3204{
3205 char esc; /*in*/
3206 esc = Int_val(_v_esc);
3207 c_plsesc(esc);
3208 return Val_unit;
3209}
3210
3212 value _v_fam,
3213 value _v_num,
3214 value _v_bmax)
3215{
3216 int fam; /*in*/
3217 int num; /*in*/
3218 int bmax; /*in*/
3219 fam = Int_val(_v_fam);
3220 num = Int_val(_v_num);
3221 bmax = Int_val(_v_bmax);
3222 c_plsfam(fam, num, bmax);
3223 return Val_unit;
3224}
3225
3227 value _v_fci)
3228{
3229 long long fci; /*in*/
3230 fci = Int64_val(_v_fci);
3231 c_plsfci(fci);
3232 return Val_unit;
3233}
3234
3236 value _v_fnam)
3237{
3238 char const *fnam; /*in*/
3239 fnam = (char const *) String_val(_v_fnam);
3240 c_plsfnam(fnam);
3241 return Val_unit;
3242}
3243
3245 value _v_family,
3246 value _v_style,
3247 value _v_weight)
3248{
3249 int family; /*in*/
3250 int style; /*in*/
3251 int weight; /*in*/
3255 c_plsfont(family, style, weight);
3256 return Val_unit;
3257}
3258
3260 value _v_def,
3261 value _v_scale)
3262{
3263 double def; /*in*/
3264 double scale; /*in*/
3265 def = Double_val(_v_def);
3266 scale = Double_val(_v_scale);
3267 c_plsmaj(def, scale);
3268 return Val_unit;
3269}
3270
3272 value _v_def,
3273 value _v_scale)
3274{
3275 double def; /*in*/
3276 double scale; /*in*/
3277 def = Double_val(_v_def);
3278 scale = Double_val(_v_scale);
3279 c_plsmin(def, scale);
3280 return Val_unit;
3281}
3282
3284 value _v_ori)
3285{
3286 int ori; /*in*/
3287 ori = Int_val(_v_ori);
3288 c_plsori(ori);
3289 return Val_unit;
3290}
3291
3293 value _v_xp,
3294 value _v_yp,
3295 value _v_xleng,
3296 value _v_yleng,
3297 value _v_xoff,
3298 value _v_yoff)
3299{
3300 double xp; /*in*/
3301 double yp; /*in*/
3302 int xleng; /*in*/
3303 int yleng; /*in*/
3304 int xoff; /*in*/
3305 int yoff; /*in*/
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);
3313 return Val_unit;
3314}
3315
3320
3322 value _v_filename)
3323{
3324 char const *filename; /*in*/
3325 filename = (char const *) String_val(_v_filename);
3326 c_plspal0(filename);
3327 return Val_unit;
3328}
3329
3331 value _v_filename,
3332 value _v_interpolate)
3333{
3334 char const *filename; /*in*/
3335 int interpolate; /*in*/
3336 filename = (char const *) String_val(_v_filename);
3337 interpolate = Int_val(_v_interpolate);
3338 c_plspal1(filename, interpolate);
3339 return Val_unit;
3340}
3341
3343 value _v_pause)
3344{
3345 int pause; /*in*/
3346 pause = Int_val(_v_pause);
3347 c_plspause(pause);
3348 return Val_unit;
3349}
3350
3352 value _v_strm)
3353{
3354 int strm; /*in*/
3355 strm = Int_val(_v_strm);
3356 c_plsstrm(strm);
3357 return Val_unit;
3358}
3359
3361 value _v_nx,
3362 value _v_ny)
3363{
3364 int nx; /*in*/
3365 int ny; /*in*/
3366 nx = Int_val(_v_nx);
3367 ny = Int_val(_v_ny);
3368 c_plssub(nx, ny);
3369 return Val_unit;
3370}
3371
3373 value _v_def,
3374 value _v_scale)
3375{
3376 double def; /*in*/
3377 double scale; /*in*/
3378 def = Double_val(_v_def);
3379 scale = Double_val(_v_scale);
3380 c_plssym(def, scale);
3381 return Val_unit;
3382}
3383
3385 value _v_nx,
3386 value _v_ny)
3387{
3388 int nx; /*in*/
3389 int ny; /*in*/
3390 nx = Int_val(_v_nx);
3391 ny = Int_val(_v_ny);
3392 c_plstar(nx, ny);
3393 return Val_unit;
3394}
3395
3397 value _v_devname,
3398 value _v_nx,
3399 value _v_ny)
3400{
3401 char const *devname; /*in*/
3402 int nx; /*in*/
3403 int ny; /*in*/
3404 devname = (char const *) String_val(_v_devname);
3405 nx = Int_val(_v_nx);
3406 ny = Int_val(_v_ny);
3407 c_plstart(devname, nx, ny);
3408 return Val_unit;
3409}
3410
3412 value _v_x,
3413 value _v_y,
3414 value _v_string)
3415{
3416 int n; /*in*/
3417 double *x; /*in*/
3418 double *y; /*in*/
3419 char const *string; /*in*/
3420 mlsize_t _c1;
3421 mlsize_t _c2;
3422 mlsize_t _c3;
3423 mlsize_t _c4;
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);
3430 }
3431 n = _c1;
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);
3436 }
3437 n = _c3;
3438 string = (char const *) String_val(_v_string);
3439 c_plstring(n, x, y, string);
3440 camlidl_free(_ctx);
3441 return Val_unit;
3442}
3443
3445 value _v_x,
3446 value _v_y,
3447 value _v_z,
3448 value _v_string)
3449{
3450 int n; /*in*/
3451 double *x; /*in*/
3452 double *y; /*in*/
3453 double *z; /*in*/
3454 char const *string; /*in*/
3455 mlsize_t _c1;
3456 mlsize_t _c2;
3457 mlsize_t _c3;
3458 mlsize_t _c4;
3459 mlsize_t _c5;
3460 mlsize_t _c6;
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);
3467 }
3468 n = _c1;
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);
3473 }
3474 n = _c3;
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);
3479 }
3480 n = _c5;
3481 string = (char const *) String_val(_v_string);
3482 c_plstring3(n, x, y, z, string);
3483 camlidl_free(_ctx);
3484 return Val_unit;
3485}
3486
3488 value _v_id,
3489 value _v_pen,
3490 value _v_x,
3491 value _v_y)
3492{
3493 int id; /*in*/
3494 int pen; /*in*/
3495 double x; /*in*/
3496 double y; /*in*/
3497 id = Int_val(_v_id);
3498 pen = Int_val(_v_pen);
3499 x = Double_val(_v_x);
3500 y = Double_val(_v_y);
3501 c_plstripa(id, pen, x, y);
3502 return Val_unit;
3503}
3504
3506 value _v_id)
3507{
3508 int id; /*in*/
3509 id = Int_val(_v_id);
3510 c_plstripd(id);
3511 return Val_unit;
3512}
3513
3515 value _v_idata,
3516 value _v_xmin,
3517 value _v_xmax,
3518 value _v_ymin,
3519 value _v_ymax,
3520 value _v_zmin,
3521 value _v_zmax,
3522 value _v_Dxmin,
3523 value _v_Dxmax,
3524 value _v_Dymin,
3525 value _v_Dymax)
3526{
3527 double **idata; /*in*/
3528 int nx; /*in*/
3529 int ny; /*in*/
3530 double xmin; /*in*/
3531 double xmax; /*in*/
3532 double ymin; /*in*/
3533 double ymax; /*in*/
3534 double zmin; /*in*/
3535 double zmax; /*in*/
3536 double Dxmin; /*in*/
3537 double Dxmax; /*in*/
3538 double Dymin; /*in*/
3539 double Dymax; /*in*/
3540 mlsize_t _c1;
3541 mlsize_t _c2;
3542 value _v3;
3543 mlsize_t _c4;
3544 mlsize_t _c5;
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);
3555 }
3556 ny = _c4;
3557 }
3558 nx = _c1;
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);
3570 camlidl_free(_ctx);
3571 return Val_unit;
3572}
3573
3575{
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]);
3577}
3578
3580 value _v_mark,
3581 value _v_space)
3582{
3583 int nms; /*in*/
3584 int *mark; /*in*/
3585 int *space; /*in*/
3586 mlsize_t _c1;
3587 mlsize_t _c2;
3588 value _v3;
3589 mlsize_t _c4;
3590 mlsize_t _c5;
3591 value _v6;
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);
3599 }
3600 nms = _c1;
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);
3606 }
3607 nms = _c4;
3608 c_plstyl(nms, mark, space);
3609 camlidl_free(_ctx);
3610 return Val_unit;
3611}
3612
3614 value _v_x,
3615 value _v_y,
3616 value _v_z,
3617 value _v_opt,
3618 value _v_clevel)
3619{
3620 double *x; /*in*/
3621 double *y; /*in*/
3622 double **z; /*in*/
3623 int nx; /*in*/
3624 int ny; /*in*/
3625 plplot3d_style opt; /*in*/
3626 double *clevel; /*in*/
3627 int nlevel; /*in*/
3628 mlsize_t _c1;
3629 mlsize_t _c2;
3630 mlsize_t _c3;
3631 mlsize_t _c4;
3632 mlsize_t _c5;
3633 mlsize_t _c6;
3634 value _v7;
3635 mlsize_t _c8;
3636 mlsize_t _c9;
3637 mlsize_t _c10;
3638 mlsize_t _c11;
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);
3645 }
3646 nx = _c1;
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);
3651 }
3652 ny = _c3;
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);
3661 }
3662 ny = _c8;
3663 }
3664 nx = _c5;
3665 camlidl_ml2c_plplot_core_plplot3d_style(_v_opt, &opt, _ctx);
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);
3670 }
3671 nlevel = _c10;
3672 c_plsurf3d(x, y, z, nx, ny, opt, clevel, nlevel);
3673 camlidl_free(_ctx);
3674 return Val_unit;
3675}
3676
3678 value _v_x,
3679 value _v_y,
3680 value _v_z,
3681 value _v_opt,
3682 value _v_clevel,
3683 value _v_indexxmin,
3684 value _v_indexymin,
3685 value _v_indexymax)
3686{
3687 double *x; /*in*/
3688 double *y; /*in*/
3689 double **z; /*in*/
3690 int nx; /*in*/
3691 int ny; /*in*/
3692 plplot3d_style opt; /*in*/
3693 double *clevel; /*in*/
3694 int nlevel; /*in*/
3695 int indexxmin; /*in*/
3696 int indexxmax; /*in*/
3697 int *indexymin; /*in*/
3698 int *indexymax; /*in*/
3699 mlsize_t _c1;
3700 mlsize_t _c2;
3701 mlsize_t _c3;
3702 mlsize_t _c4;
3703 mlsize_t _c5;
3704 mlsize_t _c6;
3705 value _v7;
3706 mlsize_t _c8;
3707 mlsize_t _c9;
3708 mlsize_t _c10;
3709 mlsize_t _c11;
3710 mlsize_t _c12;
3711 mlsize_t _c13;
3712 value _v14;
3713 mlsize_t _c15;
3714 mlsize_t _c16;
3715 value _v17;
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);
3722 }
3723 nx = _c1;
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);
3728 }
3729 ny = _c3;
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);
3738 }
3739 ny = _c8;
3740 }
3741 nx = _c5;
3742 camlidl_ml2c_plplot_core_plplot3d_style(_v_opt, &opt, _ctx);
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);
3747 }
3748 nlevel = _c10;
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);
3755 }
3756 indexxmax = _c12;
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);
3762 }
3763 indexxmax = _c15;
3764 c_plsurf3dl(x, y, z, nx, ny, opt, clevel, nlevel, indexxmin, indexxmax, indexymin, indexymax);
3765 camlidl_free(_ctx);
3766 return Val_unit;
3767}
3768
3770{
3771 return camlidl_plplot_core_c_plsurf3dl(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7]);
3772}
3773
3775 value _v_arrowx,
3776 value _v_arrowy,
3777 value _v_fill)
3778{
3779 double *arrowx; /*in*/
3780 double *arrowy; /*in*/
3781 int npts; /*in*/
3782 int fill; /*in*/
3783 mlsize_t _c1;
3784 mlsize_t _c2;
3785 mlsize_t _c3;
3786 mlsize_t _c4;
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);
3793 }
3794 npts = _c1;
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);
3799 }
3800 npts = _c3;
3801 fill = Int_val(_v_fill);
3802 c_plsvect(arrowx, arrowy, npts, fill);
3803 camlidl_free(_ctx);
3804 return Val_unit;
3805}
3806
3808 value _v_xmin,
3809 value _v_xmax,
3810 value _v_ymin,
3811 value _v_ymax)
3812{
3813 double xmin; /*in*/
3814 double xmax; /*in*/
3815 double ymin; /*in*/
3816 double ymax; /*in*/
3817 xmin = Double_val(_v_xmin);
3818 xmax = Double_val(_v_xmax);
3819 ymin = Double_val(_v_ymin);
3820 ymax = Double_val(_v_ymax);
3821 c_plsvpa(xmin, xmax, ymin, ymax);
3822 return Val_unit;
3823}
3824
3826 value _v_digmax,
3827 value _v_digits)
3828{
3829 int digmax; /*in*/
3830 int digits; /*in*/
3831 digmax = Int_val(_v_digmax);
3832 digits = Int_val(_v_digits);
3833 c_plsxax(digmax, digits);
3834 return Val_unit;
3835}
3836
3838 value _v_window_id)
3839{
3840 int window_id; /*in*/
3841 window_id = Int_val(_v_window_id);
3842 plsxwin(window_id);
3843 return Val_unit;
3844}
3845
3847 value _v_digmax,
3848 value _v_digits)
3849{
3850 int digmax; /*in*/
3851 int digits; /*in*/
3852 digmax = Int_val(_v_digmax);
3853 digits = Int_val(_v_digits);
3854 c_plsyax(digmax, digits);
3855 return Val_unit;
3856}
3857
3859 value _v_x,
3860 value _v_y,
3861 value _v_code)
3862{
3863 int n; /*in*/
3864 double *x; /*in*/
3865 double *y; /*in*/
3866 int code; /*in*/
3867 mlsize_t _c1;
3868 mlsize_t _c2;
3869 mlsize_t _c3;
3870 mlsize_t _c4;
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);
3877 }
3878 n = _c1;
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);
3883 }
3884 n = _c3;
3885 code = Int_val(_v_code);
3886 c_plsym(n, x, y, code);
3887 camlidl_free(_ctx);
3888 return Val_unit;
3889}
3890
3892 value _v_digmax,
3893 value _v_digits)
3894{
3895 int digmax; /*in*/
3896 int digits; /*in*/
3897 digmax = Int_val(_v_digmax);
3898 digits = Int_val(_v_digits);
3899 c_plszax(digmax, digits);
3900 return Val_unit;
3901}
3902
3904{
3905 c_pltext();
3906 return Val_unit;
3907}
3908
3910 value _v_fmt)
3911{
3912 char const *fmt; /*in*/
3913 fmt = (char const *) String_val(_v_fmt);
3914 c_pltimefmt(fmt);
3915 return Val_unit;
3916}
3917
3919 value _v_aspect)
3920{
3921 double aspect; /*in*/
3922 aspect = Double_val(_v_aspect);
3923 c_plvasp(aspect);
3924 return Val_unit;
3925}
3926
3928 value _v_xmin,
3929 value _v_xmax,
3930 value _v_ymin,
3931 value _v_ymax,
3932 value _v_aspect)
3933{
3934 double xmin; /*in*/
3935 double xmax; /*in*/
3936 double ymin; /*in*/
3937 double ymax; /*in*/
3938 double aspect; /*in*/
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);
3945 return Val_unit;
3946}
3947
3949 value _v_xmin,
3950 value _v_xmax,
3951 value _v_ymin,
3952 value _v_ymax)
3953{
3954 double xmin; /*in*/
3955 double xmax; /*in*/
3956 double ymin; /*in*/
3957 double ymax; /*in*/
3958 xmin = Double_val(_v_xmin);
3959 xmax = Double_val(_v_xmax);
3960 ymin = Double_val(_v_ymin);
3961 ymax = Double_val(_v_ymax);
3962 c_plvpor(xmin, xmax, ymin, ymax);
3963 return Val_unit;
3964}
3965
3967{
3968 c_plvsta();
3969 return Val_unit;
3970}
3971
3973 value _v_basex,
3974 value _v_basey,
3975 value _v_height,
3976 value _v_xmin,
3977 value _v_xmax,
3978 value _v_ymin,
3979 value _v_ymax,
3980 value _v_zmin,
3981 value _v_zmax,
3982 value _v_alt,
3983 value _v_az)
3984{
3985 double basex; /*in*/
3986 double basey; /*in*/
3987 double height; /*in*/
3988 double xmin; /*in*/
3989 double xmax; /*in*/
3990 double ymin; /*in*/
3991 double ymax; /*in*/
3992 double zmin; /*in*/
3993 double zmax; /*in*/
3994 double alt; /*in*/
3995 double az; /*in*/
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);
4008 return Val_unit;
4009}
4010
4012{
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]);
4014}
4015
4017 value _v_width)
4018{
4019 double width; /*in*/
4020 width = Double_val(_v_width);
4021 c_plwidth(width);
4022 return Val_unit;
4023}
4024
4026 value _v_xmin,
4027 value _v_xmax,
4028 value _v_ymin,
4029 value _v_ymax)
4030{
4031 double xmin; /*in*/
4032 double xmax; /*in*/
4033 double ymin; /*in*/
4034 double ymax; /*in*/
4035 xmin = Double_val(_v_xmin);
4036 xmax = Double_val(_v_xmax);
4037 ymin = Double_val(_v_ymin);
4038 ymax = Double_val(_v_ymax);
4039 c_plwind(xmin, xmax, ymin, ymax);
4040 return Val_unit;
4041}
4042
4044 value _v_mode)
4045{
4046 int mode; /*in*/
4047 int *status; /*out*/
4048 int _c1;
4049 value _vres;
4050
4051 mode = Int_val(_v_mode);
4052 status = &_c1;
4053 c_plxormod(mode, status);
4054 _vres = Val_int(*status);
4055 return _vres;
4056}
4057
4059 value _v_opt,
4060 value _v_optarg)
4061{
4062 char const *opt; /*in*/
4063 char const *optarg; /*in*/
4064 nonzero_error_int _res;
4065 opt = (char const *) String_val(_v_opt);
4066 optarg = (char const *) String_val(_v_optarg);
4067 _res = c_plsetopt(opt, optarg);
4069 return Val_unit;
4070}
4071
4073 value _v_f)
4074{
4075 double **f; /*in*/
4076 int nx; /*in*/
4077 int ny; /*in*/
4078 double *fmax; /*out*/
4079 double *fmin; /*out*/
4080 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4081 camlidl_ctx _ctx = &_ctxs;
4082 mlsize_t _c1;
4083 mlsize_t _c2;
4084 value _v3;
4085 mlsize_t _c4;
4086 mlsize_t _c5;
4087 double _c6;
4088 double _c7;
4089 value _vresult;
4090 value _vres[2] = { 0, 0, };
4091
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);
4100 }
4101 ny = _c4;
4102 }
4103 nx = _c1;
4104 fmax = &_c6;
4105 fmin = &_c7;
4106 plMinMax2dGrid(f, nx, ny, fmax, fmin);
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];
4113 End_roots()
4114 camlidl_free(_ctx);
4115 return _vresult;
4116}
4117
4119 value _v_f,
4120 value _v_kx,
4121 value _v_lx,
4122 value _v_ky,
4123 value _v_ly,
4124 value _v_clevel)
4125{
4126 double **f; /*in*/
4127 int nx; /*in*/
4128 int ny; /*in*/
4129 int kx; /*in*/
4130 int lx; /*in*/
4131 int ky; /*in*/
4132 int ly; /*in*/
4133 double *clevel; /*in*/
4134 int nlevel; /*in*/
4135 mlsize_t _c1;
4136 mlsize_t _c2;
4137 value _v3;
4138 mlsize_t _c4;
4139 mlsize_t _c5;
4140 mlsize_t _c6;
4141 mlsize_t _c7;
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);
4152 }
4153 ny = _c4;
4154 }
4155 nx = _c1;
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);
4164 }
4165 nlevel = _c6;
4166 ml_plcont(f, nx, ny, kx, lx, ky, ly, clevel, nlevel);
4167 camlidl_free(_ctx);
4168 return Val_unit;
4169}
4170
4175
4177 value _v_a,
4178 value _v_left,
4179 value _v_right,
4180 value _v_bottom,
4181 value _v_top,
4182 value _v_shade_min,
4183 value _v_shade_max,
4184 value _v_sh_cmap,
4185 value _v_sh_color,
4186 value _v_sh_width,
4187 value _v_min_color,
4188 value _v_min_width,
4189 value _v_max_color,
4190 value _v_max_width,
4191 value _v_rectangular)
4192{
4193 double **a; /*in*/
4194 int nx; /*in*/
4195 int ny; /*in*/
4196 double left; /*in*/
4197 double right; /*in*/
4198 double bottom; /*in*/
4199 double top; /*in*/
4200 double shade_min; /*in*/
4201 double shade_max; /*in*/
4202 int sh_cmap; /*in*/
4203 double sh_color; /*in*/
4204 double sh_width; /*in*/
4205 int min_color; /*in*/
4206 double min_width; /*in*/
4207 int max_color; /*in*/
4208 double max_width; /*in*/
4209 int rectangular; /*in*/
4210 mlsize_t _c1;
4211 mlsize_t _c2;
4212 value _v3;
4213 mlsize_t _c4;
4214 mlsize_t _c5;
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);
4225 }
4226 ny = _c4;
4227 }
4228 nx = _c1;
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);
4244 camlidl_free(_ctx);
4245 return Val_unit;
4246}
4247
4249{
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]);
4251}
4252
4254 value _v_a,
4255 value _v_xmin,
4256 value _v_xmax,
4257 value _v_ymin,
4258 value _v_ymax,
4259 value _v_clevel,
4260 value _v_fill_width,
4261 value _v_cont_color,
4262 value _v_cont_width,
4263 value _v_rectangular)
4264{
4265 double **a; /*in*/
4266 int nx; /*in*/
4267 int ny; /*in*/
4268 double xmin; /*in*/
4269 double xmax; /*in*/
4270 double ymin; /*in*/
4271 double ymax; /*in*/
4272 double *clevel; /*in*/
4273 int nlevel; /*in*/
4274 double fill_width; /*in*/
4275 int cont_color; /*in*/
4276 double cont_width; /*in*/
4277 int rectangular; /*in*/
4278 mlsize_t _c1;
4279 mlsize_t _c2;
4280 value _v3;
4281 mlsize_t _c4;
4282 mlsize_t _c5;
4283 mlsize_t _c6;
4284 mlsize_t _c7;
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);
4295 }
4296 ny = _c4;
4297 }
4298 nx = _c1;
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);
4307 }
4308 nlevel = _c6;
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);
4314 camlidl_free(_ctx);
4315 return Val_unit;
4316}
4317
4319{
4320 return camlidl_plplot_core_ml_plshades(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9]);
4321}
4322
4324 value _v_idata,
4325 value _v_xmin,
4326 value _v_xmax,
4327 value _v_ymin,
4328 value _v_ymax,
4329 value _v_zmin,
4330 value _v_zmax,
4331 value _v_valuemin,
4332 value _v_valuemax)
4333{
4334 double **idata; /*in*/
4335 int nx; /*in*/
4336 int ny; /*in*/
4337 double xmin; /*in*/
4338 double xmax; /*in*/
4339 double ymin; /*in*/
4340 double ymax; /*in*/
4341 double zmin; /*in*/
4342 double zmax; /*in*/
4343 double valuemin; /*in*/
4344 double valuemax; /*in*/
4345 mlsize_t _c1;
4346 mlsize_t _c2;
4347 value _v3;
4348 mlsize_t _c4;
4349 mlsize_t _c5;
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);
4360 }
4361 ny = _c4;
4362 }
4363 nx = _c1;
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);
4373 camlidl_free(_ctx);
4374 return Val_unit;
4375}
4376
4378{
4379 return camlidl_plplot_core_ml_plimagefr(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8]);
4380}
4381
4383 value _v_u,
4384 value _v_v,
4385 value _v_scale)
4386{
4387 double **u; /*in*/
4388 double **v; /*in*/
4389 int nx; /*in*/
4390 int ny; /*in*/
4391 double scale; /*in*/
4392 mlsize_t _c1;
4393 mlsize_t _c2;
4394 value _v3;
4395 mlsize_t _c4;
4396 mlsize_t _c5;
4397 mlsize_t _c6;
4398 mlsize_t _c7;
4399 value _v8;
4400 mlsize_t _c9;
4401 mlsize_t _c10;
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);
4412 }
4413 ny = _c4;
4414 }
4415 nx = _c1;
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);
4424 }
4425 ny = _c9;
4426 }
4427 nx = _c6;
4428 scale = Double_val(_v_scale);
4429 ml_plvect(u, v, nx, ny, scale);
4430 camlidl_free(_ctx);
4431 return Val_unit;
4432}
4433
4435 value _v_name,
4436 value _v_minx,
4437 value _v_maxx,
4438 value _v_miny,
4439 value _v_maxy)
4440{
4441 char const *name; /*in*/
4442 double minx; /*in*/
4443 double maxx; /*in*/
4444 double miny; /*in*/
4445 double maxy; /*in*/
4446 name = (char const *) 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);
4451 ml_plmap(name, minx, maxx, miny, maxy);
4452 return Val_unit;
4453}
4454
4456 value _v_name,
4457 value _v_minx,
4458 value _v_maxx,
4459 value _v_miny,
4460 value _v_maxy,
4461 value _v_plotentries)
4462{
4463 char const *name; /*in*/
4464 double minx; /*in*/
4465 double maxx; /*in*/
4466 double miny; /*in*/
4467 double maxy; /*in*/
4468 int *plotentries; /*in*/
4469 int nplotentries; /*in*/
4470 mlsize_t _c1;
4471 mlsize_t _c2;
4472 value _v3;
4473 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4474 camlidl_ctx _ctx = &_ctxs;
4475 name = (char const *) 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);
4485 }
4486 nplotentries = _c1;
4487 ml_plmapline(name, minx, maxx, miny, maxy, plotentries, nplotentries);
4488 camlidl_free(_ctx);
4489 return Val_unit;
4490}
4491
4496
4498 value _v_name,
4499 value _v_string,
4500 value _v_minx,
4501 value _v_maxx,
4502 value _v_miny,
4503 value _v_maxy,
4504 value _v_plotentries)
4505{
4506 char const *name; /*in*/
4507 char const *string; /*in*/
4508 double minx; /*in*/
4509 double maxx; /*in*/
4510 double miny; /*in*/
4511 double maxy; /*in*/
4512 int *plotentries; /*in*/
4513 int nplotentries; /*in*/
4514 mlsize_t _c1;
4515 mlsize_t _c2;
4516 value _v3;
4517 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4518 camlidl_ctx _ctx = &_ctxs;
4519 name = (char const *) String_val(_v_name);
4520 string = (char const *) 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);
4530 }
4531 nplotentries = _c1;
4532 ml_plmapstring(name, string, minx, maxx, miny, maxy, plotentries, nplotentries);
4533 camlidl_free(_ctx);
4534 return Val_unit;
4535}
4536
4541
4543 value _v_name,
4544 value _v_dx,
4545 value _v_dy,
4546 value _v_just,
4547 value _v_text,
4548 value _v_minx,
4549 value _v_maxx,
4550 value _v_miny,
4551 value _v_maxy,
4552 value _v_plotentry)
4553{
4554 char const *name; /*in*/
4555 double dx; /*in*/
4556 double dy; /*in*/
4557 double just; /*in*/
4558 char const *text; /*in*/
4559 double minx; /*in*/
4560 double maxx; /*in*/
4561 double miny; /*in*/
4562 double maxy; /*in*/
4563 int plotentry; /*in*/
4564 name = (char const *) String_val(_v_name);
4565 dx = Double_val(_v_dx);
4566 dy = Double_val(_v_dy);
4567 just = Double_val(_v_just);
4568 text = (char const *) 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);
4574 ml_plmaptex(name, dx, dy, just, text, minx, maxx, miny, maxy, plotentry);
4575 return Val_unit;
4576}
4577
4579{
4580 return camlidl_plplot_core_ml_plmaptex(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9]);
4581}
4582
4584 value _v_name,
4585 value _v_minx,
4586 value _v_maxx,
4587 value _v_miny,
4588 value _v_maxy,
4589 value _v_plotentries)
4590{
4591 char const *name; /*in*/
4592 double minx; /*in*/
4593 double maxx; /*in*/
4594 double miny; /*in*/
4595 double maxy; /*in*/
4596 int *plotentries; /*in*/
4597 int nplotentries; /*in*/
4598 mlsize_t _c1;
4599 mlsize_t _c2;
4600 value _v3;
4601 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4602 camlidl_ctx _ctx = &_ctxs;
4603 name = (char const *) 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);
4613 }
4614 nplotentries = _c1;
4615 ml_plmapfill(name, minx, maxx, miny, maxy, plotentries, nplotentries);
4616 camlidl_free(_ctx);
4617 return Val_unit;
4618}
4619
4624
4626 value _v_dlong,
4627 value _v_dlat,
4628 value _v_minlong,
4629 value _v_maxlong,
4630 value _v_minlat,
4631 value _v_maxlat)
4632{
4633 double dlong; /*in*/
4634 double dlat; /*in*/
4635 double minlong; /*in*/
4636 double maxlong; /*in*/
4637 double minlat; /*in*/
4638 double maxlat; /*in*/
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);
4645 ml_plmeridians(dlong, dlat, minlong, maxlong, minlat, maxlat);
4646 return Val_unit;
4647}
4648
4653
4655 value _v_x,
4656 value _v_y,
4657 value _v_z,
4658 value _v_draw,
4659 value _v_ifcc)
4660{
4661 int n; /*in*/
4662 double *x; /*in*/
4663 double *y; /*in*/
4664 double *z; /*in*/
4665 int ndraw; /*in*/
4666 int *draw; /*in*/
4667 int ifcc; /*in*/
4668 mlsize_t _c1;
4669 mlsize_t _c2;
4670 mlsize_t _c3;
4671 mlsize_t _c4;
4672 mlsize_t _c5;
4673 mlsize_t _c6;
4674 mlsize_t _c7;
4675 mlsize_t _c8;
4676 value _v9;
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);
4683 }
4684 n = _c1;
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);
4689 }
4690 n = _c3;
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);
4695 }
4696 n = _c5;
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);
4702 }
4703 ndraw = _c7;
4704 ifcc = Int_val(_v_ifcc);
4705 ml_plpoly3(n, x, y, z, ndraw, draw, ifcc);
4706 camlidl_free(_ctx);
4707 return Val_unit;
4708}
4709
4711 value _v_x,
4712 value _v_y)
4713{
4714 double x; /*in*/
4715 double y; /*in*/
4716 double *tx; /*out*/
4717 double *ty; /*out*/
4718 double _c1;
4719 double _c2;
4720 value _vresult;
4721 value _vres[2] = { 0, 0, };
4722
4723 x = Double_val(_v_x);
4724 y = Double_val(_v_y);
4725 tx = &_c1;
4726 ty = &_c2;
4727 ml_pltr0(x, y, tx, ty);
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];
4734 End_roots()
4735 return _vresult;
4736}
4737
4739{
4741 return Val_unit;
4742}
4743
4745{
4746 int _res;
4747 value _vres;
4748
4749 _res = plg_current_col0();
4750 _vres = Val_int(_res);
4751 return _vres;
4752}
4753
4755{
4756 double _res;
4757 value _vres;
4758
4759 _res = plg_current_col1();
4760 _vres = caml_copy_double(_res);
4761 return _vres;
4762}
4763
4765{
4766 double _res;
4767 value _vres;
4768
4769 _res = plgwidth();
4770 _vres = caml_copy_double(_res);
4771 return _vres;
4772}
4773
4775{
4776 double _res;
4777 value _vres;
4778
4779 _res = plgchrht();
4780 _vres = caml_copy_double(_res);
4781 return _vres;
4782}
4783
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)
PLFLT plgchrht(void)
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)
PLFLT plgwidth(void)
void ml_plsvect_reset()
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)
#define min(x, y)
Definition nnpi.c:87
void c_plarc(PLFLT x, PLFLT y, PLFLT a, PLFLT b, PLFLT angle1, PLFLT angle2, PLFLT rotate, PLBOOL fill)
Definition plarc.c:141
PLINT c_plsetopt(PLCHAR_VECTOR opt, PLCHAR_VECTOR opt_arg)
Definition plargs.c:749
void c_plbox(PLCHAR_VECTOR xopt, PLFLT xtick, PLINT nxsub, PLCHAR_VECTOR yopt, PLFLT ytick, PLINT nysub)
Definition plbox.c:89
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)
Definition plbox.c:593
void c_plaxes(PLFLT x0, PLFLT y0, PLCHAR_VECTOR xopt, PLFLT xtick, PLINT nxsub, PLCHAR_VECTOR yopt, PLFLT ytick, PLINT nysub)
Definition plbox.c:135
void c_pl_setcontlabelparam(PLFLT offset, PLFLT size, PLFLT spacing, PLINT active)
Definition plcont.c:247
void c_pl_setcontlabelformat(PLINT lexp, PLINT sigdig)
Definition plcont.c:256
void c_plend(void)
Definition plcore.c:2484
void c_plglevel(PLINT *p_level)
Definition plcore.c:3707
void c_plgdidev(PLFLT *p_mar, PLFLT *p_aspect, PLFLT *p_jx, PLFLT *p_jy)
Definition plcore.c:2007
void c_plscompression(PLINT compression)
Definition plcore.c:4270
void c_plsfam(PLINT fam, PLINT num, PLINT bmax)
Definition plcore.c:4005
void c_plgver(char *p_ver)
Definition plcore.c:3970
void c_plstart(PLCHAR_VECTOR devname, PLINT nx, PLINT ny)
Definition plcore.c:2305
void c_plszax(PLINT digmax, PLINT digits)
Definition plcore.c:4079
void c_plsdidev(PLFLT mar, PLFLT aspect, PLFLT jx, PLFLT jy)
Definition plcore.c:1892
void c_plsdiplt(PLFLT xmin, PLFLT ymin, PLFLT xmax, PLFLT ymax)
Definition plcore.c:1782
void c_plstar(PLINT nx, PLINT ny)
Definition plcore.c:2286
void c_plssub(PLINT nx, PLINT ny)
Definition plcore.c:3617
void c_plsdimap(PLINT dimxmin, PLINT dimxmax, PLINT dimymin, PLINT dimymax, PLFLT dimxpmm, PLFLT dimypmm)
Definition plcore.c:2160
void c_plreplot(void)
Definition plcore.c:3506
void c_plgchr(PLFLT *p_def, PLFLT *p_ht)
Definition plcore.c:4088
void c_plgvpw(PLFLT *p_xmin, PLFLT *p_xmax, PLFLT *p_ymin, PLFLT *p_ymax)
Definition plcore.c:4108
void plsxwin(PLINT window_id)
Definition plcore.c:3978
void c_plspause(PLINT p)
Definition plcore.c:3852
void c_plgzax(PLINT *p_digmax, PLINT *p_digits)
Definition plcore.c:4070
void c_plgdev(char *p_dev)
Definition plcore.c:3658
void c_plgfnam(char *fnam)
Definition plcore.c:3811
void c_plgfam(PLINT *p_fam, PLINT *p_num, PLINT *p_bmax)
Definition plcore.c:3995
void c_plwidth(PLFLT width)
Definition plcore.c:3777
void c_plgxax(PLINT *p_digmax, PLINT *p_digits)
Definition plcore.c:4034
void c_plcpstrm(PLINT iplsr, PLINT flags)
Definition plcore.c:2761
void c_plend1(void)
Definition plcore.c:2542
void c_plgfci(PLUNICODE *p_fci)
Definition plcore.c:3936
void c_plgcompression(PLINT *compression)
Definition plcore.c:4285
void c_plsstrm(PLINT strm)
Definition plcore.c:2621
void c_plflush(void)
Definition plcore.c:2230
void c_plgstrm(PLINT *p_strm)
Definition plcore.c:2652
void c_plsyax(PLINT digmax, PLINT digits)
Definition plcore.c:4061
void c_plprec(PLINT setp, PLINT prec)
Definition plcore.c:3860
void c_plinit(void)
Definition plcore.c:2325
void c_plgdiplt(PLFLT *p_xmin, PLFLT *p_ymin, PLFLT *p_xmax, PLFLT *p_ymax)
Definition plcore.c:1872
void c_plsfci(PLUNICODE fci)
Definition plcore.c:3926
void c_plsxax(PLINT digmax, PLINT digits)
Definition plcore.c:4043
void c_plsdiori(PLFLT rot)
Definition plcore.c:2022
void c_plfamadv(void)
Definition plcore.c:4021
void c_plspage(PLFLT xp, PLFLT yp, PLINT xleng, PLINT yleng, PLINT xoff, PLINT yoff)
Definition plcore.c:3593
void c_plsesc(char esc)
Definition plcore.c:3890
void c_plmkstrm(PLINT *p_strm)
Definition plcore.c:2671
void c_plgpage(PLFLT *p_xp, PLFLT *p_yp, PLINT *p_xleng, PLINT *p_yleng, PLINT *p_xoff, PLINT *p_yoff)
Definition plcore.c:3579
void c_plfontld(PLINT ifont)
Definition plcore.c:3488
void c_plgyax(PLINT *p_digmax, PLINT *p_digits)
Definition plcore.c:4052
void c_plsdiplz(PLFLT xmin, PLFLT ymin, PLFLT xmax, PLFLT ymax)
Definition plcore.c:1806
void c_plsdev(PLCHAR_VECTOR devname)
Definition plcore.c:3640
void c_plsfnam(PLCHAR_VECTOR fnam)
Definition plcore.c:3830
void c_plgvpd(PLFLT *p_xmin, PLFLT *p_xmax, PLFLT *p_ymin, PLFLT *p_ymax)
Definition plcore.c:4097
void c_plsori(PLINT ori)
Definition plcore.c:3765
void c_plgdiori(PLFLT *p_rot)
Definition plcore.c:2145
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)
Definition plctrl.c:703
void c_plgcolbga(PLINT *r, PLINT *g, PLINT *b, PLFLT *alpha)
Definition plctrl.c:279
void c_plgcmap1_range(PLFLT *min_color, PLFLT *max_color)
Definition plctrl.c:924
void c_plxormod(PLINT mode, PLINT *status)
Definition plctrl.c:2018
static PLFLT value(double n1, double n2, double hue)
Definition plctrl.c:1219
void c_plgcol0(PLINT icol0, PLINT *r, PLINT *g, PLINT *b)
Definition plctrl.c:359
void c_plspal1(PLCHAR_VECTOR filename, PLBOOL interpolate)
Definition plctrl.c:1614
PLINT c_plgdrawmode(void)
Definition plctrl.c:2071
void c_plcol0(PLINT icol0)
Definition plctrl.c:154
void c_plscmap1_range(PLFLT min_color, PLFLT max_color)
Definition plctrl.c:892
void c_plscmap1l(PLINT itype, PLINT npts, PLFLT_VECTOR intensity, PLFLT_VECTOR coord1, PLFLT_VECTOR coord2, PLFLT_VECTOR coord3, PLINT_VECTOR alt_hue_path)
Definition plctrl.c:632
void c_pltext(void)
Switches to text screen.
Definition plctrl.c:2100
void c_plscolbga(PLINT r, PLINT g, PLINT b, PLFLT alpha)
Definition plctrl.c:248
void c_plcol1(PLFLT col1)
Definition plctrl.c:188
void c_plscmap0a(PLINT_VECTOR r, PLINT_VECTOR g, PLINT_VECTOR b, PLFLT_VECTOR alpha, PLINT ncol0)
Definition plctrl.c:472
void c_plrgbhls(PLFLT r, PLFLT g, PLFLT b, PLFLT *p_h, PLFLT *p_l, PLFLT *p_s)
Definition plctrl.c:1294
void c_plscmap0(PLINT_VECTOR r, PLINT_VECTOR g, PLINT_VECTOR b, PLINT ncol0)
Definition plctrl.c:434
void c_plgcol0a(PLINT icol0, PLINT *r, PLINT *g, PLINT *b, PLFLT *alpha)
Definition plctrl.c:396
void c_plscmap1(PLINT_VECTOR r, PLINT_VECTOR g, PLINT_VECTOR b, PLINT ncol1)
Definition plctrl.c:513
void c_plsdrawmode(PLINT mode)
Definition plctrl.c:2048
void c_plscol0a(PLINT icol0, PLINT r, PLINT g, PLINT b, PLFLT alpha)
Definition plctrl.c:326
void c_plscol0(PLINT icol0, PLINT r, PLINT g, PLINT b)
Definition plctrl.c:296
void c_plseed(unsigned int seed)
Definition plctrl.c:3068
void c_plscmap1a(PLINT_VECTOR r, PLINT_VECTOR g, PLINT_VECTOR b, PLFLT_VECTOR alpha, PLINT ncol1)
Definition plctrl.c:551
void c_plscolbg(PLINT r, PLINT g, PLINT b)
Definition plctrl.c:229
void c_plscolor(PLINT color)
Definition plctrl.c:1202
void c_plscmap0n(PLINT ncol0)
Definition plctrl.c:942
void c_plscmap1n(PLINT ncol1)
Definition plctrl.c:1067
void c_plspal0(PLCHAR_VECTOR filename)
Definition plctrl.c:1558
PLFLT c_plrandd(void)
Definition plctrl.c:3081
void c_plgcolbg(PLINT *r, PLINT *g, PLINT *b)
Definition plctrl.c:263
void c_plgra(void)
Definition plctrl.c:2003
void c_plhlsrgb(PLFLT h, PLFLT l, PLFLT s, PLFLT *p_r, PLFLT *p_g, PLFLT *p_b)
Definition plctrl.c:1261
void c_plfill3(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_VECTOR z)
Definition plfill.c:202
void c_plfill(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y)
Definition plfill.c:132
void c_plgradient(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT angle)
Definition plgradient.c:52
void c_plhist(PLINT n, PLFLT_VECTOR data, PLFLT datmin, PLFLT datmax, PLINT nbin, PLINT flags)
Definition plhist.c:41
void c_plbin(PLINT nbin, PLFLT_VECTOR x, PLFLT_VECTOR y, PLINT flags)
Definition plhist.c:125
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)
Definition plimage.c:375
void c_plline(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y)
Definition plline.c:75
void c_plline3(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_VECTOR z)
Definition plline.c:131
void c_plpath(PLINT n, PLFLT x1, PLFLT y1, PLFLT x2, PLFLT y2)
Definition plline.c:94
void c_plstyl(PLINT nms, PLINT_VECTOR mark, PLINT_VECTOR space)
Definition plline.c:404
void c_pljoin(PLFLT x1, PLFLT y1, PLFLT x2, PLFLT y2)
Definition plline.c:62
void plMinMax2dGrid(PLFLT_MATRIX f, PLINT nx, PLINT ny, PLFLT *fnmax, PLFLT *fnmin)
Definition plmem.c:141
void c_plsurf3d(PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_MATRIX z, PLINT nx, PLINT ny, PLINT opt, PLFLT_VECTOR clevel, PLINT nlevel)
Definition plot3d.c:326
void c_plmeshc(PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_MATRIX z, PLINT nx, PLINT ny, PLINT opt, PLFLT_VECTOR clevel, PLINT nlevel)
Definition plot3d.c:150
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)
Definition plot3d.c:921
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)
Definition plot3d.c:389
void c_plmesh(PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_MATRIX z, PLINT nx, PLINT ny, PLINT opt)
Definition plot3d.c:118
void c_plot3d(PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_MATRIX z, PLINT nx, PLINT ny, PLINT opt, PLBOOL side)
Definition plot3d.c:860
void c_plot3dc(PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_MATRIX z, PLINT nx, PLINT ny, PLINT opt, PLFLT_VECTOR clevel, PLINT nlevel)
Definition plot3d.c:883
void c_pllightsource(PLFLT x, PLFLT y, PLFLT z)
Definition plot3d.c:101
void c_plbop(void)
Definition plpage.c:118
void c_plcalc_world(PLFLT rx, PLFLT ry, PLFLT *wx, PLFLT *wy, PLINT *window)
Definition plpage.c:289
void c_pleop(void)
Definition plpage.c:101
void c_plgspa(PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax)
Definition plpage.c:222
void c_plclear(void)
Definition plpage.c:71
void c_pladv(PLINT page)
Definition plpage.c:34
#define PL_POSITION_BOTTOM
Definition plplot.h:1280
#define PL_HIST_NOSCALING
Definition plplot.h:1246
#define PL_FCI_MEDIUM
Definition plplot.h:390
#define PL_COLORBAR_BACKGROUND
Definition plplot.h:1314
#define PL_FCI_SCRIPT
Definition plplot.h:383
#define PL_HIST_IGNORE_OUTLIERS
Definition plplot.h:1247
#define PL_BIN_NOEXPAND
Definition plplot.h:916
#define PL_COLORBAR_CAP_NONE
Definition plplot.h:1306
#define PL_COLORBAR_ORIENT_BOTTOM
Definition plplot.h:1313
#define PL_COLORBAR_LABEL_TOP
Definition plplot.h:1301
#define PL_LEGEND_NONE
Definition plplot.h:1288
#define PL_COLORBAR_ORIENT_TOP
Definition plplot.h:1311
#define PL_POSITION_SUBPAGE
Definition plplot.h:1284
#define PL_COLORBAR_CAP_HIGH
Definition plplot.h:1308
#define PL_FCI_MONO
Definition plplot.h:382
#define PL_DRAWMODE_REPLACE
Definition plplot.h:1320
#define PL_LEGEND_BACKGROUND
Definition plplot.h:1293
#define PL_POSITION_OUTSIDE
Definition plplot.h:1282
#define PL_COLORBAR_IMAGE
Definition plplot.h:1303
#define PL_LEGEND_COLOR_BOX
Definition plplot.h:1289
#define PL_COLORBAR_SHADE_LABEL
Definition plplot.h:1309
#define PL_POSITION_TOP
Definition plplot.h:1279
#define PL_LEGEND_ROW_MAJOR
Definition plplot.h:1295
#define PL_LEGEND_LINE
Definition plplot.h:1290
#define PL_FCI_OBLIQUE
Definition plplot.h:388
#define PL_LEGEND_BOUNDING_BOX
Definition plplot.h:1294
#define PL_COLORBAR_LABEL_RIGHT
Definition plplot.h:1300
#define PL_LEGEND_NULL
Definition plplot.h:1287
#define PL_DRAWMODE_UNKNOWN
Definition plplot.h:1318
#define PL_DRAWMODE_XOR
Definition plplot.h:1321
#define PL_HIST_DEFAULT
Definition plplot.h:1245
#define PL_POSITION_VIEWPORT
Definition plplot.h:1283
#define PL_FCI_UPRIGHT
Definition plplot.h:386
#define PL_COLORBAR_NULL
Definition plplot.h:1298
#define PL_COLORBAR_GRADIENT
Definition plplot.h:1305
#define PL_POSITION_NULL
Definition plplot.h:1276
#define PL_COLORBAR_LABEL_BOTTOM
Definition plplot.h:1302
#define PL_POSITION_INSIDE
Definition plplot.h:1281
#define PL_FCI_BOLD
Definition plplot.h:391
#define PL_POSITION_RIGHT
Definition plplot.h:1278
#define PL_COLORBAR_CAP_LOW
Definition plplot.h:1307
#define PL_FCI_SERIF
Definition plplot.h:381
#define PL_DRAWMODE_DEFAULT
Definition plplot.h:1319
#define PL_COLORBAR_ORIENT_RIGHT
Definition plplot.h:1310
#define PL_COLORBAR_LABEL_LEFT
Definition plplot.h:1299
#define PL_BIN_NOEMPTY
Definition plplot.h:917
#define PL_HIST_NOEXPAND
Definition plplot.h:1248
#define PL_COLORBAR_BOUNDING_BOX
Definition plplot.h:1315
#define PL_HIST_NOEMPTY
Definition plplot.h:1249
#define PL_FCI_SANS
Definition plplot.h:380
#define PL_LEGEND_TEXT_LEFT
Definition plplot.h:1292
#define PL_COLORBAR_ORIENT_LEFT
Definition plplot.h:1312
#define PL_COLORBAR_SHADE
Definition plplot.h:1304
#define PL_POSITION_LEFT
Definition plplot.h:1277
#define PL_BIN_DEFAULT
Definition plplot.h:914
#define PL_FCI_ITALIC
Definition plplot.h:387
#define PL_BIN_CENTRED
Definition plplot.h:915
#define PL_FCI_SYMBOL
Definition plplot.h:384
#define PL_LEGEND_SYMBOL
Definition plplot.h:1291
int plplot_run_level
Definition plplot_core.h:58
@ PL_FCI_STYLE_UNCHANGED
int plplot3d_style
Definition plplot_core.h:30
int plplot_bin_style
Definition plplot_core.h:39
int nonzero_error_int
@ PL_DIFFUSE
Definition plplot_core.h:17
@ PL_TOP_CONT
Definition plplot_core.h:23
@ PL_DRAW_LINEY
Definition plplot_core.h:19
@ PL_DRAW_LINEX
Definition plplot_core.h:18
@ PL_MAG_COLOR
Definition plplot_core.h:21
@ PL_DRAW_LINEXY
Definition plplot_core.h:20
@ PL_DRAW_SIDES
Definition plplot_core.h:25
@ PL_FACETED
Definition plplot_core.h:26
@ PL_SURF_CONT
Definition plplot_core.h:24
@ PL_BASE_CONT
Definition plplot_core.h:22
@ PL_MESH
Definition plplot_core.h:27
int plplot_legend_opt
Definition plplot_core.h:86
int plplot_hist_style
Definition plplot_core.h:49
@ PL_FCI_WEIGHT_UNCHANGED
int plplot_position_opt
Definition plplot_core.h:72
@ PL_FCI_FAMILY_UNCHANGED
@ PL_WORLD_COORDINATES_DEFINED
Definition plplot_core.h:55
@ PL_INITIALIZED
Definition plplot_core.h:53
@ PL_VIEWPORT_DEFINED
Definition plplot_core.h:54
@ PL_UNINITIALIZED
Definition plplot_core.h:52
int plplot_colorbar_opt
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)
Definition plsdef.c:220
void c_pllsty(PLINT lin)
Definition plsdef.c:268
void c_plssym(PLFLT def, PLFLT scale)
Definition plsdef.c:250
void c_plpsty(PLINT patt)
Definition plsdef.c:327
void c_plpat(PLINT nlin, PLINT_VECTOR inc, PLINT_VECTOR del)
Definition plsdef.c:293
void c_plschr(PLFLT def, PLFLT scale)
Definition plsdef.c:202
void c_plsmaj(PLFLT def, PLFLT scale)
Definition plsdef.c:235
void c_plstripd(PLINT id)
Definition plstripc.c:327
void c_plstripa(PLINT id, PLINT p, PLFLT x, PLFLT y)
Definition plstripc.c:221
void c_plpoin3(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_VECTOR z, PLINT code)
Definition plsym.c:235
void c_plsym(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLINT code)
Definition plsym.c:128
void c_plmtex3(PLCHAR_VECTOR side, PLFLT disp, PLFLT pos, PLFLT just, PLCHAR_VECTOR text)
Definition plsym.c:1610
void c_plpoin(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLINT code)
Definition plsym.c:172
void c_plstring(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLCHAR_VECTOR string)
Definition plsym.c:108
void c_plstring3(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR y, PLFLT_VECTOR z, PLCHAR_VECTOR string)
Definition plsym.c:311
void c_pllab(PLCHAR_VECTOR xlabel, PLCHAR_VECTOR ylabel, PLCHAR_VECTOR tlabel)
Definition plsym.c:549
void c_plfont(PLINT ifont)
Definition plsym.c:1341
void c_plgfont(PLINT *p_family, PLINT *p_style, PLINT *p_weight)
Definition plsym.c:2138
void c_plmtex(PLCHAR_VECTOR side, PLFLT disp, PLFLT pos, PLFLT just, PLCHAR_VECTOR text)
Definition plsym.c:594
void c_plsfont(PLINT family, PLINT style, PLINT weight)
Definition plsym.c:2094
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)
Definition plsym.c:1982
void c_plptex(PLFLT wx, PLFLT wy, PLFLT dx, PLFLT dy, PLFLT just, PLCHAR_VECTOR text)
Definition plsym.c:734
void c_plerry(PLINT n, PLFLT_VECTOR x, PLFLT_VECTOR ymin, PLFLT_VECTOR ymax)
Definition pltick.c:200
void c_plerrx(PLINT n, PLFLT_VECTOR xmin, PLFLT_VECTOR xmax, PLFLT_VECTOR y)
Definition pltick.c:179
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)
Definition pltime.c:36
void c_plbtime(PLINT *year, PLINT *month, PLINT *day, PLINT *hour, PLINT *min, PLFLT *sec, PLFLT ctime)
Definition pltime.c:26
void c_pltimefmt(PLCHAR_VECTOR fmt)
Definition pltime.c:66
void c_plctime(PLINT year, PLINT month, PLINT day, PLINT hour, PLINT min, PLFLT sec, PLFLT *ctime)
Definition pltime.c:54
void c_plsvect(PLFLT_VECTOR arrowx, PLFLT_VECTOR arrowy, PLINT npts, PLBOOL fill)
Definition plvect.c:49
void c_plvpor(PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax)
Definition plvpor.c:342
void c_plvasp(PLFLT aspect)
Definition plvpor.c:454
void c_plvsta(void)
Definition plvpor.c:307
void c_plsvpa(PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax)
Definition plvpor.c:506
void c_plvpas(PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax, PLFLT aspect)
Definition plvpor.c:384
void c_plenv(PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax, PLINT just, PLINT axis)
Definition plvpor.c:89
void c_plenv0(PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax, PLINT just, PLINT axis)
Definition plvpor.c:103
void c_plwind(PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax)
Definition plwind.c:33
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)
Definition plwind.c:137
static int color
Definition ps.c:78
static int text
Definition ps.c:77
static char ** argv
Definition qt.cpp:49
static const char * name
Definition tkMain.c:135