Chart-diagrams 1.2 → 1.2.2
raw patch · 2 files changed
+7/−7 lines, 2 filesdep ~diagrams-coredep ~diagrams-libdep ~lens
Dependency ranges changed: diagrams-core, diagrams-lib, lens
Files
Chart-diagrams.cabal view
@@ -1,5 +1,5 @@ Name: Chart-diagrams-Version: 1.2+Version: 1.2.2 License: BSD3 License-file: LICENSE Copyright: Jan Bracker, 2006-2010@@ -28,8 +28,8 @@ Build-depends: base >= 3 && < 5 , old-locale , time, mtl- , diagrams-core >= 0.7 && < 1.2- , diagrams-lib >= 0.7 && < 1.2+ , diagrams-core >= 1.1 && < 1.2+ , diagrams-lib >= 1.1 && < 1.2 , diagrams-svg >= 0.8 && < 1.2 , diagrams-postscript >= 0.7 && < 1.2 , SVGFonts >= 1.4 && < 1.5@@ -39,7 +39,7 @@ , operational >= 0.2.2 && < 0.3 , containers >= 0.4 && < 0.6 , data-default-class < 0.1- , lens >= 3.9 && < 3.11+ , lens >= 3.9 && < 4.2 , Chart >= 1.2 && < 1.3 , text other-modules: Paths_Chart_diagrams
Graphics/Rendering/Chart/Backend/Diagrams.hs view
@@ -61,8 +61,8 @@ ( Diagram , R2, P2, T2 , r2, p2, unr2, unp2+ , rad, (@@) , Trail(..), Segment- , Rad(..), CircleFrac(..) , (.+^), (<->), (~~) ) import qualified Diagrams.Prelude as D@@ -735,12 +735,12 @@ pathToTrail' closeAll (Arc p0 r s e path) _ = let endP = translateP (pointToVec p0) $ rotateP e $ Point r 0 (t, c, rest) = pathToTrail' closeAll path endP- arcTrail = D2.scale r $ D2.arc (Rad s) (Rad e)+ arcTrail = D2.scale r $ D2.arc (s @@ rad) (e @@ rad) in ( arcTrail <> t, c || closeAll, rest ) pathToTrail' closeAll (ArcNeg p0 r s e path) _ = let endP = translateP (pointToVec p0) $ rotateP e $ Point r 0 (t, c, rest) = pathToTrail' closeAll path endP- arcTrail = D2.scale r $ D2.arcCW (Rad s) (Rad e)+ arcTrail = D2.scale r $ D2.arcCW (s @@ rad) (e @@ rad) in ( arcTrail <> t, c || closeAll, rest ) pathToTrail' closeAll End _ = (mempty, False || closeAll, Nothing) pathToTrail' closeAll Close _ = (mempty, True || closeAll, Nothing)