module Main where

import Graphics.Fig

main = do
    input <- getContents
    either fail succeed
        (parse "stdin" input)
    where
    succeed = putStr . pretty . process

process = applyReplaceDef replaceDef

replaceDef =
    emptyDef
        { textFontSize = const 14
        , textFont = const (Ps HelveticaBold)
        , linePenColor = const Magenta
        , arrowWidth = (* 1.5)
        , arrowType = const Closed
        , areaFillColor = \x ->
            case x of
                Green4 -> LtBlue
                LtBlue -> Green4
                _ -> x
        }