diff --git a/Trend.hs b/Trend.hs
--- a/Trend.hs
+++ b/Trend.hs
@@ -11,6 +11,7 @@
 import Diagrams.TwoD.Shapes
 import Diagrams.TwoD.Text
 import Diagrams.TrailLike
+import Diagrams.Envelope
 
 import qualified Data.Map as Map
 import Data.Time.Clock
@@ -28,7 +29,11 @@
 
 type UTime = UTCTime
 
-write = text.show
+write :: Show a => a -> Di
+write c = text(show c) # withEnvelope ( envelope::D R2)
+  where l = fromIntegral $ length(show c)
+        envelope = rect (l+1) 2
+  
 
 push :: Double -> Double -> Di -> Di
 push x y = translate $ r2(x,y)
diff --git a/TrendGraph.cabal b/TrendGraph.cabal
--- a/TrendGraph.cabal
+++ b/TrendGraph.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                TrendGraph
-version:             0.1.0.0
+version:             0.1.0.1
 synopsis:            A simple trend Graph script
 
 description:         Mainly a function that takes in list of UTCTime and a double