texlive[42915] Build/source/texk/web2c/mplibdir/mp.w: mplibdir/mp.w:

[commits+kakuto at tug.org]

Revision: 42915
          http://tug.org/svn/texlive?view=revision&revision=42915
Author:   kakuto
Date:     2017-01-09 23:16:37 +0100 (Mon, 09 Jan 2017)
Log Message:
-----------
mplibdir/mp.w: sync with the upstream

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/mplibdir/mp.w

Modified: trunk/Build/source/texk/web2c/mplibdir/mp.w
===================================================================
--- trunk/Build/source/texk/web2c/mplibdir/mp.w	2017-01-09 22:09:20 UTC (rev 42914)
+++ trunk/Build/source/texk/web2c/mplibdir/mp.w	2017-01-09 22:16:37 UTC (rev 42915)
@@ -1,4 +1,4 @@
-% $Id: mp.w 2108 2016-12-21 09:21:34Z luigi $
+% $Id: mp.w 2112 2017-01-09 18:44:19Z luigi $
 %
 % This file is part of MetaPost;
 % the MetaPost program is in the public domain.
@@ -3663,6 +3663,7 @@
 mp_arc_time_of, /* operation code for \.{arctime} */
 mp_version, /* operation code for \.{mpversion} */
 mp_envelope_of, /* operation code for \.{envelope} */
+mp_boundingpath_of, /* operation code for \.{boundingpath} */
 mp_glyph_infont, /* operation code for \.{glyph} */
 mp_kern_flag /* operation code for \.{kern} */
 
@@ -3975,6 +3976,9 @@
     case mp_envelope_of:
       mp_print (mp, "envelope");
       break;
+    case mp_boundingpath_of:
+      mp_print (mp, "boundingpath");
+      break;
     case mp_glyph_infont:
       mp_print (mp, "glyph");
       break;
@@ -25263,8 +25267,10 @@
 @:intersection_times_}{\&{intersectiontimes} primitive@>;
 mp_primitive (mp, "envelope", mp_primary_binary, mp_envelope_of);
 @:envelope_}{\&{envelope} primitive@>;
+mp_primitive (mp, "boundingpath", mp_primary_binary, mp_boundingpath_of);
+@:boundingpath_}{\&{boundingpath} primitive@>;
 mp_primitive (mp, "glyph", mp_primary_binary, mp_glyph_infont);
-@:glyph_infont_}{\&{envelope} primitive@>
+@:glyph_infont_}{\&{glyph} primitive@>
 
 
 @ @<Cases of |print_cmd...@>=
@@ -27646,6 +27652,12 @@
     else
       mp_set_up_envelope (mp, p);
     break;
+  case mp_boundingpath_of:
+    if ((mp_type (p) != mp_pen_type) || (mp->cur_exp.type != mp_path_type))
+      mp_bad_binary (mp, p, mp_boundingpath_of);
+    else
+      mp_set_up_boundingpath (mp, p);
+    break;
   case mp_glyph_infont:
     if ((mp_type (p) != mp_string_type &&
          mp_type (p) != mp_known) || (mp->cur_exp.type != mp_string_type))
@@ -29145,8 +29157,99 @@
                     (mp, q, value_knot (p), ljoin, lcap, miterlim));
   mp->cur_exp.type = mp_path_type;
 }
+static void mp_set_up_boundingpath (MP mp, mp_node p) {
+  unsigned char ljoin, lcap;
+  mp_number miterlim;
+  mp_knot q = mp_copy_path (mp, cur_exp_knot ());       /* the original path */
+  mp_knot qq;
+  new_number(miterlim);
+  /* TODO: accept elliptical pens for straight paths */
+  if (pen_is_elliptical (value_knot (p))) {
+    mp_bad_envelope_pen (mp);
+    set_cur_exp_knot (q);
+    mp->cur_exp.type = mp_path_type;
+    return;
+  }
+  if (number_greater (internal_value (mp_linejoin), unity_t))
+    ljoin = 2;
+  else if (number_positive (internal_value (mp_linejoin)))
+    ljoin = 1;
+  else
+    ljoin = 0;
+  if (number_greater (internal_value (mp_linecap), unity_t))
+    lcap = 2;
+  else if (number_positive (internal_value (mp_linecap)))
+    lcap = 1;
+  else
+    lcap = 0;
+  if (number_less (internal_value (mp_miterlimit), unity_t))
+    set_number_to_unity(miterlim);
+  else
+    number_clone(miterlim, internal_value (mp_miterlimit));
+  qq = mp_make_envelope(mp, q, value_knot (p), ljoin, lcap, miterlim);
+  set_cur_exp_knot (qq);
+  mp->cur_exp.type = mp_path_type;
+  if (!mp_get_cur_bbox (mp)) {
+      mp_bad_binary (mp, p, mp_boundingpath_of);
+      set_cur_exp_knot (q);
+      mp->cur_exp.type = mp_path_type;
+      mp_free_path(mp,qq);
+      return;
+  }
+  else {
+      mp_knot ll,lr,ur,ul;
+      ll = mp_new_knot (mp);
+      lr = mp_new_knot (mp);
+      ur = mp_new_knot (mp);
+      ul = mp_new_knot (mp);
+      if (ll==NULL || lr==NULL || ur==NULL || ul==NULL){
+        mp_bad_binary (mp, p, mp_boundingpath_of);
+        set_cur_exp_knot (q);
+        mp->cur_exp.type = mp_path_type;
+        mp_free_path(mp,qq);
+        return;
+      }
+      mp_left_type (ll) = mp_endpoint;
+      mp_right_type (ll) = mp_endpoint;
+      mp_originator (ll) = mp_program_code;
+      number_clone(ll->x_coord,mp_minx);
+      number_clone(ll->y_coord,mp_miny);
 
+      mp_originator (lr) = mp_program_code;
+      number_clone(lr->x_coord,mp_maxx);
+      number_clone(lr->y_coord,mp_miny);
 
+      mp_originator (ur) = mp_program_code;
+      number_clone(ur->x_coord,mp_maxx);
+      number_clone(ur->y_coord,mp_maxy);
+
+      mp_originator (ul) = mp_program_code;
+      number_clone(ul->x_coord,mp_minx);
+      number_clone(ul->y_coord,mp_maxy);
+
+      mp_next_knot (ll) = lr;
+      mp_next_knot (lr) = ur;
+      mp_next_knot (ur) = ul;
+
+/*
+      ll = mp_create_knot(mp);
+      mp_set_knot(mp,ll,number_to_double(mp_minx), number_to_double(mp_miny));
+      lr = mp_append_knot(mp,ll,number_to_double(mp_maxx), number_to_double(mp_miny));      
+      ur = mp_append_knot(mp,lr,number_to_double(mp_maxx), number_to_double(mp_maxy));
+      ul = mp_append_knot(mp,ur,number_to_double(mp_minx), number_to_double(mp_maxy));
+*/
+      mp_close_path_cycle (mp, ul, ll);
+      mp_make_path(mp,ll);
+      mp->cur_exp.type = mp_path_type;
+      set_cur_exp_knot(ll);
+      mp_free_path(mp,qq);
+
+  }
+}
+
+
+
+
 @ This is pretty straightfoward. The one silly thing is that
 the output of |mp_ps_do_font_charstring| has to be un-exported.