Fix code for diagrams 0.6

nomeata · Dec 16, 2012 · 22c3302 · 22c3302
1 parent 629930d
commit 22c3302
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/diagrams-demo.hs b/diagrams-demo.hs
@@ -1,5 +1,6 @@
 import Diagrams.Prelude
-import Diagrams.Backend.Cairo.CmdLine
+import Diagrams.Backend.SVG.CmdLine
+import Diagrams.Core.Envelope
 
 import Optimisation.CirclePacking
 
@@ -12,7 +13,8 @@ objects = colorize $
     [ decagon r | r <- [0.1,0.2..0.7] ]
 
 -- Just a approximation, diagram objects do not have an exact radius
-radiusApproximation o = maximum [ radius (e (CircleFrac alpha)) o | alpha <- [0,0.1..1.0]]
+radiusApproximation :: Diagram b R2 -> Double
+radiusApproximation o = maximum [ envelopeS (e (CircleFrac alpha)) o | alpha <- [0,0.1..1.0]]
 
 main = defaultMain $
     position $ map (\(o,(x,y)) -> (p2 (x,y),o)) $