beta 2011.02.25 22:03

1 files changed, 15 insertions, 9 deletions

diff --git a/metapost/context/base/mp-mlib.mp b/metapost/context/base/mp-mlib.mp
index 7b3491539..cedfa9f7b 100644
--- a/metapost/context/base/mp-mlib.mp
+++ b/metapost/context/base/mp-mlib.mp
@@ -100,15 +100,21 @@ vardef rawtextext(expr str) =
                 withpostscript str
         )
     else :
-        image (
-            _tt_n_ := _tt_n_ + 1 ;
-            addto currentpicture doublepath unitsquare
-                xscaled _tt_w_[_tt_n_]
-                yscaled (_tt_h_[_tt_n_] + _tt_d_[_tt_n_])
-                withprescript "tx_number=" & decimal _tt_n_
-                withprescript "tx_stage=final"
-                ; % withpostscript str ;
-        ) shifted (0,-_tt_d_[_tt_n_])
+        _tt_n_ := _tt_n_ + 1 ;
+        if known _tt_d_[_tt_n_] :
+            image (
+                addto currentpicture doublepath unitsquare
+                    xscaled _tt_w_[_tt_n_]
+                    yscaled (_tt_h_[_tt_n_] + _tt_d_[_tt_n_])
+                    withprescript "tx_number=" & decimal _tt_n_
+                    withprescript "tx_stage=final"
+                    ; % withpostscript str ;
+            ) shifted (0,-_tt_d_[_tt_n_])
+        else :
+            image (
+                addto currentpicture doublepath unitsquare ;
+            )
+        fi
     fi
 enddef ;