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] = { Val_unit, Val_unit, Val_unit, Val_unit, Val_unit, Val_unit, };
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 for (mlsize_t _c7 = 0; _c7 < 6; _c7++) Field(_vresult, _c7) = _vres[_c7];
586 End_roots()
587 return _vresult;
588}
589
591{
592 c_plbop();
593 return Val_unit;
594}
595
597 value _v_xopt,
598 value _v_xtick,
599 value _v_nxsub,
600 value _v_yopt,
601 value _v_ytick,
602 value _v_nysub)
603{
604 char const *xopt; /*in*/
605 double xtick; /*in*/
606 int nxsub; /*in*/
607 char const *yopt; /*in*/
608 double ytick; /*in*/
609 int nysub; /*in*/
610 xopt = (char const *) String_val(_v_xopt);
611 xtick = Double_val(_v_xtick);
612 nxsub = Int_val(_v_nxsub);
613 yopt = (char const *) String_val(_v_yopt);
614 ytick = Double_val(_v_ytick);
615 nysub = Int_val(_v_nysub);
616 c_plbox(xopt, xtick, nxsub, yopt, ytick, nysub);
617 return Val_unit;
618}
619
621{
622 return camlidl_plplot_core_c_plbox(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]);
623}
624
626 value _v_xopt,
627 value _v_xlabel,
628 value _v_xtick,
629 value _v_nxsub,
630 value _v_yopt,
631 value _v_ylabel,
632 value _v_ytick,
633 value _v_nysub,
634 value _v_zopt,
635 value _v_zlabel,
636 value _v_ztick,
637 value _v_nzsub)
638{
639 char const *xopt; /*in*/
640 char const *xlabel; /*in*/
641 double xtick; /*in*/
642 int nxsub; /*in*/
643 char const *yopt; /*in*/
644 char const *ylabel; /*in*/
645 double ytick; /*in*/
646 int nysub; /*in*/
647 char const *zopt; /*in*/
648 char const *zlabel; /*in*/
649 double ztick; /*in*/
650 int nzsub; /*in*/
651 xopt = (char const *) String_val(_v_xopt);
652 xlabel = (char const *) String_val(_v_xlabel);
653 xtick = Double_val(_v_xtick);
654 nxsub = Int_val(_v_nxsub);
655 yopt = (char const *) String_val(_v_yopt);
656 ylabel = (char const *) String_val(_v_ylabel);
657 ytick = Double_val(_v_ytick);
658 nysub = Int_val(_v_nysub);
659 zopt = (char const *) String_val(_v_zopt);
660 zlabel = (char const *) String_val(_v_zlabel);
661 ztick = Double_val(_v_ztick);
662 nzsub = Int_val(_v_nzsub);
663 c_plbox3(xopt, xlabel, xtick, nxsub, yopt, ylabel, ytick, nysub, zopt, zlabel, ztick, nzsub);
664 return Val_unit;
665}
666
668{
669 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]);
670}
671
673 value _v_rx,
674 value _v_ry)
675{
676 double rx; /*in*/
677 double ry; /*in*/
678 double *wx; /*out*/
679 double *wy; /*out*/
680 int *window; /*out*/
681 double _c1;
682 double _c2;
683 int _c3;
684 value _vresult;
685 value _vres[3] = { Val_unit, Val_unit, Val_unit, };
686
687 rx = Double_val(_v_rx);
688 ry = Double_val(_v_ry);
689 wx = &_c1;
690 wy = &_c2;
691 window = &_c3;
692 c_plcalc_world(rx, ry, wx, wy, window);
693 Begin_roots_block(_vres, 3)
694 _vres[0] = caml_copy_double(*wx);
695 _vres[1] = caml_copy_double(*wy);
696 _vres[2] = Val_int(*window);
697 _vresult = camlidl_alloc_small(3, 0);
698 Field(_vresult, 0) = _vres[0];
699 Field(_vresult, 1) = _vres[1];
700 Field(_vresult, 2) = _vres[2];
701 End_roots()
702 return _vresult;
703}
704
706{
707 c_plclear();
708 return Val_unit;
709}
710
712 value _v_icol0)
713{
714 int icol0; /*in*/
715 icol0 = Int_val(_v_icol0);
716 c_plcol0(icol0);
717 return Val_unit;
718}
719
721 value _v_col1)
722{
723 double col1; /*in*/
724 col1 = Double_val(_v_col1);
725 c_plcol1(col1);
726 return Val_unit;
727}
728
730 value _v_scale,
731 value _v_offset1,
732 value _v_offset2,
733 value _v_ccontrol,
734 value _v_ifbtime_offset,
735 value _v_year,
736 value _v_month,
737 value _v_day,
738 value _v_hour,
739 value _v_min,
740 value _v_sec)
741{
742 double scale; /*in*/
743 double offset1; /*in*/
744 double offset2; /*in*/
745 int ccontrol; /*in*/
746 int ifbtime_offset; /*in*/
747 int year; /*in*/
748 int month; /*in*/
749 int day; /*in*/
750 int hour; /*in*/
751 int min; /*in*/
752 double sec; /*in*/
753 scale = Double_val(_v_scale);
754 offset1 = Double_val(_v_offset1);
755 offset2 = Double_val(_v_offset2);
756 ccontrol = Int_val(_v_ccontrol);
757 ifbtime_offset = Int_val(_v_ifbtime_offset);
758 year = Int_val(_v_year);
759 month = Int_val(_v_month);
760 day = Int_val(_v_day);
761 hour = Int_val(_v_hour);
762 min = Int_val(_v_min);
763 sec = Double_val(_v_sec);
764 c_plconfigtime(scale, offset1, offset2, ccontrol, ifbtime_offset, year, month, day, hour, min, sec);
765 return Val_unit;
766}
767
769{
770 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]);
771}
772
774 value _v_iplsr,
775 value _v_flags)
776{
777 int iplsr; /*in*/
778 int flags; /*in*/
779 iplsr = Int_val(_v_iplsr);
780 flags = Int_val(_v_flags);
781 c_plcpstrm(iplsr, flags);
782 return Val_unit;
783}
784
786 value _v_year,
787 value _v_month,
788 value _v_day,
789 value _v_hour,
790 value _v_min,
791 value _v_sec)
792{
793 int year; /*in*/
794 int month; /*in*/
795 int day; /*in*/
796 int hour; /*in*/
797 int min; /*in*/
798 double sec; /*in*/
799 double *ctime; /*out*/
800 double _c1;
801 value _vres;
802
803 year = Int_val(_v_year);
804 month = Int_val(_v_month);
805 day = Int_val(_v_day);
806 hour = Int_val(_v_hour);
807 min = Int_val(_v_min);
808 sec = Double_val(_v_sec);
809 ctime = &_c1;
810 c_plctime(year, month, day, hour, min, sec, ctime);
811 _vres = caml_copy_double(*ctime);
812 return _vres;
813}
814
819
821{
822 c_plend();
823 return Val_unit;
824}
825
827{
828 c_plend1();
829 return Val_unit;
830}
831
833 value _v_xmin,
834 value _v_xmax,
835 value _v_ymin,
836 value _v_ymax,
837 value _v_just,
838 value _v_axis)
839{
840 double xmin; /*in*/
841 double xmax; /*in*/
842 double ymin; /*in*/
843 double ymax; /*in*/
844 int just; /*in*/
845 int axis; /*in*/
846 xmin = Double_val(_v_xmin);
847 xmax = Double_val(_v_xmax);
848 ymin = Double_val(_v_ymin);
849 ymax = Double_val(_v_ymax);
850 just = Int_val(_v_just);
851 axis = Int_val(_v_axis);
852 c_plenv(xmin, xmax, ymin, ymax, just, axis);
853 return Val_unit;
854}
855
857{
858 return camlidl_plplot_core_c_plenv(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]);
859}
860
862 value _v_xmin,
863 value _v_xmax,
864 value _v_ymin,
865 value _v_ymax,
866 value _v_just,
867 value _v_axis)
868{
869 double xmin; /*in*/
870 double xmax; /*in*/
871 double ymin; /*in*/
872 double ymax; /*in*/
873 int just; /*in*/
874 int axis; /*in*/
875 xmin = Double_val(_v_xmin);
876 xmax = Double_val(_v_xmax);
877 ymin = Double_val(_v_ymin);
878 ymax = Double_val(_v_ymax);
879 just = Int_val(_v_just);
880 axis = Int_val(_v_axis);
881 c_plenv0(xmin, xmax, ymin, ymax, just, axis);
882 return Val_unit;
883}
884
889
891{
892 c_pleop();
893 return Val_unit;
894}
895
897 value _v_xmin,
898 value _v_xmax,
899 value _v_y)
900{
901 int n; /*in*/
902 double *xmin; /*in*/
903 double *xmax; /*in*/
904 double *y; /*in*/
905 mlsize_t _c1;
906 mlsize_t _c2;
907 mlsize_t _c3;
908 mlsize_t _c4;
909 mlsize_t _c5;
910 mlsize_t _c6;
911 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
912 camlidl_ctx _ctx = &_ctxs;
913 _c1 = Wosize_val(_v_xmin) / Double_wosize;
914 xmin = camlidl_malloc(_c1 * sizeof(double ), _ctx);
915 for (_c2 = 0; _c2 < _c1; _c2++) {
916 xmin[_c2] = Double_field(_v_xmin, _c2);
917 }
918 n = _c1;
919 _c3 = Wosize_val(_v_xmax) / Double_wosize;
920 xmax = camlidl_malloc(_c3 * sizeof(double ), _ctx);
921 for (_c4 = 0; _c4 < _c3; _c4++) {
922 xmax[_c4] = Double_field(_v_xmax, _c4);
923 }
924 n = _c3;
925 _c5 = Wosize_val(_v_y) / Double_wosize;
926 y = camlidl_malloc(_c5 * sizeof(double ), _ctx);
927 for (_c6 = 0; _c6 < _c5; _c6++) {
928 y[_c6] = Double_field(_v_y, _c6);
929 }
930 n = _c5;
931 c_plerrx(n, xmin, xmax, y);
932 camlidl_free(_ctx);
933 return Val_unit;
934}
935
937 value _v_x,
938 value _v_ymin,
939 value _v_ymax)
940{
941 int n; /*in*/
942 double *x; /*in*/
943 double *ymin; /*in*/
944 double *ymax; /*in*/
945 mlsize_t _c1;
946 mlsize_t _c2;
947 mlsize_t _c3;
948 mlsize_t _c4;
949 mlsize_t _c5;
950 mlsize_t _c6;
951 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
952 camlidl_ctx _ctx = &_ctxs;
953 _c1 = Wosize_val(_v_x) / Double_wosize;
954 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
955 for (_c2 = 0; _c2 < _c1; _c2++) {
956 x[_c2] = Double_field(_v_x, _c2);
957 }
958 n = _c1;
959 _c3 = Wosize_val(_v_ymin) / Double_wosize;
960 ymin = camlidl_malloc(_c3 * sizeof(double ), _ctx);
961 for (_c4 = 0; _c4 < _c3; _c4++) {
962 ymin[_c4] = Double_field(_v_ymin, _c4);
963 }
964 n = _c3;
965 _c5 = Wosize_val(_v_ymax) / Double_wosize;
966 ymax = camlidl_malloc(_c5 * sizeof(double ), _ctx);
967 for (_c6 = 0; _c6 < _c5; _c6++) {
968 ymax[_c6] = Double_field(_v_ymax, _c6);
969 }
970 n = _c5;
971 c_plerry(n, x, ymin, ymax);
972 camlidl_free(_ctx);
973 return Val_unit;
974}
975
977{
978 c_plfamadv();
979 return Val_unit;
980}
981
983 value _v_x,
984 value _v_y)
985{
986 int n; /*in*/
987 double *x; /*in*/
988 double *y; /*in*/
989 mlsize_t _c1;
990 mlsize_t _c2;
991 mlsize_t _c3;
992 mlsize_t _c4;
993 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
994 camlidl_ctx _ctx = &_ctxs;
995 _c1 = Wosize_val(_v_x) / Double_wosize;
996 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
997 for (_c2 = 0; _c2 < _c1; _c2++) {
998 x[_c2] = Double_field(_v_x, _c2);
999 }
1000 n = _c1;
1001 _c3 = Wosize_val(_v_y) / Double_wosize;
1002 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
1003 for (_c4 = 0; _c4 < _c3; _c4++) {
1004 y[_c4] = Double_field(_v_y, _c4);
1005 }
1006 n = _c3;
1007 c_plfill(n, x, y);
1008 camlidl_free(_ctx);
1009 return Val_unit;
1010}
1011
1013 value _v_x,
1014 value _v_y,
1015 value _v_z)
1016{
1017 int n; /*in*/
1018 double *x; /*in*/
1019 double *y; /*in*/
1020 double *z; /*in*/
1021 mlsize_t _c1;
1022 mlsize_t _c2;
1023 mlsize_t _c3;
1024 mlsize_t _c4;
1025 mlsize_t _c5;
1026 mlsize_t _c6;
1027 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1028 camlidl_ctx _ctx = &_ctxs;
1029 _c1 = Wosize_val(_v_x) / Double_wosize;
1030 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
1031 for (_c2 = 0; _c2 < _c1; _c2++) {
1032 x[_c2] = Double_field(_v_x, _c2);
1033 }
1034 n = _c1;
1035 _c3 = Wosize_val(_v_y) / Double_wosize;
1036 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
1037 for (_c4 = 0; _c4 < _c3; _c4++) {
1038 y[_c4] = Double_field(_v_y, _c4);
1039 }
1040 n = _c3;
1041 _c5 = Wosize_val(_v_z) / Double_wosize;
1042 z = camlidl_malloc(_c5 * sizeof(double ), _ctx);
1043 for (_c6 = 0; _c6 < _c5; _c6++) {
1044 z[_c6] = Double_field(_v_z, _c6);
1045 }
1046 n = _c5;
1047 c_plfill3(n, x, y, z);
1048 camlidl_free(_ctx);
1049 return Val_unit;
1050}
1051
1053{
1054 c_plflush();
1055 return Val_unit;
1056}
1057
1059 value _v_ifont)
1060{
1061 int ifont; /*in*/
1062 ifont = Int_val(_v_ifont);
1063 c_plfont(ifont);
1064 return Val_unit;
1065}
1066
1068 value _v_fnt)
1069{
1070 int fnt; /*in*/
1071 fnt = Int_val(_v_fnt);
1072 c_plfontld(fnt);
1073 return Val_unit;
1074}
1075
1077{
1078 double *p_def; /*out*/
1079 double *p_ht; /*out*/
1080 double _c1;
1081 double _c2;
1082 value _vresult;
1083 value _vres[2] = { Val_unit, Val_unit, };
1084
1085 p_def = &_c1;
1086 p_ht = &_c2;
1087 c_plgchr(p_def, p_ht);
1088 Begin_roots_block(_vres, 2)
1089 _vres[0] = caml_copy_double(*p_def);
1090 _vres[1] = caml_copy_double(*p_ht);
1091 _vresult = camlidl_alloc_small(2, 0);
1092 Field(_vresult, 0) = _vres[0];
1093 Field(_vresult, 1) = _vres[1];
1094 End_roots()
1095 return _vresult;
1096}
1097
1099{
1100 double *min_color; /*out*/
1101 double *max_color; /*out*/
1102 double _c1;
1103 double _c2;
1104 value _vresult;
1105 value _vres[2] = { Val_unit, Val_unit, };
1106
1107 min_color = &_c1;
1108 max_color = &_c2;
1109 c_plgcmap1_range(min_color, max_color);
1110 Begin_roots_block(_vres, 2)
1111 _vres[0] = caml_copy_double(*min_color);
1112 _vres[1] = caml_copy_double(*max_color);
1113 _vresult = camlidl_alloc_small(2, 0);
1114 Field(_vresult, 0) = _vres[0];
1115 Field(_vresult, 1) = _vres[1];
1116 End_roots()
1117 return _vresult;
1118}
1119
1121 value _v_icol0)
1122{
1123 int icol0; /*in*/
1124 int *r; /*out*/
1125 int *g; /*out*/
1126 int *b; /*out*/
1127 int _c1;
1128 int _c2;
1129 int _c3;
1130 value _vresult;
1131 value _vres[3] = { Val_unit, Val_unit, Val_unit, };
1132
1133 icol0 = Int_val(_v_icol0);
1134 r = &_c1;
1135 g = &_c2;
1136 b = &_c3;
1137 c_plgcol0(icol0, r, g, b);
1138 Begin_roots_block(_vres, 3)
1139 _vres[0] = Val_int(*r);
1140 _vres[1] = Val_int(*g);
1141 _vres[2] = Val_int(*b);
1142 _vresult = camlidl_alloc_small(3, 0);
1143 Field(_vresult, 0) = _vres[0];
1144 Field(_vresult, 1) = _vres[1];
1145 Field(_vresult, 2) = _vres[2];
1146 End_roots()
1147 return _vresult;
1148}
1149
1151 value _v_icol0)
1152{
1153 int icol0; /*in*/
1154 int *r; /*out*/
1155 int *g; /*out*/
1156 int *b; /*out*/
1157 double *alpha; /*out*/
1158 int _c1;
1159 int _c2;
1160 int _c3;
1161 double _c4;
1162 value _vresult;
1163 value _vres[4] = { Val_unit, Val_unit, Val_unit, Val_unit, };
1164
1165 icol0 = Int_val(_v_icol0);
1166 r = &_c1;
1167 g = &_c2;
1168 b = &_c3;
1169 alpha = &_c4;
1170 c_plgcol0a(icol0, r, g, b, alpha);
1171 Begin_roots_block(_vres, 4)
1172 _vres[0] = Val_int(*r);
1173 _vres[1] = Val_int(*g);
1174 _vres[2] = Val_int(*b);
1175 _vres[3] = caml_copy_double(*alpha);
1176 _vresult = camlidl_alloc_small(4, 0);
1177 Field(_vresult, 0) = _vres[0];
1178 Field(_vresult, 1) = _vres[1];
1179 Field(_vresult, 2) = _vres[2];
1180 Field(_vresult, 3) = _vres[3];
1181 End_roots()
1182 return _vresult;
1183}
1184
1186{
1187 int *r; /*out*/
1188 int *g; /*out*/
1189 int *b; /*out*/
1190 int _c1;
1191 int _c2;
1192 int _c3;
1193 value _vresult;
1194 value _vres[3] = { Val_unit, Val_unit, Val_unit, };
1195
1196 r = &_c1;
1197 g = &_c2;
1198 b = &_c3;
1199 c_plgcolbg(r, g, b);
1200 Begin_roots_block(_vres, 3)
1201 _vres[0] = Val_int(*r);
1202 _vres[1] = Val_int(*g);
1203 _vres[2] = Val_int(*b);
1204 _vresult = camlidl_alloc_small(3, 0);
1205 Field(_vresult, 0) = _vres[0];
1206 Field(_vresult, 1) = _vres[1];
1207 Field(_vresult, 2) = _vres[2];
1208 End_roots()
1209 return _vresult;
1210}
1211
1213{
1214 int *r; /*out*/
1215 int *g; /*out*/
1216 int *b; /*out*/
1217 double *alpha; /*out*/
1218 int _c1;
1219 int _c2;
1220 int _c3;
1221 double _c4;
1222 value _vresult;
1223 value _vres[4] = { Val_unit, Val_unit, Val_unit, Val_unit, };
1224
1225 r = &_c1;
1226 g = &_c2;
1227 b = &_c3;
1228 alpha = &_c4;
1229 c_plgcolbga(r, g, b, alpha);
1230 Begin_roots_block(_vres, 4)
1231 _vres[0] = Val_int(*r);
1232 _vres[1] = Val_int(*g);
1233 _vres[2] = Val_int(*b);
1234 _vres[3] = caml_copy_double(*alpha);
1235 _vresult = camlidl_alloc_small(4, 0);
1236 Field(_vresult, 0) = _vres[0];
1237 Field(_vresult, 1) = _vres[1];
1238 Field(_vresult, 2) = _vres[2];
1239 Field(_vresult, 3) = _vres[3];
1240 End_roots()
1241 return _vresult;
1242}
1243
1245{
1246 int *compression; /*out*/
1247 int _c1;
1248 value _vres;
1249
1250 compression = &_c1;
1251 c_plgcompression(compression);
1252 _vres = Val_int(*compression);
1253 return _vres;
1254}
1255
1257{
1258 char *p_dev; /*out*/
1259 value _vres;
1260
1261 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1262 camlidl_ctx _ctx = &_ctxs;
1263 p_dev = camlidl_malloc(1024 * sizeof(char ), _ctx);
1264 c_plgdev(p_dev);
1265 _vres = caml_copy_string(p_dev);
1266 camlidl_free(_ctx);
1267 return _vres;
1268}
1269
1271{
1272 double *p_mar; /*out*/
1273 double *p_aspect; /*out*/
1274 double *p_jx; /*out*/
1275 double *p_jy; /*out*/
1276 double _c1;
1277 double _c2;
1278 double _c3;
1279 double _c4;
1280 value _vresult;
1281 value _vres[4] = { Val_unit, Val_unit, Val_unit, Val_unit, };
1282
1283 p_mar = &_c1;
1284 p_aspect = &_c2;
1285 p_jx = &_c3;
1286 p_jy = &_c4;
1287 c_plgdidev(p_mar, p_aspect, p_jx, p_jy);
1288 Begin_roots_block(_vres, 4)
1289 _vres[0] = caml_copy_double(*p_mar);
1290 _vres[1] = caml_copy_double(*p_aspect);
1291 _vres[2] = caml_copy_double(*p_jx);
1292 _vres[3] = caml_copy_double(*p_jy);
1293 _vresult = camlidl_alloc_small(4, 0);
1294 Field(_vresult, 0) = _vres[0];
1295 Field(_vresult, 1) = _vres[1];
1296 Field(_vresult, 2) = _vres[2];
1297 Field(_vresult, 3) = _vres[3];
1298 End_roots()
1299 return _vresult;
1300}
1301
1303{
1304 double *p_rot; /*out*/
1305 double _c1;
1306 value _vres;
1307
1308 p_rot = &_c1;
1309 c_plgdiori(p_rot);
1310 _vres = caml_copy_double(*p_rot);
1311 return _vres;
1312}
1313
1315{
1316 double *p_xmin; /*out*/
1317 double *p_ymin; /*out*/
1318 double *p_xmax; /*out*/
1319 double *p_ymax; /*out*/
1320 double _c1;
1321 double _c2;
1322 double _c3;
1323 double _c4;
1324 value _vresult;
1325 value _vres[4] = { Val_unit, Val_unit, Val_unit, Val_unit, };
1326
1327 p_xmin = &_c1;
1328 p_ymin = &_c2;
1329 p_xmax = &_c3;
1330 p_ymax = &_c4;
1331 c_plgdiplt(p_xmin, p_ymin, p_xmax, p_ymax);
1332 Begin_roots_block(_vres, 4)
1333 _vres[0] = caml_copy_double(*p_xmin);
1334 _vres[1] = caml_copy_double(*p_ymin);
1335 _vres[2] = caml_copy_double(*p_xmax);
1336 _vres[3] = caml_copy_double(*p_ymax);
1337 _vresult = camlidl_alloc_small(4, 0);
1338 Field(_vresult, 0) = _vres[0];
1339 Field(_vresult, 1) = _vres[1];
1340 Field(_vresult, 2) = _vres[2];
1341 Field(_vresult, 3) = _vres[3];
1342 End_roots()
1343 return _vresult;
1344}
1345
1347{
1348 int _res;
1349 value _vres;
1350
1351 _res = c_plgdrawmode();
1353 return _vres;
1354}
1355
1357{
1358 long long *p_fci; /*out*/
1359 long long _c1;
1360 value _vres;
1361
1362 p_fci = &_c1;
1363 c_plgfci(p_fci);
1364 _vres = caml_copy_int64(*p_fci);
1365 return _vres;
1366}
1367
1369{
1370 int *p_fam; /*out*/
1371 int *p_num; /*out*/
1372 int *p_bmax; /*out*/
1373 int _c1;
1374 int _c2;
1375 int _c3;
1376 value _vresult;
1377 value _vres[3] = { Val_unit, Val_unit, Val_unit, };
1378
1379 p_fam = &_c1;
1380 p_num = &_c2;
1381 p_bmax = &_c3;
1382 c_plgfam(p_fam, p_num, p_bmax);
1383 Begin_roots_block(_vres, 3)
1384 _vres[0] = Val_int(*p_fam);
1385 _vres[1] = Val_int(*p_num);
1386 _vres[2] = Val_int(*p_bmax);
1387 _vresult = camlidl_alloc_small(3, 0);
1388 Field(_vresult, 0) = _vres[0];
1389 Field(_vresult, 1) = _vres[1];
1390 Field(_vresult, 2) = _vres[2];
1391 End_roots()
1392 return _vresult;
1393}
1394
1396{
1397 char *fnam; /*out*/
1398 value _vres;
1399
1400 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1401 camlidl_ctx _ctx = &_ctxs;
1402 fnam = camlidl_malloc(1024 * sizeof(char ), _ctx);
1403 c_plgfnam(fnam);
1404 _vres = caml_copy_string(fnam);
1405 camlidl_free(_ctx);
1406 return _vres;
1407}
1408
1410{
1411 int *p_family; /*out*/
1412 int *p_style; /*out*/
1413 int *p_weight; /*out*/
1414 int _c1;
1415 int _c2;
1416 int _c3;
1417 value _vresult;
1418 value _vres[3] = { Val_unit, Val_unit, Val_unit, };
1419
1420 p_family = &_c1;
1421 p_style = &_c2;
1422 p_weight = &_c3;
1423 c_plgfont(p_family, p_style, p_weight);
1424 Begin_roots_block(_vres, 3)
1425 _vres[0] = Val_int(*p_family);
1426 _vres[1] = Val_int(*p_style);
1427 _vres[2] = Val_int(*p_weight);
1428 _vresult = camlidl_alloc_small(3, 0);
1429 Field(_vresult, 0) = _vres[0];
1430 Field(_vresult, 1) = _vres[1];
1431 Field(_vresult, 2) = _vres[2];
1432 End_roots()
1433 return _vresult;
1434}
1435
1437{
1438 plplot_run_level *p_level; /*out*/
1439 plplot_run_level _c1;
1440 value _vres;
1441
1442 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1443 camlidl_ctx _ctx = &_ctxs;
1444 p_level = &_c1;
1445 c_plglevel(p_level);
1446 _vres = camlidl_c2ml_plplot_core_plplot_run_level(&*p_level, _ctx);
1447 camlidl_free(_ctx);
1448 return _vres;
1449}
1450
1452{
1453 double *p_xp; /*out*/
1454 double *p_yp; /*out*/
1455 int *p_xleng; /*out*/
1456 int *p_yleng; /*out*/
1457 int *p_xoff; /*out*/
1458 int *p_yoff; /*out*/
1459 double _c1;
1460 double _c2;
1461 int _c3;
1462 int _c4;
1463 int _c5;
1464 int _c6;
1465 value _vresult;
1466 value _vres[6] = { Val_unit, Val_unit, Val_unit, Val_unit, Val_unit, Val_unit, };
1467
1468 p_xp = &_c1;
1469 p_yp = &_c2;
1470 p_xleng = &_c3;
1471 p_yleng = &_c4;
1472 p_xoff = &_c5;
1473 p_yoff = &_c6;
1474 c_plgpage(p_xp, p_yp, p_xleng, p_yleng, p_xoff, p_yoff);
1475 Begin_roots_block(_vres, 6)
1476 _vres[0] = caml_copy_double(*p_xp);
1477 _vres[1] = caml_copy_double(*p_yp);
1478 _vres[2] = Val_int(*p_xleng);
1479 _vres[3] = Val_int(*p_yleng);
1480 _vres[4] = Val_int(*p_xoff);
1481 _vres[5] = Val_int(*p_yoff);
1482 _vresult = camlidl_alloc_small(6, 0);
1483 for (mlsize_t _c7 = 0; _c7 < 6; _c7++) Field(_vresult, _c7) = _vres[_c7];
1484 End_roots()
1485 return _vresult;
1486}
1487
1489{
1490 c_plgra();
1491 return Val_unit;
1492}
1493
1495 value _v_x,
1496 value _v_y,
1497 value _v_angle)
1498{
1499 int n; /*in*/
1500 double *x; /*in*/
1501 double *y; /*in*/
1502 double angle; /*in*/
1503 mlsize_t _c1;
1504 mlsize_t _c2;
1505 mlsize_t _c3;
1506 mlsize_t _c4;
1507 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1508 camlidl_ctx _ctx = &_ctxs;
1509 _c1 = Wosize_val(_v_x) / Double_wosize;
1510 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
1511 for (_c2 = 0; _c2 < _c1; _c2++) {
1512 x[_c2] = Double_field(_v_x, _c2);
1513 }
1514 n = _c1;
1515 _c3 = Wosize_val(_v_y) / Double_wosize;
1516 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
1517 for (_c4 = 0; _c4 < _c3; _c4++) {
1518 y[_c4] = Double_field(_v_y, _c4);
1519 }
1520 n = _c3;
1521 angle = Double_val(_v_angle);
1522 c_plgradient(n, x, y, angle);
1523 camlidl_free(_ctx);
1524 return Val_unit;
1525}
1526
1528{
1529 double *xmin; /*out*/
1530 double *xmax; /*out*/
1531 double *ymin; /*out*/
1532 double *ymax; /*out*/
1533 double _c1;
1534 double _c2;
1535 double _c3;
1536 double _c4;
1537 value _vresult;
1538 value _vres[4] = { Val_unit, Val_unit, Val_unit, Val_unit, };
1539
1540 xmin = &_c1;
1541 xmax = &_c2;
1542 ymin = &_c3;
1543 ymax = &_c4;
1544 c_plgspa(xmin, xmax, ymin, ymax);
1545 Begin_roots_block(_vres, 4)
1546 _vres[0] = caml_copy_double(*xmin);
1547 _vres[1] = caml_copy_double(*xmax);
1548 _vres[2] = caml_copy_double(*ymin);
1549 _vres[3] = caml_copy_double(*ymax);
1550 _vresult = camlidl_alloc_small(4, 0);
1551 Field(_vresult, 0) = _vres[0];
1552 Field(_vresult, 1) = _vres[1];
1553 Field(_vresult, 2) = _vres[2];
1554 Field(_vresult, 3) = _vres[3];
1555 End_roots()
1556 return _vresult;
1557}
1558
1560{
1561 int *p_strm; /*out*/
1562 int _c1;
1563 value _vres;
1564
1565 p_strm = &_c1;
1566 c_plgstrm(p_strm);
1567 _vres = Val_int(*p_strm);
1568 return _vres;
1569}
1570
1572{
1573 char *p_ver; /*out*/
1574 value _vres;
1575
1576 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1577 camlidl_ctx _ctx = &_ctxs;
1578 p_ver = camlidl_malloc(1024 * sizeof(char ), _ctx);
1579 c_plgver(p_ver);
1580 _vres = caml_copy_string(p_ver);
1581 camlidl_free(_ctx);
1582 return _vres;
1583}
1584
1586{
1587 double *p_xmin; /*out*/
1588 double *p_xmax; /*out*/
1589 double *p_ymin; /*out*/
1590 double *p_ymax; /*out*/
1591 double _c1;
1592 double _c2;
1593 double _c3;
1594 double _c4;
1595 value _vresult;
1596 value _vres[4] = { Val_unit, Val_unit, Val_unit, Val_unit, };
1597
1598 p_xmin = &_c1;
1599 p_xmax = &_c2;
1600 p_ymin = &_c3;
1601 p_ymax = &_c4;
1602 c_plgvpd(p_xmin, p_xmax, p_ymin, p_ymax);
1603 Begin_roots_block(_vres, 4)
1604 _vres[0] = caml_copy_double(*p_xmin);
1605 _vres[1] = caml_copy_double(*p_xmax);
1606 _vres[2] = caml_copy_double(*p_ymin);
1607 _vres[3] = caml_copy_double(*p_ymax);
1608 _vresult = camlidl_alloc_small(4, 0);
1609 Field(_vresult, 0) = _vres[0];
1610 Field(_vresult, 1) = _vres[1];
1611 Field(_vresult, 2) = _vres[2];
1612 Field(_vresult, 3) = _vres[3];
1613 End_roots()
1614 return _vresult;
1615}
1616
1618{
1619 double *p_xmin; /*out*/
1620 double *p_xmax; /*out*/
1621 double *p_ymin; /*out*/
1622 double *p_ymax; /*out*/
1623 double _c1;
1624 double _c2;
1625 double _c3;
1626 double _c4;
1627 value _vresult;
1628 value _vres[4] = { Val_unit, Val_unit, Val_unit, Val_unit, };
1629
1630 p_xmin = &_c1;
1631 p_xmax = &_c2;
1632 p_ymin = &_c3;
1633 p_ymax = &_c4;
1634 c_plgvpw(p_xmin, p_xmax, p_ymin, p_ymax);
1635 Begin_roots_block(_vres, 4)
1636 _vres[0] = caml_copy_double(*p_xmin);
1637 _vres[1] = caml_copy_double(*p_xmax);
1638 _vres[2] = caml_copy_double(*p_ymin);
1639 _vres[3] = caml_copy_double(*p_ymax);
1640 _vresult = camlidl_alloc_small(4, 0);
1641 Field(_vresult, 0) = _vres[0];
1642 Field(_vresult, 1) = _vres[1];
1643 Field(_vresult, 2) = _vres[2];
1644 Field(_vresult, 3) = _vres[3];
1645 End_roots()
1646 return _vresult;
1647}
1648
1650{
1651 int *p_digmax; /*out*/
1652 int *p_digits; /*out*/
1653 int _c1;
1654 int _c2;
1655 value _vresult;
1656 value _vres[2] = { Val_unit, Val_unit, };
1657
1658 p_digmax = &_c1;
1659 p_digits = &_c2;
1660 c_plgxax(p_digmax, p_digits);
1661 Begin_roots_block(_vres, 2)
1662 _vres[0] = Val_int(*p_digmax);
1663 _vres[1] = Val_int(*p_digits);
1664 _vresult = camlidl_alloc_small(2, 0);
1665 Field(_vresult, 0) = _vres[0];
1666 Field(_vresult, 1) = _vres[1];
1667 End_roots()
1668 return _vresult;
1669}
1670
1672{
1673 int *p_digmax; /*out*/
1674 int *p_digits; /*out*/
1675 int _c1;
1676 int _c2;
1677 value _vresult;
1678 value _vres[2] = { Val_unit, Val_unit, };
1679
1680 p_digmax = &_c1;
1681 p_digits = &_c2;
1682 c_plgyax(p_digmax, p_digits);
1683 Begin_roots_block(_vres, 2)
1684 _vres[0] = Val_int(*p_digmax);
1685 _vres[1] = Val_int(*p_digits);
1686 _vresult = camlidl_alloc_small(2, 0);
1687 Field(_vresult, 0) = _vres[0];
1688 Field(_vresult, 1) = _vres[1];
1689 End_roots()
1690 return _vresult;
1691}
1692
1694{
1695 int *p_digmax; /*out*/
1696 int *p_digits; /*out*/
1697 int _c1;
1698 int _c2;
1699 value _vresult;
1700 value _vres[2] = { Val_unit, Val_unit, };
1701
1702 p_digmax = &_c1;
1703 p_digits = &_c2;
1704 c_plgzax(p_digmax, p_digits);
1705 Begin_roots_block(_vres, 2)
1706 _vres[0] = Val_int(*p_digmax);
1707 _vres[1] = Val_int(*p_digits);
1708 _vresult = camlidl_alloc_small(2, 0);
1709 Field(_vresult, 0) = _vres[0];
1710 Field(_vresult, 1) = _vres[1];
1711 End_roots()
1712 return _vresult;
1713}
1714
1716 value _v_data,
1717 value _v_datmin,
1718 value _v_datmax,
1719 value _v_nbin,
1720 value _v_opt)
1721{
1722 int n; /*in*/
1723 double *data; /*in*/
1724 double datmin; /*in*/
1725 double datmax; /*in*/
1726 int nbin; /*in*/
1727 plplot_hist_style opt; /*in*/
1728 mlsize_t _c1;
1729 mlsize_t _c2;
1730 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1731 camlidl_ctx _ctx = &_ctxs;
1732 _c1 = Wosize_val(_v_data) / Double_wosize;
1733 data = camlidl_malloc(_c1 * sizeof(double ), _ctx);
1734 for (_c2 = 0; _c2 < _c1; _c2++) {
1735 data[_c2] = Double_field(_v_data, _c2);
1736 }
1737 n = _c1;
1738 datmin = Double_val(_v_datmin);
1739 datmax = Double_val(_v_datmax);
1740 nbin = Int_val(_v_nbin);
1742 c_plhist(n, data, datmin, datmax, nbin, opt);
1743 camlidl_free(_ctx);
1744 return Val_unit;
1745}
1746
1748 value _v_h,
1749 value _v_l,
1750 value _v_s)
1751{
1752 double h; /*in*/
1753 double l; /*in*/
1754 double s; /*in*/
1755 double *p_r; /*out*/
1756 double *p_g; /*out*/
1757 double *p_b; /*out*/
1758 double _c1;
1759 double _c2;
1760 double _c3;
1761 value _vresult;
1762 value _vres[3] = { Val_unit, Val_unit, Val_unit, };
1763
1764 h = Double_val(_v_h);
1765 l = Double_val(_v_l);
1766 s = Double_val(_v_s);
1767 p_r = &_c1;
1768 p_g = &_c2;
1769 p_b = &_c3;
1770 c_plhlsrgb(h, l, s, p_r, p_g, p_b);
1771 Begin_roots_block(_vres, 3)
1772 _vres[0] = caml_copy_double(*p_r);
1773 _vres[1] = caml_copy_double(*p_g);
1774 _vres[2] = caml_copy_double(*p_b);
1775 _vresult = camlidl_alloc_small(3, 0);
1776 Field(_vresult, 0) = _vres[0];
1777 Field(_vresult, 1) = _vres[1];
1778 Field(_vresult, 2) = _vres[2];
1779 End_roots()
1780 return _vresult;
1781}
1782
1784{
1785 c_plinit();
1786 return Val_unit;
1787}
1788
1790 value _v_x1,
1791 value _v_y1,
1792 value _v_x2,
1793 value _v_y2)
1794{
1795 double x1; /*in*/
1796 double y1; /*in*/
1797 double x2; /*in*/
1798 double y2; /*in*/
1799 x1 = Double_val(_v_x1);
1800 y1 = Double_val(_v_y1);
1801 x2 = Double_val(_v_x2);
1802 y2 = Double_val(_v_y2);
1803 c_pljoin(x1, y1, x2, y2);
1804 return Val_unit;
1805}
1806
1808 value _v_xlabel,
1809 value _v_ylabel,
1810 value _v_tlabel)
1811{
1812 char const *xlabel; /*in*/
1813 char const *ylabel; /*in*/
1814 char const *tlabel; /*in*/
1815 xlabel = (char const *) String_val(_v_xlabel);
1816 ylabel = (char const *) String_val(_v_ylabel);
1817 tlabel = (char const *) String_val(_v_tlabel);
1818 c_pllab(xlabel, ylabel, tlabel);
1819 return Val_unit;
1820}
1821
1823 value _v_x,
1824 value _v_y,
1825 value _v_z)
1826{
1827 double x; /*in*/
1828 double y; /*in*/
1829 double z; /*in*/
1830 x = Double_val(_v_x);
1831 y = Double_val(_v_y);
1832 z = Double_val(_v_z);
1833 c_pllightsource(x, y, z);
1834 return Val_unit;
1835}
1836
1838 value _v_x,
1839 value _v_y)
1840{
1841 int n; /*in*/
1842 double *x; /*in*/
1843 double *y; /*in*/
1844 mlsize_t _c1;
1845 mlsize_t _c2;
1846 mlsize_t _c3;
1847 mlsize_t _c4;
1848 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1849 camlidl_ctx _ctx = &_ctxs;
1850 _c1 = Wosize_val(_v_x) / Double_wosize;
1851 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
1852 for (_c2 = 0; _c2 < _c1; _c2++) {
1853 x[_c2] = Double_field(_v_x, _c2);
1854 }
1855 n = _c1;
1856 _c3 = Wosize_val(_v_y) / Double_wosize;
1857 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
1858 for (_c4 = 0; _c4 < _c3; _c4++) {
1859 y[_c4] = Double_field(_v_y, _c4);
1860 }
1861 n = _c3;
1862 c_plline(n, x, y);
1863 camlidl_free(_ctx);
1864 return Val_unit;
1865}
1866
1868 value _v_x,
1869 value _v_y,
1870 value _v_z)
1871{
1872 int n; /*in*/
1873 double *x; /*in*/
1874 double *y; /*in*/
1875 double *z; /*in*/
1876 mlsize_t _c1;
1877 mlsize_t _c2;
1878 mlsize_t _c3;
1879 mlsize_t _c4;
1880 mlsize_t _c5;
1881 mlsize_t _c6;
1882 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1883 camlidl_ctx _ctx = &_ctxs;
1884 _c1 = Wosize_val(_v_x) / Double_wosize;
1885 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
1886 for (_c2 = 0; _c2 < _c1; _c2++) {
1887 x[_c2] = Double_field(_v_x, _c2);
1888 }
1889 n = _c1;
1890 _c3 = Wosize_val(_v_y) / Double_wosize;
1891 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
1892 for (_c4 = 0; _c4 < _c3; _c4++) {
1893 y[_c4] = Double_field(_v_y, _c4);
1894 }
1895 n = _c3;
1896 _c5 = Wosize_val(_v_z) / Double_wosize;
1897 z = camlidl_malloc(_c5 * sizeof(double ), _ctx);
1898 for (_c6 = 0; _c6 < _c5; _c6++) {
1899 z[_c6] = Double_field(_v_z, _c6);
1900 }
1901 n = _c5;
1902 c_plline3(n, x, y, z);
1903 camlidl_free(_ctx);
1904 return Val_unit;
1905}
1906
1908 value _v_lin)
1909{
1910 int lin; /*in*/
1911 lin = Int_val(_v_lin);
1912 c_pllsty(lin);
1913 return Val_unit;
1914}
1915
1917 value _v_x,
1918 value _v_y,
1919 value _v_z,
1920 value _v_opt)
1921{
1922 double *x; /*in*/
1923 double *y; /*in*/
1924 double **z; /*in*/
1925 int nx; /*in*/
1926 int ny; /*in*/
1927 plplot3d_style opt; /*in*/
1928 mlsize_t _c1;
1929 mlsize_t _c2;
1930 mlsize_t _c3;
1931 mlsize_t _c4;
1932 mlsize_t _c5;
1933 mlsize_t _c6;
1934 value _v7;
1935 mlsize_t _c8;
1936 mlsize_t _c9;
1937 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1938 camlidl_ctx _ctx = &_ctxs;
1939 _c1 = Wosize_val(_v_x) / Double_wosize;
1940 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
1941 for (_c2 = 0; _c2 < _c1; _c2++) {
1942 x[_c2] = Double_field(_v_x, _c2);
1943 }
1944 nx = _c1;
1945 _c3 = Wosize_val(_v_y) / Double_wosize;
1946 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
1947 for (_c4 = 0; _c4 < _c3; _c4++) {
1948 y[_c4] = Double_field(_v_y, _c4);
1949 }
1950 ny = _c3;
1951 _c5 = Wosize_val(_v_z);
1952 z = camlidl_malloc(_c5 * sizeof(double *), _ctx);
1953 for (_c6 = 0; _c6 < _c5; _c6++) {
1954 _v7 = Field(_v_z, _c6);
1955 _c8 = Wosize_val(_v7) / Double_wosize;
1956 z[_c6] = camlidl_malloc(_c8 * sizeof(double ), _ctx);
1957 for (_c9 = 0; _c9 < _c8; _c9++) {
1958 z[_c6][_c9] = Double_field(_v7, _c9);
1959 }
1960 ny = _c8;
1961 }
1962 nx = _c5;
1963 camlidl_ml2c_plplot_core_plplot3d_style(_v_opt, &opt, _ctx);
1964 c_plmesh(x, y, z, nx, ny, opt);
1965 camlidl_free(_ctx);
1966 return Val_unit;
1967}
1968
1970 value _v_x,
1971 value _v_y,
1972 value _v_z,
1973 value _v_opt,
1974 value _v_clevel)
1975{
1976 double *x; /*in*/
1977 double *y; /*in*/
1978 double **z; /*in*/
1979 int nx; /*in*/
1980 int ny; /*in*/
1981 plplot3d_style opt; /*in*/
1982 double *clevel; /*in*/
1983 int nlevel; /*in*/
1984 mlsize_t _c1;
1985 mlsize_t _c2;
1986 mlsize_t _c3;
1987 mlsize_t _c4;
1988 mlsize_t _c5;
1989 mlsize_t _c6;
1990 value _v7;
1991 mlsize_t _c8;
1992 mlsize_t _c9;
1993 mlsize_t _c10;
1994 mlsize_t _c11;
1995 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
1996 camlidl_ctx _ctx = &_ctxs;
1997 _c1 = Wosize_val(_v_x) / Double_wosize;
1998 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
1999 for (_c2 = 0; _c2 < _c1; _c2++) {
2000 x[_c2] = Double_field(_v_x, _c2);
2001 }
2002 nx = _c1;
2003 _c3 = Wosize_val(_v_y) / Double_wosize;
2004 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
2005 for (_c4 = 0; _c4 < _c3; _c4++) {
2006 y[_c4] = Double_field(_v_y, _c4);
2007 }
2008 ny = _c3;
2009 _c5 = Wosize_val(_v_z);
2010 z = camlidl_malloc(_c5 * sizeof(double *), _ctx);
2011 for (_c6 = 0; _c6 < _c5; _c6++) {
2012 _v7 = Field(_v_z, _c6);
2013 _c8 = Wosize_val(_v7) / Double_wosize;
2014 z[_c6] = camlidl_malloc(_c8 * sizeof(double ), _ctx);
2015 for (_c9 = 0; _c9 < _c8; _c9++) {
2016 z[_c6][_c9] = Double_field(_v7, _c9);
2017 }
2018 ny = _c8;
2019 }
2020 nx = _c5;
2021 camlidl_ml2c_plplot_core_plplot3d_style(_v_opt, &opt, _ctx);
2022 _c10 = Wosize_val(_v_clevel) / Double_wosize;
2023 clevel = camlidl_malloc(_c10 * sizeof(double ), _ctx);
2024 for (_c11 = 0; _c11 < _c10; _c11++) {
2025 clevel[_c11] = Double_field(_v_clevel, _c11);
2026 }
2027 nlevel = _c10;
2028 c_plmeshc(x, y, z, nx, ny, opt, clevel, nlevel);
2029 camlidl_free(_ctx);
2030 return Val_unit;
2031}
2032
2034{
2035 int *p_strm; /*out*/
2036 int _c1;
2037 value _vres;
2038
2039 p_strm = &_c1;
2040 c_plmkstrm(p_strm);
2041 _vres = Val_int(*p_strm);
2042 return _vres;
2043}
2044
2046 value _v_side,
2047 value _v_disp,
2048 value _v_pos,
2049 value _v_just,
2050 value _v_text)
2051{
2052 char const *side; /*in*/
2053 double disp; /*in*/
2054 double pos; /*in*/
2055 double just; /*in*/
2056 char const *text; /*in*/
2057 side = (char const *) String_val(_v_side);
2058 disp = Double_val(_v_disp);
2059 pos = Double_val(_v_pos);
2060 just = Double_val(_v_just);
2061 text = (char const *) String_val(_v_text);
2062 c_plmtex(side, disp, pos, just, text);
2063 return Val_unit;
2064}
2065
2067 value _v_side,
2068 value _v_disp,
2069 value _v_pos,
2070 value _v_just,
2071 value _v_text)
2072{
2073 char const *side; /*in*/
2074 double disp; /*in*/
2075 double pos; /*in*/
2076 double just; /*in*/
2077 char const *text; /*in*/
2078 side = (char const *) String_val(_v_side);
2079 disp = Double_val(_v_disp);
2080 pos = Double_val(_v_pos);
2081 just = Double_val(_v_just);
2082 text = (char const *) String_val(_v_text);
2083 c_plmtex3(side, disp, pos, just, text);
2084 return Val_unit;
2085}
2086
2088 value _v_x,
2089 value _v_y,
2090 value _v_z,
2091 value _v_opt,
2092 value _v_side)
2093{
2094 double *x; /*in*/
2095 double *y; /*in*/
2096 double **z; /*in*/
2097 int nx; /*in*/
2098 int ny; /*in*/
2099 plplot3d_style opt; /*in*/
2100 int side; /*in*/
2101 mlsize_t _c1;
2102 mlsize_t _c2;
2103 mlsize_t _c3;
2104 mlsize_t _c4;
2105 mlsize_t _c5;
2106 mlsize_t _c6;
2107 value _v7;
2108 mlsize_t _c8;
2109 mlsize_t _c9;
2110 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2111 camlidl_ctx _ctx = &_ctxs;
2112 _c1 = Wosize_val(_v_x) / Double_wosize;
2113 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
2114 for (_c2 = 0; _c2 < _c1; _c2++) {
2115 x[_c2] = Double_field(_v_x, _c2);
2116 }
2117 nx = _c1;
2118 _c3 = Wosize_val(_v_y) / Double_wosize;
2119 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
2120 for (_c4 = 0; _c4 < _c3; _c4++) {
2121 y[_c4] = Double_field(_v_y, _c4);
2122 }
2123 ny = _c3;
2124 _c5 = Wosize_val(_v_z);
2125 z = camlidl_malloc(_c5 * sizeof(double *), _ctx);
2126 for (_c6 = 0; _c6 < _c5; _c6++) {
2127 _v7 = Field(_v_z, _c6);
2128 _c8 = Wosize_val(_v7) / Double_wosize;
2129 z[_c6] = camlidl_malloc(_c8 * sizeof(double ), _ctx);
2130 for (_c9 = 0; _c9 < _c8; _c9++) {
2131 z[_c6][_c9] = Double_field(_v7, _c9);
2132 }
2133 ny = _c8;
2134 }
2135 nx = _c5;
2136 camlidl_ml2c_plplot_core_plplot3d_style(_v_opt, &opt, _ctx);
2137 side = Int_val(_v_side);
2138 c_plot3d(x, y, z, nx, ny, opt, side);
2139 camlidl_free(_ctx);
2140 return Val_unit;
2141}
2142
2144 value _v_x,
2145 value _v_y,
2146 value _v_z,
2147 value _v_opt,
2148 value _v_clevel)
2149{
2150 double *x; /*in*/
2151 double *y; /*in*/
2152 double **z; /*in*/
2153 int nx; /*in*/
2154 int ny; /*in*/
2155 plplot3d_style opt; /*in*/
2156 double *clevel; /*in*/
2157 int nlevel; /*in*/
2158 mlsize_t _c1;
2159 mlsize_t _c2;
2160 mlsize_t _c3;
2161 mlsize_t _c4;
2162 mlsize_t _c5;
2163 mlsize_t _c6;
2164 value _v7;
2165 mlsize_t _c8;
2166 mlsize_t _c9;
2167 mlsize_t _c10;
2168 mlsize_t _c11;
2169 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2170 camlidl_ctx _ctx = &_ctxs;
2171 _c1 = Wosize_val(_v_x) / Double_wosize;
2172 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
2173 for (_c2 = 0; _c2 < _c1; _c2++) {
2174 x[_c2] = Double_field(_v_x, _c2);
2175 }
2176 nx = _c1;
2177 _c3 = Wosize_val(_v_y) / Double_wosize;
2178 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
2179 for (_c4 = 0; _c4 < _c3; _c4++) {
2180 y[_c4] = Double_field(_v_y, _c4);
2181 }
2182 ny = _c3;
2183 _c5 = Wosize_val(_v_z);
2184 z = camlidl_malloc(_c5 * sizeof(double *), _ctx);
2185 for (_c6 = 0; _c6 < _c5; _c6++) {
2186 _v7 = Field(_v_z, _c6);
2187 _c8 = Wosize_val(_v7) / Double_wosize;
2188 z[_c6] = camlidl_malloc(_c8 * sizeof(double ), _ctx);
2189 for (_c9 = 0; _c9 < _c8; _c9++) {
2190 z[_c6][_c9] = Double_field(_v7, _c9);
2191 }
2192 ny = _c8;
2193 }
2194 nx = _c5;
2195 camlidl_ml2c_plplot_core_plplot3d_style(_v_opt, &opt, _ctx);
2196 _c10 = Wosize_val(_v_clevel) / Double_wosize;
2197 clevel = camlidl_malloc(_c10 * sizeof(double ), _ctx);
2198 for (_c11 = 0; _c11 < _c10; _c11++) {
2199 clevel[_c11] = Double_field(_v_clevel, _c11);
2200 }
2201 nlevel = _c10;
2202 c_plot3dc(x, y, z, nx, ny, opt, clevel, nlevel);
2203 camlidl_free(_ctx);
2204 return Val_unit;
2205}
2206
2208 value _v_x,
2209 value _v_y,
2210 value _v_z,
2211 value _v_opt,
2212 value _v_clevel,
2213 value _v_indexxmin,
2214 value _v_indexymin,
2215 value _v_indexymax)
2216{
2217 double *x; /*in*/
2218 double *y; /*in*/
2219 double **z; /*in*/
2220 int nx; /*in*/
2221 int ny; /*in*/
2222 plplot3d_style opt; /*in*/
2223 double *clevel; /*in*/
2224 int nlevel; /*in*/
2225 int indexxmin; /*in*/
2226 int indexxmax; /*in*/
2227 int *indexymin; /*in*/
2228 int *indexymax; /*in*/
2229 mlsize_t _c1;
2230 mlsize_t _c2;
2231 mlsize_t _c3;
2232 mlsize_t _c4;
2233 mlsize_t _c5;
2234 mlsize_t _c6;
2235 value _v7;
2236 mlsize_t _c8;
2237 mlsize_t _c9;
2238 mlsize_t _c10;
2239 mlsize_t _c11;
2240 mlsize_t _c12;
2241 mlsize_t _c13;
2242 value _v14;
2243 mlsize_t _c15;
2244 mlsize_t _c16;
2245 value _v17;
2246 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2247 camlidl_ctx _ctx = &_ctxs;
2248 _c1 = Wosize_val(_v_x) / Double_wosize;
2249 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
2250 for (_c2 = 0; _c2 < _c1; _c2++) {
2251 x[_c2] = Double_field(_v_x, _c2);
2252 }
2253 nx = _c1;
2254 _c3 = Wosize_val(_v_y) / Double_wosize;
2255 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
2256 for (_c4 = 0; _c4 < _c3; _c4++) {
2257 y[_c4] = Double_field(_v_y, _c4);
2258 }
2259 ny = _c3;
2260 _c5 = Wosize_val(_v_z);
2261 z = camlidl_malloc(_c5 * sizeof(double *), _ctx);
2262 for (_c6 = 0; _c6 < _c5; _c6++) {
2263 _v7 = Field(_v_z, _c6);
2264 _c8 = Wosize_val(_v7) / Double_wosize;
2265 z[_c6] = camlidl_malloc(_c8 * sizeof(double ), _ctx);
2266 for (_c9 = 0; _c9 < _c8; _c9++) {
2267 z[_c6][_c9] = Double_field(_v7, _c9);
2268 }
2269 ny = _c8;
2270 }
2271 nx = _c5;
2272 camlidl_ml2c_plplot_core_plplot3d_style(_v_opt, &opt, _ctx);
2273 _c10 = Wosize_val(_v_clevel) / Double_wosize;
2274 clevel = camlidl_malloc(_c10 * sizeof(double ), _ctx);
2275 for (_c11 = 0; _c11 < _c10; _c11++) {
2276 clevel[_c11] = Double_field(_v_clevel, _c11);
2277 }
2278 nlevel = _c10;
2279 indexxmin = Int_val(_v_indexxmin);
2280 _c12 = Wosize_val(_v_indexymin);
2281 indexymin = camlidl_malloc(_c12 * sizeof(int ), _ctx);
2282 for (_c13 = 0; _c13 < _c12; _c13++) {
2283 _v14 = Field(_v_indexymin, _c13);
2284 indexymin[_c13] = Int_val(_v14);
2285 }
2286 indexxmax = _c12;
2287 _c15 = Wosize_val(_v_indexymax);
2288 indexymax = camlidl_malloc(_c15 * sizeof(int ), _ctx);
2289 for (_c16 = 0; _c16 < _c15; _c16++) {
2290 _v17 = Field(_v_indexymax, _c16);
2291 indexymax[_c16] = Int_val(_v17);
2292 }
2293 indexxmax = _c15;
2294 c_plot3dcl(x, y, z, nx, ny, opt, clevel, nlevel, indexxmin, indexxmax, indexymin, indexymax);
2295 camlidl_free(_ctx);
2296 return Val_unit;
2297}
2298
2300{
2301 return camlidl_plplot_core_c_plot3dcl(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7]);
2302}
2303
2305 value _v_inc,
2306 value _v_del)
2307{
2308 int nlin; /*in*/
2309 int *inc; /*in*/
2310 int *del; /*in*/
2311 mlsize_t _c1;
2312 mlsize_t _c2;
2313 value _v3;
2314 mlsize_t _c4;
2315 mlsize_t _c5;
2316 value _v6;
2317 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2318 camlidl_ctx _ctx = &_ctxs;
2319 _c1 = Wosize_val(_v_inc);
2320 inc = camlidl_malloc(_c1 * sizeof(int ), _ctx);
2321 for (_c2 = 0; _c2 < _c1; _c2++) {
2322 _v3 = Field(_v_inc, _c2);
2323 inc[_c2] = Int_val(_v3);
2324 }
2325 nlin = _c1;
2326 _c4 = Wosize_val(_v_del);
2327 del = camlidl_malloc(_c4 * sizeof(int ), _ctx);
2328 for (_c5 = 0; _c5 < _c4; _c5++) {
2329 _v6 = Field(_v_del, _c5);
2330 del[_c5] = Int_val(_v6);
2331 }
2332 nlin = _c4;
2333 c_plpat(nlin, inc, del);
2334 camlidl_free(_ctx);
2335 return Val_unit;
2336}
2337
2339 value _v_n,
2340 value _v_x1,
2341 value _v_y1,
2342 value _v_x2,
2343 value _v_y2)
2344{
2345 int n; /*in*/
2346 double x1; /*in*/
2347 double y1; /*in*/
2348 double x2; /*in*/
2349 double y2; /*in*/
2350 n = Int_val(_v_n);
2351 x1 = Double_val(_v_x1);
2352 y1 = Double_val(_v_y1);
2353 x2 = Double_val(_v_x2);
2354 y2 = Double_val(_v_y2);
2355 c_plpath(n, x1, y1, x2, y2);
2356 return Val_unit;
2357}
2358
2360 value _v_x,
2361 value _v_y,
2362 value _v_code)
2363{
2364 int n; /*in*/
2365 double *x; /*in*/
2366 double *y; /*in*/
2367 int code; /*in*/
2368 mlsize_t _c1;
2369 mlsize_t _c2;
2370 mlsize_t _c3;
2371 mlsize_t _c4;
2372 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2373 camlidl_ctx _ctx = &_ctxs;
2374 _c1 = Wosize_val(_v_x) / Double_wosize;
2375 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
2376 for (_c2 = 0; _c2 < _c1; _c2++) {
2377 x[_c2] = Double_field(_v_x, _c2);
2378 }
2379 n = _c1;
2380 _c3 = Wosize_val(_v_y) / Double_wosize;
2381 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
2382 for (_c4 = 0; _c4 < _c3; _c4++) {
2383 y[_c4] = Double_field(_v_y, _c4);
2384 }
2385 n = _c3;
2386 code = Int_val(_v_code);
2387 c_plpoin(n, x, y, code);
2388 camlidl_free(_ctx);
2389 return Val_unit;
2390}
2391
2393 value _v_x,
2394 value _v_y,
2395 value _v_z,
2396 value _v_code)
2397{
2398 int n; /*in*/
2399 double *x; /*in*/
2400 double *y; /*in*/
2401 double *z; /*in*/
2402 int code; /*in*/
2403 mlsize_t _c1;
2404 mlsize_t _c2;
2405 mlsize_t _c3;
2406 mlsize_t _c4;
2407 mlsize_t _c5;
2408 mlsize_t _c6;
2409 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2410 camlidl_ctx _ctx = &_ctxs;
2411 _c1 = Wosize_val(_v_x) / Double_wosize;
2412 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
2413 for (_c2 = 0; _c2 < _c1; _c2++) {
2414 x[_c2] = Double_field(_v_x, _c2);
2415 }
2416 n = _c1;
2417 _c3 = Wosize_val(_v_y) / Double_wosize;
2418 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
2419 for (_c4 = 0; _c4 < _c3; _c4++) {
2420 y[_c4] = Double_field(_v_y, _c4);
2421 }
2422 n = _c3;
2423 _c5 = Wosize_val(_v_z) / Double_wosize;
2424 z = camlidl_malloc(_c5 * sizeof(double ), _ctx);
2425 for (_c6 = 0; _c6 < _c5; _c6++) {
2426 z[_c6] = Double_field(_v_z, _c6);
2427 }
2428 n = _c5;
2429 code = Int_val(_v_code);
2430 c_plpoin3(n, x, y, z, code);
2431 camlidl_free(_ctx);
2432 return Val_unit;
2433}
2434
2436 value _v_setp,
2437 value _v_prec)
2438{
2439 int setp; /*in*/
2440 int prec; /*in*/
2441 setp = Int_val(_v_setp);
2442 prec = Int_val(_v_prec);
2443 c_plprec(setp, prec);
2444 return Val_unit;
2445}
2446
2448 value _v_patt)
2449{
2450 int patt; /*in*/
2451 patt = Int_val(_v_patt);
2452 c_plpsty(patt);
2453 return Val_unit;
2454}
2455
2457 value _v_x,
2458 value _v_y,
2459 value _v_dx,
2460 value _v_dy,
2461 value _v_just,
2462 value _v_text)
2463{
2464 double x; /*in*/
2465 double y; /*in*/
2466 double dx; /*in*/
2467 double dy; /*in*/
2468 double just; /*in*/
2469 char const *text; /*in*/
2470 x = Double_val(_v_x);
2471 y = Double_val(_v_y);
2472 dx = Double_val(_v_dx);
2473 dy = Double_val(_v_dy);
2474 just = Double_val(_v_just);
2475 text = (char const *) String_val(_v_text);
2476 c_plptex(x, y, dx, dy, just, text);
2477 return Val_unit;
2478}
2479
2481{
2482 return camlidl_plplot_core_c_plptex(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]);
2483}
2484
2486 value _v_wx,
2487 value _v_wy,
2488 value _v_wz,
2489 value _v_dx,
2490 value _v_dy,
2491 value _v_dz,
2492 value _v_sx,
2493 value _v_sy,
2494 value _v_sz,
2495 value _v_just,
2496 value _v_text)
2497{
2498 double wx; /*in*/
2499 double wy; /*in*/
2500 double wz; /*in*/
2501 double dx; /*in*/
2502 double dy; /*in*/
2503 double dz; /*in*/
2504 double sx; /*in*/
2505 double sy; /*in*/
2506 double sz; /*in*/
2507 double just; /*in*/
2508 char const *text; /*in*/
2509 wx = Double_val(_v_wx);
2510 wy = Double_val(_v_wy);
2511 wz = Double_val(_v_wz);
2512 dx = Double_val(_v_dx);
2513 dy = Double_val(_v_dy);
2514 dz = Double_val(_v_dz);
2515 sx = Double_val(_v_sx);
2516 sy = Double_val(_v_sy);
2517 sz = Double_val(_v_sz);
2518 just = Double_val(_v_just);
2519 text = (char const *) String_val(_v_text);
2520 c_plptex3(wx, wy, wz, dx, dy, dz, sx, sy, sz, just, text);
2521 return Val_unit;
2522}
2523
2525{
2526 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]);
2527}
2528
2530{
2531 double _res;
2532 value _vres;
2533
2534 _res = c_plrandd();
2535 _vres = caml_copy_double(_res);
2536 return _vres;
2537}
2538
2540{
2541 c_plreplot();
2542 return Val_unit;
2543}
2544
2546 value _v_r,
2547 value _v_g,
2548 value _v_b)
2549{
2550 double r; /*in*/
2551 double g; /*in*/
2552 double b; /*in*/
2553 double *p_h; /*out*/
2554 double *p_l; /*out*/
2555 double *p_s; /*out*/
2556 double _c1;
2557 double _c2;
2558 double _c3;
2559 value _vresult;
2560 value _vres[3] = { Val_unit, Val_unit, Val_unit, };
2561
2562 r = Double_val(_v_r);
2563 g = Double_val(_v_g);
2564 b = Double_val(_v_b);
2565 p_h = &_c1;
2566 p_l = &_c2;
2567 p_s = &_c3;
2568 c_plrgbhls(r, g, b, p_h, p_l, p_s);
2569 Begin_roots_block(_vres, 3)
2570 _vres[0] = caml_copy_double(*p_h);
2571 _vres[1] = caml_copy_double(*p_l);
2572 _vres[2] = caml_copy_double(*p_s);
2573 _vresult = camlidl_alloc_small(3, 0);
2574 Field(_vresult, 0) = _vres[0];
2575 Field(_vresult, 1) = _vres[1];
2576 Field(_vresult, 2) = _vres[2];
2577 End_roots()
2578 return _vresult;
2579}
2580
2582 value _v_def,
2583 value _v_scale)
2584{
2585 double def; /*in*/
2586 double scale; /*in*/
2587 def = Double_val(_v_def);
2588 scale = Double_val(_v_scale);
2589 c_plschr(def, scale);
2590 return Val_unit;
2591}
2592
2594 value _v_r,
2595 value _v_g,
2596 value _v_b)
2597{
2598 int *r; /*in*/
2599 int *g; /*in*/
2600 int *b; /*in*/
2601 int ncol0; /*in*/
2602 mlsize_t _c1;
2603 mlsize_t _c2;
2604 value _v3;
2605 mlsize_t _c4;
2606 mlsize_t _c5;
2607 value _v6;
2608 mlsize_t _c7;
2609 mlsize_t _c8;
2610 value _v9;
2611 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2612 camlidl_ctx _ctx = &_ctxs;
2613 _c1 = Wosize_val(_v_r);
2614 r = camlidl_malloc(_c1 * sizeof(int ), _ctx);
2615 for (_c2 = 0; _c2 < _c1; _c2++) {
2616 _v3 = Field(_v_r, _c2);
2617 r[_c2] = Int_val(_v3);
2618 }
2619 ncol0 = _c1;
2620 _c4 = Wosize_val(_v_g);
2621 g = camlidl_malloc(_c4 * sizeof(int ), _ctx);
2622 for (_c5 = 0; _c5 < _c4; _c5++) {
2623 _v6 = Field(_v_g, _c5);
2624 g[_c5] = Int_val(_v6);
2625 }
2626 ncol0 = _c4;
2627 _c7 = Wosize_val(_v_b);
2628 b = camlidl_malloc(_c7 * sizeof(int ), _ctx);
2629 for (_c8 = 0; _c8 < _c7; _c8++) {
2630 _v9 = Field(_v_b, _c8);
2631 b[_c8] = Int_val(_v9);
2632 }
2633 ncol0 = _c7;
2634 c_plscmap0(r, g, b, ncol0);
2635 camlidl_free(_ctx);
2636 return Val_unit;
2637}
2638
2640 value _v_r,
2641 value _v_g,
2642 value _v_b,
2643 value _v_alpha)
2644{
2645 int *r; /*in*/
2646 int *g; /*in*/
2647 int *b; /*in*/
2648 double *alpha; /*in*/
2649 int ncol0; /*in*/
2650 mlsize_t _c1;
2651 mlsize_t _c2;
2652 value _v3;
2653 mlsize_t _c4;
2654 mlsize_t _c5;
2655 value _v6;
2656 mlsize_t _c7;
2657 mlsize_t _c8;
2658 value _v9;
2659 mlsize_t _c10;
2660 mlsize_t _c11;
2661 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2662 camlidl_ctx _ctx = &_ctxs;
2663 _c1 = Wosize_val(_v_r);
2664 r = camlidl_malloc(_c1 * sizeof(int ), _ctx);
2665 for (_c2 = 0; _c2 < _c1; _c2++) {
2666 _v3 = Field(_v_r, _c2);
2667 r[_c2] = Int_val(_v3);
2668 }
2669 ncol0 = _c1;
2670 _c4 = Wosize_val(_v_g);
2671 g = camlidl_malloc(_c4 * sizeof(int ), _ctx);
2672 for (_c5 = 0; _c5 < _c4; _c5++) {
2673 _v6 = Field(_v_g, _c5);
2674 g[_c5] = Int_val(_v6);
2675 }
2676 ncol0 = _c4;
2677 _c7 = Wosize_val(_v_b);
2678 b = camlidl_malloc(_c7 * sizeof(int ), _ctx);
2679 for (_c8 = 0; _c8 < _c7; _c8++) {
2680 _v9 = Field(_v_b, _c8);
2681 b[_c8] = Int_val(_v9);
2682 }
2683 ncol0 = _c7;
2684 _c10 = Wosize_val(_v_alpha) / Double_wosize;
2685 alpha = camlidl_malloc(_c10 * sizeof(double ), _ctx);
2686 for (_c11 = 0; _c11 < _c10; _c11++) {
2687 alpha[_c11] = Double_field(_v_alpha, _c11);
2688 }
2689 ncol0 = _c10;
2690 c_plscmap0a(r, g, b, alpha, ncol0);
2691 camlidl_free(_ctx);
2692 return Val_unit;
2693}
2694
2696 value _v_ncol0)
2697{
2698 int ncol0; /*in*/
2699 ncol0 = Int_val(_v_ncol0);
2700 c_plscmap0n(ncol0);
2701 return Val_unit;
2702}
2703
2705 value _v_r,
2706 value _v_g,
2707 value _v_b)
2708{
2709 int *r; /*in*/
2710 int *g; /*in*/
2711 int *b; /*in*/
2712 int ncol1; /*in*/
2713 mlsize_t _c1;
2714 mlsize_t _c2;
2715 value _v3;
2716 mlsize_t _c4;
2717 mlsize_t _c5;
2718 value _v6;
2719 mlsize_t _c7;
2720 mlsize_t _c8;
2721 value _v9;
2722 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2723 camlidl_ctx _ctx = &_ctxs;
2724 _c1 = Wosize_val(_v_r);
2725 r = camlidl_malloc(_c1 * sizeof(int ), _ctx);
2726 for (_c2 = 0; _c2 < _c1; _c2++) {
2727 _v3 = Field(_v_r, _c2);
2728 r[_c2] = Int_val(_v3);
2729 }
2730 ncol1 = _c1;
2731 _c4 = Wosize_val(_v_g);
2732 g = camlidl_malloc(_c4 * sizeof(int ), _ctx);
2733 for (_c5 = 0; _c5 < _c4; _c5++) {
2734 _v6 = Field(_v_g, _c5);
2735 g[_c5] = Int_val(_v6);
2736 }
2737 ncol1 = _c4;
2738 _c7 = Wosize_val(_v_b);
2739 b = camlidl_malloc(_c7 * sizeof(int ), _ctx);
2740 for (_c8 = 0; _c8 < _c7; _c8++) {
2741 _v9 = Field(_v_b, _c8);
2742 b[_c8] = Int_val(_v9);
2743 }
2744 ncol1 = _c7;
2745 c_plscmap1(r, g, b, ncol1);
2746 camlidl_free(_ctx);
2747 return Val_unit;
2748}
2749
2751 value _v_r,
2752 value _v_g,
2753 value _v_b,
2754 value _v_alpha)
2755{
2756 int *r; /*in*/
2757 int *g; /*in*/
2758 int *b; /*in*/
2759 double *alpha; /*in*/
2760 int ncol1; /*in*/
2761 mlsize_t _c1;
2762 mlsize_t _c2;
2763 value _v3;
2764 mlsize_t _c4;
2765 mlsize_t _c5;
2766 value _v6;
2767 mlsize_t _c7;
2768 mlsize_t _c8;
2769 value _v9;
2770 mlsize_t _c10;
2771 mlsize_t _c11;
2772 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2773 camlidl_ctx _ctx = &_ctxs;
2774 _c1 = Wosize_val(_v_r);
2775 r = camlidl_malloc(_c1 * sizeof(int ), _ctx);
2776 for (_c2 = 0; _c2 < _c1; _c2++) {
2777 _v3 = Field(_v_r, _c2);
2778 r[_c2] = Int_val(_v3);
2779 }
2780 ncol1 = _c1;
2781 _c4 = Wosize_val(_v_g);
2782 g = camlidl_malloc(_c4 * sizeof(int ), _ctx);
2783 for (_c5 = 0; _c5 < _c4; _c5++) {
2784 _v6 = Field(_v_g, _c5);
2785 g[_c5] = Int_val(_v6);
2786 }
2787 ncol1 = _c4;
2788 _c7 = Wosize_val(_v_b);
2789 b = camlidl_malloc(_c7 * sizeof(int ), _ctx);
2790 for (_c8 = 0; _c8 < _c7; _c8++) {
2791 _v9 = Field(_v_b, _c8);
2792 b[_c8] = Int_val(_v9);
2793 }
2794 ncol1 = _c7;
2795 _c10 = Wosize_val(_v_alpha) / Double_wosize;
2796 alpha = camlidl_malloc(_c10 * sizeof(double ), _ctx);
2797 for (_c11 = 0; _c11 < _c10; _c11++) {
2798 alpha[_c11] = Double_field(_v_alpha, _c11);
2799 }
2800 ncol1 = _c10;
2801 c_plscmap1a(r, g, b, alpha, ncol1);
2802 camlidl_free(_ctx);
2803 return Val_unit;
2804}
2805
2807 value _v_itype,
2808 value _v_intensity,
2809 value _v_coord1,
2810 value _v_coord2,
2811 value _v_coord3,
2812 value _v_alt_hue_path)
2813{
2814 int itype; /*in*/
2815 int npts; /*in*/
2816 double *intensity; /*in*/
2817 double *coord1; /*in*/
2818 double *coord2; /*in*/
2819 double *coord3; /*in*/
2820 int *alt_hue_path; /*in*/
2821 mlsize_t _c1;
2822 mlsize_t _c2;
2823 mlsize_t _c3;
2824 mlsize_t _c4;
2825 mlsize_t _c5;
2826 mlsize_t _c6;
2827 mlsize_t _c7;
2828 mlsize_t _c8;
2829 value _v9;
2830 mlsize_t _c10;
2831 mlsize_t _c11;
2832 value _v12;
2833 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2834 camlidl_ctx _ctx = &_ctxs;
2835 itype = Int_val(_v_itype);
2836 _c1 = Wosize_val(_v_intensity) / Double_wosize;
2837 intensity = camlidl_malloc(_c1 * sizeof(double ), _ctx);
2838 for (_c2 = 0; _c2 < _c1; _c2++) {
2839 intensity[_c2] = Double_field(_v_intensity, _c2);
2840 }
2841 npts = _c1;
2842 _c3 = Wosize_val(_v_coord1) / Double_wosize;
2843 coord1 = camlidl_malloc(_c3 * sizeof(double ), _ctx);
2844 for (_c4 = 0; _c4 < _c3; _c4++) {
2845 coord1[_c4] = Double_field(_v_coord1, _c4);
2846 }
2847 npts = _c3;
2848 _c5 = Wosize_val(_v_coord2) / Double_wosize;
2849 coord2 = camlidl_malloc(_c5 * sizeof(double ), _ctx);
2850 for (_c6 = 0; _c6 < _c5; _c6++) {
2851 coord2[_c6] = Double_field(_v_coord2, _c6);
2852 }
2853 npts = _c5;
2854 _c7 = Wosize_val(_v_coord3) / Double_wosize;
2855 coord3 = camlidl_malloc(_c7 * sizeof(double ), _ctx);
2856 for (_c8 = 0; _c8 < _c7; _c8++) {
2857 coord3[_c8] = Double_field(_v_coord3, _c8);
2858 }
2859 npts = _c7;
2860 if (_v_alt_hue_path == Val_int(0)) {
2861 alt_hue_path = NULL;
2862 } else {
2863 _v9 = Field(_v_alt_hue_path, 0);
2864 _c10 = Wosize_val(_v9);
2865 alt_hue_path = camlidl_malloc(_c10 * sizeof(int ), _ctx);
2866 for (_c11 = 0; _c11 < _c10; _c11++) {
2867 _v12 = Field(_v9, _c11);
2868 alt_hue_path[_c11] = Int_val(_v12);
2869 }
2870 npts = _c10;
2871 }
2872 c_plscmap1l(itype, npts, intensity, coord1, coord2, coord3, alt_hue_path);
2873 camlidl_free(_ctx);
2874 return Val_unit;
2875}
2876
2881
2883 value _v_itype,
2884 value _v_intensity,
2885 value _v_coord1,
2886 value _v_coord2,
2887 value _v_coord3,
2888 value _v_alpha,
2889 value _v_alt_hue_path)
2890{
2891 int itype; /*in*/
2892 int npts; /*in*/
2893 double *intensity; /*in*/
2894 double *coord1; /*in*/
2895 double *coord2; /*in*/
2896 double *coord3; /*in*/
2897 double *alpha; /*in*/
2898 int *alt_hue_path; /*in*/
2899 mlsize_t _c1;
2900 mlsize_t _c2;
2901 mlsize_t _c3;
2902 mlsize_t _c4;
2903 mlsize_t _c5;
2904 mlsize_t _c6;
2905 mlsize_t _c7;
2906 mlsize_t _c8;
2907 mlsize_t _c9;
2908 mlsize_t _c10;
2909 value _v11;
2910 mlsize_t _c12;
2911 mlsize_t _c13;
2912 value _v14;
2913 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
2914 camlidl_ctx _ctx = &_ctxs;
2915 itype = Int_val(_v_itype);
2916 _c1 = Wosize_val(_v_intensity) / Double_wosize;
2917 intensity = camlidl_malloc(_c1 * sizeof(double ), _ctx);
2918 for (_c2 = 0; _c2 < _c1; _c2++) {
2919 intensity[_c2] = Double_field(_v_intensity, _c2);
2920 }
2921 npts = _c1;
2922 _c3 = Wosize_val(_v_coord1) / Double_wosize;
2923 coord1 = camlidl_malloc(_c3 * sizeof(double ), _ctx);
2924 for (_c4 = 0; _c4 < _c3; _c4++) {
2925 coord1[_c4] = Double_field(_v_coord1, _c4);
2926 }
2927 npts = _c3;
2928 _c5 = Wosize_val(_v_coord2) / Double_wosize;
2929 coord2 = camlidl_malloc(_c5 * sizeof(double ), _ctx);
2930 for (_c6 = 0; _c6 < _c5; _c6++) {
2931 coord2[_c6] = Double_field(_v_coord2, _c6);
2932 }
2933 npts = _c5;
2934 _c7 = Wosize_val(_v_coord3) / Double_wosize;
2935 coord3 = camlidl_malloc(_c7 * sizeof(double ), _ctx);
2936 for (_c8 = 0; _c8 < _c7; _c8++) {
2937 coord3[_c8] = Double_field(_v_coord3, _c8);
2938 }
2939 npts = _c7;
2940 _c9 = Wosize_val(_v_alpha) / Double_wosize;
2941 alpha = camlidl_malloc(_c9 * sizeof(double ), _ctx);
2942 for (_c10 = 0; _c10 < _c9; _c10++) {
2943 alpha[_c10] = Double_field(_v_alpha, _c10);
2944 }
2945 npts = _c9;
2946 if (_v_alt_hue_path == Val_int(0)) {
2947 alt_hue_path = NULL;
2948 } else {
2949 _v11 = Field(_v_alt_hue_path, 0);
2950 _c12 = Wosize_val(_v11);
2951 alt_hue_path = camlidl_malloc(_c12 * sizeof(int ), _ctx);
2952 for (_c13 = 0; _c13 < _c12; _c13++) {
2953 _v14 = Field(_v11, _c13);
2954 alt_hue_path[_c13] = Int_val(_v14);
2955 }
2956 npts = _c12;
2957 }
2958 c_plscmap1la(itype, npts, intensity, coord1, coord2, coord3, alpha, alt_hue_path);
2959 camlidl_free(_ctx);
2960 return Val_unit;
2961}
2962
2967
2969 value _v_ncol1)
2970{
2971 int ncol1; /*in*/
2972 ncol1 = Int_val(_v_ncol1);
2973 c_plscmap1n(ncol1);
2974 return Val_unit;
2975}
2976
2978 value _v_min_color,
2979 value _v_max_color)
2980{
2981 double min_color; /*in*/
2982 double max_color; /*in*/
2983 min_color = Double_val(_v_min_color);
2984 max_color = Double_val(_v_max_color);
2985 c_plscmap1_range(min_color, max_color);
2986 return Val_unit;
2987}
2988
2990 value _v_icol0,
2991 value _v_r,
2992 value _v_g,
2993 value _v_b)
2994{
2995 int icol0; /*in*/
2996 int r; /*in*/
2997 int g; /*in*/
2998 int b; /*in*/
2999 icol0 = Int_val(_v_icol0);
3000 r = Int_val(_v_r);
3001 g = Int_val(_v_g);
3002 b = Int_val(_v_b);
3003 c_plscol0(icol0, r, g, b);
3004 return Val_unit;
3005}
3006
3008 value _v_icol0,
3009 value _v_r,
3010 value _v_g,
3011 value _v_b,
3012 value _v_alpha)
3013{
3014 int icol0; /*in*/
3015 int r; /*in*/
3016 int g; /*in*/
3017 int b; /*in*/
3018 double alpha; /*in*/
3019 icol0 = Int_val(_v_icol0);
3020 r = Int_val(_v_r);
3021 g = Int_val(_v_g);
3022 b = Int_val(_v_b);
3023 alpha = Double_val(_v_alpha);
3024 c_plscol0a(icol0, r, g, b, alpha);
3025 return Val_unit;
3026}
3027
3029 value _v_r,
3030 value _v_g,
3031 value _v_b)
3032{
3033 int r; /*in*/
3034 int g; /*in*/
3035 int b; /*in*/
3036 r = Int_val(_v_r);
3037 g = Int_val(_v_g);
3038 b = Int_val(_v_b);
3039 c_plscolbg(r, g, b);
3040 return Val_unit;
3041}
3042
3044 value _v_r,
3045 value _v_g,
3046 value _v_b,
3047 value _v_alpha)
3048{
3049 int r; /*in*/
3050 int g; /*in*/
3051 int b; /*in*/
3052 double alpha; /*in*/
3053 r = Int_val(_v_r);
3054 g = Int_val(_v_g);
3055 b = Int_val(_v_b);
3056 alpha = Double_val(_v_alpha);
3057 c_plscolbga(r, g, b, alpha);
3058 return Val_unit;
3059}
3060
3062 value _v_color)
3063{
3064 int color; /*in*/
3065 color = Int_val(_v_color);
3067 return Val_unit;
3068}
3069
3071 value _v_compression)
3072{
3073 int compression; /*in*/
3074 compression = Int_val(_v_compression);
3075 c_plscompression(compression);
3076 return Val_unit;
3077}
3078
3080 value _v_devname)
3081{
3082 char const *devname; /*in*/
3083 devname = (char const *) String_val(_v_devname);
3084 c_plsdev(devname);
3085 return Val_unit;
3086}
3087
3089 value _v_mar,
3090 value _v_aspect,
3091 value _v_jx,
3092 value _v_jy)
3093{
3094 double mar; /*in*/
3095 double aspect; /*in*/
3096 double jx; /*in*/
3097 double jy; /*in*/
3098 mar = Double_val(_v_mar);
3099 aspect = Double_val(_v_aspect);
3100 jx = Double_val(_v_jx);
3101 jy = Double_val(_v_jy);
3102 c_plsdidev(mar, aspect, jx, jy);
3103 return Val_unit;
3104}
3105
3107 value _v_dimxmin,
3108 value _v_dimxmax,
3109 value _v_dimymin,
3110 value _v_dimymax,
3111 value _v_dimxpmm,
3112 value _v_dimypmm)
3113{
3114 int dimxmin; /*in*/
3115 int dimxmax; /*in*/
3116 int dimymin; /*in*/
3117 int dimymax; /*in*/
3118 double dimxpmm; /*in*/
3119 double dimypmm; /*in*/
3120 dimxmin = Int_val(_v_dimxmin);
3121 dimxmax = Int_val(_v_dimxmax);
3122 dimymin = Int_val(_v_dimymin);
3123 dimymax = Int_val(_v_dimymax);
3124 dimxpmm = Double_val(_v_dimxpmm);
3125 dimypmm = Double_val(_v_dimypmm);
3126 c_plsdimap(dimxmin, dimxmax, dimymin, dimymax, dimxpmm, dimypmm);
3127 return Val_unit;
3128}
3129
3134
3136 value _v_rot)
3137{
3138 double rot; /*in*/
3139 rot = Double_val(_v_rot);
3140 c_plsdiori(rot);
3141 return Val_unit;
3142}
3143
3145 value _v_xmin,
3146 value _v_ymin,
3147 value _v_xmax,
3148 value _v_ymax)
3149{
3150 double xmin; /*in*/
3151 double ymin; /*in*/
3152 double xmax; /*in*/
3153 double ymax; /*in*/
3154 xmin = Double_val(_v_xmin);
3155 ymin = Double_val(_v_ymin);
3156 xmax = Double_val(_v_xmax);
3157 ymax = Double_val(_v_ymax);
3158 c_plsdiplt(xmin, ymin, xmax, ymax);
3159 return Val_unit;
3160}
3161
3163 value _v_xmin,
3164 value _v_ymin,
3165 value _v_xmax,
3166 value _v_ymax)
3167{
3168 double xmin; /*in*/
3169 double ymin; /*in*/
3170 double xmax; /*in*/
3171 double ymax; /*in*/
3172 xmin = Double_val(_v_xmin);
3173 ymin = Double_val(_v_ymin);
3174 xmax = Double_val(_v_xmax);
3175 ymax = Double_val(_v_ymax);
3176 c_plsdiplz(xmin, ymin, xmax, ymax);
3177 return Val_unit;
3178}
3179
3181 value _v_mode)
3182{
3183 int mode; /*in*/
3185 c_plsdrawmode(mode);
3186 return Val_unit;
3187}
3188
3190 value _v_seed)
3191{
3192 unsigned int seed; /*in*/
3193 seed = Int64_val(_v_seed);
3194 c_plseed(seed);
3195 return Val_unit;
3196}
3197
3199 value _v_esc)
3200{
3201 char esc; /*in*/
3202 esc = Int_val(_v_esc);
3203 c_plsesc(esc);
3204 return Val_unit;
3205}
3206
3208 value _v_fam,
3209 value _v_num,
3210 value _v_bmax)
3211{
3212 int fam; /*in*/
3213 int num; /*in*/
3214 int bmax; /*in*/
3215 fam = Int_val(_v_fam);
3216 num = Int_val(_v_num);
3217 bmax = Int_val(_v_bmax);
3218 c_plsfam(fam, num, bmax);
3219 return Val_unit;
3220}
3221
3223 value _v_fci)
3224{
3225 long long fci; /*in*/
3226 fci = Int64_val(_v_fci);
3227 c_plsfci(fci);
3228 return Val_unit;
3229}
3230
3232 value _v_fnam)
3233{
3234 char const *fnam; /*in*/
3235 fnam = (char const *) String_val(_v_fnam);
3236 c_plsfnam(fnam);
3237 return Val_unit;
3238}
3239
3241 value _v_family,
3242 value _v_style,
3243 value _v_weight)
3244{
3245 int family; /*in*/
3246 int style; /*in*/
3247 int weight; /*in*/
3251 c_plsfont(family, style, weight);
3252 return Val_unit;
3253}
3254
3256 value _v_def,
3257 value _v_scale)
3258{
3259 double def; /*in*/
3260 double scale; /*in*/
3261 def = Double_val(_v_def);
3262 scale = Double_val(_v_scale);
3263 c_plsmaj(def, scale);
3264 return Val_unit;
3265}
3266
3268 value _v_def,
3269 value _v_scale)
3270{
3271 double def; /*in*/
3272 double scale; /*in*/
3273 def = Double_val(_v_def);
3274 scale = Double_val(_v_scale);
3275 c_plsmin(def, scale);
3276 return Val_unit;
3277}
3278
3280 value _v_ori)
3281{
3282 int ori; /*in*/
3283 ori = Int_val(_v_ori);
3284 c_plsori(ori);
3285 return Val_unit;
3286}
3287
3289 value _v_xp,
3290 value _v_yp,
3291 value _v_xleng,
3292 value _v_yleng,
3293 value _v_xoff,
3294 value _v_yoff)
3295{
3296 double xp; /*in*/
3297 double yp; /*in*/
3298 int xleng; /*in*/
3299 int yleng; /*in*/
3300 int xoff; /*in*/
3301 int yoff; /*in*/
3302 xp = Double_val(_v_xp);
3303 yp = Double_val(_v_yp);
3304 xleng = Int_val(_v_xleng);
3305 yleng = Int_val(_v_yleng);
3306 xoff = Int_val(_v_xoff);
3307 yoff = Int_val(_v_yoff);
3308 c_plspage(xp, yp, xleng, yleng, xoff, yoff);
3309 return Val_unit;
3310}
3311
3316
3318 value _v_filename)
3319{
3320 char const *filename; /*in*/
3321 filename = (char const *) String_val(_v_filename);
3322 c_plspal0(filename);
3323 return Val_unit;
3324}
3325
3327 value _v_filename,
3328 value _v_interpolate)
3329{
3330 char const *filename; /*in*/
3331 int interpolate; /*in*/
3332 filename = (char const *) String_val(_v_filename);
3333 interpolate = Int_val(_v_interpolate);
3334 c_plspal1(filename, interpolate);
3335 return Val_unit;
3336}
3337
3339 value _v_pause)
3340{
3341 int pause; /*in*/
3342 pause = Int_val(_v_pause);
3343 c_plspause(pause);
3344 return Val_unit;
3345}
3346
3348 value _v_strm)
3349{
3350 int strm; /*in*/
3351 strm = Int_val(_v_strm);
3352 c_plsstrm(strm);
3353 return Val_unit;
3354}
3355
3357 value _v_nx,
3358 value _v_ny)
3359{
3360 int nx; /*in*/
3361 int ny; /*in*/
3362 nx = Int_val(_v_nx);
3363 ny = Int_val(_v_ny);
3364 c_plssub(nx, ny);
3365 return Val_unit;
3366}
3367
3369 value _v_def,
3370 value _v_scale)
3371{
3372 double def; /*in*/
3373 double scale; /*in*/
3374 def = Double_val(_v_def);
3375 scale = Double_val(_v_scale);
3376 c_plssym(def, scale);
3377 return Val_unit;
3378}
3379
3381 value _v_nx,
3382 value _v_ny)
3383{
3384 int nx; /*in*/
3385 int ny; /*in*/
3386 nx = Int_val(_v_nx);
3387 ny = Int_val(_v_ny);
3388 c_plstar(nx, ny);
3389 return Val_unit;
3390}
3391
3393 value _v_devname,
3394 value _v_nx,
3395 value _v_ny)
3396{
3397 char const *devname; /*in*/
3398 int nx; /*in*/
3399 int ny; /*in*/
3400 devname = (char const *) String_val(_v_devname);
3401 nx = Int_val(_v_nx);
3402 ny = Int_val(_v_ny);
3403 c_plstart(devname, nx, ny);
3404 return Val_unit;
3405}
3406
3408 value _v_x,
3409 value _v_y,
3410 value _v_string)
3411{
3412 int n; /*in*/
3413 double *x; /*in*/
3414 double *y; /*in*/
3415 char const *string; /*in*/
3416 mlsize_t _c1;
3417 mlsize_t _c2;
3418 mlsize_t _c3;
3419 mlsize_t _c4;
3420 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3421 camlidl_ctx _ctx = &_ctxs;
3422 _c1 = Wosize_val(_v_x) / Double_wosize;
3423 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
3424 for (_c2 = 0; _c2 < _c1; _c2++) {
3425 x[_c2] = Double_field(_v_x, _c2);
3426 }
3427 n = _c1;
3428 _c3 = Wosize_val(_v_y) / Double_wosize;
3429 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
3430 for (_c4 = 0; _c4 < _c3; _c4++) {
3431 y[_c4] = Double_field(_v_y, _c4);
3432 }
3433 n = _c3;
3434 string = (char const *) String_val(_v_string);
3435 c_plstring(n, x, y, string);
3436 camlidl_free(_ctx);
3437 return Val_unit;
3438}
3439
3441 value _v_x,
3442 value _v_y,
3443 value _v_z,
3444 value _v_string)
3445{
3446 int n; /*in*/
3447 double *x; /*in*/
3448 double *y; /*in*/
3449 double *z; /*in*/
3450 char const *string; /*in*/
3451 mlsize_t _c1;
3452 mlsize_t _c2;
3453 mlsize_t _c3;
3454 mlsize_t _c4;
3455 mlsize_t _c5;
3456 mlsize_t _c6;
3457 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3458 camlidl_ctx _ctx = &_ctxs;
3459 _c1 = Wosize_val(_v_x) / Double_wosize;
3460 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
3461 for (_c2 = 0; _c2 < _c1; _c2++) {
3462 x[_c2] = Double_field(_v_x, _c2);
3463 }
3464 n = _c1;
3465 _c3 = Wosize_val(_v_y) / Double_wosize;
3466 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
3467 for (_c4 = 0; _c4 < _c3; _c4++) {
3468 y[_c4] = Double_field(_v_y, _c4);
3469 }
3470 n = _c3;
3471 _c5 = Wosize_val(_v_z) / Double_wosize;
3472 z = camlidl_malloc(_c5 * sizeof(double ), _ctx);
3473 for (_c6 = 0; _c6 < _c5; _c6++) {
3474 z[_c6] = Double_field(_v_z, _c6);
3475 }
3476 n = _c5;
3477 string = (char const *) String_val(_v_string);
3478 c_plstring3(n, x, y, z, string);
3479 camlidl_free(_ctx);
3480 return Val_unit;
3481}
3482
3484 value _v_id,
3485 value _v_pen,
3486 value _v_x,
3487 value _v_y)
3488{
3489 int id; /*in*/
3490 int pen; /*in*/
3491 double x; /*in*/
3492 double y; /*in*/
3493 id = Int_val(_v_id);
3494 pen = Int_val(_v_pen);
3495 x = Double_val(_v_x);
3496 y = Double_val(_v_y);
3497 c_plstripa(id, pen, x, y);
3498 return Val_unit;
3499}
3500
3502 value _v_id)
3503{
3504 int id; /*in*/
3505 id = Int_val(_v_id);
3506 c_plstripd(id);
3507 return Val_unit;
3508}
3509
3511 value _v_idata,
3512 value _v_xmin,
3513 value _v_xmax,
3514 value _v_ymin,
3515 value _v_ymax,
3516 value _v_zmin,
3517 value _v_zmax,
3518 value _v_Dxmin,
3519 value _v_Dxmax,
3520 value _v_Dymin,
3521 value _v_Dymax)
3522{
3523 double **idata; /*in*/
3524 int nx; /*in*/
3525 int ny; /*in*/
3526 double xmin; /*in*/
3527 double xmax; /*in*/
3528 double ymin; /*in*/
3529 double ymax; /*in*/
3530 double zmin; /*in*/
3531 double zmax; /*in*/
3532 double Dxmin; /*in*/
3533 double Dxmax; /*in*/
3534 double Dymin; /*in*/
3535 double Dymax; /*in*/
3536 mlsize_t _c1;
3537 mlsize_t _c2;
3538 value _v3;
3539 mlsize_t _c4;
3540 mlsize_t _c5;
3541 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3542 camlidl_ctx _ctx = &_ctxs;
3543 _c1 = Wosize_val(_v_idata);
3544 idata = camlidl_malloc(_c1 * sizeof(double *), _ctx);
3545 for (_c2 = 0; _c2 < _c1; _c2++) {
3546 _v3 = Field(_v_idata, _c2);
3547 _c4 = Wosize_val(_v3) / Double_wosize;
3548 idata[_c2] = camlidl_malloc(_c4 * sizeof(double ), _ctx);
3549 for (_c5 = 0; _c5 < _c4; _c5++) {
3550 idata[_c2][_c5] = Double_field(_v3, _c5);
3551 }
3552 ny = _c4;
3553 }
3554 nx = _c1;
3555 xmin = Double_val(_v_xmin);
3556 xmax = Double_val(_v_xmax);
3557 ymin = Double_val(_v_ymin);
3558 ymax = Double_val(_v_ymax);
3559 zmin = Double_val(_v_zmin);
3560 zmax = Double_val(_v_zmax);
3561 Dxmin = Double_val(_v_Dxmin);
3562 Dxmax = Double_val(_v_Dxmax);
3563 Dymin = Double_val(_v_Dymin);
3564 Dymax = Double_val(_v_Dymax);
3565 c_plimage(idata, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, Dxmin, Dxmax, Dymin, Dymax);
3566 camlidl_free(_ctx);
3567 return Val_unit;
3568}
3569
3571{
3572 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]);
3573}
3574
3576 value _v_mark,
3577 value _v_space)
3578{
3579 int nms; /*in*/
3580 int *mark; /*in*/
3581 int *space; /*in*/
3582 mlsize_t _c1;
3583 mlsize_t _c2;
3584 value _v3;
3585 mlsize_t _c4;
3586 mlsize_t _c5;
3587 value _v6;
3588 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3589 camlidl_ctx _ctx = &_ctxs;
3590 _c1 = Wosize_val(_v_mark);
3591 mark = camlidl_malloc(_c1 * sizeof(int ), _ctx);
3592 for (_c2 = 0; _c2 < _c1; _c2++) {
3593 _v3 = Field(_v_mark, _c2);
3594 mark[_c2] = Int_val(_v3);
3595 }
3596 nms = _c1;
3597 _c4 = Wosize_val(_v_space);
3598 space = camlidl_malloc(_c4 * sizeof(int ), _ctx);
3599 for (_c5 = 0; _c5 < _c4; _c5++) {
3600 _v6 = Field(_v_space, _c5);
3601 space[_c5] = Int_val(_v6);
3602 }
3603 nms = _c4;
3604 c_plstyl(nms, mark, space);
3605 camlidl_free(_ctx);
3606 return Val_unit;
3607}
3608
3610 value _v_x,
3611 value _v_y,
3612 value _v_z,
3613 value _v_opt,
3614 value _v_clevel)
3615{
3616 double *x; /*in*/
3617 double *y; /*in*/
3618 double **z; /*in*/
3619 int nx; /*in*/
3620 int ny; /*in*/
3621 plplot3d_style opt; /*in*/
3622 double *clevel; /*in*/
3623 int nlevel; /*in*/
3624 mlsize_t _c1;
3625 mlsize_t _c2;
3626 mlsize_t _c3;
3627 mlsize_t _c4;
3628 mlsize_t _c5;
3629 mlsize_t _c6;
3630 value _v7;
3631 mlsize_t _c8;
3632 mlsize_t _c9;
3633 mlsize_t _c10;
3634 mlsize_t _c11;
3635 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3636 camlidl_ctx _ctx = &_ctxs;
3637 _c1 = Wosize_val(_v_x) / Double_wosize;
3638 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
3639 for (_c2 = 0; _c2 < _c1; _c2++) {
3640 x[_c2] = Double_field(_v_x, _c2);
3641 }
3642 nx = _c1;
3643 _c3 = Wosize_val(_v_y) / Double_wosize;
3644 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
3645 for (_c4 = 0; _c4 < _c3; _c4++) {
3646 y[_c4] = Double_field(_v_y, _c4);
3647 }
3648 ny = _c3;
3649 _c5 = Wosize_val(_v_z);
3650 z = camlidl_malloc(_c5 * sizeof(double *), _ctx);
3651 for (_c6 = 0; _c6 < _c5; _c6++) {
3652 _v7 = Field(_v_z, _c6);
3653 _c8 = Wosize_val(_v7) / Double_wosize;
3654 z[_c6] = camlidl_malloc(_c8 * sizeof(double ), _ctx);
3655 for (_c9 = 0; _c9 < _c8; _c9++) {
3656 z[_c6][_c9] = Double_field(_v7, _c9);
3657 }
3658 ny = _c8;
3659 }
3660 nx = _c5;
3661 camlidl_ml2c_plplot_core_plplot3d_style(_v_opt, &opt, _ctx);
3662 _c10 = Wosize_val(_v_clevel) / Double_wosize;
3663 clevel = camlidl_malloc(_c10 * sizeof(double ), _ctx);
3664 for (_c11 = 0; _c11 < _c10; _c11++) {
3665 clevel[_c11] = Double_field(_v_clevel, _c11);
3666 }
3667 nlevel = _c10;
3668 c_plsurf3d(x, y, z, nx, ny, opt, clevel, nlevel);
3669 camlidl_free(_ctx);
3670 return Val_unit;
3671}
3672
3674 value _v_x,
3675 value _v_y,
3676 value _v_z,
3677 value _v_opt,
3678 value _v_clevel,
3679 value _v_indexxmin,
3680 value _v_indexymin,
3681 value _v_indexymax)
3682{
3683 double *x; /*in*/
3684 double *y; /*in*/
3685 double **z; /*in*/
3686 int nx; /*in*/
3687 int ny; /*in*/
3688 plplot3d_style opt; /*in*/
3689 double *clevel; /*in*/
3690 int nlevel; /*in*/
3691 int indexxmin; /*in*/
3692 int indexxmax; /*in*/
3693 int *indexymin; /*in*/
3694 int *indexymax; /*in*/
3695 mlsize_t _c1;
3696 mlsize_t _c2;
3697 mlsize_t _c3;
3698 mlsize_t _c4;
3699 mlsize_t _c5;
3700 mlsize_t _c6;
3701 value _v7;
3702 mlsize_t _c8;
3703 mlsize_t _c9;
3704 mlsize_t _c10;
3705 mlsize_t _c11;
3706 mlsize_t _c12;
3707 mlsize_t _c13;
3708 value _v14;
3709 mlsize_t _c15;
3710 mlsize_t _c16;
3711 value _v17;
3712 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3713 camlidl_ctx _ctx = &_ctxs;
3714 _c1 = Wosize_val(_v_x) / Double_wosize;
3715 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
3716 for (_c2 = 0; _c2 < _c1; _c2++) {
3717 x[_c2] = Double_field(_v_x, _c2);
3718 }
3719 nx = _c1;
3720 _c3 = Wosize_val(_v_y) / Double_wosize;
3721 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
3722 for (_c4 = 0; _c4 < _c3; _c4++) {
3723 y[_c4] = Double_field(_v_y, _c4);
3724 }
3725 ny = _c3;
3726 _c5 = Wosize_val(_v_z);
3727 z = camlidl_malloc(_c5 * sizeof(double *), _ctx);
3728 for (_c6 = 0; _c6 < _c5; _c6++) {
3729 _v7 = Field(_v_z, _c6);
3730 _c8 = Wosize_val(_v7) / Double_wosize;
3731 z[_c6] = camlidl_malloc(_c8 * sizeof(double ), _ctx);
3732 for (_c9 = 0; _c9 < _c8; _c9++) {
3733 z[_c6][_c9] = Double_field(_v7, _c9);
3734 }
3735 ny = _c8;
3736 }
3737 nx = _c5;
3738 camlidl_ml2c_plplot_core_plplot3d_style(_v_opt, &opt, _ctx);
3739 _c10 = Wosize_val(_v_clevel) / Double_wosize;
3740 clevel = camlidl_malloc(_c10 * sizeof(double ), _ctx);
3741 for (_c11 = 0; _c11 < _c10; _c11++) {
3742 clevel[_c11] = Double_field(_v_clevel, _c11);
3743 }
3744 nlevel = _c10;
3745 indexxmin = Int_val(_v_indexxmin);
3746 _c12 = Wosize_val(_v_indexymin);
3747 indexymin = camlidl_malloc(_c12 * sizeof(int ), _ctx);
3748 for (_c13 = 0; _c13 < _c12; _c13++) {
3749 _v14 = Field(_v_indexymin, _c13);
3750 indexymin[_c13] = Int_val(_v14);
3751 }
3752 indexxmax = _c12;
3753 _c15 = Wosize_val(_v_indexymax);
3754 indexymax = camlidl_malloc(_c15 * sizeof(int ), _ctx);
3755 for (_c16 = 0; _c16 < _c15; _c16++) {
3756 _v17 = Field(_v_indexymax, _c16);
3757 indexymax[_c16] = Int_val(_v17);
3758 }
3759 indexxmax = _c15;
3760 c_plsurf3dl(x, y, z, nx, ny, opt, clevel, nlevel, indexxmin, indexxmax, indexymin, indexymax);
3761 camlidl_free(_ctx);
3762 return Val_unit;
3763}
3764
3766{
3767 return camlidl_plplot_core_c_plsurf3dl(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7]);
3768}
3769
3771 value _v_arrowx,
3772 value _v_arrowy,
3773 value _v_fill)
3774{
3775 double *arrowx; /*in*/
3776 double *arrowy; /*in*/
3777 int npts; /*in*/
3778 int fill; /*in*/
3779 mlsize_t _c1;
3780 mlsize_t _c2;
3781 mlsize_t _c3;
3782 mlsize_t _c4;
3783 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3784 camlidl_ctx _ctx = &_ctxs;
3785 _c1 = Wosize_val(_v_arrowx) / Double_wosize;
3786 arrowx = camlidl_malloc(_c1 * sizeof(double ), _ctx);
3787 for (_c2 = 0; _c2 < _c1; _c2++) {
3788 arrowx[_c2] = Double_field(_v_arrowx, _c2);
3789 }
3790 npts = _c1;
3791 _c3 = Wosize_val(_v_arrowy) / Double_wosize;
3792 arrowy = camlidl_malloc(_c3 * sizeof(double ), _ctx);
3793 for (_c4 = 0; _c4 < _c3; _c4++) {
3794 arrowy[_c4] = Double_field(_v_arrowy, _c4);
3795 }
3796 npts = _c3;
3797 fill = Int_val(_v_fill);
3798 c_plsvect(arrowx, arrowy, npts, fill);
3799 camlidl_free(_ctx);
3800 return Val_unit;
3801}
3802
3804 value _v_xmin,
3805 value _v_xmax,
3806 value _v_ymin,
3807 value _v_ymax)
3808{
3809 double xmin; /*in*/
3810 double xmax; /*in*/
3811 double ymin; /*in*/
3812 double ymax; /*in*/
3813 xmin = Double_val(_v_xmin);
3814 xmax = Double_val(_v_xmax);
3815 ymin = Double_val(_v_ymin);
3816 ymax = Double_val(_v_ymax);
3817 c_plsvpa(xmin, xmax, ymin, ymax);
3818 return Val_unit;
3819}
3820
3822 value _v_digmax,
3823 value _v_digits)
3824{
3825 int digmax; /*in*/
3826 int digits; /*in*/
3827 digmax = Int_val(_v_digmax);
3828 digits = Int_val(_v_digits);
3829 c_plsxax(digmax, digits);
3830 return Val_unit;
3831}
3832
3834 value _v_window_id)
3835{
3836 int window_id; /*in*/
3837 window_id = Int_val(_v_window_id);
3838 plsxwin(window_id);
3839 return Val_unit;
3840}
3841
3843 value _v_digmax,
3844 value _v_digits)
3845{
3846 int digmax; /*in*/
3847 int digits; /*in*/
3848 digmax = Int_val(_v_digmax);
3849 digits = Int_val(_v_digits);
3850 c_plsyax(digmax, digits);
3851 return Val_unit;
3852}
3853
3855 value _v_x,
3856 value _v_y,
3857 value _v_code)
3858{
3859 int n; /*in*/
3860 double *x; /*in*/
3861 double *y; /*in*/
3862 int code; /*in*/
3863 mlsize_t _c1;
3864 mlsize_t _c2;
3865 mlsize_t _c3;
3866 mlsize_t _c4;
3867 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
3868 camlidl_ctx _ctx = &_ctxs;
3869 _c1 = Wosize_val(_v_x) / Double_wosize;
3870 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
3871 for (_c2 = 0; _c2 < _c1; _c2++) {
3872 x[_c2] = Double_field(_v_x, _c2);
3873 }
3874 n = _c1;
3875 _c3 = Wosize_val(_v_y) / Double_wosize;
3876 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
3877 for (_c4 = 0; _c4 < _c3; _c4++) {
3878 y[_c4] = Double_field(_v_y, _c4);
3879 }
3880 n = _c3;
3881 code = Int_val(_v_code);
3882 c_plsym(n, x, y, code);
3883 camlidl_free(_ctx);
3884 return Val_unit;
3885}
3886
3888 value _v_digmax,
3889 value _v_digits)
3890{
3891 int digmax; /*in*/
3892 int digits; /*in*/
3893 digmax = Int_val(_v_digmax);
3894 digits = Int_val(_v_digits);
3895 c_plszax(digmax, digits);
3896 return Val_unit;
3897}
3898
3900{
3901 c_pltext();
3902 return Val_unit;
3903}
3904
3906 value _v_fmt)
3907{
3908 char const *fmt; /*in*/
3909 fmt = (char const *) String_val(_v_fmt);
3910 c_pltimefmt(fmt);
3911 return Val_unit;
3912}
3913
3915 value _v_aspect)
3916{
3917 double aspect; /*in*/
3918 aspect = Double_val(_v_aspect);
3919 c_plvasp(aspect);
3920 return Val_unit;
3921}
3922
3924 value _v_xmin,
3925 value _v_xmax,
3926 value _v_ymin,
3927 value _v_ymax,
3928 value _v_aspect)
3929{
3930 double xmin; /*in*/
3931 double xmax; /*in*/
3932 double ymin; /*in*/
3933 double ymax; /*in*/
3934 double aspect; /*in*/
3935 xmin = Double_val(_v_xmin);
3936 xmax = Double_val(_v_xmax);
3937 ymin = Double_val(_v_ymin);
3938 ymax = Double_val(_v_ymax);
3939 aspect = Double_val(_v_aspect);
3940 c_plvpas(xmin, xmax, ymin, ymax, aspect);
3941 return Val_unit;
3942}
3943
3945 value _v_xmin,
3946 value _v_xmax,
3947 value _v_ymin,
3948 value _v_ymax)
3949{
3950 double xmin; /*in*/
3951 double xmax; /*in*/
3952 double ymin; /*in*/
3953 double ymax; /*in*/
3954 xmin = Double_val(_v_xmin);
3955 xmax = Double_val(_v_xmax);
3956 ymin = Double_val(_v_ymin);
3957 ymax = Double_val(_v_ymax);
3958 c_plvpor(xmin, xmax, ymin, ymax);
3959 return Val_unit;
3960}
3961
3963{
3964 c_plvsta();
3965 return Val_unit;
3966}
3967
3969 value _v_basex,
3970 value _v_basey,
3971 value _v_height,
3972 value _v_xmin,
3973 value _v_xmax,
3974 value _v_ymin,
3975 value _v_ymax,
3976 value _v_zmin,
3977 value _v_zmax,
3978 value _v_alt,
3979 value _v_az)
3980{
3981 double basex; /*in*/
3982 double basey; /*in*/
3983 double height; /*in*/
3984 double xmin; /*in*/
3985 double xmax; /*in*/
3986 double ymin; /*in*/
3987 double ymax; /*in*/
3988 double zmin; /*in*/
3989 double zmax; /*in*/
3990 double alt; /*in*/
3991 double az; /*in*/
3992 basex = Double_val(_v_basex);
3993 basey = Double_val(_v_basey);
3994 height = Double_val(_v_height);
3995 xmin = Double_val(_v_xmin);
3996 xmax = Double_val(_v_xmax);
3997 ymin = Double_val(_v_ymin);
3998 ymax = Double_val(_v_ymax);
3999 zmin = Double_val(_v_zmin);
4000 zmax = Double_val(_v_zmax);
4001 alt = Double_val(_v_alt);
4002 az = Double_val(_v_az);
4003 c_plw3d(basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az);
4004 return Val_unit;
4005}
4006
4008{
4009 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]);
4010}
4011
4013 value _v_width)
4014{
4015 double width; /*in*/
4016 width = Double_val(_v_width);
4017 c_plwidth(width);
4018 return Val_unit;
4019}
4020
4022 value _v_xmin,
4023 value _v_xmax,
4024 value _v_ymin,
4025 value _v_ymax)
4026{
4027 double xmin; /*in*/
4028 double xmax; /*in*/
4029 double ymin; /*in*/
4030 double ymax; /*in*/
4031 xmin = Double_val(_v_xmin);
4032 xmax = Double_val(_v_xmax);
4033 ymin = Double_val(_v_ymin);
4034 ymax = Double_val(_v_ymax);
4035 c_plwind(xmin, xmax, ymin, ymax);
4036 return Val_unit;
4037}
4038
4040 value _v_mode)
4041{
4042 int mode; /*in*/
4043 int *status; /*out*/
4044 int _c1;
4045 value _vres;
4046
4047 mode = Int_val(_v_mode);
4048 status = &_c1;
4049 c_plxormod(mode, status);
4050 _vres = Val_int(*status);
4051 return _vres;
4052}
4053
4055 value _v_opt,
4056 value _v_optarg)
4057{
4058 char const *opt; /*in*/
4059 char const *optarg; /*in*/
4060 nonzero_error_int _res;
4061 opt = (char const *) String_val(_v_opt);
4062 optarg = (char const *) String_val(_v_optarg);
4063 _res = c_plsetopt(opt, optarg);
4065 return Val_unit;
4066}
4067
4069 value _v_f)
4070{
4071 double **f; /*in*/
4072 int nx; /*in*/
4073 int ny; /*in*/
4074 double *fmax; /*out*/
4075 double *fmin; /*out*/
4076 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4077 camlidl_ctx _ctx = &_ctxs;
4078 mlsize_t _c1;
4079 mlsize_t _c2;
4080 value _v3;
4081 mlsize_t _c4;
4082 mlsize_t _c5;
4083 double _c6;
4084 double _c7;
4085 value _vresult;
4086 value _vres[2] = { Val_unit, Val_unit, };
4087
4088 _c1 = Wosize_val(_v_f);
4089 f = camlidl_malloc(_c1 * sizeof(double *), _ctx);
4090 for (_c2 = 0; _c2 < _c1; _c2++) {
4091 _v3 = Field(_v_f, _c2);
4092 _c4 = Wosize_val(_v3) / Double_wosize;
4093 f[_c2] = camlidl_malloc(_c4 * sizeof(double ), _ctx);
4094 for (_c5 = 0; _c5 < _c4; _c5++) {
4095 f[_c2][_c5] = Double_field(_v3, _c5);
4096 }
4097 ny = _c4;
4098 }
4099 nx = _c1;
4100 fmax = &_c6;
4101 fmin = &_c7;
4102 plMinMax2dGrid(f, nx, ny, fmax, fmin);
4103 Begin_roots_block(_vres, 2)
4104 _vres[0] = caml_copy_double(*fmax);
4105 _vres[1] = caml_copy_double(*fmin);
4106 _vresult = camlidl_alloc_small(2, 0);
4107 Field(_vresult, 0) = _vres[0];
4108 Field(_vresult, 1) = _vres[1];
4109 End_roots()
4110 camlidl_free(_ctx);
4111 return _vresult;
4112}
4113
4115 value _v_f,
4116 value _v_kx,
4117 value _v_lx,
4118 value _v_ky,
4119 value _v_ly,
4120 value _v_clevel)
4121{
4122 double **f; /*in*/
4123 int nx; /*in*/
4124 int ny; /*in*/
4125 int kx; /*in*/
4126 int lx; /*in*/
4127 int ky; /*in*/
4128 int ly; /*in*/
4129 double *clevel; /*in*/
4130 int nlevel; /*in*/
4131 mlsize_t _c1;
4132 mlsize_t _c2;
4133 value _v3;
4134 mlsize_t _c4;
4135 mlsize_t _c5;
4136 mlsize_t _c6;
4137 mlsize_t _c7;
4138 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4139 camlidl_ctx _ctx = &_ctxs;
4140 _c1 = Wosize_val(_v_f);
4141 f = camlidl_malloc(_c1 * sizeof(double *), _ctx);
4142 for (_c2 = 0; _c2 < _c1; _c2++) {
4143 _v3 = Field(_v_f, _c2);
4144 _c4 = Wosize_val(_v3) / Double_wosize;
4145 f[_c2] = camlidl_malloc(_c4 * sizeof(double ), _ctx);
4146 for (_c5 = 0; _c5 < _c4; _c5++) {
4147 f[_c2][_c5] = Double_field(_v3, _c5);
4148 }
4149 ny = _c4;
4150 }
4151 nx = _c1;
4152 kx = Int_val(_v_kx);
4153 lx = Int_val(_v_lx);
4154 ky = Int_val(_v_ky);
4155 ly = Int_val(_v_ly);
4156 _c6 = Wosize_val(_v_clevel) / Double_wosize;
4157 clevel = camlidl_malloc(_c6 * sizeof(double ), _ctx);
4158 for (_c7 = 0; _c7 < _c6; _c7++) {
4159 clevel[_c7] = Double_field(_v_clevel, _c7);
4160 }
4161 nlevel = _c6;
4162 ml_plcont(f, nx, ny, kx, lx, ky, ly, clevel, nlevel);
4163 camlidl_free(_ctx);
4164 return Val_unit;
4165}
4166
4171
4173 value _v_a,
4174 value _v_left,
4175 value _v_right,
4176 value _v_bottom,
4177 value _v_top,
4178 value _v_shade_min,
4179 value _v_shade_max,
4180 value _v_sh_cmap,
4181 value _v_sh_color,
4182 value _v_sh_width,
4183 value _v_min_color,
4184 value _v_min_width,
4185 value _v_max_color,
4186 value _v_max_width,
4187 value _v_rectangular)
4188{
4189 double **a; /*in*/
4190 int nx; /*in*/
4191 int ny; /*in*/
4192 double left; /*in*/
4193 double right; /*in*/
4194 double bottom; /*in*/
4195 double top; /*in*/
4196 double shade_min; /*in*/
4197 double shade_max; /*in*/
4198 int sh_cmap; /*in*/
4199 double sh_color; /*in*/
4200 double sh_width; /*in*/
4201 int min_color; /*in*/
4202 double min_width; /*in*/
4203 int max_color; /*in*/
4204 double max_width; /*in*/
4205 int rectangular; /*in*/
4206 mlsize_t _c1;
4207 mlsize_t _c2;
4208 value _v3;
4209 mlsize_t _c4;
4210 mlsize_t _c5;
4211 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4212 camlidl_ctx _ctx = &_ctxs;
4213 _c1 = Wosize_val(_v_a);
4214 a = camlidl_malloc(_c1 * sizeof(double *), _ctx);
4215 for (_c2 = 0; _c2 < _c1; _c2++) {
4216 _v3 = Field(_v_a, _c2);
4217 _c4 = Wosize_val(_v3) / Double_wosize;
4218 a[_c2] = camlidl_malloc(_c4 * sizeof(double ), _ctx);
4219 for (_c5 = 0; _c5 < _c4; _c5++) {
4220 a[_c2][_c5] = Double_field(_v3, _c5);
4221 }
4222 ny = _c4;
4223 }
4224 nx = _c1;
4225 left = Double_val(_v_left);
4226 right = Double_val(_v_right);
4227 bottom = Double_val(_v_bottom);
4228 top = Double_val(_v_top);
4229 shade_min = Double_val(_v_shade_min);
4230 shade_max = Double_val(_v_shade_max);
4231 sh_cmap = Int_val(_v_sh_cmap);
4232 sh_color = Double_val(_v_sh_color);
4233 sh_width = Double_val(_v_sh_width);
4234 min_color = Int_val(_v_min_color);
4235 min_width = Double_val(_v_min_width);
4236 max_color = Int_val(_v_max_color);
4237 max_width = Double_val(_v_max_width);
4238 rectangular = Int_val(_v_rectangular);
4239 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);
4240 camlidl_free(_ctx);
4241 return Val_unit;
4242}
4243
4245{
4246 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]);
4247}
4248
4250 value _v_a,
4251 value _v_xmin,
4252 value _v_xmax,
4253 value _v_ymin,
4254 value _v_ymax,
4255 value _v_clevel,
4256 value _v_fill_width,
4257 value _v_cont_color,
4258 value _v_cont_width,
4259 value _v_rectangular)
4260{
4261 double **a; /*in*/
4262 int nx; /*in*/
4263 int ny; /*in*/
4264 double xmin; /*in*/
4265 double xmax; /*in*/
4266 double ymin; /*in*/
4267 double ymax; /*in*/
4268 double *clevel; /*in*/
4269 int nlevel; /*in*/
4270 double fill_width; /*in*/
4271 int cont_color; /*in*/
4272 double cont_width; /*in*/
4273 int rectangular; /*in*/
4274 mlsize_t _c1;
4275 mlsize_t _c2;
4276 value _v3;
4277 mlsize_t _c4;
4278 mlsize_t _c5;
4279 mlsize_t _c6;
4280 mlsize_t _c7;
4281 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4282 camlidl_ctx _ctx = &_ctxs;
4283 _c1 = Wosize_val(_v_a);
4284 a = camlidl_malloc(_c1 * sizeof(double *), _ctx);
4285 for (_c2 = 0; _c2 < _c1; _c2++) {
4286 _v3 = Field(_v_a, _c2);
4287 _c4 = Wosize_val(_v3) / Double_wosize;
4288 a[_c2] = camlidl_malloc(_c4 * sizeof(double ), _ctx);
4289 for (_c5 = 0; _c5 < _c4; _c5++) {
4290 a[_c2][_c5] = Double_field(_v3, _c5);
4291 }
4292 ny = _c4;
4293 }
4294 nx = _c1;
4295 xmin = Double_val(_v_xmin);
4296 xmax = Double_val(_v_xmax);
4297 ymin = Double_val(_v_ymin);
4298 ymax = Double_val(_v_ymax);
4299 _c6 = Wosize_val(_v_clevel) / Double_wosize;
4300 clevel = camlidl_malloc(_c6 * sizeof(double ), _ctx);
4301 for (_c7 = 0; _c7 < _c6; _c7++) {
4302 clevel[_c7] = Double_field(_v_clevel, _c7);
4303 }
4304 nlevel = _c6;
4305 fill_width = Double_val(_v_fill_width);
4306 cont_color = Int_val(_v_cont_color);
4307 cont_width = Double_val(_v_cont_width);
4308 rectangular = Int_val(_v_rectangular);
4309 ml_plshades(a, nx, ny, xmin, xmax, ymin, ymax, clevel, nlevel, fill_width, cont_color, cont_width, rectangular);
4310 camlidl_free(_ctx);
4311 return Val_unit;
4312}
4313
4315{
4316 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]);
4317}
4318
4320 value _v_idata,
4321 value _v_xmin,
4322 value _v_xmax,
4323 value _v_ymin,
4324 value _v_ymax,
4325 value _v_zmin,
4326 value _v_zmax,
4327 value _v_valuemin,
4328 value _v_valuemax)
4329{
4330 double **idata; /*in*/
4331 int nx; /*in*/
4332 int ny; /*in*/
4333 double xmin; /*in*/
4334 double xmax; /*in*/
4335 double ymin; /*in*/
4336 double ymax; /*in*/
4337 double zmin; /*in*/
4338 double zmax; /*in*/
4339 double valuemin; /*in*/
4340 double valuemax; /*in*/
4341 mlsize_t _c1;
4342 mlsize_t _c2;
4343 value _v3;
4344 mlsize_t _c4;
4345 mlsize_t _c5;
4346 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4347 camlidl_ctx _ctx = &_ctxs;
4348 _c1 = Wosize_val(_v_idata);
4349 idata = camlidl_malloc(_c1 * sizeof(double *), _ctx);
4350 for (_c2 = 0; _c2 < _c1; _c2++) {
4351 _v3 = Field(_v_idata, _c2);
4352 _c4 = Wosize_val(_v3) / Double_wosize;
4353 idata[_c2] = camlidl_malloc(_c4 * sizeof(double ), _ctx);
4354 for (_c5 = 0; _c5 < _c4; _c5++) {
4355 idata[_c2][_c5] = Double_field(_v3, _c5);
4356 }
4357 ny = _c4;
4358 }
4359 nx = _c1;
4360 xmin = Double_val(_v_xmin);
4361 xmax = Double_val(_v_xmax);
4362 ymin = Double_val(_v_ymin);
4363 ymax = Double_val(_v_ymax);
4364 zmin = Double_val(_v_zmin);
4365 zmax = Double_val(_v_zmax);
4366 valuemin = Double_val(_v_valuemin);
4367 valuemax = Double_val(_v_valuemax);
4368 ml_plimagefr(idata, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax);
4369 camlidl_free(_ctx);
4370 return Val_unit;
4371}
4372
4374{
4375 return camlidl_plplot_core_ml_plimagefr(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8]);
4376}
4377
4379 value _v_u,
4380 value _v_v,
4381 value _v_scale)
4382{
4383 double **u; /*in*/
4384 double **v; /*in*/
4385 int nx; /*in*/
4386 int ny; /*in*/
4387 double scale; /*in*/
4388 mlsize_t _c1;
4389 mlsize_t _c2;
4390 value _v3;
4391 mlsize_t _c4;
4392 mlsize_t _c5;
4393 mlsize_t _c6;
4394 mlsize_t _c7;
4395 value _v8;
4396 mlsize_t _c9;
4397 mlsize_t _c10;
4398 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4399 camlidl_ctx _ctx = &_ctxs;
4400 _c1 = Wosize_val(_v_u);
4401 u = camlidl_malloc(_c1 * sizeof(double *), _ctx);
4402 for (_c2 = 0; _c2 < _c1; _c2++) {
4403 _v3 = Field(_v_u, _c2);
4404 _c4 = Wosize_val(_v3) / Double_wosize;
4405 u[_c2] = camlidl_malloc(_c4 * sizeof(double ), _ctx);
4406 for (_c5 = 0; _c5 < _c4; _c5++) {
4407 u[_c2][_c5] = Double_field(_v3, _c5);
4408 }
4409 ny = _c4;
4410 }
4411 nx = _c1;
4412 _c6 = Wosize_val(_v_v);
4413 v = camlidl_malloc(_c6 * sizeof(double *), _ctx);
4414 for (_c7 = 0; _c7 < _c6; _c7++) {
4415 _v8 = Field(_v_v, _c7);
4416 _c9 = Wosize_val(_v8) / Double_wosize;
4417 v[_c7] = camlidl_malloc(_c9 * sizeof(double ), _ctx);
4418 for (_c10 = 0; _c10 < _c9; _c10++) {
4419 v[_c7][_c10] = Double_field(_v8, _c10);
4420 }
4421 ny = _c9;
4422 }
4423 nx = _c6;
4424 scale = Double_val(_v_scale);
4425 ml_plvect(u, v, nx, ny, scale);
4426 camlidl_free(_ctx);
4427 return Val_unit;
4428}
4429
4431 value _v_name,
4432 value _v_minx,
4433 value _v_maxx,
4434 value _v_miny,
4435 value _v_maxy)
4436{
4437 char const *name; /*in*/
4438 double minx; /*in*/
4439 double maxx; /*in*/
4440 double miny; /*in*/
4441 double maxy; /*in*/
4442 name = (char const *) String_val(_v_name);
4443 minx = Double_val(_v_minx);
4444 maxx = Double_val(_v_maxx);
4445 miny = Double_val(_v_miny);
4446 maxy = Double_val(_v_maxy);
4447 ml_plmap(name, minx, maxx, miny, maxy);
4448 return Val_unit;
4449}
4450
4452 value _v_name,
4453 value _v_minx,
4454 value _v_maxx,
4455 value _v_miny,
4456 value _v_maxy,
4457 value _v_plotentries)
4458{
4459 char const *name; /*in*/
4460 double minx; /*in*/
4461 double maxx; /*in*/
4462 double miny; /*in*/
4463 double maxy; /*in*/
4464 int *plotentries; /*in*/
4465 int nplotentries; /*in*/
4466 mlsize_t _c1;
4467 mlsize_t _c2;
4468 value _v3;
4469 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4470 camlidl_ctx _ctx = &_ctxs;
4471 name = (char const *) String_val(_v_name);
4472 minx = Double_val(_v_minx);
4473 maxx = Double_val(_v_maxx);
4474 miny = Double_val(_v_miny);
4475 maxy = Double_val(_v_maxy);
4476 _c1 = Wosize_val(_v_plotentries);
4477 plotentries = camlidl_malloc(_c1 * sizeof(int ), _ctx);
4478 for (_c2 = 0; _c2 < _c1; _c2++) {
4479 _v3 = Field(_v_plotentries, _c2);
4480 plotentries[_c2] = Int_val(_v3);
4481 }
4482 nplotentries = _c1;
4483 ml_plmapline(name, minx, maxx, miny, maxy, plotentries, nplotentries);
4484 camlidl_free(_ctx);
4485 return Val_unit;
4486}
4487
4492
4494 value _v_name,
4495 value _v_string,
4496 value _v_minx,
4497 value _v_maxx,
4498 value _v_miny,
4499 value _v_maxy,
4500 value _v_plotentries)
4501{
4502 char const *name; /*in*/
4503 char const *string; /*in*/
4504 double minx; /*in*/
4505 double maxx; /*in*/
4506 double miny; /*in*/
4507 double maxy; /*in*/
4508 int *plotentries; /*in*/
4509 int nplotentries; /*in*/
4510 mlsize_t _c1;
4511 mlsize_t _c2;
4512 value _v3;
4513 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4514 camlidl_ctx _ctx = &_ctxs;
4515 name = (char const *) String_val(_v_name);
4516 string = (char const *) String_val(_v_string);
4517 minx = Double_val(_v_minx);
4518 maxx = Double_val(_v_maxx);
4519 miny = Double_val(_v_miny);
4520 maxy = Double_val(_v_maxy);
4521 _c1 = Wosize_val(_v_plotentries);
4522 plotentries = camlidl_malloc(_c1 * sizeof(int ), _ctx);
4523 for (_c2 = 0; _c2 < _c1; _c2++) {
4524 _v3 = Field(_v_plotentries, _c2);
4525 plotentries[_c2] = Int_val(_v3);
4526 }
4527 nplotentries = _c1;
4528 ml_plmapstring(name, string, minx, maxx, miny, maxy, plotentries, nplotentries);
4529 camlidl_free(_ctx);
4530 return Val_unit;
4531}
4532
4537
4539 value _v_name,
4540 value _v_dx,
4541 value _v_dy,
4542 value _v_just,
4543 value _v_text,
4544 value _v_minx,
4545 value _v_maxx,
4546 value _v_miny,
4547 value _v_maxy,
4548 value _v_plotentry)
4549{
4550 char const *name; /*in*/
4551 double dx; /*in*/
4552 double dy; /*in*/
4553 double just; /*in*/
4554 char const *text; /*in*/
4555 double minx; /*in*/
4556 double maxx; /*in*/
4557 double miny; /*in*/
4558 double maxy; /*in*/
4559 int plotentry; /*in*/
4560 name = (char const *) String_val(_v_name);
4561 dx = Double_val(_v_dx);
4562 dy = Double_val(_v_dy);
4563 just = Double_val(_v_just);
4564 text = (char const *) String_val(_v_text);
4565 minx = Double_val(_v_minx);
4566 maxx = Double_val(_v_maxx);
4567 miny = Double_val(_v_miny);
4568 maxy = Double_val(_v_maxy);
4569 plotentry = Int_val(_v_plotentry);
4570 ml_plmaptex(name, dx, dy, just, text, minx, maxx, miny, maxy, plotentry);
4571 return Val_unit;
4572}
4573
4575{
4576 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]);
4577}
4578
4580 value _v_name,
4581 value _v_minx,
4582 value _v_maxx,
4583 value _v_miny,
4584 value _v_maxy,
4585 value _v_plotentries)
4586{
4587 char const *name; /*in*/
4588 double minx; /*in*/
4589 double maxx; /*in*/
4590 double miny; /*in*/
4591 double maxy; /*in*/
4592 int *plotentries; /*in*/
4593 int nplotentries; /*in*/
4594 mlsize_t _c1;
4595 mlsize_t _c2;
4596 value _v3;
4597 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4598 camlidl_ctx _ctx = &_ctxs;
4599 name = (char const *) String_val(_v_name);
4600 minx = Double_val(_v_minx);
4601 maxx = Double_val(_v_maxx);
4602 miny = Double_val(_v_miny);
4603 maxy = Double_val(_v_maxy);
4604 _c1 = Wosize_val(_v_plotentries);
4605 plotentries = camlidl_malloc(_c1 * sizeof(int ), _ctx);
4606 for (_c2 = 0; _c2 < _c1; _c2++) {
4607 _v3 = Field(_v_plotentries, _c2);
4608 plotentries[_c2] = Int_val(_v3);
4609 }
4610 nplotentries = _c1;
4611 ml_plmapfill(name, minx, maxx, miny, maxy, plotentries, nplotentries);
4612 camlidl_free(_ctx);
4613 return Val_unit;
4614}
4615
4620
4622 value _v_dlong,
4623 value _v_dlat,
4624 value _v_minlong,
4625 value _v_maxlong,
4626 value _v_minlat,
4627 value _v_maxlat)
4628{
4629 double dlong; /*in*/
4630 double dlat; /*in*/
4631 double minlong; /*in*/
4632 double maxlong; /*in*/
4633 double minlat; /*in*/
4634 double maxlat; /*in*/
4635 dlong = Double_val(_v_dlong);
4636 dlat = Double_val(_v_dlat);
4637 minlong = Double_val(_v_minlong);
4638 maxlong = Double_val(_v_maxlong);
4639 minlat = Double_val(_v_minlat);
4640 maxlat = Double_val(_v_maxlat);
4641 ml_plmeridians(dlong, dlat, minlong, maxlong, minlat, maxlat);
4642 return Val_unit;
4643}
4644
4649
4651 value _v_x,
4652 value _v_y,
4653 value _v_z,
4654 value _v_draw,
4655 value _v_ifcc)
4656{
4657 int n; /*in*/
4658 double *x; /*in*/
4659 double *y; /*in*/
4660 double *z; /*in*/
4661 int ndraw; /*in*/
4662 int *draw; /*in*/
4663 int ifcc; /*in*/
4664 mlsize_t _c1;
4665 mlsize_t _c2;
4666 mlsize_t _c3;
4667 mlsize_t _c4;
4668 mlsize_t _c5;
4669 mlsize_t _c6;
4670 mlsize_t _c7;
4671 mlsize_t _c8;
4672 value _v9;
4673 struct camlidl_ctx_struct _ctxs = { CAMLIDL_TRANSIENT, NULL };
4674 camlidl_ctx _ctx = &_ctxs;
4675 _c1 = Wosize_val(_v_x) / Double_wosize;
4676 x = camlidl_malloc(_c1 * sizeof(double ), _ctx);
4677 for (_c2 = 0; _c2 < _c1; _c2++) {
4678 x[_c2] = Double_field(_v_x, _c2);
4679 }
4680 n = _c1;
4681 _c3 = Wosize_val(_v_y) / Double_wosize;
4682 y = camlidl_malloc(_c3 * sizeof(double ), _ctx);
4683 for (_c4 = 0; _c4 < _c3; _c4++) {
4684 y[_c4] = Double_field(_v_y, _c4);
4685 }
4686 n = _c3;
4687 _c5 = Wosize_val(_v_z) / Double_wosize;
4688 z = camlidl_malloc(_c5 * sizeof(double ), _ctx);
4689 for (_c6 = 0; _c6 < _c5; _c6++) {
4690 z[_c6] = Double_field(_v_z, _c6);
4691 }
4692 n = _c5;
4693 _c7 = Wosize_val(_v_draw);
4694 draw = camlidl_malloc(_c7 * sizeof(int ), _ctx);
4695 for (_c8 = 0; _c8 < _c7; _c8++) {
4696 _v9 = Field(_v_draw, _c8);
4697 draw[_c8] = Int_val(_v9);
4698 }
4699 ndraw = _c7;
4700 ifcc = Int_val(_v_ifcc);
4701 ml_plpoly3(n, x, y, z, ndraw, draw, ifcc);
4702 camlidl_free(_ctx);
4703 return Val_unit;
4704}
4705
4707 value _v_x,
4708 value _v_y)
4709{
4710 double x; /*in*/
4711 double y; /*in*/
4712 double *tx; /*out*/
4713 double *ty; /*out*/
4714 double _c1;
4715 double _c2;
4716 value _vresult;
4717 value _vres[2] = { Val_unit, Val_unit, };
4718
4719 x = Double_val(_v_x);
4720 y = Double_val(_v_y);
4721 tx = &_c1;
4722 ty = &_c2;
4723 ml_pltr0(x, y, tx, ty);
4724 Begin_roots_block(_vres, 2)
4725 _vres[0] = caml_copy_double(*tx);
4726 _vres[1] = caml_copy_double(*ty);
4727 _vresult = camlidl_alloc_small(2, 0);
4728 Field(_vresult, 0) = _vres[0];
4729 Field(_vresult, 1) = _vres[1];
4730 End_roots()
4731 return _vresult;
4732}
4733
4735{
4737 return Val_unit;
4738}
4739
4741{
4742 int _res;
4743 value _vres;
4744
4745 _res = plg_current_col0();
4746 _vres = Val_int(_res);
4747 return _vres;
4748}
4749
4751{
4752 double _res;
4753 value _vres;
4754
4755 _res = plg_current_col1();
4756 _vres = caml_copy_double(_res);
4757 return _vres;
4758}
4759
4761{
4762 double _res;
4763 value _vres;
4764
4765 _res = plgwidth();
4766 _vres = caml_copy_double(_res);
4767 return _vres;
4768}
4769
4771{
4772 double _res;
4773 value _vres;
4774
4775 _res = plgchrht();
4776 _vres = caml_copy_double(_res);
4777 return _vres;
4778}
4779
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