BierEtAlMain.hs

{-# OPTIONS_GHC -Wall                      #-}
{-# OPTIONS_GHC -fno-warn-name-shadowing   #-}
{-# OPTIONS_GHC -fno-warn-type-defaults    #-}
{-# OPTIONS_GHC -fno-warn-unused-do-bind   #-}
{-# OPTIONS_GHC -fno-warn-missing-methods  #-}
{-# OPTIONS_GHC -fno-warn-orphans          #-}

module Main (
    main
    ) where

import Diagrams.Prelude
import Diagrams.Backend.CmdLine
import Diagrams.Backend.Cairo.CmdLine

import BierEtAl
import BierEtAlChart

displayHeader :: FilePath -> Diagram B -> IO ()
displayHeader fn =
  mainRender ( DiagramOpts (Just 900) (Just 700) fn
             , DiagramLoopOpts False Nothing 0
             )


-- x1 = Bier {vin =0.36, k1 =0.02, kp =6, km =15}
-- x2 = Bier {vin =0.36, k1 =0.02, kp =5, km =5}
-- x3 = Bier {vin =0.36, k1 =0.02, kp =6, km =10}
-- x4 = Bier {vin =0.2, k1 =0.02, kp =5, km =13}

-- x1 = Bier {vin =0.36, k1 =0.02, kp =4, km =15}
-- x2 = Bier {vin =0.36, k1 =0.02, kp =6, km = 7}
-- x3 = Bier {vin =0.2,  k1 =0.02, kp =5, km =13}
-- x4 = Bier {vin =0.1,  k1 =0.02, kp =6, km =13}

x1 = Bier {vin =0.36, k1 =0.01, kp =6, km =13}
x2 = Bier {vin =0.30, k1 =0.02, kp =6, km =18}
x3 = Bier {vin =0.50, k1 =0.02, kp =6, km =12}
x4 = Bier {vin =0.36, k1 =0.01, kp =7, km =13}

w1 = Bier {vin =1.10, k1 =0.02, kp =6, km =13}
w2 = Bier {vin =1.00, k1 =0.02, kp =6, km =13}
w3 = Bier {vin =0.95, k1 =0.02, kp =6, km =13}
w4 = Bier {vin =0.90, k1 =0.02, kp =6, km =13}

-- w1 = Bier {vin =0.36, k1 =0.02, kp =6, km=17}
-- w2 = Bier {vin =0.36, k1 =0.02, kp =6, km=18}
-- w3 = Bier {vin =0.36, k1 =0.02, kp =6, km=19}
-- w4 = Bier {vin =0.36, k1 =0.02, kp =6, km=20}

-- w1 = Bier {vin =0.36, k1 =0.02, kp =6, km=17}
-- w2 = Bier {vin =0.36, k1 =0.02, kp =6, km=18}
-- w3 = Bier {vin =0.36, k1 =0.02, kp =6, km=19}
-- w4 = Bier {vin =0.36, k1 =0.02, kp =6, km=20}

main :: IO ()
main = do
  let alt suffix xs = displayHeader ("diagrams/BierEtAl" ++ suffix ++ ".png")
                     (((diag ("BierEtAl" ++ suffix ++ "a")
                       (zip us' ((tol (xs!!0))!!0))
                       (zip us' ((tol (xs!!0))!!1)))
                      ===
                      (diag ("BierEtAl" ++ suffix ++ "b")
                       (zip us' ((tol (xs!!1))!!0))
                       (zip us' ((tol (xs!!1))!!1))))
                      |||
                      ((diag ("BierEtAl" ++ suffix ++ "c")
                       (zip us' ((tol (xs!!2))!!0))
                       (zip us' ((tol (xs!!2))!!1)))
                      ===
                      (diag ("BierEtAl" ++ suffix ++ "d")
                       (zip us' ((tol (xs!!3))!!0))
                       (zip us' ((tol (xs!!3))!!1)))))
  alt "11" [w1,w2,w3,w4]
  putStrLn "hello"