From 9f639e93850762b4169cbe7db9cfa7a8edb5a856 Mon Sep 17 00:00:00 2001
From: Context Git Mirror Bot <phg42.2a@gmail.com>
Date: Wed, 7 Jan 2015 02:15:04 +0100
Subject: 2015-01-07 01:34:00

---
 metapost/context/base/mp-tool.mpiv | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'metapost')

diff --git a/metapost/context/base/mp-tool.mpiv b/metapost/context/base/mp-tool.mpiv
index 17bb0e9c2..f1d9ecaf6 100644
--- a/metapost/context/base/mp-tool.mpiv
+++ b/metapost/context/base/mp-tool.mpiv
@@ -2289,6 +2289,15 @@ primarydef p snapped s =
     p
 enddef ;
 
+%D Newer:
+
+vardef area expr p =
+    % we could calculate the boundingbox once
+    (xpart llcorner boundingbox p,0) -- p --
+    (xpart lrcorner boundingbox p,0) -- cycle
+enddef ;
+
+
 % vardef somecolor = (1,1,0,0) enddef ;
 
 % fill OverlayBox withcolor (rcomponent somecolor,gcomponent somecolor,bcomponent somecolor) ;
@@ -2335,7 +2344,6 @@ vardef undecorated (text imagedata) text decoration =
     currentpicture
 enddef ;
 
-
 if metapostversion < 1.770  :
 
     vardef decorated (text imagedata) text decoration =
-- 
cgit v1.2.3