home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume21 / xfig / patch02j / xfig.02
Encoding:
Text File  |  1993-10-21  |  28.5 KB  |  1,001 lines
  1.   static int    base_x, base_y;
  2. ! static PIX_ROT_FONT canvas_zoomed_font;
  3.   
  4.   static int    work_psflag, work_font, work_fontsize, work_textjust;
  5. ! static PIX_ROT_FONT work_fontstruct;
  6. ! static float    work_angle;
  7.   static        finish_n_start();
  8.   static        init_text_input(), cancel_text_input();
  9.   static        wrap_up();
  10. --- 42,54 ----
  11.   int        leng_prefix, leng_suffix;
  12.   static int    char_ht;
  13.   static int    base_x, base_y;
  14. ! static PIX_FONT canvas_zoomed_font;
  15.   
  16. + static int    is_newline;
  17.   static int    work_psflag, work_font, work_fontsize, work_textjust;
  18. ! static PIX_FONT work_fontstruct;
  19. ! static float    work_angle;        /* in RADIANS */
  20. ! static double    sin_t, cos_t;        /* sin(work_angle) and cos(work_angle) */
  21.   static        finish_n_start();
  22.   static        init_text_input(), cancel_text_input();
  23.   static        wrap_up();
  24. ***************
  25. *** 71,76 ****
  26. --- 74,80 ----
  27.       canvas_rightbut_proc = null_proc;
  28.       set_mousefun("posn cursor", "", "");
  29.       set_cursor(pencil_cursor);
  30. +     is_newline = 0;
  31.   }
  32.   
  33.   static
  34. ***************
  35. *** 105,123 ****
  36.   new_text_line()
  37.   {
  38.       wrap_up();
  39. !     if (work_angle < 90.0 - 0.001) {
  40. !     cur_y += (int) ((float) char_ht * cur_textstep);
  41. !     cur_x = base_x;
  42. !     } else if (work_angle < 180.0 - 0.001) {
  43. !     cur_x += (int) ((float) char_ht * cur_textstep);
  44. !     cur_y = base_y;
  45. !     } else if (work_angle < 270.0 - 0.001) {
  46. !     cur_y -= (int) ((float) char_ht * cur_textstep);
  47. !     cur_x = base_x;
  48. !     } else {
  49. !     cur_x -= (int) ((float) char_ht * cur_textstep);
  50. !     cur_y = base_y;
  51.       }
  52.       init_text_input(cur_x, cur_y);
  53.   }
  54.   
  55. --- 109,122 ----
  56.   new_text_line()
  57.   {
  58.       wrap_up();
  59. !     if (cur_t) {    /* use current text's position as ref */
  60. !     cur_x = round(cur_t->base_x + char_ht*cur_textstep*sin_t);
  61. !     cur_y = round(cur_t->base_y + char_ht*cur_textstep*cos_t);
  62. !     } else {        /* use position from previous text */
  63. !     cur_x = round(base_x + char_ht*cur_textstep*sin_t);
  64. !     cur_y = round(base_y + char_ht*cur_textstep*cos_t);
  65.       }
  66. +     is_newline = 1;
  67.       init_text_input(cur_x, cur_y);
  68.   }
  69.   
  70. ***************
  71. *** 170,177 ****
  72.   init_text_input(x, y)
  73.       int            x, y;
  74.   {
  75. !     int            length, d;
  76.       PR_SIZE        tsize;
  77.   
  78.       cur_x = x;
  79.       cur_y = y;
  80. --- 169,177 ----
  81.   init_text_input(x, y)
  82.       int            x, y;
  83.   {
  84. !     int            length, posn;
  85.       PR_SIZE        tsize;
  86. +     float        lensin, lencos;
  87.   
  88.       cur_x = x;
  89.       cur_y = y;
  90. ***************
  91. *** 191,198 ****
  92.        * through
  93.        */
  94.   
  95. !     put_msg("Ready for text input (from keyboard)");
  96. !     if ((cur_t = text_search(cur_x, cur_y)) == NULL) {    /* new text input */
  97.       leng_prefix = leng_suffix = 0;
  98.       *suffix = 0;
  99.       prefix[leng_prefix] = '\0';
  100. --- 191,197 ----
  101.        * through
  102.        */
  103.   
  104. !     if ((cur_t = text_search(cur_x, cur_y, &posn)) == NULL) {    /* new text input */
  105.       leng_prefix = leng_suffix = 0;
  106.       *suffix = 0;
  107.       prefix[leng_prefix] = '\0';
  108. ***************
  109. *** 199,221 ****
  110.       base_x = cur_x;
  111.       base_y = cur_y;
  112.   
  113. !     work_fontsize = cur_fontsize;
  114. !     work_font     = using_ps ? cur_ps_font : cur_latex_font;
  115. !     work_psflag   = using_ps;
  116. !     work_textjust = cur_textjust;
  117. !     work_angle    = cur_elltextangle;
  118. !     if (work_angle < 0.0)
  119. !         work_angle += 360.0;
  120.   
  121. !     /* load the X font and get its id for this font, size and angle UNZOOMED */
  122. !     /* this is to get widths etc for the unzoomed chars */
  123. !     canvas_font = lookfont(x_fontnum(work_psflag, work_font), 
  124. !                work_fontsize, work_angle*M_PI/180.0);
  125. !     /* get the ZOOMED font for actually drawing on the canvas */
  126. !     canvas_zoomed_font = lookfont(x_fontnum(work_psflag, work_font), 
  127. !                round(work_fontsize*zoomscale), work_angle*M_PI/180.0);
  128. !     /* save the working font structure */
  129. !     work_fontstruct = canvas_zoomed_font;
  130.       } else {            /* clicked on existing text */
  131.       if (hidden_text(cur_t)) {
  132.           put_msg("Can't edit hidden text");
  133. --- 198,226 ----
  134.       base_x = cur_x;
  135.       base_y = cur_y;
  136.   
  137. !     if (is_newline) {    /* working settings already set */
  138. !         is_newline = 0;
  139. !     } else {        /* set working settings from ind panel */
  140. !         work_fontsize = cur_fontsize;
  141. !         work_font     = using_ps ? cur_ps_font : cur_latex_font;
  142. !         work_psflag   = using_ps;
  143. !         work_textjust = cur_textjust;
  144. !         work_angle    = cur_elltextangle*M_PI/180.0;
  145. !         while (work_angle < 0.0)
  146. !         work_angle += M_2PI;
  147. !         sin_t = sin((double)work_angle);
  148. !         cos_t = cos((double)work_angle);
  149.   
  150. !         /* load the X font and get its id for this font and size UNZOOMED */
  151. !         /* this is to get widths etc for the unzoomed chars */
  152. !         canvas_font = lookfont(x_fontnum(work_psflag, work_font), 
  153. !                work_fontsize);
  154. !         /* get the ZOOMED font for actually drawing on the canvas */
  155. !         canvas_zoomed_font = lookfont(x_fontnum(work_psflag, work_font), 
  156. !                round(work_fontsize*zoomscale));
  157. !         /* save the working font structure */
  158. !         work_fontstruct = canvas_zoomed_font;
  159. !     }
  160.       } else {            /* clicked on existing text */
  161.       if (hidden_text(cur_t)) {
  162.           put_msg("Can't edit hidden text");
  163. ***************
  164. *** 229,241 ****
  165.       work_fontsize = cur_t->size;
  166.       work_psflag   = cur_t->flags;
  167.       work_textjust = cur_t->type;
  168. !     work_angle    = cur_t->angle*180.0/M_PI;
  169. !     if (work_angle < 0.0)
  170. !         work_angle += 360.0;
  171.       /* load the X font and get its id for this font, size and angle UNZOOMED */
  172.       /* this is to get widths etc for the unzoomed chars */
  173.       canvas_font = lookfont(x_fontnum(work_psflag, work_font), 
  174. !                work_fontsize, work_angle*M_PI/180.0);
  175.   
  176.       toggle_textmarker(cur_t);
  177.       draw_text(cur_t, ERASE);
  178. --- 234,249 ----
  179.       work_fontsize = cur_t->size;
  180.       work_psflag   = cur_t->flags;
  181.       work_textjust = cur_t->type;
  182. !     work_angle    = cur_t->angle;
  183. !     while (work_angle < 0.0)
  184. !         work_angle += M_2PI;
  185. !     sin_t = sin((double)work_angle);
  186. !     cos_t = cos((double)work_angle);
  187. ! 
  188.       /* load the X font and get its id for this font, size and angle UNZOOMED */
  189.       /* this is to get widths etc for the unzoomed chars */
  190.       canvas_font = lookfont(x_fontnum(work_psflag, work_font), 
  191. !                work_fontsize);
  192.   
  193.       toggle_textmarker(cur_t);
  194.       draw_text(cur_t, ERASE);
  195. ***************
  196. *** 242,298 ****
  197.       base_x = cur_t->base_x;
  198.       base_y = cur_t->base_y;
  199.       length = cur_t->length;
  200.       switch (cur_t->type) {
  201.       case T_CENTER_JUSTIFIED:
  202. !         if (work_angle < 90.0 - 0.001) 
  203. !         base_x -= length / 2;
  204. !         else if (work_angle < 180.0 - 0.001)
  205. !         base_y += length / 2;
  206. !         else if (work_angle < 270.0 - 0.001)
  207. !         base_x += length / 2;
  208. !         else
  209. !         base_y -= length / 2;
  210.           break;
  211.   
  212.       case T_RIGHT_JUSTIFIED:
  213. !         if (work_angle < 90.0 - 0.001) 
  214. !         base_x -= length;
  215. !         else if (work_angle < 180.0 - 0.001)
  216. !         base_y += length;
  217. !         else if (work_angle < 270.0 - 0.001)
  218. !         base_x += length;
  219. !         else
  220. !         base_y -= length;
  221.           break;
  222.       } /* switch */
  223. !     if (work_angle < 90.0 - 0.001 || (work_angle >= 180.0 - 0.001 
  224. !         && work_angle < 270.0 - 0.001))
  225. !         d = abs(cur_x - base_x);
  226. !     else
  227. !         d = abs(cur_y - base_y);
  228.       leng_suffix = strlen(cur_t->cstring);
  229.       /* leng_prefix is # of char in the text before the cursor */
  230. !     leng_prefix = prefix_length(cur_t->cstring, d);
  231.       leng_suffix -= leng_prefix;
  232.       cpy_n_char(prefix, cur_t->cstring, leng_prefix);
  233.       strcpy(suffix, &cur_t->cstring[leng_prefix]);
  234.       tsize = pf_textwidth(canvas_font, leng_prefix, prefix);
  235.   
  236. !     if (work_angle < 90.0 - 0.001) {
  237. !         cur_x = base_x + tsize.x;
  238. !         cur_y = base_y;
  239. !     } else if (work_angle < 180.0 - 0.001) {
  240. !         cur_x = base_x;
  241. !         cur_y = base_y - tsize.x;
  242. !     } else if (work_angle < 270.0 - 0.001) {
  243. !         cur_x = base_x - tsize.x;
  244. !         cur_y = base_y;
  245. !     } else {
  246. !         cur_x = base_x;
  247. !         cur_y = base_y + tsize.x;
  248. !     }
  249.       }
  250. !     char_ht = rot_char_height(canvas_font);
  251.       initialize_char_handler(canvas_win, finish_text_input,
  252.                   base_x, base_y);
  253.       draw_char_string();
  254. --- 250,283 ----
  255.       base_x = cur_t->base_x;
  256.       base_y = cur_t->base_y;
  257.       length = cur_t->length;
  258. +     lencos = length*cos_t;
  259. +     lensin = length*sin_t;
  260. + 
  261.       switch (cur_t->type) {
  262.       case T_CENTER_JUSTIFIED:
  263. !         base_x = round(base_x - lencos/2.0);
  264. !         base_y = round(base_y + lensin/2.0);
  265.           break;
  266.   
  267.       case T_RIGHT_JUSTIFIED:
  268. !         base_x = round(base_x - lencos);
  269. !         base_y = round(base_y + lensin);
  270.           break;
  271.       } /* switch */
  272. ! 
  273.       leng_suffix = strlen(cur_t->cstring);
  274.       /* leng_prefix is # of char in the text before the cursor */
  275. !     leng_prefix = prefix_length(cur_t->cstring, posn);
  276.       leng_suffix -= leng_prefix;
  277.       cpy_n_char(prefix, cur_t->cstring, leng_prefix);
  278.       strcpy(suffix, &cur_t->cstring[leng_prefix]);
  279.       tsize = pf_textwidth(canvas_font, leng_prefix, prefix);
  280.   
  281. !     cur_x = round(base_x + tsize.x * cos_t);
  282. !     cur_y = round(base_y - tsize.x * sin_t);
  283.       }
  284. !     put_msg("Ready for text input (from keyboard)");
  285. !     char_ht = char_height(canvas_font);
  286.       initialize_char_handler(canvas_win, finish_text_input,
  287.                   base_x, base_y);
  288.       draw_char_string();
  289. ***************
  290. *** 316,322 ****
  291.       text->font = work_font;    /* put in current font number */
  292.       text->fontstruct = work_fontstruct;
  293.       text->size = work_fontsize;
  294. !     text->angle = work_angle/180.0*M_PI;    /* convert to radians */
  295.       text->flags = cur_textflags;
  296.       text->color = cur_color;
  297.       text->depth = cur_depth;
  298. --- 301,307 ----
  299.       text->font = work_font;    /* put in current font number */
  300.       text->fontstruct = work_fontstruct;
  301.       text->size = work_fontsize;
  302. !     text->angle = work_angle;
  303.       text->flags = cur_textflags;
  304.       text->color = cur_color;
  305.       text->depth = cur_depth;
  306. ***************
  307. *** 359,365 ****
  308.       if (where_p >= len_p)
  309.       return (len_c);        /* entire string is the prefix */
  310.   
  311. !     char_wid = rot_char_width(canvas_font);
  312.       where_c = where_p / char_wid;    /* estimated char position */
  313.       size = pf_textwidth(canvas_font, where_c, string);
  314.       l = size.x;            /* actual length (pixels) of string of
  315. --- 344,350 ----
  316.       if (where_p >= len_p)
  317.       return (len_c);        /* entire string is the prefix */
  318.   
  319. !     char_wid = char_width(canvas_font);
  320.       where_c = where_p / char_wid;    /* estimated char position */
  321.       size = pf_textwidth(canvas_font, where_c, string);
  322.       l = size.x;            /* actual length (pixels) of string of
  323. ***************
  324. *** 366,372 ****
  325.                    * where_c chars */
  326.       if (l < where_p) {
  327.       do {            /* add the width of next char to l */
  328. !         l += (char_wid = rot_char_advance(canvas_font, 
  329.                   (unsigned char) string[where_c++]));
  330.       } while (l < where_p);
  331.       if (l - (char_wid >> 1) >= where_p)
  332. --- 351,357 ----
  333.                    * where_c chars */
  334.       if (l < where_p) {
  335.       do {            /* add the width of next char to l */
  336. !         l += (char_wid = char_advance(canvas_font, 
  337.                   (unsigned char) string[where_c++]));
  338.       } while (l < where_p);
  339.       if (l - (char_wid >> 1) >= where_p)
  340. ***************
  341. *** 373,382 ****
  342.           where_c--;
  343.       } else if (l > where_p) {
  344.       do {            /* subtract the width of last char from l */
  345. !         l -= (char_wid = rot_char_advance(canvas_font, 
  346.                   (unsigned char) string[--where_c]));
  347.       } while (l > where_p);
  348. !     if (l + (char_wid >> 1) >= where_p)
  349.           where_c++;
  350.       }
  351.       if (where_c < 0) {
  352. --- 358,367 ----
  353.           where_c--;
  354.       } else if (l > where_p) {
  355.       do {            /* subtract the width of last char from l */
  356. !         l -= (char_wid = char_advance(canvas_font, 
  357.                   (unsigned char) string[--where_c]));
  358.       } while (l > where_p);
  359. !     if (l + (char_wid >> 1) <= where_p)
  360.           where_c++;
  361.       }
  362.       if (where_c < 0) {
  363. ***************
  364. *** 383,388 ****
  365. --- 368,375 ----
  366.       fprintf(stderr, "xfig file %s line %d: Error in prefix_length - adjusted\n", __FILE__, __LINE__);
  367.       where_c = 0;
  368.       }
  369. +     if ( where_c > len_c ) 
  370. +     return (len_c);
  371.       return (where_c);
  372.   }
  373.   
  374. ***************
  375. *** 405,422 ****
  376.   draw_cursor(x, y)
  377.       int            x, y;
  378.   {
  379. !     if (work_angle < 90.0 - 0.001)        /* 0-89 degrees */
  380. !         pw_vector(pw, x, y, x, y-ch_height, INV_PAINT, 1, RUBBER_LINE, 0.0,
  381. !         DEFAULT_COLOR);
  382. !     else if (work_angle < 180.0 - 0.001)    /* 90-179 degrees */
  383. !         pw_vector(pw, x-ch_height, y, x, y, INV_PAINT, 1, RUBBER_LINE, 0.0,
  384. !         DEFAULT_COLOR);
  385. !     else if (work_angle < 270.0 - 0.001)    /* 180-269 degrees */
  386. !         pw_vector(pw, x, y+ch_height, x, y, INV_PAINT, 1, RUBBER_LINE, 0.0,
  387. !         DEFAULT_COLOR);
  388. !     else                /* 270-359 degrees */
  389. !         pw_vector(pw, x, y, x+ch_height, y, INV_PAINT, 1, RUBBER_LINE, 0.0,
  390. !         DEFAULT_COLOR);
  391.   }
  392.   
  393.   static int
  394. --- 392,401 ----
  395.   draw_cursor(x, y)
  396.       int            x, y;
  397.   {
  398. !     pw_vector(pw, x, y, 
  399. !         round(x-ch_height*sin_t),
  400. !         round(y-ch_height*cos_t),
  401. !         INV_PAINT, 1, RUBBER_LINE, 0.0, DEFAULT_COLOR);
  402.   }
  403.   
  404.   static int
  405. ***************
  406. *** 432,438 ****
  407.       rcur_x = cur_x;
  408.       rcur_y = cur_y;
  409.   
  410. !     ch_height = rot_char_height(canvas_font);
  411.       turn_on_blinking_cursor(draw_cursor, draw_cursor,
  412.                   cur_x, cur_y, (long) BLINK_INTERVAL);
  413.   }
  414. --- 411,417 ----
  415.       rcur_x = cur_x;
  416.       rcur_y = cur_y;
  417.   
  418. !     ch_height = canvas_font->max_bounds.ascent;
  419.       turn_on_blinking_cursor(draw_cursor, draw_cursor,
  420.                   cur_x, cur_y, (long) BLINK_INTERVAL);
  421.   }
  422. ***************
  423. *** 454,463 ****
  424.   erase_char_string()
  425.   {
  426.       pw_text(pw, cbase_x, cbase_y, INV_PAINT, canvas_zoomed_font, 
  427. !         prefix, DEFAULT_COLOR);
  428.       if (leng_suffix)
  429.       pw_text(pw, cur_x, cur_y, INV_PAINT, canvas_zoomed_font, 
  430. !         suffix, DEFAULT_COLOR);
  431.   }
  432.   
  433.   static int
  434. --- 433,442 ----
  435.   erase_char_string()
  436.   {
  437.       pw_text(pw, cbase_x, cbase_y, INV_PAINT, canvas_zoomed_font, 
  438. !         work_angle, prefix, DEFAULT_COLOR);
  439.       if (leng_suffix)
  440.       pw_text(pw, cur_x, cur_y, INV_PAINT, canvas_zoomed_font, 
  441. !         work_angle, suffix, DEFAULT_COLOR);
  442.   }
  443.   
  444.   static int
  445. ***************
  446. *** 464,473 ****
  447.   draw_char_string()
  448.   {
  449.       pw_text(pw, cbase_x, cbase_y, INV_PAINT, canvas_zoomed_font, 
  450. !         prefix, DEFAULT_COLOR);
  451.       if (leng_suffix)
  452.       pw_text(pw, cur_x, cur_y, INV_PAINT, canvas_zoomed_font, 
  453. !         suffix, DEFAULT_COLOR);
  454.       move_blinking_cursor(cur_x, cur_y);
  455.   }
  456.   
  457. --- 443,452 ----
  458.   draw_char_string()
  459.   {
  460.       pw_text(pw, cbase_x, cbase_y, INV_PAINT, canvas_zoomed_font, 
  461. !         work_angle, prefix, DEFAULT_COLOR);
  462.       if (leng_suffix)
  463.       pw_text(pw, cur_x, cur_y, INV_PAINT, canvas_zoomed_font, 
  464. !         work_angle, suffix, DEFAULT_COLOR);
  465.       move_blinking_cursor(cur_x, cur_y);
  466.   }
  467.   
  468. ***************
  469. *** 476,482 ****
  470.   {
  471.       if (leng_suffix)
  472.       pw_text(pw, cur_x, cur_y, PAINT, canvas_zoomed_font, 
  473. !         suffix, DEFAULT_COLOR);
  474.   }
  475.   
  476.   static int
  477. --- 455,461 ----
  478.   {
  479.       if (leng_suffix)
  480.       pw_text(pw, cur_x, cur_y, PAINT, canvas_zoomed_font, 
  481. !         work_angle, suffix, DEFAULT_COLOR);
  482.   }
  483.   
  484.   static int
  485. ***************
  486. *** 484,490 ****
  487.   {
  488.       if (leng_suffix)
  489.       pw_text(pw, cur_x, cur_y, INV_PAINT, canvas_zoomed_font, 
  490. !         suffix, DEFAULT_COLOR);
  491.   }
  492.   
  493.   static int
  494. --- 463,469 ----
  495.   {
  496.       if (leng_suffix)
  497.       pw_text(pw, cur_x, cur_y, INV_PAINT, canvas_zoomed_font, 
  498. !         work_angle, suffix, DEFAULT_COLOR);
  499.   }
  500.   
  501.   static int
  502. ***************
  503. *** 495,501 ****
  504.       s[0]=c;
  505.       s[1]='\0';
  506.       pw_text(pw, cur_x, cur_y, INV_PAINT, canvas_zoomed_font, 
  507. !         s, DEFAULT_COLOR);
  508.   }
  509.   
  510.   char_handler(c)
  511. --- 474,480 ----
  512.       s[0]=c;
  513.       s[1]='\0';
  514.       pw_text(pw, cur_x, cur_y, INV_PAINT, canvas_zoomed_font, 
  515. !         work_angle, s, DEFAULT_COLOR);
  516.   }
  517.   
  518.   char_handler(c)
  519. ***************
  520. *** 502,507 ****
  521. --- 481,488 ----
  522.       unsigned char   c;
  523.   {
  524.       float        cwidth, cw2;
  525. +     float        cwsin, cwcos;
  526. +     float        cw2sin, cw2cos;
  527.   
  528.       if (cr_proc == NULL)
  529.       return;
  530. ***************
  531. *** 511,562 ****
  532.       } else if (c == DEL || c == CTRL_H) {
  533.       if (leng_prefix > 0) {
  534.           erase_char_string();
  535. !         cwidth = (float) rot_char_advance(canvas_font, 
  536.               (unsigned char) prefix[leng_prefix - 1]);
  537.           cw2 = cwidth/2.0;
  538.           /* correct text/cursor posn for justification and zoom factor */
  539.           switch (work_textjust) {
  540.           case T_LEFT_JUSTIFIED:
  541. !         if (work_angle < 90.0 - 0.001)
  542. !             rcur_x -= cwidth;           /* 0-89 deg, move the suffix left */
  543. !         else if (work_angle < 180.0 - 0.001) 
  544. !             rcur_y += cwidth;           /* 90-179 deg, move suffix down */
  545. !         else if (work_angle < 270.0 - 0.001) 
  546. !             rcur_x += cwidth;           /* 180-269 deg, move suffix right */
  547. !         else 
  548. !             rcur_y -= cwidth;           /* 270-359 deg, move suffix up */
  549.           break;
  550.           case T_CENTER_JUSTIFIED:
  551. !         if (work_angle < 90.0 - 0.001) { 
  552. !             rbase_x += cw2;    /* 0-89 deg, move base right cw/2 */
  553. !             rcur_x -= cw2;    /* move suffix left by cw/2 */
  554. !         } else if (work_angle < 180.0 - 0.001) { 
  555. !             rbase_y -= cw2;    /* 90-179 deg, move base up cw/2 */
  556. !             rcur_y += cw2;    /* move suffix down cw/2 */
  557. !         } else if (work_angle < 270.0 - 0.001) {
  558. !             rbase_x -= cw2;    /* 180-269 deg, move base left cw/2 */
  559. !             rcur_x += cw2;    /* move suffix right cw/2 */
  560. !         } else {                      
  561. !             rbase_y += cw2;    /* 270-359 deg, move base down cw/2 */
  562. !             rcur_y -= cw2;    /* move suffix up cw/2 */
  563. !         }
  564.           break;
  565.           case T_RIGHT_JUSTIFIED:
  566. !         if (work_angle < 90.0 - 0.001) 
  567. !             rbase_x += cwidth;           /* 0-89 deg, move the prefix right */
  568. !         else if (work_angle < 180.0 - 0.001)
  569. !             rbase_y -= cwidth;           /* 90-179 deg, move prefix up */
  570. !         else if (work_angle < 270.0 - 0.001)
  571. !             rbase_x -= cwidth;           /* 180-269 deg, move prefix left */
  572. !         else
  573. !             rbase_y += cwidth;           /* 270-359 deg, move prefix down */
  574.           break;
  575.           }
  576.           prefix[--leng_prefix] = '\0';
  577. !         cbase_x = rbase_x;    /* fix */
  578. !         cbase_y = rbase_y;
  579. !         cur_x = rcur_x;
  580. !         cur_y = rcur_y;
  581.           draw_char_string();
  582.       }
  583.       } else if (c == CTRL_X) {
  584. --- 492,527 ----
  585.       } else if (c == DEL || c == CTRL_H) {
  586.       if (leng_prefix > 0) {
  587.           erase_char_string();
  588. !         cwidth = (float) char_advance(canvas_font, 
  589.               (unsigned char) prefix[leng_prefix - 1]);
  590.           cw2 = cwidth/2.0;
  591. +         cwsin = cwidth*sin_t;
  592. +         cwcos = cwidth*cos_t;
  593. +         cw2sin = cw2*sin_t;
  594. +         cw2cos = cw2*cos_t;
  595. + 
  596.           /* correct text/cursor posn for justification and zoom factor */
  597.           switch (work_textjust) {
  598.           case T_LEFT_JUSTIFIED:
  599. !         rcur_x -= cwcos;
  600. !         rcur_y += cwsin;
  601.           break;
  602.           case T_CENTER_JUSTIFIED:
  603. !         rbase_x += cw2cos;
  604. !         rbase_y -= cw2sin;
  605. !         rcur_x -= cw2cos;
  606. !         rcur_y += cw2sin;
  607.           break;
  608.           case T_RIGHT_JUSTIFIED:
  609. !         rbase_x += cwcos;
  610. !         rbase_y -= cwsin;
  611.           break;
  612.           }
  613.           prefix[--leng_prefix] = '\0';
  614. !         cbase_x = round(rbase_x);
  615. !         cbase_y = round(rbase_y);
  616. !         cur_x = round(rcur_x);
  617. !         cur_y = round(rcur_y);
  618.           draw_char_string();
  619.       }
  620.       } else if (c == CTRL_X) {
  621. ***************
  622. *** 564,592 ****
  623.           erase_char_string();
  624.           switch (work_textjust) {
  625.           case T_CENTER_JUSTIFIED:
  626. !         while (leng_prefix--)    /* subtract char width/2 per char */
  627. !             if (work_angle < 90.0 - 0.001)    /* 0-89 degrees */
  628. !             rcur_x -= rot_char_advance(canvas_font, 
  629. !                 (unsigned char) prefix[leng_prefix]) / 2.0;
  630. !         else if (work_angle < 180.0 - 0.001)     /* 90-179 degrees */
  631. !             rcur_y += rot_char_advance(canvas_font, 
  632. !                 (unsigned char) prefix[leng_prefix]) / 2.0;
  633. !         else if (work_angle < 270.0 - 0.001)     /* 180-269 degrees */
  634. !             rcur_x += rot_char_advance(canvas_font, 
  635. !                 (unsigned char) prefix[leng_prefix]) / 2.0;
  636. !         else                     /* 270-359 degrees */
  637. !             rcur_y -= rot_char_advance(canvas_font, 
  638. !                 (unsigned char) prefix[leng_prefix]) / 2.0;
  639. !         cur_x = cbase_x = rbase_x = rcur_x;
  640. !         cur_y = cbase_y = rbase_y = rcur_y;
  641.           break;
  642.           case T_RIGHT_JUSTIFIED:
  643. !         cbase_x = rbase_x = cur_x = rcur_x;
  644. !         cbase_y = rbase_y = cur_y = rcur_y;
  645.           break;
  646.           case T_LEFT_JUSTIFIED:
  647. !         cur_x = rcur_x = cbase_x = rbase_x;
  648. !         cur_y = rcur_y = cbase_y = rbase_y;
  649.           break;
  650.           }
  651.           leng_prefix = 0;
  652. --- 529,556 ----
  653.           erase_char_string();
  654.           switch (work_textjust) {
  655.           case T_CENTER_JUSTIFIED:
  656. !         while (leng_prefix--) {    /* subtract char width/2 per char */
  657. !             rcur_x -= cos_t*char_advance(canvas_font,
  658. !                     (unsigned char) prefix[leng_prefix]) / 2.0;
  659. !             rcur_y += sin_t*char_advance(canvas_font,
  660. !                     (unsigned char) prefix[leng_prefix]) / 2.0;
  661. !         }
  662. !         rbase_x = rcur_x;
  663. !         cur_x = cbase_x = round(rbase_x);
  664. !         rbase_y = rcur_y;
  665. !         cur_y = cbase_y = round(rbase_y);
  666.           break;
  667.           case T_RIGHT_JUSTIFIED:
  668. !         rbase_x = rcur_x;
  669. !         cbase_x = cur_x = round(rbase_x);
  670. !         rbase_y = rcur_y;
  671. !         cbase_y = cur_y = round(rbase_y);
  672.           break;
  673.           case T_LEFT_JUSTIFIED:
  674. !         rcur_x = rbase_x;
  675. !         cur_x = cbase_x = round(rcur_x);
  676. !         rcur_y = rbase_y;
  677. !         cur_y = cbase_y = round(rcur_y);
  678.           break;
  679.           }
  680.           leng_prefix = 0;
  681. ***************
  682. *** 600,653 ****
  683.   
  684.       /* normal text character */
  685.       } else {    
  686. !     draw_char_string();
  687. !     cwidth = rot_char_advance(canvas_font, (unsigned char) c);
  688.       cw2 = cwidth/2.0;
  689. !     /* correct text/cursor posn for justification and zoom factor */
  690.       switch (work_textjust) {
  691.         case T_LEFT_JUSTIFIED:
  692. !         if (work_angle < 90.0 - 0.001)
  693. !         rcur_x += cwidth;           /* 0-89 deg, move the suffix right */
  694. !         else if (work_angle < 180.0 - 0.001) 
  695. !         rcur_y -= cwidth;           /* 90-179 deg, move suffix up */
  696. !         else if (work_angle < 270.0 - 0.001) 
  697. !         rcur_x -= cwidth;           /* 180-269 deg, move suffix left */
  698. !         else 
  699. !         rcur_y += cwidth;           /* 270-359 deg, move suffix down */
  700.           break;
  701.         case T_CENTER_JUSTIFIED:
  702. !         if (work_angle < 90.0 - 0.001) { 
  703. !         rbase_x -= cw2;    /* 0-89 deg, move base left cw/2 */
  704. !         rcur_x += cw2;    /* move suffix right by cw/2 */
  705. !         } else if (work_angle < 180.0 - 0.001) { 
  706. !         rbase_y += cw2;    /* 90-179 deg, move base down cw/2 */
  707. !         rcur_y -= cw2;    /* move suffix up cw/2 */
  708. !         } else if (work_angle < 270.0 - 0.001) {
  709. !         rbase_x += cw2;    /* 180-269 deg, move base right cw/2 */
  710. !         rcur_x -= cw2;    /* move suffix left cw/2 */
  711. !         } else {                      
  712. !         rbase_y -= cw2;    /* 270-359 deg, move base up cw/2 */
  713. !         rcur_y += cw2;    /* move suffix down cw/2 */
  714. !         }
  715.           break;
  716.         case T_RIGHT_JUSTIFIED:
  717. !         if (work_angle < 90.0 - 0.001) 
  718. !         rbase_x -= cwidth;           /* 0-89 deg, move the prefix left */
  719. !         else if (work_angle < 180.0 - 0.001)
  720. !         rbase_y += cwidth;           /* 90-179 deg, move prefix down */
  721. !         else if (work_angle < 270.0 - 0.001)
  722. !         rbase_x += cwidth;           /* 180-269 deg, move prefix right */
  723. !         else
  724. !         rbase_y -= cwidth;           /* 270-359 deg, move prefix up */
  725.           break;
  726.       }
  727.       prefix[leng_prefix++] = c;
  728.       prefix[leng_prefix] = '\0';
  729. !     cbase_x = rbase_x;
  730. !     cbase_y = rbase_y;
  731. !     cur_x = rcur_x;
  732. !     cur_y = rcur_y;
  733. !     draw_char_string();
  734.       }
  735.   }
  736.   
  737. --- 564,601 ----
  738.   
  739.       /* normal text character */
  740.       } else {    
  741. !     draw_char_string();    /* erase current string */
  742. ! 
  743. !     cwidth = char_advance(canvas_font, (unsigned char) c);
  744. !     cwsin = cwidth*sin_t;
  745. !     cwcos = cwidth*cos_t;
  746.       cw2 = cwidth/2.0;
  747. !     cw2sin = cw2*sin_t;
  748. !     cw2cos = cw2*cos_t;
  749. !     /* correct text/cursor posn for justification and rotation */
  750.       switch (work_textjust) {
  751.         case T_LEFT_JUSTIFIED:
  752. !         rcur_x += cwcos;
  753. !         rcur_y -= cwsin;
  754.           break;
  755.         case T_CENTER_JUSTIFIED:
  756. !         rbase_x -= cw2cos;
  757. !         rbase_y += cw2sin;
  758. !         rcur_x += cw2cos;
  759. !         rcur_y -= cw2sin;
  760.           break;
  761.         case T_RIGHT_JUSTIFIED:
  762. !         rbase_x -= cwcos;
  763. !         rbase_y += cwsin;
  764.           break;
  765.       }
  766.       prefix[leng_prefix++] = c;
  767.       prefix[leng_prefix] = '\0';
  768. !     cbase_x = round(rbase_x);
  769. !     cbase_y = round(rbase_y);
  770. !     cur_x = round(rcur_x);
  771. !     cur_y = round(rcur_y);
  772. !     draw_char_string();    /* draw new string */
  773.       }
  774.   }
  775.   
  776. ***************
  777. *** 737,742 ****
  778. --- 685,695 ----
  779.       cursor_is_moving = 0;
  780.   }
  781.   
  782. + /*
  783. +  * Reload the font structure for all texts, the saved texts and the 
  784. +    current work_fontstruct.
  785. +  */
  786. + 
  787.   reload_text_fstructs()
  788.   {
  789.       F_text       *t;
  790. ***************
  791. *** 743,751 ****
  792. --- 696,708 ----
  793.   
  794.       /* reload the compound objects' texts */
  795.       reload_compoundfont(objects.compounds);
  796. +     reload_compoundfont(saved_objects.compounds);
  797.       /* and the separate texts */
  798.       for (t=objects.texts; t != NULL; t = t->next)
  799.       reload_text_fstruct(t);
  800. +     /* also for the saved texts */
  801. +     for (t=saved_objects.texts; t != NULL; t = t->next)
  802. +     reload_text_fstruct(t);
  803.   }
  804.   
  805.   /*
  806. ***************
  807. *** 769,773 ****
  808.       F_text       *t;
  809.   {
  810.       t->fontstruct = lookfont(x_fontnum(t->flags, t->font), 
  811. !             round(t->size*zoomscale), t->angle);
  812.   }
  813. --- 726,730 ----
  814.       F_text       *t;
  815.   {
  816.       t->fontstruct = lookfont(x_fontnum(t->flags, t->font), 
  817. !             round(t->size*zoomscale));
  818.   }
  819. diff -rc xfig.2.1.7a/e_align.c xfig.2.1.8/e_align.c
  820. *** xfig.2.1.7a/e_align.c    Tue Jan  5 11:41:05 1993
  821. --- xfig.2.1.8/e_align.c    Fri Jul  2 11:08:20 1993
  822. ***************
  823. *** 184,190 ****
  824.   
  825.       for (t = cur_c->texts; t != NULL; t = t->next) {
  826.       int   dum;
  827. !     text_bound_actual(t, t->angle, &llx, &lly, &urx, &ury,
  828.              &dum,&dum,&dum,&dum,&dum,&dum,&dum,&dum);
  829.       get_dx_dy();
  830.       translate_text(t, dx, dy);
  831. --- 184,190 ----
  832.   
  833.       for (t = cur_c->texts; t != NULL; t = t->next) {
  834.       int   dum;
  835. !     text_bound(t, &llx, &lly, &urx, &ury,
  836.              &dum,&dum,&dum,&dum,&dum,&dum,&dum,&dum);
  837.       get_dx_dy();
  838.       translate_text(t, dx, dy);
  839. ***************
  840. *** 195,224 ****
  841.   get_dx_dy()
  842.   {
  843.       switch (cur_valign) {
  844. !     case NONE:
  845.       dy = 0;
  846.       break;
  847. !     case TOP:
  848.       dy = ycmin - lly;
  849.       break;
  850. !     case BOTTOM:
  851.       dy = ycmax - ury;
  852.       break;
  853. !     case CENTER:
  854.       dy = (ycmin - lly) + (abs(ycmin - lly) + abs(ycmax - ury)) / 2;
  855.       break;
  856.       }
  857.       switch (cur_halign) {
  858. !     case NONE:
  859.       dx = 0;
  860.       break;
  861. !     case LEFT:
  862.       dx = xcmin - llx;
  863.       break;
  864. !     case RIGHT:
  865.       dx = xcmax - urx;
  866.       break;
  867. !     case CENTER:
  868.       dx = (xcmin - llx) + (abs(xcmin - llx) + abs(xcmax - urx)) / 2;
  869.       break;
  870.       }
  871. --- 195,224 ----
  872.   get_dx_dy()
  873.   {
  874.       switch (cur_valign) {
  875. !     case ALIGN_NONE:
  876.       dy = 0;
  877.       break;
  878. !     case ALIGN_TOP:
  879.       dy = ycmin - lly;
  880.       break;
  881. !     case ALIGN_BOTTOM:
  882.       dy = ycmax - ury;
  883.       break;
  884. !     case ALIGN_CENTER:
  885.       dy = (ycmin - lly) + (abs(ycmin - lly) + abs(ycmax - ury)) / 2;
  886.       break;
  887.       }
  888.       switch (cur_halign) {
  889. !     case ALIGN_NONE:
  890.       dx = 0;
  891.       break;
  892. !     case ALIGN_LEFT:
  893.       dx = xcmin - llx;
  894.       break;
  895. !     case ALIGN_RIGHT:
  896.       dx = xcmax - urx;
  897.       break;
  898. !     case ALIGN_CENTER:
  899.       dx = (xcmin - llx) + (abs(xcmin - llx) + abs(xcmax - urx)) / 2;
  900.       break;
  901.       }
  902. diff -rc xfig.2.1.7a/e_copy.c xfig.2.1.8/e_copy.c
  903. *** xfig.2.1.7a/e_copy.c    Wed Dec  9 15:42:43 1992
  904. --- xfig.2.1.8/e_copy.c    Wed Jul  7 14:58:53 1993
  905. ***************
  906. *** 181,186 ****
  907.       fclose(fp);
  908.       return;
  909.       }
  910. !     put_msg("Object copied to scrap");
  911.       fclose(fp);
  912.   }
  913. --- 181,186 ----
  914.       fclose(fp);
  915.       return;
  916.       }
  917. !     put_msg("Object copied to scrapfile %s",cut_buf_name);
  918.       fclose(fp);
  919.   }
  920. diff -rc xfig.2.1.7a/e_delete.c xfig.2.1.8/e_delete.c
  921. *** xfig.2.1.7a/e_delete.c    Wed Dec  9 15:42:50 1992
  922. --- xfig.2.1.8/e_delete.c    Wed Jul  7 14:59:28 1993
  923. ***************
  924. *** 222,228 ****
  925.       fclose(fp);
  926.       return;
  927.       }
  928. !     put_msg("Object deleted to scrap");
  929.       fclose(fp);
  930.   }
  931.   
  932. --- 222,228 ----
  933.       fclose(fp);
  934.       return;
  935.       }
  936. !     put_msg("Object deleted to scrapfile %s",cut_buf_name);
  937.       fclose(fp);
  938.   }
  939.   
  940. diff -rc xfig.2.1.7a/e_edit.c xfig.2.1.8/e_edit.c
  941. *** xfig.2.1.7a/e_edit.c    Wed Feb  3 13:31:40 1993
  942. --- xfig.2.1.8/e_edit.c    Tue Aug 31 14:18:09 1993
  943. ***************
  944. *** 29,35 ****
  945.   #include "w_mousefun.h"
  946.   
  947.   extern char    *panel_get_value();
  948. ! extern PIX_ROT_FONT lookfont();
  949.   Widget        make_popup_menu();
  950.   static Widget    make_color_popup_menu();
  951.   
  952. --- 29,35 ----
  953.   #include "w_mousefun.h"
  954.   
  955.   extern char    *panel_get_value();
  956. ! extern PIX_FONT lookfont();
  957.   Widget        make_popup_menu();
  958.   static Widget    make_color_popup_menu();
  959.   
  960. ***************
  961. *** 343,350 ****
  962.       XButtonEvent   *ev;
  963.   {
  964.       struct f_point  p1, p2;
  965. !     int            dx, dy, rotation;
  966. !     float        ratio;
  967.       register float  orig_ratio = new_l->eps->hw_ratio;
  968.   
  969.       p1.x = atoi(panel_get_value(x1_panel));
  970. --- 343,349 ----
  971.       XButtonEvent   *ev;
  972.   {
  973.       struct f_point  p1, p2;
  974. !     int            dx, dy;
  975.       register float  orig_ratio = new_l->eps->hw_ratio;
  976.   
  977.       p1.x = atoi(panel_get_value(x1_panel));
  978. ***************
  979. *** 380,388 ****
  980.       new_c = copy_compound(c);
  981.       new_c->next = c;
  982.       generic_window("COMPOUND", "", &glue_ic, done_compound, 0, 0);
  983. !     f_pos_panel(&c->nwcorner, "Top Left Corner:", &x1_panel, &y1_panel);
  984. !     f_pos_panel(&c->secorner, "Bottom Right Corner:", &x2_panel, &y2_panel);
  985. !     int_label(object_count(c), "Num Objects: ", &num_objects);
  986.   }
  987.   
  988.   static
  989. --- 379,387 ----
  990.       new_c = copy_compound(c);
  991.       new_c->next = c;
  992.       generic_window("COMPOUND", "", &glue_ic, done_compound, 0, 0);
  993. !     f_pos_panel(&c->nwcorner, "Top Left Corner", &x1_panel, &y1_panel);
  994. !     f_pos_panel(&c->secorner, "Bottom Right Corner", &x2_panel, &y2_panel);
  995. !     int_label(object_count(c), "Num Objects ", &num_objects);
  996.   }
  997.   
  998.   static
  999. ***************
  1000. *** 476,490 ****
  1001.