| 1 | /* | 
|---|
| 2 | * TransFig: Facility for Translating Fig code | 
|---|
| 3 | * Copyright (c) 1985 Supoj Sutantavibul | 
|---|
| 4 | * Copyright (c) 1991 Micah Beck | 
|---|
| 5 | * | 
|---|
| 6 | * Permission to use, copy, modify, distribute, and sell this software and its | 
|---|
| 7 | * documentation for any purpose is hereby granted without fee, provided that | 
|---|
| 8 | * the above copyright notice appear in all copies and that both that | 
|---|
| 9 | * copyright notice and this permission notice appear in supporting | 
|---|
| 10 | * documentation. The authors make no representations about the suitability | 
|---|
| 11 | * of this software for any purpose.  It is provided "as is" without express | 
|---|
| 12 | * or implied warranty. | 
|---|
| 13 | * | 
|---|
| 14 | * THE AUTHORS DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, | 
|---|
| 15 | * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO | 
|---|
| 16 | * EVENT SHALL THE AUTHORS BE LIABLE FOR ANY SPECIAL, INDIRECT OR | 
|---|
| 17 | * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, | 
|---|
| 18 | * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER | 
|---|
| 19 | * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR | 
|---|
| 20 | * PERFORMANCE OF THIS SOFTWARE. | 
|---|
| 21 | * | 
|---|
| 22 | */ | 
|---|
| 23 |  | 
|---|
| 24 | #define         DEFAULT                         (-1) | 
|---|
| 25 |  | 
|---|
| 26 | typedef         struct f_point { | 
|---|
| 27 | int                     x, y; | 
|---|
| 28 | struct f_point          *next; | 
|---|
| 29 | } | 
|---|
| 30 | F_point; | 
|---|
| 31 |  | 
|---|
| 32 | typedef         struct f_pos { | 
|---|
| 33 | int                     x, y; | 
|---|
| 34 | } | 
|---|
| 35 | F_pos; | 
|---|
| 36 |  | 
|---|
| 37 | typedef         struct f_arrow { | 
|---|
| 38 | int                     type; | 
|---|
| 39 | int                     style; | 
|---|
| 40 | double                  thickness; | 
|---|
| 41 | double                  wid; | 
|---|
| 42 | double                  ht; | 
|---|
| 43 | } | 
|---|
| 44 | F_arrow; | 
|---|
| 45 |  | 
|---|
| 46 | typedef         struct f_ellipse { | 
|---|
| 47 | int                     type; | 
|---|
| 48 | #define                                 T_ELLIPSE_BY_RAD        1 | 
|---|
| 49 | #define                                 T_ELLIPSE_BY_DIA        2 | 
|---|
| 50 | #define                                 T_CIRCLE_BY_RAD         3 | 
|---|
| 51 | #define                                 T_CIRCLE_BY_DIA         4 | 
|---|
| 52 | int                     style; | 
|---|
| 53 | int                     thickness; | 
|---|
| 54 | int                     color; | 
|---|
| 55 | #define                                 BLACK_COLOR             0 | 
|---|
| 56 | #define                                 BLUE_COLOR              1 | 
|---|
| 57 | #define                                 GREEN_COLOR             2 | 
|---|
| 58 | #define                                 CYAN_COLOR              3 | 
|---|
| 59 | #define                                 RED_COLOR               4 | 
|---|
| 60 | #define                                 MAGENTA_COLOR           5 | 
|---|
| 61 | #define                                 YELLOW_COLOR            6 | 
|---|
| 62 | #define                                 WHITE_COLOR             7 | 
|---|
| 63 | int                     depth; | 
|---|
| 64 | int                     direction; | 
|---|
| 65 | double                  style_val; | 
|---|
| 66 | double                  angle; | 
|---|
| 67 | int                     pen; | 
|---|
| 68 | int                     area_fill; | 
|---|
| 69 | #define                                 UNFILLED        0 | 
|---|
| 70 | #define                                 WHITE_FILL      1 | 
|---|
| 71 | #define                                 BLACK_FILL      21 | 
|---|
| 72 | struct f_pos            center; | 
|---|
| 73 | struct f_pos            radiuses; | 
|---|
| 74 | struct f_pos            start; | 
|---|
| 75 | struct f_pos            end; | 
|---|
| 76 | struct f_ellipse        *next; | 
|---|
| 77 | } | 
|---|
| 78 | F_ellipse; | 
|---|
| 79 |  | 
|---|
| 80 | typedef         struct f_arc { | 
|---|
| 81 | int                     type; | 
|---|
| 82 | #define                                 T_3_POINTS_ARC          1 | 
|---|
| 83 | int                     style; | 
|---|
| 84 | int                     thickness; | 
|---|
| 85 | int                     color; | 
|---|
| 86 | int                     depth; | 
|---|
| 87 | int                     pen; | 
|---|
| 88 | int                     area_fill; | 
|---|
| 89 | double                  style_val; | 
|---|
| 90 | int                     direction; | 
|---|
| 91 | struct f_arrow          *for_arrow; | 
|---|
| 92 | struct f_arrow          *back_arrow; | 
|---|
| 93 | struct {double x, y;}   center; | 
|---|
| 94 | struct f_pos            point[3]; | 
|---|
| 95 | struct f_arc            *next; | 
|---|
| 96 | } | 
|---|
| 97 | F_arc; | 
|---|
| 98 |  | 
|---|
| 99 | typedef         struct f_line { | 
|---|
| 100 | int                     type; | 
|---|
| 101 | #define                                 T_POLYLINE      1 | 
|---|
| 102 | #define                                 T_BOX           2 | 
|---|
| 103 | #define                                 T_POLYGON       3 | 
|---|
| 104 | #define                                 T_ARC_BOX       4 | 
|---|
| 105 | #define                                 T_EPS_BOX       5 | 
|---|
| 106 |  | 
|---|
| 107 | int                     style; | 
|---|
| 108 | int                     thickness; | 
|---|
| 109 | int                     color; | 
|---|
| 110 | int                     depth; | 
|---|
| 111 | double                  style_val; | 
|---|
| 112 | int                     pen; | 
|---|
| 113 | int                     area_fill; | 
|---|
| 114 | int                     radius; /* for T_ARC_BOX */ | 
|---|
| 115 | struct f_arrow          *for_arrow; | 
|---|
| 116 | struct f_arrow          *back_arrow; | 
|---|
| 117 | struct f_point          *points; | 
|---|
| 118 | struct f_eps            *eps; | 
|---|
| 119 | struct f_line           *next; | 
|---|
| 120 | } | 
|---|
| 121 | F_line; | 
|---|
| 122 |  | 
|---|
| 123 | typedef struct f_eps { | 
|---|
| 124 | char            file[256]; | 
|---|
| 125 | int             flipped; | 
|---|
| 126 | unsigned char  *bitmap; | 
|---|
| 127 | float           hw_ratio; | 
|---|
| 128 | struct f_pos    bit_size; | 
|---|
| 129 | int             pix_rotation, pix_width, pix_height, pix_flipped; | 
|---|
| 130 | } | 
|---|
| 131 | F_eps; | 
|---|
| 132 |  | 
|---|
| 133 | extern char EMPTY_EPS[]; | 
|---|
| 134 |  | 
|---|
| 135 | typedef         struct f_text { | 
|---|
| 136 | int                     type; | 
|---|
| 137 | #define                                 T_LEFT_JUSTIFIED        0 | 
|---|
| 138 | #define                                 T_CENTER_JUSTIFIED      1 | 
|---|
| 139 | #define                                 T_RIGHT_JUSTIFIED       2 | 
|---|
| 140 | int                     font; | 
|---|
| 141 | #define                                 DEFAULT_FONT            0 | 
|---|
| 142 | #define                                 ROMAN_FONT              1 | 
|---|
| 143 | #define                                 BOLD_FONT               2 | 
|---|
| 144 | #define                                 ITALIC_FONT             3 | 
|---|
| 145 | #define                                 MODERN_FONT             4 | 
|---|
| 146 | #define                                 TYPEWRITER_FONT         5 | 
|---|
| 147 | #define                                 MAX_FONT                5 | 
|---|
| 148 | double                  size;   /* point size */ | 
|---|
| 149 | int                     color; | 
|---|
| 150 | int                     depth; | 
|---|
| 151 | double                  angle;  /* in radian */ | 
|---|
| 152 | int                     flags; | 
|---|
| 153 | #define                                 RIGID_TEXT      1 | 
|---|
| 154 | #define                                 SPECIAL_TEXT    2 | 
|---|
| 155 | #define                                 PSFONT_TEXT     4 | 
|---|
| 156 | double                  height; /* pixels */ | 
|---|
| 157 | double                  length; /* pixels */ | 
|---|
| 158 | int                     base_x; | 
|---|
| 159 | int                     base_y; | 
|---|
| 160 | int                     pen; | 
|---|
| 161 | char                    *cstring; | 
|---|
| 162 | struct f_text           *next; | 
|---|
| 163 | } | 
|---|
| 164 | F_text; | 
|---|
| 165 |  | 
|---|
| 166 | #define MAX_PSFONT      35 | 
|---|
| 167 | #define MAXFONT(T) (psfont_text(T) ? MAX_PSFONT : MAX_FONT) | 
|---|
| 168 |  | 
|---|
| 169 | #define         rigid_text(t) \ | 
|---|
| 170 | (t->flags == DEFAULT \ | 
|---|
| 171 | || (t->flags & RIGID_TEXT)) | 
|---|
| 172 |  | 
|---|
| 173 | #define         special_text(t) \ | 
|---|
| 174 | ((t->flags != DEFAULT \ | 
|---|
| 175 | && (t->flags & SPECIAL_TEXT))) | 
|---|
| 176 |  | 
|---|
| 177 | #define         psfont_text(t) \ | 
|---|
| 178 | (t->flags != DEFAULT \ | 
|---|
| 179 | && (t->flags & PSFONT_TEXT)) | 
|---|
| 180 |  | 
|---|
| 181 | typedef         struct f_control { | 
|---|
| 182 | double                  lx, ly, rx, ry; | 
|---|
| 183 | struct f_control        *next; | 
|---|
| 184 | } | 
|---|
| 185 | F_control; | 
|---|
| 186 |  | 
|---|
| 187 | #define         int_spline(s)           (s->type & 0x2) | 
|---|
| 188 | #define         normal_spline(s)        (!(s->type & 0x2)) | 
|---|
| 189 | #define         closed_spline(s)        (s->type & 0x1) | 
|---|
| 190 | #define         open_spline(s)          (!(s->type & 0x1)) | 
|---|
| 191 |  | 
|---|
| 192 | typedef         struct f_spline { | 
|---|
| 193 | int                     type; | 
|---|
| 194 | #define                                 T_OPEN_NORMAL           0 | 
|---|
| 195 | #define                                 T_CLOSED_NORMAL         1 | 
|---|
| 196 | #define                                 T_OPEN_INTERPOLATED     2 | 
|---|
| 197 | #define                                 T_CLOSED_INTERPOLATED   3 | 
|---|
| 198 | int                     style; | 
|---|
| 199 | int                     thickness; | 
|---|
| 200 | int                     color; | 
|---|
| 201 | int                     depth; | 
|---|
| 202 | double                  style_val; | 
|---|
| 203 | int                     pen; | 
|---|
| 204 | int                     area_fill; | 
|---|
| 205 | struct f_arrow          *for_arrow; | 
|---|
| 206 | struct f_arrow          *back_arrow; | 
|---|
| 207 | /* | 
|---|
| 208 | For T_OPEN_NORMAL and T_CLOSED_NORMAL points | 
|---|
| 209 | are control points while they are knots for | 
|---|
| 210 | T_OPEN_INTERPOLATED and T_CLOSED_INTERPOLTED | 
|---|
| 211 | whose control points are stored in controls. | 
|---|
| 212 | */ | 
|---|
| 213 | struct f_point          *points; | 
|---|
| 214 | struct f_control        *controls; | 
|---|
| 215 | struct f_spline         *next; | 
|---|
| 216 | } | 
|---|
| 217 | F_spline; | 
|---|
| 218 |  | 
|---|
| 219 | typedef         struct f_compound { | 
|---|
| 220 | struct f_pos            nwcorner; | 
|---|
| 221 | struct f_pos            secorner; | 
|---|
| 222 | struct f_line           *lines; | 
|---|
| 223 | struct f_ellipse        *ellipses; | 
|---|
| 224 | struct f_spline         *splines; | 
|---|
| 225 | struct f_text           *texts; | 
|---|
| 226 | struct f_arc            *arcs; | 
|---|
| 227 | struct f_compound       *compounds; | 
|---|
| 228 | struct f_compound       *next; | 
|---|
| 229 | } | 
|---|
| 230 | F_compound; | 
|---|
| 231 |  | 
|---|
| 232 | #define         ARROW_SIZE              sizeof(struct f_arrow) | 
|---|
| 233 | #define         POINT_SIZE              sizeof(struct f_point) | 
|---|
| 234 | #define         CONTROL_SIZE            sizeof(struct f_control) | 
|---|
| 235 | #define         ELLOBJ_SIZE             sizeof(struct f_ellipse) | 
|---|
| 236 | #define         ARCOBJ_SIZE             sizeof(struct f_arc) | 
|---|
| 237 | #define         LINOBJ_SIZE             sizeof(struct f_line) | 
|---|
| 238 | #define         EPS_SIZE                sizeof(struct f_eps) | 
|---|
| 239 | #define         TEXOBJ_SIZE             sizeof(struct f_text) | 
|---|
| 240 | #define         SPLOBJ_SIZE             sizeof(struct f_spline) | 
|---|
| 241 | #define         COMOBJ_SIZE             sizeof(struct f_compound) | 
|---|
| 242 |  | 
|---|
| 243 | /**********************  object codes  **********************/ | 
|---|
| 244 |  | 
|---|
| 245 | #define         O_ELLIPSE               1 | 
|---|
| 246 | #define         O_POLYLINE              2 | 
|---|
| 247 | #define         O_SPLINE                3 | 
|---|
| 248 | #define         O_TEXT                  4 | 
|---|
| 249 | #define         O_ARC                   5 | 
|---|
| 250 | #define         O_COMPOUND              6 | 
|---|
| 251 | #define         O_END_COMPOUND          (-O_COMPOUND) | 
|---|
| 252 | #define         O_ALL_OBJECT            99 | 
|---|
| 253 |  | 
|---|
| 254 | /************  object styles (except for f_text)  ************/ | 
|---|
| 255 |  | 
|---|
| 256 | #define         SOLID_LINE              0 | 
|---|
| 257 | #define         DASH_LINE               1 | 
|---|
| 258 | #define         DOTTED_LINE             2 | 
|---|
| 259 |  | 
|---|
| 260 | #define         CLOSED_PATH             0 | 
|---|
| 261 | #define         OPEN_PATH               1 | 
|---|