wumpus-core-0.32.0: demo/ZOrderPic.hs

{-# OPTIONS -Wall #-}

module ZOrderPic where

import Wumpus.Core
import Wumpus.Core.Colour

import Data.AffineSpace                 -- package: vector-space

import System.Directory

main :: IO ()
main = do 
    createDirectoryIfMissing True "./out/"
    writeEPS_latin1 "./out/zorder01.eps" combined_pic
    writeSVG_latin1 "./out/zorder01.svg" combined_pic


combined_pic :: DPicture
combined_pic = multi [pic1,pic2]

pic1 :: DPicture
pic1 = frame $ prim_list zeroPt

pic2 :: DPicture 
pic2 = multi $ map (\a -> frame [a]) $ prim_list (P2 200 0)



prim_list :: DPoint2 -> [DPrimElement]
prim_list = sequence [ fillEllipse red   20 20
                     , \p -> fillEllipse green 20 20 (p .+^ hvec 20)
                     , \p -> fillEllipse blue  20 20 (p .+^ hvec 40)
                     ]