hps 0.14 → 0.15
raw patch · 3 files changed
+23/−22 lines, 3 filesdep ~hcg-minusPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: hcg-minus
API changes (from Hackage documentation)
Files
- Help/fractals.hs +16/−15
- README +2/−3
- hps.cabal +5/−4
Help/fractals.hs view
@@ -1,12 +1,13 @@ module Main where -import Data.Maybe+import Data.Maybe {- base -}+import System.Directory {- directory -}+import System.Environment {- base -}+import System.FilePath {- filepath -}+import System.Random {- random -}+ import Graphics.PS hiding (a0, a1)-import Graphics.PS.Path.Graphs-import System.Directory-import System.Environment-import System.FilePath.Posix-import System.Random+import qualified Graphics.PS.Path.Graphs as G -- | Group a list into a list of /n/ element lists. clump :: Int -> [a] -> [[a]]@@ -149,7 +150,7 @@ hps :: [Image] hps =- let arrows = fractalArrow 200 9+ let arrows = G.fractalArrow 200 9 arc_ex = arcd_ex arc arcNegative_ex = arcd_ex arcNegative path_ex = s 0 path_ex'@@ -158,11 +159,11 @@ in s 0 e `over` f 0.9 e s n = gstroke' n . normalize f n = gfill n . normalize- in [ gstroke 0 fractal_sqr- , gstroke 0 fractal_sqr'+ in [ gstroke 0 G.fractal_sqr+ , gstroke 0 G.fractal_sqr' , gstroke 0 arrows , gstroke 0 (flatten arrows)- , f 0 (sierpinski pt_origin 0.5 0.01)+ , f 0 (G.sierpinski pt_origin 0.5 0.01) , simpleText , rectangles , semiarcs@@ -177,11 +178,11 @@ , fs_ex ] -heps :: Image-heps = bstroke (erat (Pt 48 32) 120)+heps_img :: Image+heps_img = bstroke (G.erat (Pt 48 32) 120) -bb :: BBox-bb = HRBBox 35 19 180 164 40.0 24.0 176.0 160.0+heps_bb :: BBox+heps_bb = HRBBox 35 19 180 164 40.0 24.0 176.0 160.0 writing :: String -> IO () writing fn = print ("writing output to: " ++ fn)@@ -201,4 +202,4 @@ writing ofn ps ofn a4 hps writing epsfn- eps epsfn bb heps+ eps epsfn heps_bb heps_img
README view
@@ -8,15 +8,14 @@ [hs]: http://haskell.org [ps]: http://adobe.com/products/postscript/ -© [rohan drape][rd] and others, 2006-2012,+© [rohan drape][rd] and others, 2006-2014, [gpl][gpl]. with contributions by: - declan murphy - henning thielemann -see the [darcs][darcs] [history][history] for details+see the [darcs][darcs] [history](?t=hps&q=history) for details [rd]: http://rd.slavepianos.org/ [gpl]: http://gnu.org/copyleft/ [darcs]: http://darcs.net/-[history]: http://rd.slavepianos.org/r/d/darcsweb.cgi?r=hps
hps.cabal view
@@ -1,11 +1,11 @@ Name: hps-Version: 0.14+Version: 0.15 Synopsis: Haskell Postscript Description: Haskell library partially implementing the postscript drawing model. License: GPL Category: Graphics-Copyright: Rohan Drape, 2006-2013+Copyright: Rohan Drape, 2006-2014 Author: Rohan Drape and others Maintainer: rd@slavepianos.org Stability: Experimental@@ -17,7 +17,8 @@ Data-files: README Library- Build-Depends: base == 4.*, hcg-minus == 0.14+ Build-Depends: base == 4.*,+ hcg-minus == 0.15.* GHC-Options: -Wall -fwarn-tabs Exposed-modules: Graphics.PS Graphics.PS.Path@@ -43,7 +44,7 @@ Build-Depends: base == 4.*, directory, filepath,- hcg-minus == 0.14,+ hcg-minus == 0.15.*, random Main-Is: fractals.hs Ghc-Options: -Wall -fwarn-tabs