update

devel/80_8.tmu

@@ -1,29 +1,38 @@
-<TeXmacs|2.1.2>
+<TMU|<tuple|1.0.5|1.2.9.5>>
 
-<style|<tuple|generic|old-spacing|old-dots|old-lengths>>
+<style|<tuple|generic|chinese>>
 
 <\body>
-  <\equation*>
-    <tabular*|<tformat|<table|<row|<cell|A\<longleftarrow\>B\<leftarrow\>C>|<cell|>|<cell|A\<rightarrow\>B\<longrightarrow\>C>|<cell|>|<cell|A\<leftrightarrow\>B>|<cell|>|<cell|A-B>>|<row|<cell|A\<longmapsfrom\>B\<mapsfrom\>C>|<cell|>|<cell|A\<mapsto\>B\<longmapsto\>C>|<cell|>|<cell|A\<longleftrightarrow\>B>|<cell|>|<cell|A\<longminus\>B>>|<row|<cell|A\<longtwoheadleftarrow\>B\<twoheadleftarrow\>C>|<cell|>|<cell|A\<twoheadrightarrow\>B\<longtwoheadrightarrow\>C>|<cell|>|<cell|A\<Leftrightarrow\>B>|<cell|>|<cell|A=B>>|<row|<cell|A\<Longleftarrow\>B\<Leftarrow\>C>|<cell|>|<cell|A\<Rightarrow\>B\<Longrightarrow\>C>|<cell|>|<cell|A\<Longleftrightarrow\>B>|<cell|>|<cell|A\<longequal\>B>>|<row|<cell|A\<longleftharpoonup\>B\<leftharpoonup\>C>|<cell|>|<cell|A\<rightharpoonup\>B\<longrightharpoonup\>C>|<cell|>|<cell|A\<rightleftarrows\>B>|<cell|>|<cell|A\<leftrightarrows\>B>>|<row|<cell|A\<longleftharpoondown\>B\<leftharpoondown\>C>|<cell|>|<cell|A\<rightharpoondown\>B\<longrightharpoondown\>C>|<cell|>|<cell|A\<longrightleftarrows\>B>|<cell|>|<cell|A\<longleftrightarrows\>B>>|<row|<cell|A\<longhookleftarrow\>B\<hookleftarrow\>C>|<cell|>|<cell|A\<hookrightarrow\>B\<longhookrightarrow\>C>|<cell|>|<cell|A\<rightleftharpoons\>B>|<cell|>|<cell|A\<leftrightharpoons\>B>>|<row|<cell|A\<longmapmulti\>B\<mapmulti\>C>|<cell|>|<cell|A\<multimap\>B\<longmultimap\>C>|<cell|>|<cell|A\<longrightleftharpoons\>B>|<cell|>|<cell|A\<longleftrightharpoons\>B>>>>>
-  </equation*>
+  Asana Math:
 
