- Misc

Author: hanshoglund

Makefile

@@ -32,7 +32,7 @@ debug:  	post reload
 release: 	post minify reload
 
 install-deps:
-	$(JSINSTALL) containers semigroups vector-space
+	$(JSINSTALL) containers semigroups colour vector-space
 
 jspp:
 	$(JSPP) $(FLAGS) src-js/animator.js src-js/animator.jspp;

animator.cabal

@@ -7,7 +7,7 @@ author: Hans Hoglund
 synopsis: Interactive 2-D animation for the Web
 
 library
-  build-depends: base, containers, semigroups, vector-space
+  build-depends: base, containers, semigroups, colour, vector-space
   hs-source-dirs: src
   exposed-modules:
     Foreign.JavaScript

main.hs

@@ -198,7 +198,7 @@ testProcessing = do
         handler p = do
             printRepr $! p
             p `background` red
-            p `size` 400 400
+            -- p `size` 400 400
             (toObject p %. "println") (str "This is Processing!") :: IO ()
             return ()
 

src/Web/Graphics/Processing.hs

@@ -38,6 +38,9 @@ instance JsRef Processing
 
 
 
+size :: Processing -> Double -> Double -> IO ()
+size p x y = (toObject p %.. "size") x y
+
 background :: Processing -> Color -> IO ()
 background p c = (toObject p %.... "background") r g b a
     where (r,g,b,a) = convertColor c