From def0058acf4e6c8b1d65785b32762be9ee1e53a1 Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@cis.upenn.edu>
Date: Sun, 22 Sep 2013 12:12:29 -0400
Subject: [PATCH] Use point envelope (@ origin) for text objects instead of
 empty.

Fixes #115.
Fixes #116.

NOTE: make sure we update documentation to match/explain this more carefully.
---
 src/Diagrams/TwoD/Text.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Diagrams/TwoD/Text.hs b/src/Diagrams/TwoD/Text.hs
index 79522753..81edccec 100644
--- a/src/Diagrams/TwoD/Text.hs
+++ b/src/Diagrams/TwoD/Text.hs
@@ -32,9 +32,10 @@ module Diagrams.TwoD.Text (
 
 import           Diagrams.Attributes
 import           Diagrams.Core
+import           Diagrams.Core.Envelope (pointEnvelope)
 import           Diagrams.TwoD.Types
 
-import           Data.AffineSpace    ((.-.))
+import           Data.AffineSpace       ((.-.))
 
 import           Data.Semigroup
 
@@ -75,7 +76,7 @@ mkText a t = recommendFillColor (black :: Colour Double)
              -- See Note [recommendFillColor]
 
            $ mkQD (Prim (Text mempty a t))
-                       mempty
+                       (pointEnvelope origin)
                        mempty
                        mempty
                        mempty