wumpus-basic-0.18.0: demo/FontDeltaPic.hs

{-# OPTIONS -Wall #-}

-- Note - this demo is not really exemplary - it is only here
-- to check the compilation of Wumpus-Basic. There are more 
-- impressive demos in the @Wumpus-Drawing@ package.
-- 

module FontDeltaPic where

import Wumpus.Basic.Kernel

import Wumpus.Core                      -- package: wumpus-core

import System.Directory

main :: IO ()
main = do 
    createDirectoryIfMissing True "./out/"
    putStrLn $ "Check the generated SVG to verify the font attrs are grouped..."
    --
    let pic1 = runCtxPictureU std_attr drawing01
    writeEPS "./out/font_delta01.eps" pic1
    writeSVG "./out/font_delta01.svg" pic1


std_attr :: DrawingContext
std_attr = standardContext 24


drawing01 :: CtxPicture
drawing01 = drawTracing $ mf 


mf :: TraceDrawing Double ()
mf = fontDelta $ do
    draw $ line1 `at` (P2 0 100)
    draw $ line2 `at` (P2 0  75)
    draw $ line3 `at` (P2 0  50)
    draw $ line4 `at` (P2 0  25)
    draw $ line5 `at` (P2 0   0) 
  where
    line1 = dcTextlabel "All the lines of this drawing" 
    line2 = dcTextlabel "should be grouped within a SVG"
    line3 = dcTextlabel "g-element, from where they"
    line4 = dcTextlabel "inherit the font-family and"
    line5 = dcTextlabel "font-size attributes."