tioga 1.6 → 1.7

data/split/Tioga/figures.h

@@ -23,14 +23,11 @@
 #define __figures_H__
 
 #include <namespace.h>
-
 #include <math.h>
 #include <stdbool.h>
 #include <ctype.h>
-#include "dvector.h"
-#include "dtable.h"
-#include "ruby.h"
-#include "intern.h"
+
+#include "generic.h"
 
 #include <defs.h>
 
@@ -114,9 +111,9 @@ typedef struct {
     bool root_figure;
     bool in_subplot;
     double page_left, page_bottom, page_top, page_right, page_width, page_height;
-        // in output units.    READ ONLY from Ruby.
+        // in output units.    READ ONLY.
     
-/* frame and bounds attributes.  READ ONLY from Ruby.  */
+/* frame and bounds attributes.  READ ONLY.  */
     // frame location as fractions of page width & height.
     double frame_left, frame_right, frame_top, frame_bottom, frame_width, frame_height;
     // bounds in figure coords.
@@ -131,8 +128,8 @@ typedef struct {
     
     double default_font_size; // in points
     double default_text_scale;
-    double default_text_height_dx; // in figure coords.  READ ONLY from Ruby.  set when change default_text_scale.
-    double default_text_height_dy; // in figure coords.  READ ONLY from Ruby.  set when change default_text_scale.
+    double default_text_height_dx; // in figure coords.  READ ONLY.  set when change default_text_scale.
+    double default_text_height_dy; // in figure coords.  READ ONLY.  set when change default_text_scale.
     
     double label_left_margin; // as fraction of frame width
     double label_right_margin; // as fraction of frame width
@@ -149,8 +146,12 @@ typedef struct {
 /* graphics attributes */
 
     /* color attributes */
-    VALUE stroke_color; // [r, g, b]
-    VALUE fill_color; // [r, g, b]
+    double stroke_color_R;
+    double stroke_color_G;
+    double stroke_color_B;
+    double fill_color_R;
+    double fill_color_G;
+    double fill_color_B;
     
     /* stroke attributes */
     double default_line_scale; // multipler for line_width
@@ -158,50 +159,52 @@ typedef struct {
     int line_cap;
     int line_join;
     double miter_limit;
-    VALUE line_type;  // [ dashArray dashPhase ] in points
     
     /* transparency */
     double stroke_opacity;
     double fill_opacity;
     
     /* Title */
-    VALUE title; // text
     bool title_visible;
     int title_side;
     double title_position;
     
     double title_scale;
-    double title_shift; // in char heights, positive for out from edge (or toward larger x or y value)
+    double title_shift; // in char heights, positive for out from edge (or toward larger x or y OBJ_PTR)
     double title_angle;
     int title_alignment;
     int title_justification;
-    VALUE title_color;
+    double title_color_R;
+    double title_color_G;
+    double title_color_B;
     
     /* X label */
-    VALUE xlabel; // text
     bool xlabel_visible;
     double xlabel_position; // xlabel side is given by xaxis_loc
     
     double xlabel_scale;
-    double xlabel_shift; // in char heights, positive for out from edge (or toward larger x or y value)
+    double xlabel_shift; // in char heights, positive for out from edge (or toward larger x or y OBJ_PTR)
     double xlabel_angle;
     int xlabel_side;
     int xlabel_alignment;
     int xlabel_justification;
-    VALUE xlabel_color;
+    double xlabel_color_R;
+    double xlabel_color_G;
+    double xlabel_color_B;
     
     /* Y label */
-    VALUE ylabel; // text
     bool ylabel_visible;
     double ylabel_position; // ylabel side is given by yaxis_loc
     
     double ylabel_scale;
-    double ylabel_shift; // in char heights, positive for out from edge (or toward larger x or y value)
+    double ylabel_shift; // in char heights, positive for out from edge (or toward larger x or y OBJ_PTR)
     double ylabel_angle;
     int ylabel_side;
     int ylabel_alignment;
     int ylabel_justification;
-    VALUE ylabel_color;
+    double ylabel_color_R;
+    double ylabel_color_G;
+    double ylabel_color_B;
     
     /* X axis */
     bool xaxis_visible;
@@ -209,27 +212,26 @@ typedef struct {
     int xaxis_loc;
     // line
     double xaxis_line_width; // for axis line
-    VALUE xaxis_stroke_color; // for axis line and tick marks
+    double xaxis_stroke_color_R; // for axis line and tick marks
+    double xaxis_stroke_color_G;
+    double xaxis_stroke_color_B;
     // tick marks
     double xaxis_major_tick_width; // same units as line_width
     double xaxis_minor_tick_width; // same units as line_width
     double xaxis_major_tick_length; // in units of numeric label char heights
     double xaxis_minor_tick_length; // in units of numeric label char heights
     bool xaxis_log_values;
-    bool xaxis_ticks_inside; // inside frame or toward larger x or y value for specific location
-    bool xaxis_ticks_outside; // inside frame or toward smaller x or y value for specific location
+    bool xaxis_ticks_inside; // inside frame or toward larger x or y OBJ_PTR for specific location
+    bool xaxis_ticks_outside; // inside frame or toward smaller x or y OBJ_PTR for specific location
     double xaxis_tick_interval; // set to 0 to use default
     double xaxis_min_between_major_ticks; // in units of numeric label char heights
     int xaxis_number_of_minor_intervals; // set to 0 to use default
-    VALUE xaxis_locations_for_major_ticks; // set to nil to use defaults
-    VALUE xaxis_locations_for_minor_ticks; // set to nil to use defaults
     // numeric labels on major ticks
     bool xaxis_use_fixed_pt;
     int xaxis_digits_max;
-    VALUE xaxis_tick_labels; // set to nil to use defaults. else must have a label for each major tick
     int xaxis_numeric_label_decimal_digits; // set to negative to use default
     double xaxis_numeric_label_scale;
-    double xaxis_numeric_label_shift; // in char heights, positive for out from edge (or toward larger x or y value)
+    double xaxis_numeric_label_shift; // in char heights, positive for out from edge (or toward larger x or y OBJ_PTR)
     double xaxis_numeric_label_angle;
     int xaxis_numeric_label_alignment;
     int xaxis_numeric_label_justification;
@@ -248,27 +250,26 @@ typedef struct {
     int yaxis_loc;
     // line
     double yaxis_line_width; // for axis line
-    VALUE yaxis_stroke_color; // for axis line and tick marks
+    double yaxis_stroke_color_R; // for axis line and tick marks
+    double yaxis_stroke_color_G;
+    double yaxis_stroke_color_B;
     // tick marks
     double yaxis_major_tick_width; // same units as line_width
     double yaxis_minor_tick_width; // same units as line_width
     double yaxis_major_tick_length; // in units of numeric label char heights
     double yaxis_minor_tick_length; // in units of numeric label char heights
     bool yaxis_log_values;
-    bool yaxis_ticks_inside; // inside frame or toward larger x or y value for specific location
-    bool yaxis_ticks_outside; // inside frame or toward smaller x or y value for specific location
+    bool yaxis_ticks_inside; // inside frame or toward larger x or y OBJ_PTR for specific location
+    bool yaxis_ticks_outside; // inside frame or toward smaller x or y OBJ_PTR for specific location
     double yaxis_tick_interval; // set to 0 to use default
     double yaxis_min_between_major_ticks; // in units of numeric label char heights
     int yaxis_number_of_minor_intervals; // set to 0 to use default
-    VALUE yaxis_locations_for_major_ticks; // set to nil to use defaults
-    VALUE yaxis_locations_for_minor_ticks; // set to nil to use defaults
     // numeric labels on major ticks
     bool yaxis_use_fixed_pt;
     int yaxis_digits_max;
-    VALUE yaxis_tick_labels; // set to nil to use defaults. else must have a label for each major tick
     int yaxis_numeric_label_decimal_digits; // set to negative to use default
     double yaxis_numeric_label_scale;
-    double yaxis_numeric_label_shift; // in char heights, positive for out from edge (or toward larger x or y value)
+    double yaxis_numeric_label_shift; // in char heights, positive for out from edge (or toward larger x or y OBJ_PTR)
     double yaxis_numeric_label_angle;
     int yaxis_numeric_label_alignment;
     int yaxis_numeric_label_justification;
@@ -300,77 +301,370 @@ typedef struct {
 
     /* Whether to complain about out non ok numbers in paths */
     int croak_on_nonok_numbers;
-    
-/* PRIVATE -- not to be included in the Ruby interface */
+
+/* PRIVATE -- not to be included in the user interface */
     double clip_left, clip_right, clip_top, clip_bottom; // in output coords
-    VALUE fm;
 } FM;
 
 typedef FM Figure_Maker;
 
-extern VALUE cFM; /* class object for FigureMaker */
+extern double bbox_llx, bbox_lly, bbox_urx, bbox_ury;
+
 extern char *data_dir;
 
-extern FM *Get_FM(VALUE fmkr);
-extern bool Is_FM(VALUE fmkr);
 
-#define SAVE_STATE FM saved = *p;
-#define RESTORE_STATE *p = saved;
+// all routines set *ierr nonzero in case of error.
+// if call a routine that gets ierr as arg, check ierr when it returns.
+// cleanup and return if find ierr != 0.
+// *ierr is set to 0 by wrapper routines before 1st call to "c_" routines.
+
 
 /*======================================================================*/
+// axes.c
+extern char *Get_String(OBJ_PTR ary, int index, int *ierr);
+
+extern void c_show_axis(OBJ_PTR fmkr, FM *p, int location, int *ierr);
+extern void c_show_edge(OBJ_PTR fmkr, FM *p, int location, int *ierr);
+extern void c_no_title(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_no_xlabel(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_no_ylabel(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_no_xaxis(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_no_yaxis(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_no_left_edge(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_no_right_edge(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_no_top_edge(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_no_bottom_edge(OBJ_PTR fmkr, FM *p, int *ierr);
 
-extern VALUE FM_set_device_pagesize(VALUE fmkr, VALUE width, VALUE height); // size in output coords (decipoints)
-extern VALUE FM_set_frame_sides(VALUE fmkr, VALUE left, VALUE right, VALUE top, VALUE bottom); // in page coords [0..1]
+/*======================================================================*/
+// figures.c
+extern FM *Get_FM(OBJ_PTR fmkr, int *ierr);
+void Init_FigureMaker(void);
+extern bool Get_initialized(void);
+extern void Set_initialized(void);
 
-extern VALUE FM_doing_subplot(VALUE fmkr);
-extern VALUE FM_doing_subfigure(VALUE fmkr);
+/*======================================================================*/
+// init.c
+extern void Init_IDs(void);
+extern OBJ_PTR Get_fm_data_attr(OBJ_PTR fmkr, int *ierr);
+extern void Initialize_Figure(OBJ_PTR fmkr);
+extern void do_cmd(OBJ_PTR fmkr, OBJ_PTR cmd, int *ierr);
+extern bool Get_bool(OBJ_PTR obj, ID_PTR name_ID, int *ierr);
+extern int Get_int(OBJ_PTR obj, ID_PTR name_ID, int *ierr);
+extern double Get_double(OBJ_PTR obj, ID_PTR name_ID, int *ierr);
+extern char *Get_tex_preview_paper_width(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_preview_paper_height(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_preview_hoffset(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_preview_voffset(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_preview_figure_width(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_preview_figure_height(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_fontsize(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_fontfamily(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_fontseries(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_fontshape(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_preview_minwhitespace(OBJ_PTR fmkr, int *ierr);
+extern bool Get_tex_preview_fullpage(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_preview_tiogafigure_command(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_preview_generated_preamble(OBJ_PTR fmkr, int *ierr);
+extern double Get_tex_xoffset(OBJ_PTR fmkr, int *ierr);
+extern double Get_tex_yoffset(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_preview_documentclass(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_preamble(OBJ_PTR fmkr, int *ierr);
+extern char *Get_xaxis_numeric_label_tex(OBJ_PTR fmkr, int *ierr);
+extern char *Get_yaxis_numeric_label_tex(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_preview_pagestyle(OBJ_PTR fmkr, int *ierr);
+extern char *Get_tex_preview_tiogafigure_command(OBJ_PTR fmkr, int *ierr);
+extern OBJ_PTR Get_line_type(OBJ_PTR fmkr, int *ierr);
+extern void Set_line_type(OBJ_PTR fmkr, OBJ_PTR v, int *ierr);
+extern OBJ_PTR Get_xaxis_tick_labels(OBJ_PTR fmkr, int *ierr);
+extern OBJ_PTR Get_xaxis_locations_for_major_ticks(OBJ_PTR fmkr, int *ierr);
+extern OBJ_PTR Get_xaxis_locations_for_minor_ticks(OBJ_PTR fmkr, int *ierr);
+extern OBJ_PTR Get_yaxis_tick_labels(OBJ_PTR fmkr, int *ierr);
+extern OBJ_PTR Get_yaxis_locations_for_major_ticks(OBJ_PTR fmkr, int *ierr);
+extern OBJ_PTR Get_yaxis_locations_for_minor_ticks(OBJ_PTR fmkr, int *ierr);
+
+extern void c_private_init_fm_data(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_set_frame_sides(OBJ_PTR fmkr, FM *p, 
+   double left, double right, double top, double bottom, int *ierr);
+extern void c_set_device_pagesize(OBJ_PTR fmkr, FM *p, double width, double height, int *ierr);
+extern OBJ_PTR c_get_save_filename(OBJ_PTR fmkr, FM *p, OBJ_PTR name, int *ierr);
+extern void c_private_make(OBJ_PTR fmkr, FM *p, OBJ_PTR name, OBJ_PTR cmd, int *ierr);
+extern OBJ_PTR c_private_make_portfolio(OBJ_PTR fmkr, FM *p, OBJ_PTR name, OBJ_PTR fignums, OBJ_PTR fignames, int *ierr);
+
+/* The ID of the measures_info instance variable */
+extern ID_PTR measures_info_ID;
 
-extern VALUE FM_no_title(VALUE fmkr);
-extern VALUE FM_no_xlabel(VALUE fmkr);
-extern VALUE FM_no_ylabel(VALUE fmkr);
-extern VALUE FM_no_xaxis(VALUE fmkr);
-extern VALUE FM_no_yaxis(VALUE fmkr);
-extern VALUE FM_no_left_edge(VALUE fmkr);
-extern VALUE FM_no_right_edge(VALUE fmkr);
-extern VALUE FM_no_top_edge(VALUE fmkr);
-extern VALUE FM_no_bottom_edge(VALUE fmkr);
+/*======================================================================*/
+// makers.c
+extern OBJ_PTR c_private_make_contour(OBJ_PTR fmkr, FM *p,
+         OBJ_PTR gaps, // these vectors get the results
+         OBJ_PTR xs, OBJ_PTR ys, // data x coordinates and y coordinates
+         OBJ_PTR zs, double z_level, // the table of values and the desired contour level
+         OBJ_PTR legit, // the table of flags (nonzero means okay)
+         int method, // method == 1 means CONREC
+         int *ierr);
+extern OBJ_PTR c_private_make_steps(OBJ_PTR fmkr, FM *p, OBJ_PTR Xvec_data, OBJ_PTR Yvec_data,
+				    double xfirst, double yfirst, double xlast, double ylast, int justification, int *ierr);
+        /* adds n_pts_to_add points to Xs and Ys for steps with the given parameters.
+            X_data and Y_data are arrays of n values where n_pts_to_add = 2*(n+1)
+            (xfirst,yfirst) and (xlast,ylast) are extra data points to fix the first and last steps.
+        The X_data plus xfirst and xlast determine the widths of the steps.
+        The Y_data plus yfirst and ylast determine the height of the steps.
+        The steps occur at locations midway between the given x locations. */
+extern OBJ_PTR c_private_make_spline_interpolated_points(OBJ_PTR fmkr, FM *p,
+         OBJ_PTR Xvec, OBJ_PTR Xvec_data, OBJ_PTR Yvec_data,
+         OBJ_PTR start_slope, OBJ_PTR end_slope, int *ierr);
 
-extern VALUE FM_private_set_default_font_size(VALUE fmkr, VALUE size); // size in points
+/*======================================================================*/
+// pdfcolor.c
+extern void Free_Functions(void);
+extern void Write_Functions(int *ierr);
+extern void Free_Stroke_Opacities(void);
+extern void Free_Fill_Opacities(void);
+extern void Write_Stroke_Opacity_Objects(void);
+extern void Write_Fill_Opacity_Objects(void);
+extern void Free_Shadings(void);
+extern void Write_Shadings(void);
+
+extern void c_stroke_opacity_set(OBJ_PTR fmkr, FM *p, double stroke_opacity, int *ierr);
+extern void c_fill_opacity_set(OBJ_PTR fmkr, FM *p, double fill_opacity, int *ierr);
+extern void c_private_axial_shading(OBJ_PTR fmkr, FM *p, 
+      double x0, double y0, double x1, double y1,
+      OBJ_PTR colormap, bool extend_start, bool extend_end, int *ierr);
+extern void c_private_radial_shading(OBJ_PTR fmkr, FM *p, 
+      double x0, double y0, double r0,
+      double x1, double y1, double r1, OBJ_PTR colormap,
+      double a, double b, double c, double d, bool extend_start, bool extend_end, int *ierr);
+extern OBJ_PTR c_private_create_colormap(OBJ_PTR fmkr, FM *p, 
+      bool rgb, int length, OBJ_PTR Ps, OBJ_PTR C1s, OBJ_PTR C2s, OBJ_PTR C3s, int *ierr);
+extern OBJ_PTR c_get_color_from_colormap(OBJ_PTR fmkr, FM *p, OBJ_PTR color_map, double x, int *ierr);
+extern OBJ_PTR c_convert_to_colormap(OBJ_PTR fmkr, FM* p, OBJ_PTR Rs, OBJ_PTR Gs, OBJ_PTR Bs, int *ierr);
+extern OBJ_PTR c_hls_to_rgb(OBJ_PTR fmkr, FM *p, OBJ_PTR hls_vec, int *ierr);
+extern OBJ_PTR c_rgb_to_hls(OBJ_PTR fmkr, FM *p, OBJ_PTR rgb_vecc_hls_to_rgb, int *ierr);
+extern void c_title_color_set(OBJ_PTR fmkr, FM *p, OBJ_PTR valc_hls_to_rgb, int *ierr);
+extern OBJ_PTR c_title_color_get(OBJ_PTR fmkr, FM *pc_hls_to_rgb, int *ierr); // value is array of [r, g, b] intensities from 0 to 1
+extern void c_xlabel_color_set(OBJ_PTR fmkr, FM *p, OBJ_PTR valc_hls_to_rgb, int *ierr);
+extern OBJ_PTR c_xlabel_color_get(OBJ_PTR fmkr, FM *pc_hls_to_rgb, int *ierr); // value is array of [r, g, b] intensities from 0 to 1
+extern void c_ylabel_color_set(OBJ_PTR fmkr, FM *p, OBJ_PTR valc_hls_to_rgb, int *ierr);
+extern OBJ_PTR c_ylabel_color_get(OBJ_PTR fmkr, FM *pc_hls_to_rgb, int *ierr); // value is array of [r, g, b] intensities from 0 to 1
+extern void c_xaxis_stroke_color_set(OBJ_PTR fmkr, FM *p, OBJ_PTR valc_hls_to_rgb, int *ierr);
+extern OBJ_PTR c_xaxis_stroke_color_get(OBJ_PTR fmkr, FM *pc_hls_to_rgb, int *ierr); // value is array of [r, g, b] intensities from 0 to 1
+extern void c_yaxis_stroke_color_set(OBJ_PTR fmkr, FM *p, OBJ_PTR valc_hls_to_rgb, int *ierr);
+extern OBJ_PTR c_yaxis_stroke_color_get(OBJ_PTR fmkr, FM *pc_hls_to_rgb, int *ierr); // value is array of [r, g, b] intensities from 0 to 1
 
+/*======================================================================*/
+// pdfcoords.c
+extern void Recalc_Font_Hts(FM *p);
+extern double convert_figure_to_output_x(FM *p, double x);
+extern double convert_figure_to_output_y(FM *p, double y);
+extern double convert_figure_to_output_dy(FM *p, double dy);
+extern double convert_figure_to_output_dx(FM *p, double dx);
+extern double convert_output_to_figure_x(FM *p, double x);
+extern double convert_output_to_figure_y(FM *p, double y);
+extern double convert_output_to_figure_dy(FM *p, double dy);
+extern double convert_output_to_figure_dx(FM *p, double dx);
 
-/* Colors */
+extern void c_set_subframe(OBJ_PTR fmkr, FM *p, 
+      double left_margin, double right_margin, double top_margin, double bottom_margin, int *ierr);
+extern void c_private_set_default_font_size(OBJ_PTR fmkr, FM *p, double size, int *ierr);
+extern OBJ_PTR c_convert_to_degrees(OBJ_PTR fmkr, FM *p, double dx, double dy, int *ierr); // dx and dy in figure coords
+extern OBJ_PTR c_convert_inches_to_output(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_output_to_inches(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_mm_to_output(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_output_to_mm(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_page_to_output_x(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_page_to_output_y(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_page_to_output_dx(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_page_to_output_dy(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_output_to_page_x(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_output_to_page_y(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_output_to_page_dx(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_output_to_page_dy(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_frame_to_page_x(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_frame_to_page_y(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_frame_to_page_dx(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_frame_to_page_dy(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_page_to_frame_x(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_page_to_frame_y(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_page_to_frame_dx(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_page_to_frame_dy(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_figure_to_frame_x(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_figure_to_frame_y(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_figure_to_frame_dx(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_figure_to_frame_dy(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_frame_to_figure_x(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_frame_to_figure_y(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_frame_to_figure_dx(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_frame_to_figure_dy(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_figure_to_output_x(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_figure_to_output_y(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_figure_to_output_dx(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_figure_to_output_dy(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_output_to_figure_x(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_output_to_figure_y(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_output_to_figure_dx(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern OBJ_PTR c_convert_output_to_figure_dy(OBJ_PTR fmkr, FM *p, double val, int *ierr);
+extern void c_doing_subplot(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_doing_subfigure(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_private_set_bounds(OBJ_PTR fmkr, FM *p, 
+   double left_boundary, double right_boundary, double top_boundary, double bottom_boundary, int *ierr);
 
-/* in addition to RGB, colors are also often specified in terms of (HUE,LIGHTNESS,SATURATION) */
-extern VALUE FM_hls_to_rgb(VALUE fmkr, VALUE hls_vec);
-extern VALUE FM_rgb_to_hls(VALUE fmkr, VALUE rgb_vec);
-    /* hue is given as an angle from 0 to 360 around the color wheel.
-        0, 60, 120, 180, 240, and 300 are respectively red, yellow, green, cyan, blue, and magenta. */
-    /* lightness and saturation are given as numbers from 0 to 1 */
-extern void c_hls_to_rgb(double h, double l, double s, double *p_r, double *p_g, double *p_b); // from plplot plctrl.c
-extern void c_rgb_to_hls(double r, double g, double b, double *p_h, double *p_l, double *p_s); // from plplot plctrl.c
- 
 /*======================================================================*/
+// pdffile.c
+extern void Init_pdf(int *ierr);
+extern void Open_pdf(OBJ_PTR fmkr, FM *p, char *filename, bool quiet_mode, int *ierr);
+extern void Start_Axis_Standard_State(OBJ_PTR fmkr, FM *p, double r, double g, double b, double line_width, int *ierr);
+extern void End_Axis_Standard_State(void);
+extern void Write_gsave(void);
+extern void Write_grestore(void);
+extern void Close_pdf(OBJ_PTR fmkr, FM *p, bool quiet_mode, int *ierr);
+extern void Rename_pdf(char *oldname, char *newname);
 
-/* Miscellaneous */
+extern void c_pdf_gsave(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_pdf_grestore(OBJ_PTR fmkr, FM *p, int *ierr);
 
-extern void Init_pdf(void);
-extern void Open_pdf(VALUE fmkr, char *filename, bool quiet_mode);
-extern void Close_pdf(VALUE fmkr, bool quiet_mode);
-extern void Rename_pdf(char *oldname, char *newname);
+/*======================================================================*/
+// pdfimage.c
+extern OBJ_PTR c_private_create_image_data(OBJ_PTR fmkr, FM *p, OBJ_PTR table,
+            int first_row, int last_row, int first_column, int last_column,
+            double min_val, double max_val, int max_code, int if_below_range, int if_above_range, int *ierr);
+extern OBJ_PTR c_private_create_monochrome_image_data(OBJ_PTR fmkr, FM *p, OBJ_PTR table,
+            int first_row, int last_row, int first_column, int last_column,
+            double boundary, bool reversed, int *ierr);
+extern void c_private_show_jpg(OBJ_PTR fmkr, FM *p, char *filename, 
+   int width, int height, OBJ_PTR image_destination, int mask_obj_num, int *ierr);
+extern OBJ_PTR c_private_show_image(OBJ_PTR fmkr, FM *p, int image_type, double llx, double lly, double lrx, double lry,
+    double ulx, double uly, bool interpolate, bool reversed, int w, int h, unsigned char* data, long len, 
+    OBJ_PTR mask_min, OBJ_PTR mask_max, OBJ_PTR hival, OBJ_PTR lookup_data, int mask_obj_num, int *ierr);
 
-extern void Init_tex(void);
-extern void Open_tex(VALUE fmkr, char *filename, bool quiet_mode);
-extern void Close_tex(VALUE fmkr, bool quiet_mode);
-extern void Rename_tex(char *oldname, char *newname);
+/*======================================================================*/
+// pdfpath.c
+extern void Unpack_RGB(OBJ_PTR rgb, double *rp, double *gp, double *bp, int *ierr);
+extern void update_bbox(FM *p, double x, double y);
 
-extern void Create_wrapper(VALUE fmkr, char *filename, bool quiet_mode);
+extern void c_stroke_color_set_RGB(OBJ_PTR fmkr, FM *p, double r, double g, double b, int *ierr);
+extern void c_stroke_color_set(OBJ_PTR fmkr, FM *p, OBJ_PTR value, int *ierr);
+extern OBJ_PTR c_stroke_color_get(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_fill_color_set_RGB(OBJ_PTR fmkr, FM *p, double r, double g, double b, int *ierr);
+extern void c_fill_color_set(OBJ_PTR fmkr, FM *p, OBJ_PTR value, int *ierr);
+extern OBJ_PTR c_fill_color_get(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_line_width_set(OBJ_PTR fmkr, FM *p, double line_width, int *ierr);
+extern void c_rescale_lines(OBJ_PTR fmkr, FM *p, double scaling_factor, int *ierr);
+extern void c_line_cap_set(OBJ_PTR fmkr, FM *p, int line_cap, int *ierr);
+extern void c_line_join_set(OBJ_PTR fmkr, FM *p, int line_join, int *ierr);
+extern void c_miter_limit_set(OBJ_PTR fmkr, FM *p, double miter_limit, int *ierr);
+extern void c_line_type_set(OBJ_PTR fmkr, FM *p, OBJ_PTR line_type, int *ierr);
+extern void c_update_bbox(OBJ_PTR fmkr, FM *p, double x, double y, int *ierr);
+extern OBJ_PTR c_bbox_left(OBJ_PTR fmkr, FM *p, int *ierr);
+extern OBJ_PTR c_bbox_right(OBJ_PTR fmkr, FM *p, int *ierr);
+extern OBJ_PTR c_bbox_top(OBJ_PTR fmkr, FM *p, int *ierr);
+extern OBJ_PTR c_bbox_bottom(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_move_to_point(OBJ_PTR fmkr, FM *p, double x, double y, int *ierr);
+extern void c_moveto(OBJ_PTR fmkr, FM *p, double x, double y, int *ierr);
+extern void c_append_point_to_path(OBJ_PTR fmkr, FM *p, double x, double y, int *ierr);
+extern void c_lineto(OBJ_PTR fmkr, FM *p, double x, double y, int *ierr);
+extern OBJ_PTR c_bezier_control_points(OBJ_PTR fmkr, FM *p, 
+   double x0, double y0, double delta_x, double a, double b, double c, int *ierr);
+extern void c_append_curve_to_path(OBJ_PTR fmkr, FM *p, double x1, double y1, 
+   double x2, double y2, double x3, double y3, int *ierr);
+extern void c_curveto(OBJ_PTR fmkr, FM *p, 
+   double x1, double y1, double x2, double y2, double x3, double y3, int *ierr);
+extern void c_close_path(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_append_arc_to_path(OBJ_PTR fmkr, FM *p, 
+   double x_start, double y_start, double x_corner, double y_corner,
+   double x_end, double y_end, double dx, double dy, int *ierr);
+extern void c_append_arc(OBJ_PTR fmkr, FM *p, 
+   double x_start, double y_start, double x_corner, double y_corner,
+   double x_end, double y_end, double radius, int *ierr);
+extern void c_append_rect_to_path(OBJ_PTR fmkr, FM *p, double x, double y, double width, double height, int *ierr);
+extern void c_append_rect(OBJ_PTR fmkr, FM *p, double x, double y, double width, double height, int *ierr);
+extern void c_append_rounded_rect_to_path(OBJ_PTR fmkr, FM *p, 
+   double x, double y, double width, double height, double dx, double dy, int *ierr);
+extern void c_append_rounded_rect(OBJ_PTR fmkr, FM *p, 
+   double x, double y, double width, double height, double radius, int *ierr);
+extern void c_append_oval_to_path(OBJ_PTR fmkr, FM *p, double x, double y, double dx, double dy, double angle, int *ierr);
+extern void c_append_oval(OBJ_PTR fmkr, FM *p, double x, double y, double dx, double dy, double angle, int *ierr);
+extern void c_append_circle_to_path(OBJ_PTR fmkr, FM *p, double x, double y, double dx, int *ierr);
+extern void c_append_points_to_path(OBJ_PTR fmkr, FM *p, OBJ_PTR x_vec, OBJ_PTR y_vec, int *ierr);
+extern void c_private_append_points_with_gaps_to_path(OBJ_PTR fmkr, FM *p,
+   OBJ_PTR x_vec, OBJ_PTR y_vec, OBJ_PTR gaps, bool do_close, int *ierr);
+extern void c_stroke(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_close_and_stroke(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_fill(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_discard_path(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_eofill(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_fill_and_stroke(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_eofill_and_stroke(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_close_fill_and_stroke(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_close_eofill_and_stroke(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_clip(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_eoclip(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_fill_and_clip(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_stroke_and_clip(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_fill_stroke_and_clip(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_stroke_line(OBJ_PTR fmkr, FM *p, double x1, double y1, double x2, double y2, int *ierr);
+extern void c_fill_rect(OBJ_PTR fmkr, FM *p, double x, double y, double width, double height, int *ierr);
+extern void c_stroke_rect(OBJ_PTR fmkr, FM *p, double x, double y, double width, double height, int *ierr);
+extern void c_fill_and_stroke_rect(OBJ_PTR fmkr, FM *p, double x, double y, double width, double height, int *ierr);
+extern void c_clip_rect(OBJ_PTR fmkr, FM *p, double x, double y, double width, double height, int *ierr);
+extern void c_clip_dev_rect(OBJ_PTR fmkr, FM *p, double x, double y, double width, double height, int *ierr);
+extern void c_clip_oval(OBJ_PTR fmkr, FM *p, double x, double y, double dx, double dy, double angle, int *ierr);
+extern void c_fill_oval(OBJ_PTR fmkr, FM *p, double x, double y, double dx, double dy, double angle, int *ierr);
+extern void c_stroke_oval(OBJ_PTR fmkr, FM *p, double x, double y, double dx, double dy, double angle, int *ierr);
+extern void c_fill_and_stroke_oval(OBJ_PTR fmkr, FM *p, double x, double y, double dx, double dy, double angle, int *ierr);
+extern void c_clip_rounded_rect(OBJ_PTR fmkr, FM *p, double x, double y, double width, double height, double dx, double dy, int *ierr);
+extern void c_fill_rounded_rect(OBJ_PTR fmkr, FM *p, double x, double y, double width, double height, double dx, double dy, int *ierr);
+extern void c_stroke_rounded_rect(OBJ_PTR fmkr, FM *p, 
+   double x, double y, double width, double height, double dx, double dy, int *ierr);
+extern void c_fill_and_stroke_rounded_rect(OBJ_PTR fmkr, FM *p, 
+   double x, double y, double width, double height, double dx, double dy, int *ierr);
+extern void c_clip_circle(OBJ_PTR fmkr, FM *p, double x, double y, double dx, int *ierr);
+extern void c_fill_circle(OBJ_PTR fmkr, FM *p, double x, double y, double dx, int *ierr);
+extern void c_stroke_circle(OBJ_PTR fmkr, FM *p, double x, double y, double dx, int *ierr);
+extern void c_fill_and_stroke_circle(OBJ_PTR fmkr, FM *p, double x, double y, double dx, int *ierr);
+extern void c_append_frame(OBJ_PTR fmkr, FM *p, bool clip, int *ierr);
+extern void c_append_frame_to_path(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_fill_frame(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_stroke_frame(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_fill_and_stroke_frame(OBJ_PTR fmkr, FM *p, int *ierr);
+extern void c_clip_to_frame(OBJ_PTR fmkr, FM *p, int *ierr);
 
-extern void Recalc_Font_Hts(FM *p);
+/*======================================================================*/
+// pdftext.c
+extern void Init_Font_Dictionary(void);
+extern bool Used_Any_Fonts(void);
+extern void Clear_Fonts_In_Use_Flags(void);
+extern void Write_Font_Dictionaries(void);
+extern void Write_Font_Descriptors(void);
+extern void Write_Font_Widths(void);
+
+extern OBJ_PTR c_register_font(OBJ_PTR fmkr, FM *p, char *font_name, int *ierr);
+extern OBJ_PTR c_marker_string_info(OBJ_PTR fmkr, FM *p, int fnt, unsigned char *text, double scale, int *ierr);
+extern void c_private_show_marker(
+   OBJ_PTR fmkr, FM *p, int int_args, OBJ_PTR stroke_width, OBJ_PTR string,
+   OBJ_PTR x, OBJ_PTR y, OBJ_PTR x_vec, OBJ_PTR y_vec,
+   double h_scale, double v_scale, double scale, double it_angle, double ascent_angle, double angle,
+   OBJ_PTR fill_color, OBJ_PTR stroke_color, int *ierr);
 
-extern VALUE FM_rescale_text(VALUE fmkr, VALUE scaling);
-extern VALUE FM_rescale_lines(VALUE fmkr, VALUE scaling);
+/*======================================================================*/
+// texout.c
+extern void Open_tex(OBJ_PTR fmkr, char *filename, bool quiet_mode, int *ierr);
+extern void Close_tex(OBJ_PTR fmkr, bool quiet_mode, int *ierr);
+extern void Create_wrapper(OBJ_PTR fmkr, char *filename, bool quiet_mode, int *ierr);
+extern void Init_tex(int *ierr);
+extern void Rename_tex(char *oldname, char *newname, int *ierr);
+extern void private_make_portfolio(char *filename, OBJ_PTR fignums, OBJ_PTR fignames, int *ierr);
+
+extern void c_rescale_text(OBJ_PTR fmkr, FM *p, double scaling_factor, int *ierr);
+extern void c_show_rotated_text(OBJ_PTR fmkr, FM *p, char *text, int frame_side, double shift, double fraction,
+				double scale, double angle, int justification, int alignment, OBJ_PTR measure_name, int *ierr);
+extern void c_show_rotated_label(OBJ_PTR fmkr, FM *p, char *text, 
+   double xloc, double yloc, double scale, double angle, int justification, int alignment, OBJ_PTR measure_name, int *ierr);
+extern OBJ_PTR c_check_label_clip(OBJ_PTR fmkr, FM *p, double x, double y, int *ierr);
+extern void c_save_measure(OBJ_PTR fmkr, OBJ_PTR measure_name, 
+			   double width, double height, double depth);
 
-extern double bbox_llx, bbox_lly, bbox_urx, bbox_ury;
+
+/*======================================================================*/
 
 // ENLARGE = the conversion factor from "big points" to output units
 #define ENLARGE 10.0
@@ -384,55 +678,29 @@ extern double bbox_llx, bbox_lly, bbox_urx, bbox_ury;
 #define convert_inches_to_output(inches) ((ENLARGE*BIG_POINTS_PER_INCH)*(inches))
 #define convert_output_to_inches(output) ((output)/(ENLARGE*BIG_POINTS_PER_INCH))
 
-extern VALUE FM_convert_inches_to_output(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_output_to_inches(VALUE fmkr, VALUE value);
-
 #define convert_mm_to_output(mm) ((ENLARGE*BIG_POINTS_PER_INCH*INCHES_PER_MM)*(mm))
 #define convert_output_to_mm(output) ((output)/(ENLARGE*BIG_POINTS_PER_INCH*INCHES_PER_MM))
 
-extern VALUE FM_convert_mm_to_output(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_output_to_mm(VALUE fmkr, VALUE value);
-
 #define convert_page_to_output_x(p,x) ((p)->page_left + (x)*(p)->page_width)
 #define convert_page_to_output_y(p,y) ((p)->page_bottom + (y)*(p)->page_height)
 #define convert_page_to_output_dx(p,dx) ((dx)*(p)->page_width)
 #define convert_page_to_output_dy(p,dy) ((dy)*(p)->page_height)
 
-extern VALUE FM_convert_page_to_output_x(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_page_to_output_y(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_page_to_output_dx(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_page_to_output_dy(VALUE fmkr, VALUE value);
-
 #define convert_output_to_page_x(p,x) (((x) - (p)->page_left)/(p)->page_width)
 #define convert_output_to_page_y(p,y) (((y) - (p)->page_bottom)/(p)->page_height)
 #define convert_output_to_page_dx(p,dx) ((dx)/(p)->page_width)
 #define convert_output_to_page_dy(p,dy) ((dy)/(p)->page_height)
 
-extern VALUE FM_convert_output_to_page_x(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_output_to_page_y(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_output_to_page_dx(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_output_to_page_dy(VALUE fmkr, VALUE value);
-
 #define convert_frame_to_page_x(p,x) ((p)->frame_left + (x)*(p)->frame_width)
 #define convert_frame_to_page_y(p,y) ((p)->frame_bottom + (y)*(p)->frame_height)
 #define convert_frame_to_page_dx(p,dx) ((dx)*(p)->frame_width)
 #define convert_frame_to_page_dy(p,dy) ((dy)*(p)->frame_height)
 
-extern VALUE FM_convert_frame_to_page_x(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_frame_to_page_y(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_frame_to_page_dx(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_frame_to_page_dy(VALUE fmkr, VALUE value);
-
 #define convert_page_to_frame_x(p,x) (((x) - (p)->frame_left)/(p)->frame_width)
 #define convert_page_to_frame_y(p,y) (((y) - (p)->frame_bottom)/(p)->frame_height)
 #define convert_page_to_frame_dx(p,dx) ((dx)/(p)->frame_width)
 #define convert_page_to_frame_dy(p,dy) ((dy)/(p)->frame_height)
 
-extern VALUE FM_convert_page_to_frame_x(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_page_to_frame_y(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_page_to_frame_dx(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_page_to_frame_dy(VALUE fmkr, VALUE value);
-
 #define convert_figure_to_frame_x(p,x) (\
    ((p)->bounds_left > (p)->bounds_right)? (1.0 - ((x)-(p)->bounds_xmin)/(p)->bounds_width) : ((x)-(p)->bounds_xmin)/(p)->bounds_width)
 #define convert_figure_to_frame_y(p,y) (\
@@ -442,11 +710,6 @@ extern VALUE FM_convert_page_to_frame_dy(VALUE fmkr, VALUE value);
 #define convert_figure_to_frame_dy(p,dy) (\
    ((p)->bounds_bottom > (p)->bounds_top)? -(dy)/(p)->bounds_height : (dy)/(p)->bounds_height)
 
-extern VALUE FM_convert_figure_to_frame_x(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_figure_to_frame_y(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_figure_to_frame_dx(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_figure_to_frame_dy(VALUE fmkr, VALUE value);
-
 #define convert_frame_to_figure_x(p,x) (\
    ((p)->bounds_left > (p)->bounds_right)? ((p)->bounds_left - (x)*(p)->bounds_width): ((p)->bounds_left + (x)*(p)->bounds_width))
 #define convert_frame_to_figure_y(p,y) (\
@@ -456,352 +719,6 @@ extern VALUE FM_convert_figure_to_frame_dy(VALUE fmkr, VALUE value);
 #define convert_frame_to_figure_dy(p,dy) (\
    ((p)->bounds_bottom > (p)->bounds_top)? (-(dy)*(p)->bounds_height): ((dy)*(p)->bounds_height))
 
-extern VALUE FM_convert_frame_to_figure_x(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_frame_to_figure_y(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_frame_to_figure_dx(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_frame_to_figure_dy(VALUE fmkr, VALUE value);
-
-extern double convert_figure_to_output_x(FM *p, double x);
-extern double convert_figure_to_output_y(FM *p, double y);
-extern double convert_figure_to_output_dy(FM *p, double dy);
-extern double convert_figure_to_output_dx(FM *p, double dx);
-
-extern VALUE FM_convert_figure_to_output_x(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_figure_to_output_y(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_figure_to_output_dx(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_figure_to_output_dy(VALUE fmkr, VALUE value);
-
-extern double convert_output_to_figure_x(FM *p, double x);
-extern double convert_output_to_figure_y(FM *p, double y);
-extern double convert_output_to_figure_dy(FM *p, double dy);
-extern double convert_output_to_figure_dx(FM *p, double dx);
-
-extern VALUE FM_convert_output_to_figure_x(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_output_to_figure_y(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_output_to_figure_dx(VALUE fmkr, VALUE value);
-extern VALUE FM_convert_output_to_figure_dy(VALUE fmkr, VALUE value);
-
-extern double c_convert_to_degrees(FM *p, double dx, double dy);
-extern VALUE FM_convert_to_degrees(VALUE fmkr, VALUE dx, VALUE dy);
-
-extern void update_bbox(FM *p, double x, double y);
-
-extern void c_set_bounds(FM *p, double left, double right, double top, double bottom);
-extern VALUE FM_private_set_bounds(VALUE fmkr, VALUE left, VALUE right, VALUE top, VALUE bottom); /* in figure coords */
-
-extern VALUE FM_private_context(VALUE fmkr, VALUE cmd);
-
-extern void c_set_subframe(FM *p, double left_margin, double right_margin, double top_margin, double bottom_margin);
-extern VALUE FM_private_set_subframe(VALUE fmkr, VALUE left_margin, VALUE right_margin, VALUE top_margin, VALUE bottom_margin);
-
-/* TeX text */
-
-extern VALUE FM_rescale_text(VALUE fmkr, VALUE scale); // updates char_height_dx and char_height_dy too
-
-extern VALUE FM_show_rotated_text(VALUE fmkr, VALUE text, VALUE frame_side, VALUE shift,
-    VALUE fraction, VALUE scale, VALUE angle, VALUE justification, VALUE alignment);
-         
-extern VALUE FM_show_rotated_label(VALUE fmkr, VALUE text,
-    VALUE xloc, VALUE yloc, VALUE scale, VALUE angle, VALUE justification, VALUE alignment);
-    
-extern VALUE FM_check_label_clip(VALUE fmkr, VALUE xloc, VALUE yloc);
-
-/* PDF graphics */
-
-    /* graphics attributes */
-extern VALUE FM_stroke_color_set(VALUE fmkr, VALUE value);
-extern VALUE FM_fill_color_set(VALUE fmkr, VALUE value);
-extern VALUE FM_line_width_set(VALUE fmkr, VALUE value);
-extern VALUE FM_stroke_scale_set(VALUE fmkr, VALUE value);
-extern VALUE FM_line_cap_set(VALUE fmkr, VALUE value);
-extern VALUE FM_line_join_set(VALUE fmkr, VALUE value);
-extern VALUE FM_miter_limit_set(VALUE fmkr, VALUE value);
-extern VALUE FM_line_type_set(VALUE fmkr, VALUE line_type);
-extern VALUE FM_stroke_opacity_set(VALUE fmkr, VALUE value);
-extern VALUE FM_fill_opacity_set(VALUE fmkr, VALUE value);
-extern VALUE FM_marker_horizontal_scaling_set(VALUE fmkr, VALUE value); // as fraction of normal width
-
-    /*
-        Once start a path, must finish with it before going on to anything else.
-        So, do sequence of path producer operations followed by a single path consumer operation.
-        After the path consumer operation finishes, the current path is reset to empty.
-        Can't mix in other kinds of operations in the middle of this; once start constructing a path, 
-            cannot do any other graphics operations until have finished producing the path and have consumed it.
-    */
-
-/* Path Producers */
-
-    /* path parameters are in figure coordinates */
-    /* are immediately converted to output coordinates; uneffected by later changes in figure coordinate system */
-
-extern VALUE FM_move_to_point(VALUE fmkr, VALUE x, VALUE y);  // x y m
-extern VALUE FM_append_point_to_path(VALUE fmkr, VALUE x, VALUE y);  // x y l
-extern VALUE FM_append_curve_to_path(VALUE fmkr, VALUE x1, VALUE y1, VALUE x2, VALUE y2, VALUE x3, VALUE y3); // x1 y1 x2 y2 x3 y3 c 
-extern VALUE FM_close_path(VALUE fmkr); // h
-
-extern VALUE FM_append_points_to_path(VALUE fmkr, VALUE x_vec, VALUE y_vec);
-extern VALUE FM_private_append_points_with_gaps_to_path(VALUE fmkr, VALUE x_vec, VALUE y_vec, VALUE gaps, VALUE close_gaps);
-
-extern VALUE FM_append_arc_to_path(VALUE fmkr, VALUE x_start, VALUE y_start, VALUE x_corner, VALUE y_corner,
-   VALUE x_end, VALUE y_end, VALUE dx, VALUE dy);
-    // dx and dy are converted to output coords and smaller is used as radius
-
-extern VALUE FM_append_rect_to_path(VALUE fmkr, VALUE x, VALUE y, VALUE width, VALUE height);  // x y w h re
-extern VALUE FM_append_rounded_rect_to_path(VALUE fmkr, VALUE x, VALUE y, VALUE width, VALUE height, VALUE dx, VALUE dy);
-    // dx and dy are converted to output coords and smaller is used as radius
-
-extern VALUE FM_append_circle_to_path(VALUE fmkr, VALUE x, VALUE y, VALUE dx);
-extern VALUE FM_append_oval_to_path(VALUE fmkr, VALUE x, VALUE y, VALUE dx, VALUE dy, VALUE angle);
-
-extern VALUE FM_append_frame_to_path(VALUE fmkr);
-
-extern VALUE FM_update_bbox(VALUE fmkr, VALUE x, VALUE y);
-
-extern VALUE FM_bbox_left(VALUE fmkr);
-extern VALUE FM_bbox_right(VALUE fmkr);
-extern VALUE FM_bbox_top(VALUE fmkr);
-extern VALUE FM_bbox_bottom(VALUE fmkr);
-
-/* Path Consumers */
-
-extern VALUE FM_stroke(VALUE fmkr);  // S
-extern VALUE FM_close_and_stroke(VALUE fmkr);  // s
-extern VALUE FM_fill(VALUE fmkr); // f
-extern VALUE FM_eofill(VALUE fmkr); // f*
-extern VALUE FM_fill_and_stroke(VALUE fmkr); // B
-extern VALUE FM_eofill_and_stroke(VALUE fmkr); // B*
-extern VALUE FM_close_fill_and_stroke(VALUE fmkr); // b
-extern VALUE FM_close_eofill_and_stroke(VALUE fmkr); // b*
-extern VALUE FM_clip(VALUE fmkr);  // W n
-extern VALUE FM_eoclip(VALUE fmkr);  // W* n
-extern VALUE FM_discard_path(VALUE fmkr); // n
-
-/* Combination Path Constructing and Using */
-
-extern VALUE FM_stroke_line(VALUE fmkr, VALUE x1, VALUE y1, VALUE x2, VALUE y2);
-
-extern VALUE FM_fill_rect(VALUE fmkr, VALUE x, VALUE y, VALUE width, VALUE height);
-extern VALUE FM_stroke_rect(VALUE fmkr, VALUE x, VALUE y, VALUE width, VALUE height);
-extern VALUE FM_fill_and_stroke_rect(VALUE fmkr, VALUE x, VALUE y, VALUE width, VALUE height);
-extern VALUE FM_clip_rect(VALUE fmkr, VALUE x, VALUE y, VALUE width, VALUE height);
-
-extern VALUE FM_fill_frame(VALUE fmkr);
-extern VALUE FM_stroke_frame(VALUE fmkr);
-extern VALUE FM_fill_and_stroke_frame(VALUE fmkr);
-extern VALUE FM_clip_to_frame(VALUE fmkr);
-
-extern VALUE FM_fill_oval(VALUE fmkr, VALUE x, VALUE y, VALUE dx, VALUE dy, VALUE angle);
-extern VALUE FM_stroke_oval(VALUE fmkr, VALUE x, VALUE y, VALUE dx, VALUE dy, VALUE angle);
-extern VALUE FM_fill_and_stroke_oval(VALUE fmkr, VALUE x, VALUE y, VALUE dx, VALUE dy, VALUE angle);
-extern VALUE FM_clip_oval(VALUE fmkr, VALUE x, VALUE y, VALUE dx, VALUE dy, VALUE angle);
-
-extern VALUE FM_fill_circle(VALUE fmkr, VALUE x, VALUE y, VALUE dx);
-extern VALUE FM_stroke_circle(VALUE fmkr, VALUE x, VALUE y, VALUE dx);
-extern VALUE FM_fill_and_stroke_circle(VALUE fmkr, VALUE x, VALUE y, VALUE dx);
-extern VALUE FM_clip_circle(VALUE fmkr, VALUE x, VALUE y, VALUE dx);
-
-extern VALUE FM_fill_rounded_rect(VALUE fmkr, VALUE x, VALUE y, VALUE width, VALUE height, VALUE dx, VALUE dy);
-extern VALUE FM_stroke_rounded_rect(VALUE fmkr, VALUE x, VALUE y, VALUE width, VALUE height, VALUE dx, VALUE dy);
-extern VALUE FM_fill_and_stroke_rounded_rect(VALUE fmkr, VALUE x, VALUE y, VALUE width, VALUE height, VALUE dx, VALUE dy);
-extern VALUE FM_clip_rounded_rect(VALUE fmkr, VALUE x, VALUE y, VALUE width, VALUE height, VALUE dx, VALUE dy);
-
-/* Shading */
-
-extern VALUE FM_private_axial_shading(VALUE fmkr, VALUE x0, VALUE y0,
-        VALUE x1, VALUE y1, VALUE colormap, VALUE extend_start, VALUE extend_end);
-extern VALUE FM_private_radial_shading(VALUE fmkr, VALUE x0, VALUE y0, VALUE r0,
-        VALUE x1, VALUE y1, VALUE r1, VALUE colormap,
-        VALUE a, VALUE b, VALUE c, VALUE d,
-        VALUE extend_start, VALUE extend_end);
-
-/* Markers */
-
-    // a marker is a [font number, character code]
-    // markers are filled with the current fill color and/or stroked with the current stroke color
-    // they are scaled by the current text_scale times the scale parameter passed to the drawing routine
-    // locations given in figure coords
-    
-extern VALUE FM_register_font(VALUE fmkr, VALUE font_name);  // returns font number.
-    
-extern VALUE FM_private_show_marker(VALUE fmkr, VALUE integer_args, VALUE stroke_width, VALUE string,
-    VALUE x, VALUE y, VALUE x_vec, VALUE y_vec,
-    VALUE h_scale, VALUE v_scale, VALUE scale, VALUE it_angle, VALUE ascent_angle, VALUE angle,
-    VALUE fill_color, VALUE stroke_color);
-    
-extern VALUE FM_marker_string_info(VALUE fmkr, VALUE font_number, VALUE string, VALUE scale);
-    // [ width, llx, lly, urx, ury ] in figure coords
-
-/* Images */
-            
-extern VALUE FM_private_show_jpg(VALUE fmkr, VALUE filename, VALUE width, VALUE height, VALUE image_destination, VALUE mask_xo_num);
-extern VALUE FM_show_jp2(VALUE fmkr, VALUE filename, VALUE width, VALUE height, VALUE image_destination, VALUE mask_xo_num);
-
-extern VALUE FM_private_show_rgb_image(VALUE fmkr, VALUE llx, VALUE lly, VALUE lrx, VALUE lry, VALUE ulx, VALUE uly,
-    VALUE interpolate, VALUE w, VALUE h, VALUE data, VALUE mask_xo_num);
-
-extern VALUE FM_private_show_cmyk_image(VALUE fmkr, VALUE llx, VALUE lly, VALUE lrx, VALUE lry, VALUE ulx, VALUE uly,
-    VALUE interpolate, VALUE w, VALUE h, VALUE data, VALUE mask_xo_num);
-
-extern VALUE FM_private_show_grayscale_image(VALUE fmkr, VALUE llx, VALUE lly, VALUE lrx, VALUE lry, VALUE ulx, VALUE uly,
-    VALUE interpolate, VALUE w, VALUE h, VALUE data, VALUE mask_xo_num);
-
-extern VALUE FM_private_show_monochrome_image(VALUE fmkr, VALUE llx, VALUE lly, VALUE lrx, VALUE lry, VALUE ulx, VALUE uly,
-    VALUE interpolate, VALUE reversed, VALUE w, VALUE h, VALUE data, VALUE mask_xo_num);
-
-extern VALUE FM_private_show_image(VALUE fmkr, VALUE llx, VALUE lly, VALUE lrx, VALUE lry, VALUE ulx, VALUE uly,
-    VALUE interpolate, VALUE w, VALUE h, VALUE data, VALUE value_mask_min, VALUE value_mask_max,
-    VALUE hival, VALUE lookup, VALUE mask_xo_num);
-
-extern VALUE FM_private_create_image_data(VALUE fmkr, VALUE data,
-            VALUE first_row, VALUE last_row, VALUE first_column, VALUE last_column,
-            VALUE min_value, VALUE max_value, VALUE max_code, VALUE if_below_range, VALUE if_above_range);
-    
-extern VALUE FM_private_create_monochrome_image_data(VALUE fmkr, VALUE data,
-            VALUE first_row, VALUE last_row, VALUE first_column, VALUE last_column,
-            VALUE boundary, VALUE reverse);
-
-/* Colormaps for Sampled Images */
-
-    extern VALUE FM_private_create_colormap(VALUE fmkr, VALUE rgb_flag,
-                VALUE length, VALUE Ps, VALUE C1s, VALUE C2s, VALUE C3s);
-        /* 
-            create mappings from 'position' (0 to 1) to color (in HLS or RGB color spaces)
-            the length parameter determines the number of entries in the color map (any integer between 2 and 256).
-            for rgb, the colors are given as (red, green, blue) intensities from 0.0 to 1.0
-            for hls, the colors are given as (hue, lightness, saturation)
-                lightness and saturation given as values from 0.0 to 1.0
-                hue given as degrees (0 to 360) around the color wheel from red->green->blue->red
-            Ps are the locations in (0 to 1) for the control points -- in increasing order
-            must have Ps[0] == 0.0 and Ps[num_ps-1] == 1.0
-        */
-        
-    extern VALUE FM_convert_to_colormap(VALUE fmkr, VALUE Rs, VALUE Gs, VALUE Bs);
-        /* this creates an arbitrary mapping from positions to colors given as (r,g,b) triples */
-        /* the colormap size is set to the length of the vectors */
-        /* the Rs, Gs, and Bs are VALUEs from 0 to 1 representing the intensity of the color component */
-
-    extern VALUE FM_get_color_from_colormap(VALUE fmkr, VALUE color_map, VALUE color_position);
-        /* color_position is from 0 to 1.  this returns a vector for the RGB color from the given colormap */
-
-    
-/*======================================================================*/
-
-/* Axes Operations */
-      
-   extern VALUE FM_show_axis(VALUE fmkr, VALUE loc);
-   extern VALUE FM_show_edge(VALUE fmkr, VALUE loc);
-      
-/*======================================================================*/
-
-/* Line Builders */
-
-   extern VALUE FM_private_make_contour(VALUE fmkr,
-         VALUE dest_xs, VALUE dest_ys, VALUE gaps, // these Dvectors get the results
-         VALUE xs, VALUE ys, // data x coordinates and y coordinates
-         VALUE zs, VALUE z_level, // the Dtable of values and the desired contour level
-         VALUE legit, // the Dtable of flags (nonzero means okay)
-         VALUE method // int == 1 means use CONREC
-         );
-         
-    extern VALUE FM_private_make_steps(VALUE fmkr, VALUE Xvec, VALUE Yvec, VALUE Xdata, VALUE Ydata,
-        VALUE xfirst, VALUE yfirst, VALUE xlast, VALUE ylast);
-        /* adds n_pts_to_add points to Xs and Ys for steps with the given parameters.
-            X_data and Y_data are arrays of n values where n_pts_to_add = 2*(n+1)
-            (xfirst,yfirst) and (xlast,ylast) are extra data points to fix the first and last steps.
-        The X_data plus xfirst and xlast determine the widths of the steps.
-        The Y_data plus yfirst and ylast determine the height of the steps.
-        The steps occur at locations midway between the given x locations. */
-    
-    extern VALUE FM_private_make_spline_interpolated_points(VALUE fmkr, VALUE Xvec, VALUE Yvec, VALUE Xdata, VALUE Ydata,
-        VALUE start_slope, VALUE end_slope);
-        /* uses Xvec_data and Yvec_data to create a cubic spline interpolant.
-        once the spline interpolant is created, it is sampled at the n_pts_to_add in Xs.
-        Xvec entry i is set to the value of the spline at Yvec entry i.
-        Both the X_data and the Xs should be stored in ascending order.
-        There is a boundary condition choice to be made for each end concerning the slope.
-        If clamped is true, the corresponding slope argument value sets the slope.
-        If clamped is false (known as a "free" or "natural" spline), 
-        the 2nd derivative is set to 0 and the slope is determined by the fit.
-        In this case, the corresponding slope argument is ignored.
-        */
-
-/*======================================================================*/
-
-/* Some miscellaneous stuff */
-
-extern void figure_moveto(FM *p, double x, double y); // figure coords
-extern void figure_lineto(FM *p, double x, double y); // figure coords
-extern void figure_join(FM *p, double x0, double y0, double x1, double y1); // figure coords
-extern void figure_join_and_stroke(FM *p, double x0, double y0, double x1, double y1); // figure coords
-
-extern double Get_double(VALUE obj, ID name_ID); // for instance variables of the obj
-extern bool Get_bool(VALUE obj, ID name_ID);
-extern int Get_int(VALUE obj, ID name_ID);
-#define Get_value(obj, name_ID) rb_ivar_get(obj, name_ID)
-
-
-extern VALUE FM_private_make(VALUE fmkr, VALUE name, VALUE cmd);
-extern VALUE FM_get_save_filename(VALUE fmkr, VALUE name);
-
-extern VALUE FM_private_make_portfolio(VALUE fmkr, VALUE name, VALUE fignums, VALUE fignames);
-extern void private_make_portfolio(char *filename, VALUE fignums, VALUE fignames);
-
-extern void Init_PlotAxis(void);
-extern void Initialize_Figure(VALUE fmkr);
-extern void c_setup_drawing(FM *p);
-extern void Init_IDs(void);
-extern void Initialize_Figure(VALUE fmkr);
-
-extern void c_moveto(FM *p, double x, double y);
-extern void c_lineto(FM *p, double x, double y);
-extern void c_curveto(FM *p, double x1, double y1, double x2, double y2, double x3, double y3);
-extern void c_line_width_set(FM *p, double line_width);
-extern void c_line_cap_set(FM *p, int line_cap);
-extern void c_line_join_set(FM *p, int line_cap);
-extern void c_miter_limit_set(FM *p, double miter_limit);
-extern void c_stroke_scale_set(FM *p, double stroke_scale);
-extern void c_clip_rect(FM *p, double x, double y, double width, double height); // in output coords
-
-extern int Blank_String(char *str);
-extern char *Get_String(VALUE ary, int index);
-
-extern void c_show_rotated_text(FM *p, char *text, int frame_side, double shift, double fraction,
-   double scale, double angle, int justification, int alignment);
-extern void c_show_rotated_label(FM *p, char *text, 
-   double xloc, double yloc, double scale, double angle, int justification, int alignment);
-
-extern void pldtikmin(FM *p, double tick_min, double vmin, double vmax, double *tick, int *nsubt);
-extern void draw_box_top_and_bottom(FM *p, char *xopt, double xtick, int nxsub);
-extern void draw_box_left_and_right(FM *p, char *yopt, double ytick, int nysub);
-
-extern VALUE do_cmd(VALUE fmkr, VALUE cmd);
-
-extern char *Get_tex_preview_documentclass(VALUE fmkr);
-extern char *Get_tex_preamble(VALUE fmkr);
-extern char *Get_tex_xaxis_numeric_label(VALUE fmkr);
-extern char *Get_tex_yaxis_numeric_label(VALUE fmkr);
-extern char *Get_tex_preview_pagestyle(VALUE fmkr);
-extern double Get_tex_xoffset(VALUE fmkr);
-extern double Get_tex_yoffset(VALUE fmkr);
-
-extern char *Get_tex_preview_paper_width(VALUE fmkr);
-extern char *Get_tex_preview_paper_height(VALUE fmkr);
-extern char *Get_tex_preview_hoffset(VALUE fmkr);
-extern char *Get_tex_preview_voffset(VALUE fmkr);
-extern char *Get_tex_preview_figure_width(VALUE fmkr);
-extern char *Get_tex_preview_figure_height(VALUE fmkr);
-extern char *Get_tex_preview_minwhitespace(VALUE fmkr);
-extern bool Get_tex_preview_fullpage(VALUE fmkr);
-
-extern char *Get_tex_preview_tiogafigure_command(VALUE fmkr);
-
-extern char *Get_tex_fontsize(VALUE fmkr);
-extern char *Get_tex_fontfamily(VALUE fmkr);
-extern char *Get_tex_fontseries(VALUE fmkr);
-extern char *Get_tex_fontshape(VALUE fmkr);
-
-extern char *Get_tex_preview_generated_preamble(VALUE fmkr);
-
 #ifndef USE_P
 #define USE_P p = NULL;
 #endif
@@ -827,37 +744,5 @@ extern char *Get_tex_preview_generated_preamble(VALUE fmkr);
 #define SIGN(a)         ((a)<0 ? -1 : 1)
 #endif
 
-#define DBL_ATTR(attr) \
-static VALUE FM_##attr##_get(VALUE fmkr) { FM *p = Get_FM(fmkr); return rb_float_new(p->attr); } \
-static VALUE FM_##attr##_set(VALUE fmkr, VALUE val) { \
-   FM *p = Get_FM(fmkr); VALUE v = rb_Float(val); p->attr = NUM2DBL(v); return val; }
-
-#define INT_ATTR(attr) \
-static VALUE FM_##attr##_get(VALUE fmkr) { FM *p = Get_FM(fmkr); return INT2FIX(p->attr); } \
-static VALUE FM_##attr##_set(VALUE fmkr, VALUE val) { \
-   FM *p = Get_FM(fmkr); VALUE v = rb_Integer(val); p->attr = NUM2INT(v); return val; }
-
-#define VAL_ATTR(attr) \
-static VALUE FM_##attr##_get(VALUE fmkr) { FM *p = Get_FM(fmkr); return p->attr; } \
-static VALUE FM_##attr##_set(VALUE fmkr, VALUE val) { \
-   FM *p = Get_FM(fmkr); p->attr = val; return val; }
-
-#define BOOL_ATTR(attr) \
-static VALUE FM_##attr##_get(VALUE fmkr) { FM *p = Get_FM(fmkr); return (p->attr)? Qtrue : Qfalse; } \
-static VALUE FM_##attr##_set(VALUE fmkr, VALUE val) { \
-   FM *p = Get_FM(fmkr); p->attr = (val != Qfalse); return val; }
-
-#define RO_DBL_ATTR(attr) \
-static VALUE FM_##attr##_get(VALUE fmkr) { FM *p = Get_FM(fmkr); return rb_float_new(p->attr); }
-
-#define RO_INT_ATTR(attr) \
-static VALUE FM_##attr##_get(VALUE fmkr) { FM *p = Get_FM(fmkr); return INT2FIX(p->attr); }
-
-#define RO_VAL_ATTR(attr) \
-static VALUE FM_##attr##_get(VALUE fmkr) { FM *p = Get_FM(fmkr); return p->attr; }
-
-#define RO_BOOL_ATTR(attr) \
-static VALUE FM_##attr##_get(VALUE fmkr) { FM *p = Get_FM(fmkr); return (p->attr)? Qtrue : Qfalse; }
-
 #endif   /* __figures_H__ */