tioga 1.6 → 1.7

data/split/Tioga/pdfcoords.c

@@ -1,523 +0,0 @@
-/* pdfcoords.c */
-/*
-   Copyright (C) 2005  Bill Paxton
-
-   This file is part of Tioga.
-
-   Tioga is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Library Public License as published
-   by the Free Software Foundation; either version 2 of the License, or
-   (at your option) any later version.
-
-   Tioga is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU Library General Public License for more details.
-
-   You should have received a copy of the GNU Library General Public License
-   along with Tioga; if not, write to the Free Software
-   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-*/
-
-#include "figures.h"
-#include "pdfs.h"
-
-/* Frame and Bounds */
-void Recalc_Font_Hts(FM *p)
-{
-   double dx, dy;
-   dx = dy = ENLARGE * p->default_font_size * p->default_text_scale;  // font height in output coords
-   dx = convert_output_to_page_dx(p,dx);
-   dx = convert_page_to_frame_dx(p,dx);
-   p->default_text_height_dx = convert_frame_to_figure_dx(p,dx);
-   dy = convert_output_to_page_dy(p,dy);
-   dy = convert_page_to_frame_dy(p,dy);
-   p->default_text_height_dy = convert_frame_to_figure_dy(p,dy);
-}
-
-void c_set_subframe(FM *p, double left_margin, double right_margin, double top_margin, double bottom_margin)
-{
-   double x, y, w, h;
-   if (left_margin < 0 || right_margin < 0 || top_margin < 0 || bottom_margin < 0)
-      rb_raise(rb_eArgError, "Sorry: margins for set_subframe must be non-negative");
-   if (left_margin + right_margin >= 1.0)
-      rb_raise(rb_eArgError, "Sorry: margins too large: left_margin (%g) right_margin (%g)", left_margin, right_margin);
-   if (top_margin + bottom_margin >= 1.0)
-      rb_raise(rb_eArgError, "Sorry: margins too large: top_margin (%g) bottom_margin (%g)", top_margin, bottom_margin);
-   x = p->frame_left += left_margin * p->frame_width;
-   p->frame_right -= right_margin * p->frame_width;
-   p->frame_top -= top_margin * p->frame_height;
-   y = p->frame_bottom += bottom_margin * p->frame_height;
-   w = p->frame_width = p->frame_right - p->frame_left;
-   h = p->frame_height = p->frame_top - p->frame_bottom;
-   Recalc_Font_Hts(p);
-}
-
-VALUE FM_private_set_subframe(VALUE fmkr, VALUE left_margin, VALUE right_margin, VALUE top_margin, VALUE bottom_margin)
-{
-   FM *p = Get_FM(fmkr);
-   left_margin = rb_Float(left_margin);
-   right_margin = rb_Float(right_margin);
-   top_margin = rb_Float(top_margin);
-   bottom_margin = rb_Float(bottom_margin);
-   c_set_subframe(p, NUM2DBL(left_margin), NUM2DBL(right_margin), NUM2DBL(top_margin), NUM2DBL(bottom_margin));
-   return fmkr;
-}
-
-
-void c_private_set_default_font_size(FM *p, double size) {
-    p->default_font_size = size;
-    Recalc_Font_Hts(p);
-}
-
-VALUE FM_private_set_default_font_size(VALUE fmkr, VALUE size) {
-   FM *p = Get_FM(fmkr);
-   size = rb_Float(size);
-   c_private_set_default_font_size(p, NUM2DBL(size));
-   return fmkr;
-}
-
-
-
-// We need to do some extra work to use 'ensure' around 'context'
-// which is necessary in case code does 'return' from the block being executed in the context
-// otherwise we won't get a chance to restore the state
-typedef struct {
-   VALUE fmkr;
-   FM *p;
-   FM saved;
-   VALUE cmd;
-} Context_Info;
-
-static VALUE do_context_body(VALUE args)
-{
-   Context_Info *cp = (Context_Info *)args; // nasty but it works
-   fprintf(TF, "q\n");
-   return do_cmd(cp->fmkr, cp->cmd);
-}
-
-static VALUE do_context_ensure(VALUE args)
-{
-   Context_Info *cp = (Context_Info *)args;
-   fprintf(TF, "Q\n");
-   *cp->p = cp->saved;
-   return Qnil; // what should we be returning here?
-}
-
-VALUE FM_private_context(VALUE fmkr, VALUE cmd)
-{
-   Context_Info c;
-   c.fmkr = fmkr;
-   c.cmd = cmd;
-   c.p = Get_FM(fmkr);
-   c.saved = *c.p;
-   return rb_ensure(do_context_body, (VALUE)&c, do_context_ensure, (VALUE)&c);
-}
-
-VALUE FM_doing_subplot(VALUE fmkr)
-{
-   FM *p = Get_FM(fmkr);
-   p->in_subplot = true;
-   return fmkr;
-}
-
-VALUE FM_doing_subfigure(VALUE fmkr)
-{
-   FM *p = Get_FM(fmkr);
-   p->root_figure = false;
-   return fmkr;
-}
-
-void c_set_bounds(FM *p, double left, double right, double top, double bottom)
-{
-   if (constructing_path) rb_raise(rb_eArgError, "Sorry: must finish with current path before calling set_bounds");
-   p->bounds_left = left; p->bounds_right = right;
-   p->bounds_bottom = bottom; p->bounds_top = top;
-   if (left < right) {
-      p->xaxis_reversed = false;
-      p->bounds_xmin = left; p->bounds_xmax = right;
-   } else if (right < left) {
-      p->xaxis_reversed = true;
-      p->bounds_xmin = right; p->bounds_xmax = left;
-   } else { // left == right
-      p->xaxis_reversed = false;
-      if (left > 0.0) {
-        p->bounds_xmin = left * (1.0 - 1e-6); p->bounds_xmax = left * (1.0 + 1e-6);
-      } else if (left < 0.0) {
-        p->bounds_xmin = left * (1.0 + 1e-6); p->bounds_xmax = left * (1.0 - 1e-6);
-      } else {
-        p->bounds_xmin = -1e-6; p->bounds_xmax = 1e-6;
-      }
-   }
-   if (bottom < top) {
-      p->yaxis_reversed = false;
-      p->bounds_ymin = bottom; p->bounds_ymax = top;
-   } else if (top < bottom) {
-      p->yaxis_reversed = true;
-      p->bounds_ymin = top; p->bounds_ymax = bottom;
-   } else { // top == bottom
-      p->yaxis_reversed = false;
-      if (bottom > 0.0) {
-        p->bounds_ymin = bottom * (1.0 - 1e-6); p->bounds_ymax = bottom * (1.0 + 1e-6);
-      } else if (bottom < 0.0) {
-        p->bounds_ymin = bottom * (1.0 + 1e-6); p->bounds_ymax = bottom * (1.0 - 1e-6);
-      } else {
-        p->bounds_xmin = -1e-6; p->bounds_xmax = 1e-6;
-      }
-   }
-   p->bounds_width = p->bounds_xmax - p->bounds_xmin;
-   p->bounds_height = p->bounds_ymax - p->bounds_ymin;
-   Recalc_Font_Hts(p);
-}
-
-VALUE FM_private_set_bounds(VALUE fmkr, VALUE left, VALUE right, VALUE top, VALUE bottom)
-{
-   FM *p = Get_FM(fmkr);
-   double left_boundary, right_boundary, top_boundary, bottom_boundary;
-   left = rb_Float(left);
-   left_boundary = NUM2DBL(left);
-   right = rb_Float(right);
-   right_boundary = NUM2DBL(right);
-   top = rb_Float(top);
-   top_boundary = NUM2DBL(top);
-   bottom = rb_Float(bottom);
-   bottom_boundary = NUM2DBL(bottom);
-   c_set_bounds(p, left_boundary, right_boundary, top_boundary, bottom_boundary);
-   return fmkr;
-}
-
-
-// Conversions
-
-double c_convert_to_degrees(FM *p, double dx, double dy)  // dx and dy in figure coords
-{
-   double angle;
-   if (dx == 0.0 && dy == 0.0) angle = 0.0;
-   else if (dx > 0.0 && dy == 0.0) angle = (p->bounds_left > p->bounds_right)? 180.0 : 0.0;
-   else if (dx < 0.0 && dy == 0.0) angle = (p->bounds_left > p->bounds_right)? 0.0 : 180.0;
-   else if (dx == 0.0 && dy > 0.0) angle = (p->bounds_bottom > p->bounds_top)? -90.0 : 90.0;
-   else if (dx == 0.0 && dy < 0.0) angle = (p->bounds_bottom > p->bounds_top)? 90.0 : -90.0;
-   else angle = atan2(convert_figure_to_output_dy(p,dy),convert_figure_to_output_dx(p,dx))*RADIANS_TO_DEGREES;
-   return angle;
-}
-
-VALUE FM_convert_to_degrees(VALUE fmkr, VALUE dx, VALUE dy) // dx and dy in figure coords
-{
-   FM *p = Get_FM(fmkr);
-   dx = rb_Float(dx);
-   dy = rb_Float(dy);
-   return rb_float_new(c_convert_to_degrees(p, NUM2DBL(dx), NUM2DBL(dy)));
-}
-
-
-
-VALUE FM_convert_inches_to_output(VALUE fmkr, VALUE v)
-{
-   v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_inches_to_output(val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_output_to_inches(VALUE fmkr, VALUE v)
-{
-   v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_output_to_inches(val);
-   return rb_float_new(val);
-}
-
-
-VALUE FM_convert_mm_to_output(VALUE fmkr, VALUE v)
-{
-   v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_mm_to_output(val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_output_to_mm(VALUE fmkr, VALUE v)
-{
-   v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_output_to_mm(val);
-   return rb_float_new(val);
-}
-
-
-VALUE FM_convert_page_to_output_x(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_page_to_output_x(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_page_to_output_y(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_page_to_output_y(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_page_to_output_dx(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_page_to_output_dx(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_page_to_output_dy(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_page_to_output_dy(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_output_to_page_x(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_output_to_page_x(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_output_to_page_y(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_output_to_page_y(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_output_to_page_dx(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   return convert_output_to_page_dx(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_output_to_page_dy(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_output_to_page_dy(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_frame_to_page_x(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_frame_to_page_x(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_frame_to_page_y(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_frame_to_page_y(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_frame_to_page_dx(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_frame_to_page_dx(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_frame_to_page_dy(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_frame_to_page_dy(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_page_to_frame_x(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_page_to_frame_x(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_page_to_frame_y(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_page_to_frame_y(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_page_to_frame_dx(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_page_to_frame_dx(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_page_to_frame_dy(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_page_to_frame_dy(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_figure_to_frame_x(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_figure_to_frame_x(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_figure_to_frame_y(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_figure_to_frame_y(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_figure_to_frame_dx(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_figure_to_frame_dx(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_figure_to_frame_dy(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_figure_to_frame_dy(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_frame_to_figure_x(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_frame_to_figure_x(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_frame_to_figure_y(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_frame_to_figure_y(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_frame_to_figure_dx(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_frame_to_figure_dx(p,val);
-   return rb_float_new(val);
-}
-
-VALUE FM_convert_frame_to_figure_dy(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   val = convert_frame_to_figure_dy(p,val);
-   return rb_float_new(val);
-}
-
-double convert_figure_to_output_x(FM *p, double x)
-{
-   x = convert_figure_to_frame_x(p,x);
-   x = convert_frame_to_page_x(p,x);
-   x = convert_page_to_output_x(p,x);
-   return x;
-}
-
-double convert_figure_to_output_dy(FM *p, double dy)
-{
-   dy = convert_figure_to_frame_dy(p,dy);
-   dy = convert_frame_to_page_dy(p,dy);
-   dy = convert_page_to_output_dy(p,dy);
-   return dy;
-}
-
-double convert_figure_to_output_dx(FM *p, double dx)
-{
-   dx = convert_figure_to_frame_dx(p,dx);
-   dx = convert_frame_to_page_dx(p,dx);
-   dx = convert_page_to_output_dx(p,dx);
-   return dx;
-}
-
-double convert_figure_to_output_y(FM *p, double y)
-{
-   y = convert_figure_to_frame_y(p,y);
-   y = convert_frame_to_page_y(p,y);
-   y = convert_page_to_output_y(p,y);
-   return y;
-}
-
-VALUE FM_convert_figure_to_output_x(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   return rb_float_new(convert_figure_to_output_x(p,val));
-}
-
-VALUE FM_convert_figure_to_output_y(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   return rb_float_new(convert_figure_to_output_y(p,val));
-}
-
-VALUE FM_convert_figure_to_output_dx(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   return rb_float_new(convert_figure_to_output_dx(p,val));
-}
-
-VALUE FM_convert_figure_to_output_dy(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   return rb_float_new(convert_figure_to_output_dy(p,val));
-}
-
-double convert_output_to_figure_x(FM *p, double x)
-{
-   x = convert_output_to_page_x(p,x);
-   x = convert_page_to_frame_x(p,x);
-   x = convert_frame_to_figure_x(p,x);
-   return x;
-}
-
-double convert_output_to_figure_dy(FM *p, double dy)
-{
-   dy = convert_output_to_page_dy(p,dy);
-   dy = convert_page_to_frame_dy(p,dy);
-   dy = convert_frame_to_figure_dy(p,dy);
-   return dy;
-}
-
-double convert_output_to_figure_dx(FM *p, double dx)
-{
-   dx = convert_output_to_page_dx(p,dx);
-   dx = convert_page_to_frame_dx(p,dx);
-   dx = convert_frame_to_figure_dx(p,dx);
-   return dx;
-}
-
-double convert_output_to_figure_y(FM *p, double y)
-{
-   y = convert_output_to_page_y(p,y);
-   y = convert_page_to_frame_y(p,y);
-   y = convert_frame_to_figure_y(p,y);
-   return y;
-}
-
-VALUE FM_convert_output_to_figure_x(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   return rb_float_new(convert_output_to_figure_x(p,val));
-}
-
-VALUE FM_convert_output_to_figure_y(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   return rb_float_new(convert_output_to_figure_y(p,val));
-}
-
-VALUE FM_convert_output_to_figure_dx(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   return rb_float_new(convert_output_to_figure_dx(p,val));
-}
-
-VALUE FM_convert_output_to_figure_dy(VALUE fmkr, VALUE v)
-{
-   FM *p = Get_FM(fmkr); v = rb_Float(v); double val = NUM2DBL(v);
-   return rb_float_new(convert_output_to_figure_dy(p,val));
-}
-