Main.hs

module Main where

import Graphics.ChalkBoard


main = startChalkBoard [] cbMain


cbMain cb = do
        let example1 = boardOf blue
            example2 = scale 0.5 $ choose red green <$> square
            example3 = scale 0.5 $ choose red blue <$> circle `over` (scale 0.9 square)
            example4 = unAlpha <$> scale 0.5 (choose (withAlpha 0.2 blue) (transparent white) <$> triangle (-0.5,-0.5) (0.5,-0.5) (0,0.5))
            example5 = unAlpha <$> ((scale 0.7 cir) `over` poly)
                    where
                            cir = choose (withAlpha 0.5 blue) (transparent white) <$> circle
                            poly = choose (alpha red) (transparent white) <$> polygon [(0,-0.5), (-0.4,-0.3), (0,0.5), (0.4,-0.3)]
        
        
        (w,h,imgBrd) <- readBoard ("lambda.png")
        let wh = fromIntegral $ max w h
            sc = 1 / wh
            wd = fromIntegral w / wh
            hd = fromIntegral h / wh
            img = move (-0.5 * hd,-0.5 * wd)  (scale sc imgBrd)
	
	(w2,h2,img2) <- readNormalizedBoard ("lambda.png")
	
	
	let example6 = unAlpha <$> img2
	    example7 = unAlpha <$> img2 `over` (boardOf (alpha (o (RGB 0.5 1 0.8))))
	    example8 = unAlpha <$> move (0.25, -0.25) ((rotate 1 (scale 0.7 img2)) `over` (boardOf (alpha red)))
	
	
	let example9 x = unAlpha <$> (rotate (5*x) (scale 0.8 img2)) `over` (boardOf (alpha red))
	    example10 x = unAlpha <$> (rotate (4*x) (scale (abs x) img2)) `over` (boardOf (alpha (o (RGB x x (abs x)))))
	
        
        drawChalkBoard cb example1
        --sequence_ [ drawChalkBoard cb (example9 (sin x)) | x <- [0,0.01..] ]