wumpus-microprint-0.9.0: demo/Demo01.hs

{-# OPTIONS -Wall #-}

-- Read this file a make a microprint of it...

module Demo01 where

import Wumpus.Microprint.Datatypes
import Wumpus.Microprint.Render
import Wumpus.Microprint.Tokenizer

import Wumpus.Core                              -- package: wumpus-core
import Wumpus.Basic.Colour.SVGColours           -- package: wumpus-basic
import Wumpus.Basic.Graphic

import System.Directory

main :: IO ()
main = do 
    createDirectoryIfMissing True "./out/"
    inp <- readFile "Demo01.hs"	  -- This file
    let gtext = runTokenizer (haskellTokenizer moccasin green) inp
    let pic1  = makePicture gtext
    writeEPS_latin1 "./out/microprint01.eps" pic1
    writeSVG_latin1 "./out/microprint01.svg" pic1
    let pic2  = makeBordered gtext
    writeEPS_latin1 "./out/microprint02.eps" pic2
    writeSVG_latin1 "./out/microprint02.svg" pic2


makePicture :: GreekText -> DPicture
makePicture gtext = liftToPictureU $ execDrawing (standardContext 14) $ 
    render sctx strokelineF gtext
  where
    sctx = makeRenderScaling (\x -> fromIntegral $ 2*x) 
                             (\y -> fromIntegral $ 3*y)

makeBordered :: GreekText -> DPicture
makeBordered gtext = liftToPictureU $ execDrawing (standardContext 14) $ 
    render sctx borderedF gtext
  where
    sctx = makeRenderScaling (\x -> fromIntegral $ 6*x) 
                             (\y -> fromIntegral $ 8*y)