diff --git a/Craft3e.cabal b/Craft3e.cabal
--- a/Craft3e.cabal
+++ b/Craft3e.cabal
@@ -1,6 +1,6 @@
name: Craft3e
-version: 0.2.0.1
+version: 0.2.0.2
license: MIT
license-file: LICENSE
copyright: (c) Addison Wesley
@@ -42,7 +42,8 @@
old-locale == 1.0.*,
time >= 1.1 && < 2.0,
mtl >= 1.1 && < 2.3,
- HUnit >= 1.2.0
+ HUnit >= 1.2.0,
+ open-browser >= 0.1.0.0 && < 0.5.0.0
exposed-modules:
Chapter1
diff --git a/PicturesSVG.hs b/PicturesSVG.hs
--- a/PicturesSVG.hs
+++ b/PicturesSVG.hs
@@ -19,7 +19,9 @@
module PicturesSVG where
import System.IO
+import Web.Browser ( openBrowser )
+
-- Pictures represened by a type of trees, so this is a deep
-- embedding.
@@ -86,8 +88,8 @@
flipV (Over pic1 pic2) = (flipV pic1) `Over` (flipV pic2)
flipV pic = FlipV pic
-negative = Negative
-
+negative = Negative
+invert = Negative
invertColour = Negative
-- Convert an Image to a Picture
@@ -198,6 +200,8 @@
outh <- openFile "svgOut.xml" WriteMode
hPutStrLn outh newFile
hClose outh
+ res <- openBrowser "refresh.html"
+ return ()
-- Preamble and postamble: boilerplate XML code.
diff --git a/Test.hs b/Test.hs
new file mode 100644
--- /dev/null
+++ b/Test.hs
@@ -0,0 +1,18 @@
+module Test where
+
+import PicturesSVG
+
+ex :: Integer
+ex = 3+4
+
+double :: Integer -> Integer
+double x = 2*x
+
+trip :: Integer -> Integer
+trip y = 3*y
+
+pic1 :: Picture
+pic1 = horse `beside` flipV (invert horse)
+
+pic2 :: Picture
+pic2 = pic1 `above` invert pic1
diff --git a/refresh.html b/refresh.html
--- a/refresh.html
+++ b/refresh.html
@@ -1,15 +1,16 @@
-
+
-SVG Pictures
-This page will display pictures rendered by the render
+
PicturesSVG
+