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