-  <\equation*>
-    <tabular*|<tformat|<table|<row|<cell|X<long-arrow|\<rubber-leftarrow\>|a+b+c+d>Y>|<cell|>|<cell|X<long-arrow|\<rubber-rightarrow\>|a+b+c+d>Y>|<cell|>|<cell|X<long-arrow|\<rubber-leftrightarrow\>|a+b+c+d>Y>>|<row|<cell|X<long-arrow|\<rubber-mapsfrom\>|a+b+c+d>Y>|<cell|>|<cell|X<long-arrow|\<rubber-mapsto\>|a+b+c+d>Y>|<cell|>|<cell|>>|<row|<cell|X<long-arrow|\<rubber-twoheadrightarrow\>|a+b+c+d>Y>|<cell|>|<cell|X<long-arrow|\<rubber-twoheadleftarrow\>|a+b+c+d>Y>|<cell|>|<cell|>>|<row|<cell|X<long-arrow|\<rubber-Rightarrow\>|a+b+c+d>Y>|<cell|>|<cell|X<long-arrow|\<rubber-Leftarrow\>|a+b+c+d>Y>|<cell|>|<cell|X<long-arrow|\<rubber-Leftrightarrow\>|a+b+c+d>Y>>|<row|<cell|X<long-arrow|\<rubber-minus\>|a+b+c+d>Y>|<cell|>|<cell|X<long-arrow|\<rubber-equal\>|a+b+c+d>Y>|<cell|>|<cell|>>|<row|<cell|X<long-arrow|\<rubber-leftharpoonup\>|a+b+c+d>Y>|<cell|>|<cell|X<long-arrow|\<rubber-rightharpoonup\>|a+b+c+d>Y>|<cell|>|<cell|X<long-arrow|\<rubber-leftrightharpoons\>|a+b+c+d>Y>>|<row|<cell|X<long-arrow|\<rubber-leftharpoondown\>|a+b+c+d>Y>|<cell|>|<cell|X<long-arrow|\<rubber-rightharpoondown\>|a+b+c+d>Y>|<cell|>|<cell|X<long-arrow|\<rubber-rightleftharpoons\>|a+b+c+d>Y>>|<row|<cell|X<long-arrow|\<rubber-hookleftarrow\>|a+b+c+d>Y>|<cell|>|<cell|X<long-arrow|\<rubber-hookrightarrow\>|a+b+c+d>Y>|<cell|>|<cell|>>|<row|<cell|X<long-arrow|\<rubber-mapmulti\>|a+b+c+d>Y>|<cell|>|<cell|X<long-arrow|\<rubber-multimap\>|a+b+c+d>Y>|<cell|>|<cell|>>>>>
-  </equation*>
+  <with|font|Asana Math|<\equation*>
+    <around*|{|<tabular|<tformat|<table|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>>>>|\<rceil\>><around*|{|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|\<rceil\>><around*|{|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rceil\>><around*|{|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rceil\>>
+  </equation*>>
 
-  \;
+  Fira Math:
 
-  <\equation*>
-    <tabular*|<tformat|<table|<row|<cell|\<upminus\>>|<cell|\<uparrow\>>|<cell|\<downarrow\>>|<cell|\<updownarrow\>>|<cell|>|<cell|\<downequal\>>|<cell|\<Uparrow\>>|<cell|\<Downarrow\>>|<cell|\<Updownarrow\>>|<cell|>|<cell|\<upharpoonleft\>>|<cell|\<downharpoonleft\>>|<cell|\<upharpoonright\>>|<cell|\<downharpoonright\>>|<cell|>|<cell|\<mapsup\>>|<cell|\<mapsdown\>>|<cell|\<hookuparrow\>>|<cell|\<hookdownarrow\>>>|<row|<cell|\<longdownminus\>>|<cell|\<longuparrow\>>|<cell|\<longdownarrow\>>|<cell|\<longupdownarrow\>>|<cell|>|<cell|\<longdownequal\>>|<cell|\<Longuparrow\>>|<cell|\<Longdownarrow\>>|<cell|\<Longupdownarrow\>>|<cell|>|<cell|\<longupharpoonleft\>>|<cell|\<longdownharpoonleft\>>|<cell|\<longupharpoonright\>>|<cell|\<longdownharpoonright\>>|<cell|>|<cell|\<longmapsup\>>|<cell|\<longmapsdown\>>|<cell|\<longhookuparrow\>>|<cell|\<longhookdownarrow\>>>|<row|<cell|<op|\<rubber-upminus-20\>>>|<cell|<op|\<rubber-uparrow-20\>>>|<cell|<op|\<rubber-downarrow-20\>>>|<cell|<op|\<rubber-updownarrow-20\>>>|<cell|>|<cell|<op|\<rubber-upequal-20\>>>|<cell|<op|\<rubber-Uparrow-20\>>>|<cell|<op|\<rubber-Downarrow-20\>>>|<cell|<op|\<rubber-Updownarrow-20\>>>|<cell|>|<cell|<op|\<rubber-upharpoonleft-20\>>>|<cell|<op|\<rubber-downharpoonleft-20\>>>|<cell|<op|\<rubber-upharpoonright-20\>>>|<cell|<op|\<rubber-downharpoonright-20\>>>|<cell|>|<cell|<op|\<rubber-mapsup-20\>>>|<cell|<op|\<rubber-mapsdown-20\>>>|<cell|<op|\<rubber-hookuparrow-20\>>>|<cell|<op|\<rubber-hookdownarrow-20\>>>>>>>
-  </equation*>
+  <\with|font|Fira Math>
+    <\equation*>
+      <around*|{|<tabular|<tformat|<table|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>>>>|\<rceil\>><around*|{|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|\<rceil\>><around*|{|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rceil\>><around*|{|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rceil\>>
+    </equation*>
+  </with>
 
-  \;
+  TeX Gyre Pagella Math:
+
+  <with|font|TeX Gyre Pagella Math|<\equation*>
+    <around*|{|<tabular|<tformat|<table|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>>>>|\<rceil\>><around*|{|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|\<rceil\>><around*|{|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rceil\>><around*|{|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>><with|font|TeX Gyre Pagella Math|>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rceil\>>
+  </equation*>>
+
+  TeX Gype Schola Math:
+
+  <with|font|TeX Gyre Schola Math|<\equation*>
+    <around*|{|<tabular|<tformat|<table|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>>>>|\<rceil\>><around*|{|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>>>>|\<rceil\>><around*|{|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rceil\>><around*|{|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|}><around*|(|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|)><around*|[|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|]><around*|\<lfloor\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rfloor\>><around*|\<lceil\>|<tabular|<tformat|<table|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>|<row|<cell|>>>>>|\<rceil\>>
+  </equation*>>
 </body>
 
 <\initial>
   <\collection>
-    <associate|font|Asana Math>
-    <associate|font-family|rm>
-    <associate|page-type|a5>
+    <associate|page-medium|paper>
+    <associate|page-screen-margin|false>
   </collection>
-</initial>
+</initial>

src/Graphics/Fonts/virtual_font.cpp

@@ -353,6 +353,7 @@ virtual_font_rep::supported (scheme_tree t, bool svg) {
       (is_tuple (t, "bottom-edge") && !svg) ||
       (is_tuple (t, "flood-fill", 3) && !svg) ||
       is_tuple (t, "hor-extend", 3) || is_tuple (t, "hor-extend", 4) ||
+      is_tuple (t, "hor-take", 3) || is_tuple (t, "hor-take", 4) ||
       is_tuple (t, "ver-extend", 3) || is_tuple (t, "ver-extend", 4) ||
       is_tuple (t, "ver-take", 3) || is_tuple (t, "ver-take", 4) ||
       (is_tuple (t, "unserif") && !svg) || is_tuple (t, "italic", 3))
@@ -908,6 +909,22 @@ virtual_font_rep::compile_bis (scheme_tree t, metric& ex) {
     return hor_extend (gl, pos, by);
   }
 
+  if (is_tuple (t, "hor-take", 3) || is_tuple (t, "hor-take", 4)) {
+    glyph gl = compile (t[1], ex);
+    int   pos= (int) (as_double (t[2]) * gl->width);
+    SI    add= (SI) (as_double (t[3]) * (ex->x2 - ex->x1));
+    if (is_tuple (t, "hor-take", 4))
+      add= (SI) (as_double (t[3]) * as_double (t[4]) * (ex->x2 - ex->x1));
+    int nr= add / PIXEL;
+    if (pos < 0) pos= 0;
+    if (pos >= gl->width) pos= gl->width - 1;
+    ex->x1= 0;
+    ex->x2= add;
+    ex->x3= 0;
+    ex->x4= nr * PIXEL;
+    return hor_take (gl, pos, nr);
+  }
+
   if (is_tuple (t, "ver-extend", 3) || is_tuple (t, "ver-extend", 4)) {
     glyph gl = compile (t[1], ex);
     int   pos= (int) ((1.0 - as_double (t[2])) * gl->height);
@@ -1159,8 +1176,8 @@ virtual_font_rep::compile_bis (scheme_tree t, metric& ex) {
 glyph
 virtual_font_rep::compile (scheme_tree t, metric& ex) {
 
-  if (starts(fn_name, "opentype")) {
-    cout << "compile " << moebius::data::scheme_tree_to_string(t) << LF;
+  if (starts (fn_name, "opentype")) {
+    cout << "compile " << moebius::data::scheme_tree_to_string (t) << LF;
   }
 
   if (trg->contains (t)) {
@@ -1507,6 +1524,25 @@ virtual_font_rep::draw_tree (renderer ren, scheme_tree t, SI x, SI y) {
     return;
   }
 
+  if (is_tuple (t, "hor-take", 3) || is_tuple (t, "hor-take", 4)) {
+    metric ex;
+    get_metric (t[1], ex);
+    SI pos= (SI) (as_double (t[2]) * (ex->x2 - ex->x1));
+    SI add= (SI) (as_double (t[3]) * (ex->x2 - ex->x1));
+    if (is_tuple (t, "hor-take", 4))
+      add= (SI) (as_double (t[3]) * as_double (t[4]) * (ex->x2 - ex->x1));
+    if (add > 0 && ex->x2 > ex->x1) {
+      SI  w = ex->x2 - ex->x1;
+      int n = (int) ((20 * add + w - 1) / w);
+      SI  dx= (add + n - 1) / n;
+      SI  hx= (add + 2 * n - 1) / (2 * n);
+      for (int i= 0; i < n; i++)
+        draw_clipped (ren, t[1], x + i * dx - (ex->x3 + pos), y,
+                      ex->x3 + pos - hx, ex->y3, ex->x3 + pos + hx, ex->y4);
+    }
+    return;
+  }
+
   if (is_tuple (t, "ver-extend", 3) || is_tuple (t, "ver-extend", 4)) {
     metric ex;
     get_metric (t[1], ex);