From 3c5dbaefc44f38d6da23a7db2c06a0a4af0996fa Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Fri, 25 Feb 2011 22:03:00 +0100
Subject: beta 2011.02.25 22:03

---
 metapost/context/base/mp-mlib.mp | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

(limited to 'metapost')

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 ;
 
-- 
cgit v1.2.3