tioga 1.6 → 1.7

data/split/Tioga/init.c

@@ -19,58 +19,379 @@
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 */
 
+#include "generic.h"
 #include "figures.h"
 #include "pdfs.h"
 
-VALUE rb_Integer_class, rb_Numeric_class;
-ID save_dir_ID, quiet_mode_ID;
-ID tex_preview_documentclass_ID, tex_preamble_ID, xaxis_numeric_label_tex_ID, yaxis_numeric_label_tex_ID, tex_preview_pagestyle_ID;
-ID tex_preview_paper_width_ID, tex_preview_paper_height_ID;
-ID tex_preview_hoffset_ID, tex_preview_voffset_ID;
-ID tex_preview_figure_width_ID, tex_preview_figure_height_ID, tex_preview_tiogafigure_command_ID;
-ID tex_preview_fullpage_ID, tex_preview_minwhitespace_ID;
-ID do_cmd_ID, make_page_ID, initialized_ID, tex_xoffset_ID, tex_yoffset_ID;
-ID tex_fontsize_ID, tex_fontfamily_ID, tex_fontseries_ID, tex_fontshape_ID;
+long trace_cnt; // counter for debugging traces
+long trace_lvl; // set to 0 to turn tracing off. higher values turn on more tracing.
+#define TRACE(fn) if (trace_lvl > 0) printf("%i %s\n",++trace_cnt,fn)
+
+static ID_PTR fm_data_ID;
+static ID_PTR save_dir_ID;
+static ID_PTR quiet_mode_ID;
+static ID_PTR tex_preview_documentclass_ID;
+static ID_PTR tex_preamble_ID;
+static ID_PTR xaxis_numeric_label_tex_ID;
+static ID_PTR yaxis_numeric_label_tex_ID;
+static ID_PTR tex_preview_pagestyle_ID;
+static ID_PTR tex_preview_paper_width_ID;
+static ID_PTR tex_preview_paper_height_ID;
+static ID_PTR tex_preview_hoffset_ID;
+static ID_PTR tex_preview_voffset_ID;
+static ID_PTR tex_preview_figure_width_ID;
+static ID_PTR tex_preview_figure_height_ID;
+static ID_PTR tex_preview_tiogafigure_command_ID;
+static ID_PTR tex_preview_fullpage_ID;
+static ID_PTR tex_preview_minwhitespace_ID;
+static ID_PTR do_cmd_ID;
+static ID_PTR make_page_ID;
+static ID_PTR initialized_ID;
+static ID_PTR tex_xoffset_ID;
+static ID_PTR tex_yoffset_ID;
+static ID_PTR tex_fontsize_ID;
+static ID_PTR tex_fontfamily_ID;
+static ID_PTR tex_fontseries_ID;
+static ID_PTR tex_fontshape_ID;
+static ID_PTR line_type_ID;
+static ID_PTR title_ID;
+static ID_PTR xlabel_ID;
+static ID_PTR ylabel_ID;
+static ID_PTR xaxis_locations_for_major_ticks_ID;
+static ID_PTR xaxis_locations_for_minor_ticks_ID;
+static ID_PTR xaxis_tick_labels_ID;
+static ID_PTR yaxis_locations_for_major_ticks_ID;
+static ID_PTR yaxis_locations_for_minor_ticks_ID;
+static ID_PTR yaxis_tick_labels_ID;
+ID_PTR measures_info_ID;
+
 
 void Init_IDs(void)
 {
-    
-   rb_Numeric_class = rb_define_class("Numeric", rb_cObject);
-   rb_Integer_class = rb_define_class("Integer", rb_Numeric_class);
-	do_cmd_ID = rb_intern("do_cmd");
-	make_page_ID = rb_intern("make_page");
+   
+   Init_generic();
+   
+	do_cmd_ID = ID_Get("do_cmd");
+	make_page_ID = ID_Get("make_page");
    // class variables
-	initialized_ID = rb_intern("@@initialized");
+	initialized_ID = ID_Get("@@initialized");
 	// instance variables
-	save_dir_ID = rb_intern("@save_dir");
-	quiet_mode_ID = rb_intern("@quiet_mode");    
-	tex_xoffset_ID = rb_intern("@tex_xoffset");
-	tex_yoffset_ID = rb_intern("@tex_yoffset");
-    tex_preview_documentclass_ID = rb_intern("@tex_preview_documentclass");
-    tex_preamble_ID = rb_intern("@tex_preamble");
-    xaxis_numeric_label_tex_ID = rb_intern("@xaxis_numeric_label_tex");
-    yaxis_numeric_label_tex_ID = rb_intern("@yaxis_numeric_label_tex");
-    tex_preview_pagestyle_ID = rb_intern("@tex_preview_pagestyle");
+   fm_data_ID = ID_Get("@fm_data");
+	save_dir_ID = ID_Get("@save_dir");
+	quiet_mode_ID = ID_Get("@quiet_mode");    
+	tex_xoffset_ID = ID_Get("@tex_xoffset");
+	tex_yoffset_ID = ID_Get("@tex_yoffset");
+    tex_preview_documentclass_ID = ID_Get("@tex_preview_documentclass");
+    tex_preamble_ID = ID_Get("@tex_preamble");
+    xaxis_numeric_label_tex_ID = ID_Get("@xaxis_numeric_label_tex");
+    yaxis_numeric_label_tex_ID = ID_Get("@yaxis_numeric_label_tex");
+    tex_preview_pagestyle_ID = ID_Get("@tex_preview_pagestyle");
     
-    tex_preview_paper_width_ID = rb_intern("@tex_preview_paper_width");
-    tex_preview_paper_height_ID = rb_intern("@tex_preview_paper_height");
-    tex_preview_hoffset_ID = rb_intern("@tex_preview_hoffset");
-    tex_preview_voffset_ID = rb_intern("@tex_preview_voffset");
-    tex_preview_figure_width_ID = rb_intern("@tex_preview_figure_width");
-    tex_preview_figure_height_ID = rb_intern("@tex_preview_figure_height");
+    tex_preview_paper_width_ID = ID_Get("@tex_preview_paper_width");
+    tex_preview_paper_height_ID = ID_Get("@tex_preview_paper_height");
+    tex_preview_hoffset_ID = ID_Get("@tex_preview_hoffset");
+    tex_preview_voffset_ID = ID_Get("@tex_preview_voffset");
+    tex_preview_figure_width_ID = ID_Get("@tex_preview_figure_width");
+    tex_preview_figure_height_ID = ID_Get("@tex_preview_figure_height");
 
-    tex_preview_fullpage_ID = rb_intern("@tex_preview_fullpage");
-    tex_preview_minwhitespace_ID = rb_intern("@tex_preview_minwhitespace");
+    tex_preview_fullpage_ID = ID_Get("@tex_preview_fullpage");
+    tex_preview_minwhitespace_ID = ID_Get("@tex_preview_minwhitespace");
 
-    tex_preview_tiogafigure_command_ID = rb_intern("@tex_preview_tiogafigure_command");
+    tex_preview_tiogafigure_command_ID = ID_Get("@tex_preview_tiogafigure_command");
     
-    tex_fontsize_ID = rb_intern("@tex_fontsize");
-    tex_fontfamily_ID = rb_intern("@tex_fontfamily");
-    tex_fontseries_ID = rb_intern("@tex_fontseries");
-    tex_fontshape_ID = rb_intern("@tex_fontshape");
+    tex_fontsize_ID = ID_Get("@tex_fontsize");
+    tex_fontfamily_ID = ID_Get("@tex_fontfamily");
+    tex_fontseries_ID = ID_Get("@tex_fontseries");
+    tex_fontshape_ID = ID_Get("@tex_fontshape");
+
+    line_type_ID = ID_Get("@line_type");
+    xaxis_locations_for_major_ticks_ID = ID_Get("@xaxis_locations_for_major_ticks");
+    xaxis_locations_for_minor_ticks_ID = ID_Get("@xaxis_locations_for_minor_ticks");
+    xaxis_tick_labels_ID = ID_Get("@xaxis_tick_labels");
+    yaxis_locations_for_major_ticks_ID = ID_Get("@yaxis_locations_for_major_ticks");
+    yaxis_locations_for_minor_ticks_ID = ID_Get("@yaxis_locations_for_minor_ticks");
+    yaxis_tick_labels_ID = ID_Get("@yaxis_tick_labels");
+    measures_info_ID = ID_Get("@measures_info");
+}
+
+void do_cmd(OBJ_PTR fmkr, OBJ_PTR cmd, int *ierr) { 
+   Call_Function(fmkr, do_cmd_ID, cmd, ierr); }
+
+static void Type_Error(OBJ_PTR obj, ID_PTR name_ID, char *expected, int *ierr)
+{
+   char *name = ID_Name(name_ID, ierr);
+   if (*ierr != 0) return;
+   while (name[0] == '@') name++;
+   RAISE_ERROR_ss("Require %s OBJ_PTR for '%s'", expected, name, ierr);
+}
+
+bool Get_bool(OBJ_PTR obj, ID_PTR name_ID, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(obj, name_ID, ierr);
+   if (*ierr != 0) return false;
+   if (v != OBJ_FALSE && v != OBJ_TRUE && v != OBJ_NIL) {
+      Type_Error(v, name_ID, "true or false", ierr);
+      return false;
+   }
+   return v == OBJ_TRUE;
+}
+
+int Get_int(OBJ_PTR obj, ID_PTR name_ID, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(obj, name_ID, ierr);
+   if (*ierr != 0) return 0;
+   if (!Is_Kind_of_Integer(v)) {
+      Type_Error(v, name_ID, "Integer", ierr);
+      return 0;
+   }
+   return Number_to_int(v, ierr);
+}
+
+double Get_double(OBJ_PTR obj, ID_PTR name_ID, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(obj, name_ID, ierr);
+   if (*ierr != 0) return 0.0;
+   if (!Is_Kind_of_Number(v)) {
+      Type_Error(v, name_ID, "Numeric", ierr);
+      return 0.0;
+   }
+   return Number_to_double(v, ierr);
+}
+
+char *Get_tex_preview_paper_width(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_preview_paper_width_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_tex_preview_paper_height(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_preview_paper_height_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_tex_preview_hoffset(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_preview_hoffset_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_tex_preview_voffset(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_preview_voffset_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_tex_preview_figure_width(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_preview_figure_width_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_tex_preview_figure_height(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_preview_figure_height_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+
+char *Get_tex_fontsize(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_fontsize_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_tex_fontfamily(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_fontfamily_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_tex_fontseries(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_fontseries_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_tex_fontshape(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_fontshape_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_tex_preview_minwhitespace(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_preview_minwhitespace_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+bool Get_tex_preview_fullpage(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_preview_fullpage_ID, ierr);
+   if (*ierr != 0) return false;
+   return v != OBJ_FALSE && v != OBJ_NIL;
+}
+
+/* gets the generated preamble */
+char *Get_tex_preview_generated_preamble(OBJ_PTR fmkr, int *ierr) {
+   /* it is a class constant... */
+   OBJ_PTR v = TEX_PREAMBLE(fmkr, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return CString_Ptr(v, ierr);
+}
+
+double Get_tex_xoffset(OBJ_PTR fmkr, int *ierr) { return Get_double(fmkr, tex_xoffset_ID, ierr); }
+double Get_tex_yoffset(OBJ_PTR fmkr, int *ierr) { return Get_double(fmkr, tex_yoffset_ID, ierr); }
+
+
+OBJ_PTR Get_fm_data_attr(OBJ_PTR fmkr, int *ierr) { return Obj_Attr_Get(fmkr, fm_data_ID, ierr); }
+
+
+static char *Get_save_dir(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, save_dir_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_tex_preview_documentclass(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_preview_documentclass_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_tex_preamble(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_preamble_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_xaxis_numeric_label_tex(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, xaxis_numeric_label_tex_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_yaxis_numeric_label_tex(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, yaxis_numeric_label_tex_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_tex_preview_pagestyle(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_preview_pagestyle_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+char *Get_tex_preview_tiogafigure_command(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, tex_preview_tiogafigure_command_ID, ierr);
+   if (*ierr != 0) return NULL;
+   if (v == OBJ_NIL) return NULL;
+   return String_Ptr(v, ierr);
+}
+
+static bool Get_quiet_mode(OBJ_PTR fmkr, int *ierr) {
+   OBJ_PTR v = Obj_Attr_Get(fmkr, quiet_mode_ID, ierr);
+   if (*ierr != 0) return false;
+   return v != OBJ_FALSE && v != OBJ_NIL;
+}
+
+
+static void Make_Save_Fname(OBJ_PTR fmkr, char *full_name, char *f_name,
+   bool with_save_dir, bool with_pdf_extension, int *ierr) {
+   int i, j, k, len, mod_len, mod_num, did_mod_num = false;
+   char c, *fmt, model[STRLEN], *save=NULL;
+   if (with_save_dir) { save = Get_save_dir(fmkr,ierr); if (*ierr != 0) return; }
+   if (with_save_dir && save != NULL && strlen(save) > 0) { 
+      sprintf(full_name, "%s/", save); j = strlen(full_name); }
+   else j = 0;
+   if (f_name == NULL) f_name = "plot";
+   len = strlen(f_name);
+   for (i=0; i < len; i++) {
+      c = f_name[i];
+      full_name[j++] = c;
+      }
+   full_name[j] = '\0';
+   char *dot = strrchr(full_name,'.');
+   if (dot == NULL || strcmp(dot+1,"pdf") != 0) { /* add pdf extension */
+        full_name[j] = '\0';
+        if (!with_pdf_extension) return;
+        strcpy(full_name+j, ".pdf");
+     }
+}
+   
+
+OBJ_PTR c_get_save_filename(OBJ_PTR fmkr, FM *p, OBJ_PTR name, int *ierr) {
+   char full_name[STRLEN];
+   char *fname = (name == OBJ_NIL)? NULL : String_Ptr(name, ierr);
+   if (*ierr != 0) RETURN_NIL;
+   Make_Save_Fname(fmkr, full_name, fname, false, false, ierr);
+   if (*ierr != 0) RETURN_NIL;
+   return String_From_Cstring(full_name);
+}
+   
+   
+void c_private_make(OBJ_PTR fmkr, FM *p, OBJ_PTR name, OBJ_PTR cmd, int *ierr) {
+   char full_name[STRLEN], mod_num_name[STRLEN];
+   OBJ_PTR result;
+   bool quiet = Get_quiet_mode(fmkr, ierr);
+   if (*ierr != 0) return;
+   if (!Get_initialized()) {
+      Init_pdf(ierr); if (*ierr != 0) return;
+      Init_tex(ierr); if (*ierr != 0) return;
+      Set_initialized();
+   }
+   char *fn = (name == OBJ_NIL)? NULL : String_Ptr(name,ierr);
+   if (*ierr != 0) return;
+   Make_Save_Fname(fmkr, full_name, fn, true, true, ierr);
+   if (*ierr != 0) return;
+   Open_pdf(fmkr, p, full_name, quiet, ierr);
+   if (*ierr != 0) return;
+   Open_tex(fmkr, full_name, quiet, ierr);
+   if (*ierr != 0) return;
+   Write_gsave();
+   p->root_figure = true;
+   p->in_subplot = false;
+   Call_Function(fmkr, make_page_ID, cmd, ierr);
+   if (*ierr != 0) return;
+   Write_grestore();
+   if (result == OBJ_FALSE) quiet = true;
+   Close_pdf(fmkr, p, quiet, ierr);
+   if (*ierr != 0) return;
+   Close_tex(fmkr, quiet, ierr);
+   if (*ierr != 0) return;
+   Create_wrapper(fmkr, full_name, quiet, ierr);
+}
+   
+      
+OBJ_PTR c_private_make_portfolio(OBJ_PTR fmkr, FM *p, OBJ_PTR name, OBJ_PTR fignums, OBJ_PTR fignames, int *ierr) {
+   char full_name[STRLEN];
+   char *fn = (name == OBJ_NIL)? NULL : String_Ptr(name,ierr);
+   if (*ierr != 0) RETURN_NIL;
+   Make_Save_Fname(fmkr, full_name, fn, true, false, ierr);
+   if (*ierr != 0) RETURN_NIL;
+   private_make_portfolio(full_name, fignums, fignames, ierr);
+   if (*ierr != 0) RETURN_NIL;
+   return String_From_Cstring(full_name);
 }
 
-void c_set_device_pagesize(FM *p, double width, double height) { // sizes in units of 1/720 inch
+
+void c_set_device_pagesize(OBJ_PTR fmkr, FM *p, double width, double height, int *ierr) { 
+   // sizes in units of 1/720 inch
    p->page_left = 0;
    p->page_right = width;
    p->page_bottom = 0;
@@ -84,23 +405,14 @@ void c_set_device_pagesize(FM *p, double width, double height) { // sizes in uni
 }
 
 
-VALUE FM_set_device_pagesize(VALUE fmkr, VALUE width, VALUE height)
-{
-   FM *p = Get_FM(fmkr);
-   width = rb_Float(width);
-   height = rb_Float(height);
-   c_set_device_pagesize(p, NUM2DBL(width), NUM2DBL(height));
-   return fmkr;
-}
-
-
-void c_set_frame_sides(FM *p, double left, double right, double top, double bottom) { // sizes in page coords [0..1]
-   if (left > 1.0 || left < 0.0) rb_raise(rb_eArgError, "Sorry: value of left must be between 0 and 1 for set_frame_sides");
-   if (right > 1.0 || right < 0.0) rb_raise(rb_eArgError, "Sorry: value of right must be between 0 and 1 for set_frame_sides");
-   if (top > 1.0 || top < 0.0) rb_raise(rb_eArgError, "Sorry: value of top must be between 0 and 1 for set_frame_sides");
-   if (bottom > 1.0 || bottom < 0.0) rb_raise(rb_eArgError, "Sorry: value of bottom must be between 0 and 1 for set_frame_sides");
-   if (left >= right) rb_raise(rb_eArgError, "Sorry: value of left must be smaller than value of right for set_frame_sides");
-   if (bottom >= top) rb_raise(rb_eArgError, "Sorry: value of bottom must be smaller than value of top for set_frame_sides");
+void c_set_frame_sides(OBJ_PTR fmkr, FM *p, double left, double right, double top, double bottom, int *ierr) { // sizes in page coords [0..1]
+   if (left > 1.0 || left < 0.0) RAISE_ERROR("Sorry: OBJ_PTR of left must be between 0 and 1 for set_frame_sides", ierr);
+   if (right > 1.0 || right < 0.0) RAISE_ERROR("Sorry: OBJ_PTR of right must be between 0 and 1 for set_frame_sides", ierr);
+   if (top > 1.0 || top < 0.0) RAISE_ERROR("Sorry: OBJ_PTR of top must be between 0 and 1 for set_frame_sides", ierr);
+   if (bottom > 1.0 || bottom < 0.0) RAISE_ERROR("Sorry: OBJ_PTR of bottom must be between 0 and 1 for set_frame_sides", ierr);
+   if (left >= right) RAISE_ERROR("Sorry: OBJ_PTR of left must be smaller than OBJ_PTR of right for set_frame_sides", ierr);
+   if (bottom >= top) RAISE_ERROR("Sorry: OBJ_PTR of bottom must be smaller than OBJ_PTR of top for set_frame_sides", ierr);
+   if (*ierr != 0) return;
    p->frame_left = left;
    p->frame_right = right;
    p->frame_bottom = bottom;
@@ -109,27 +421,18 @@ void c_set_frame_sides(FM *p, double left, double right, double top, double bott
    p->frame_height = top - bottom;
 }
 
-VALUE FM_set_frame_sides(VALUE fmkr, VALUE left, VALUE right, VALUE top, VALUE bottom)
-{
-   FM *p = Get_FM(fmkr);
-   left = rb_Float(left);
-   right = rb_Float(right);
-   top = rb_Float(top);
-   bottom = rb_Float(bottom);
-   c_set_frame_sides(p, NUM2DBL(left), NUM2DBL(right), NUM2DBL(top), NUM2DBL(bottom));
-   return fmkr;
-}
-
 
-void Initialize_Figure(VALUE fmkr) {
-   FM *p = Get_FM(fmkr);
+void c_private_init_fm_data(OBJ_PTR fmkr, FM *p, int *ierr) {
    /* Page */
    p->root_figure = true;
    p->in_subplot = false;
-   c_private_set_default_font_size(p, 12.0);
-   c_set_device_pagesize(p, 5 * 72.0 * ENLARGE, 5 * 72.0 * ENLARGE);
+   c_private_set_default_font_size(fmkr, p, 12.0, ierr);
+   if (*ierr != 0) return;
+   c_set_device_pagesize(fmkr, p, 5 * 72.0 * ENLARGE, 5 * 72.0 * ENLARGE, ierr);
+   if (*ierr != 0) return;
    /* default frame */
-   c_set_frame_sides(p, 0.15, 0.85, 0.85, 0.15);
+   c_set_frame_sides(fmkr, p, 0.15, 0.85, 0.85, 0.15, ierr);
+   if (*ierr != 0) return;
    /* default bounds */
    p->bounds_left = p->bounds_bottom = p->bounds_xmin = p->bounds_ymin = 0;
    p->bounds_right = p->bounds_top = p->bounds_xmax = p->bounds_ymax = 1;
@@ -150,13 +453,16 @@ void Initialize_Figure(VALUE fmkr) {
    p->text_shift_from_y_origin = 2.0;
    p->default_text_scale = 1.0;  Recalc_Font_Hts(p);
    /* graphics attributes */
-   p->stroke_color = Qnil;
-   p->fill_color = Qnil;
+   p->stroke_color_R = 0.0;
+   p->stroke_color_G = 0.0;
+   p->stroke_color_B = 0.0;
+   p->fill_color_R = 0.0;
+   p->fill_color_G = 0.0;
+   p->fill_color_B = 0.0;
    p->default_line_scale = 1.0;
    p->line_width = 1.2;
    p->line_cap = LINE_CAP_ROUND;
    p->line_join = LINE_JOIN_ROUND;
-   p->line_type = Qnil; // means solid line
    p->miter_limit = 2.0;
    
    p->stroke_opacity = 1.0;
@@ -164,39 +470,42 @@ void Initialize_Figure(VALUE fmkr) {
    
    /* Title */
    p->title_visible = true;
-   p->title = Qnil;
    p->title_side = TOP;
    p->title_position = 0.5;
    p->title_scale = 1.1;
-   p->title_shift = 0.7; // in char heights, positive for out from edge (or toward larger x or y value)
+   p->title_shift = 0.7; // in char heights, positive for out from edge (or toward larger x or y OBJ_PTR)
    p->title_angle = 0.0;
    p->title_alignment = ALIGNED_AT_BASELINE;
    p->title_justification = CENTERED;
-   p->title_color = Qnil;
+   p->title_color_R = 0.0;
+   p->title_color_G = 0.0;
+   p->title_color_B = 0.0;
    
    /* X label */
    p->xlabel_visible = true;
-   p->xlabel = Qnil;
    p->xlabel_side = BOTTOM;
    p->xlabel_position = 0.5;
    p->xlabel_scale = 1.0;
-   p->xlabel_shift = 2.0; // in char heights, positive for out from edge (or toward larger x or y value)
+   p->xlabel_shift = 2.0; // in char heights, positive for out from edge (or toward larger x or y OBJ_PTR)
    p->xlabel_angle = 0.0;
    p->xlabel_alignment = ALIGNED_AT_BASELINE;
    p->xlabel_justification = CENTERED;
-   p->xlabel_color = Qnil;
+   p->xlabel_color_R = 0.0;
+   p->xlabel_color_G = 0.0;
+   p->xlabel_color_B = 0.0;
    
    /* Y label */
    p->ylabel_visible = true;
-   p->ylabel = Qnil;
    p->ylabel_side = LEFT;
    p->ylabel_position = 0.5;
    p->ylabel_scale = 1.0;
-   p->ylabel_shift = 1.8; // in char heights, positive for out from edge (or toward larger x or y value)
+   p->ylabel_shift = 1.8; // in char heights, positive for out from edge (or toward larger x or y OBJ_PTR)
    p->ylabel_angle = 0.0;
    p->ylabel_alignment = ALIGNED_AT_BASELINE;
    p->ylabel_justification = CENTERED;
-   p->ylabel_color = Qnil;
+   p->ylabel_color_R = 0.0;
+   p->ylabel_color_G = 0.0;
+   p->ylabel_color_B = 0.0;
    
    /* X axis */
    p->xaxis_visible = true;
@@ -204,27 +513,26 @@ void Initialize_Figure(VALUE fmkr) {
    p->xaxis_loc = BOTTOM;
    // line
    p->xaxis_line_width = 1.0; // for axis line
-   p->xaxis_stroke_color = Qnil; // for axis line and tick marks
+   p->xaxis_stroke_color_R = 0.0; // for axis line and tick marks
+   p->xaxis_stroke_color_G = 0.0;
+   p->xaxis_stroke_color_B = 0.0;
    // tick marks
    p->xaxis_major_tick_width = 0.9; // same units as line_width
    p->xaxis_minor_tick_width = 0.7; // same units as line_width
    p->xaxis_major_tick_length = 0.6; // in units of numeric label char heights
    p->xaxis_minor_tick_length = 0.3; // in units of numeric label char heights
    p->xaxis_log_values = false;
-   p->xaxis_ticks_inside = true; // inside frame or toward larger x or y value for specific location
-   p->xaxis_ticks_outside = false; // inside frame or toward smaller x or y value for specific location
+   p->xaxis_ticks_inside = true; // inside frame or toward larger x or y OBJ_PTR for specific location
+   p->xaxis_ticks_outside = false; // inside frame or toward smaller x or y OBJ_PTR for specific location
    p->xaxis_tick_interval = 0.0; // set to 0 to use default
    p->xaxis_min_between_major_ticks = 2; // in units of numeric label char heights
    p->xaxis_number_of_minor_intervals = 0; // set to 0 to use default
-   p->xaxis_locations_for_major_ticks = Qnil; // set to nil to use defaults
-   p->xaxis_locations_for_minor_ticks = Qnil; // set to nil to use defaults
    // numeric labels on major ticks
    p->xaxis_use_fixed_pt = false;
    p->xaxis_digits_max = 0;
-   p->xaxis_tick_labels = Qnil; // set to nil to use defaults. else must have a label for each major tick
    p->xaxis_numeric_label_decimal_digits = -1; // set to negative to use default
    p->xaxis_numeric_label_scale = 0.7;
-   p->xaxis_numeric_label_shift = 0.3; // in char heights, positive for out from edge (or toward larger x or y value)
+   p->xaxis_numeric_label_shift = 0.3; // in char heights, positive for out from edge (or toward larger x or y OBJ_PTR)
    p->xaxis_numeric_label_angle = 0.0;
    p->xaxis_numeric_label_alignment = ALIGNED_AT_MIDHEIGHT;
    p->xaxis_numeric_label_justification = CENTERED;
@@ -241,27 +549,26 @@ void Initialize_Figure(VALUE fmkr) {
    p->yaxis_loc = LEFT;
    // line
    p->yaxis_line_width = 1.0; // for axis line
-   p->yaxis_stroke_color = Qnil; // for axis line and tick marks
+   p->yaxis_stroke_color_R = 0.0; // for axis line and tick marks
+   p->yaxis_stroke_color_G = 0.0;
+   p->yaxis_stroke_color_B = 0.0;
    // tick marks
    p->yaxis_major_tick_width = 0.9; // same units as line_width
    p->yaxis_minor_tick_width = 0.7; // same units as line_width
    p->yaxis_major_tick_length = 0.6; // in units of numeric label char heights
    p->yaxis_minor_tick_length = 0.3; // in units of numeric label char heights
    p->yaxis_log_values = false;
-   p->yaxis_ticks_inside = true; // inside frame or toward larger x or y value for specific location
-   p->yaxis_ticks_outside = false; // inside frame or toward smaller x or y value for specific location
+   p->yaxis_ticks_inside = true; // inside frame or toward larger x or y OBJ_PTR for specific location
+   p->yaxis_ticks_outside = false; // inside frame or toward smaller x or y OBJ_PTR for specific location
    p->yaxis_tick_interval = 0.0; // set to 0 to use default
    p->yaxis_min_between_major_ticks = 2; // in units of numeric label char heights
    p->yaxis_number_of_minor_intervals = 0; // set to 0 to use default
-   p->yaxis_locations_for_major_ticks = Qnil; // set to nil to use defaults
-   p->yaxis_locations_for_minor_ticks = Qnil; // set to nil to use defaults
    // numeric labels on major ticks
    p->yaxis_use_fixed_pt = false;
    p->yaxis_digits_max = 0;
-   p->yaxis_tick_labels = Qnil; // set to nil to use defaults. else must have a label for each major tick
    p->yaxis_numeric_label_decimal_digits = -1; // set to negative to use default
    p->yaxis_numeric_label_scale = 0.7;
-   p->yaxis_numeric_label_shift = 0.5; // in char heights, positive for out from edge (or toward larger x or y value)
+   p->yaxis_numeric_label_shift = 0.5; // in char heights, positive for out from edge (or toward larger x or y OBJ_PTR)
    p->yaxis_numeric_label_angle = 0.0;
    p->yaxis_numeric_label_alignment = ALIGNED_AT_MIDHEIGHT;
    p->yaxis_numeric_label_justification = CENTERED;
@@ -284,245 +591,52 @@ void Initialize_Figure(VALUE fmkr) {
    p->legend_alignment = ALIGNED_AT_BASELINE;
    p->legend_justification = LEFT_JUSTIFIED;
    p->debug_verbosity_level = 0;
-
    /* emit a warning by default */
    p->croak_on_nonok_numbers = 1;
 }
 
-VALUE do_cmd(VALUE fmkr, VALUE cmd) { return rb_funcall(fmkr, do_cmd_ID, 1, cmd); }
-
-static void Type_Error(VALUE obj, ID name_ID, char *expected)
-{
-   char *name = rb_id2name(name_ID);
-   while (name[0] == '@') name++;
-   rb_raise(rb_eArgError, "Require %s value for '%s'", expected, name);
-}
-
-bool Get_bool(VALUE obj, ID name_ID) {
-   VALUE v = rb_ivar_get(obj, name_ID);
-   if (v != Qfalse && v != Qtrue && v != Qnil)
-      Type_Error(v, name_ID, "true or false");
-   return v == Qtrue;
-}
-
-int Get_int(VALUE obj, ID name_ID) {
-   VALUE v = rb_ivar_get(obj, name_ID);
-   if (!rb_obj_is_kind_of(v,rb_Integer_class))
-      Type_Error(v, name_ID, "Integer");
-   v = rb_Integer(v);
-   return NUM2INT(v);
-}
-
-double Get_double(VALUE obj, ID name_ID) {
-   VALUE v = rb_ivar_get(obj, name_ID);
-   if (!rb_obj_is_kind_of(v,rb_Numeric_class))
-      Type_Error(v, name_ID, "Numeric");
-   v = rb_Float(v);
-   return NUM2DBL(v);
+OBJ_PTR Get_line_type(OBJ_PTR fmkr, int *ierr) { 
+   OBJ_PTR v = Obj_Attr_Get(fmkr, line_type_ID, ierr);
+   if (*ierr != 0) RETURN_NIL;
+   return v;
 }
 
-
-char *Get_tex_preview_paper_width(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_preview_paper_width_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
-}
-
-char *Get_tex_preview_paper_height(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_preview_paper_height_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
+void Set_line_type(OBJ_PTR fmkr, OBJ_PTR v, int *ierr) { 
+   Obj_Attr_Set(fmkr, line_type_ID, v, ierr);
 }
 
-char *Get_tex_preview_hoffset(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_preview_hoffset_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
+OBJ_PTR Get_xaxis_locations_for_major_ticks(OBJ_PTR fmkr, int *ierr) { 
+   OBJ_PTR v = Obj_Attr_Get(fmkr, xaxis_locations_for_major_ticks_ID, ierr);
+   if (*ierr != 0) RETURN_NIL;
+   return v;
 }
 
-char *Get_tex_preview_voffset(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_preview_voffset_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
+OBJ_PTR Get_xaxis_locations_for_minor_ticks(OBJ_PTR fmkr, int *ierr) { 
+   OBJ_PTR v = Obj_Attr_Get(fmkr, xaxis_locations_for_minor_ticks_ID, ierr);
+   if (*ierr != 0) RETURN_NIL;
+   return v;
 }
 
-char *Get_tex_preview_figure_width(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_preview_figure_width_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
+OBJ_PTR Get_xaxis_tick_labels(OBJ_PTR fmkr, int *ierr) { 
+   OBJ_PTR v = Obj_Attr_Get(fmkr, xaxis_tick_labels_ID, ierr);
+   if (*ierr != 0) RETURN_NIL;
+   return v;
 }
 
-char *Get_tex_preview_figure_height(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_preview_figure_height_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
+OBJ_PTR Get_yaxis_locations_for_major_ticks(OBJ_PTR fmkr, int *ierr) { 
+   OBJ_PTR v = Obj_Attr_Get(fmkr, yaxis_locations_for_major_ticks_ID, ierr);
+   if (*ierr != 0) RETURN_NIL;
+   return v;
 }
-
-
-char *Get_tex_fontsize(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_fontsize_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
-}
-
-char *Get_tex_fontfamily(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_fontfamily_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
-}
-
-char *Get_tex_fontseries(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_fontseries_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
-}
-
-char *Get_tex_fontshape(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_fontshape_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
-}
-
-char *Get_tex_preview_minwhitespace(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_preview_minwhitespace_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
+OBJ_PTR Get_yaxis_locations_for_minor_ticks(OBJ_PTR fmkr, int *ierr) { 
+   OBJ_PTR v = Obj_Attr_Get(fmkr, yaxis_locations_for_minor_ticks_ID, ierr);
+   if (*ierr != 0) RETURN_NIL;
+   return v;
 }
-
-bool Get_tex_preview_fullpage(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_preview_fullpage_ID);
-   return v != Qfalse && v != Qnil;
-}
-
-/* gets the generated preamble */
-char *Get_tex_preview_generated_preamble(VALUE fmkr) {
-  /* it is a class constant... */
-  VALUE v = rb_const_get(CLASS_OF(fmkr), 
-			 rb_intern("TEX_PREAMBLE"));
-  if (v == Qnil) return NULL;
-  return StringValueCStr(v);
-}
-
-
-double Get_tex_xoffset(VALUE fmkr) { return Get_double(fmkr, tex_xoffset_ID); }
-double Get_tex_yoffset(VALUE fmkr) { return Get_double(fmkr, tex_yoffset_ID); }
-
-static char *Get_save_dir(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, save_dir_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
-}
-
-char *Get_tex_preview_documentclass(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_preview_documentclass_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
-}
-
-char *Get_tex_preamble(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_preamble_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
+OBJ_PTR Get_yaxis_tick_labels(OBJ_PTR fmkr, int *ierr) { 
+   OBJ_PTR v = Obj_Attr_Get(fmkr, yaxis_tick_labels_ID, ierr);
+   if (*ierr != 0) RETURN_NIL;
+   return v;
 }
 
-char *Get_xaxis_numeric_label_tex(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, xaxis_numeric_label_tex_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
-}
-
-char *Get_yaxis_numeric_label_tex(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, yaxis_numeric_label_tex_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
-}
-
-char *Get_tex_preview_pagestyle(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_preview_pagestyle_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
-}
-
-char *Get_tex_preview_tiogafigure_command(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, tex_preview_tiogafigure_command_ID);
-   if (v == Qnil) return NULL;
-   return StringValuePtr(v);
-}
-
-static bool Get_quiet_mode(VALUE fmkr) {
-   VALUE v = rb_ivar_get(fmkr, quiet_mode_ID);
-   return v != Qfalse && v != Qnil;
-}
-
-static bool Get_initialized() {
-   VALUE v = rb_cvar_get(cFM, initialized_ID);
-   return v != Qfalse && v != Qnil;
-}
-
-static void Set_initialized() {
-   rb_cv_set(cFM, "@@initialized", Qtrue);
-}
-
-static void Make_Save_Fname(VALUE fmkr, char *full_name, char *f_name,
-   bool with_save_dir, bool with_pdf_extension) {
-   int i, j, k, len, mod_len, mod_num, did_mod_num = false;
-   char c, *fmt, model[STRLEN], *save=NULL;
-   if (with_save_dir) save = Get_save_dir(fmkr);
-   if (with_save_dir && save != NULL && strlen(save) > 0) { 
-      sprintf(full_name, "%s/", save); j = strlen(full_name); }
-   else j = 0;
-   if (f_name == NULL) f_name = "plot";
-   len = strlen(f_name);
-   for (i=0; i < len; i++) {
-      c = f_name[i];
-      full_name[j++] = c;
-      }
-   full_name[j] = '\0';
-   char *dot = strrchr(full_name,'.');
-   if (dot == NULL || strcmp(dot+1,"pdf") != 0) { /* add pdf extension */
-        full_name[j] = '\0';
-        if (!with_pdf_extension) return;
-        strcpy(full_name+j, ".pdf");
-     }
-}
-   
-VALUE FM_get_save_filename(VALUE fmkr, VALUE name) {
-   char full_name[STRLEN];
-   Make_Save_Fname(fmkr, full_name, (name == Qnil)? NULL : StringValuePtr(name), false, false);
-   return rb_str_new2(full_name);
-}
-   
-VALUE FM_private_make(VALUE fmkr, VALUE name, VALUE cmd) {
-   char full_name[STRLEN], mod_num_name[STRLEN];
-   FM *p = Get_FM(fmkr);
-   FM saved = *p;
-   VALUE result;
-   bool quiet = Get_quiet_mode(fmkr);
-   if (!Get_initialized()) {
-      Init_pdf();
-      Init_tex();
-      Set_initialized();
-   }
-   Make_Save_Fname(fmkr, full_name, (name == Qnil)? NULL : StringValuePtr(name), true, true);
-   Open_pdf(fmkr, full_name, quiet);
-   Open_tex(fmkr, full_name, quiet);
-   Write_gsave();
-   p->root_figure = true;
-   p->in_subplot = false;
-   result = rb_funcall(fmkr, make_page_ID, 1, cmd);
-   Write_grestore();
-   if (result == Qfalse) quiet = true;
-   Close_pdf(fmkr, quiet);
-   Close_tex(fmkr, quiet);
-   Create_wrapper(fmkr, full_name, quiet);   
-   *p = saved;
-   return result;
-}
-   
-VALUE FM_private_make_portfolio(VALUE fmkr, VALUE name, VALUE fignums, VALUE fignames) {
-   char full_name[STRLEN];
-   Make_Save_Fname(fmkr, full_name, (name == Qnil)? NULL : StringValuePtr(name), true, false);
-   private_make_portfolio(full_name, fignums, fignames);
-   return rb_str_new2(full_name);
-}