damianfral / plotdsl

An experiment to play with the free monad and build a DSL for plotting.

l1 = do
    name "new data"
    color Red
    smooth Sbezier
    style Points
    values [(0,2),(1,5),(2,4),(3,4),(4,3),(5,1)]

l2 = do
    name "old data"
    color Blue
    style Linespoints
    values $ zip [0..] $ [3,2,7,3,5,2]

plot1 = do
    title "Free monad test"
    scale $ Logscale Y 2.0
    plot l1
    plot l2
    plot $ do
        name "other data"
        style Lines
        smooth Csplines
        color Green
        values $ zip [0..] [1,2,5,3,9,1]

wxtplot plot1

ghci> let vs = zip [0..] [1,2,3,4,3,2,1,0]
ghci> dumbplot $ plot (name "example data" >> smooth Bezier >> values vs)



    4 ++--------+---------+---------+--------+---------+---------+--------++
      +         +         +         +        +         example data ****** +
  3.5 ++                                                                  ++
      |                                                                    |
      |                                                                    |
    3 ++                    ***************                               ++
      |                 *****              ****                            |
  2.5 ++             ***                      ****                        ++
      |            ***                            ***                      |
    2 ++        ***                                  **                   ++
      |       ***                                      ***                 |
      |     ***                                           **               |
  1.5 ++  ***                                               **            ++
      | **                                                    **           |
    1 **                                                        **        ++
      |                                                           **       |
      |                                                             **     |
  0.5 ++                                                              *** ++
      +         +         +         +        +         +         +      ***+
    0 ++--------+---------+---------+--------+---------+---------+--------**
      0         1         2         3        4         5         6         7