In [1]:

    

{-# LANGUAGE OverloadedStrings #-}
import IHaskell.Display.Widgets


    

In [2]:

    

-- Allows single selection
tgbs <- mkToggleButtons

-- Allows multiple selections
msel <- mkSelectMultiple


    

In [3]:

    

setField msel Description "Functions to show (One or more)"
setField msel Options (OptionLabels ["sin", "cos"])

setField tgbs Description "Plot style"
setField tgbs Options (OptionLabels ["line", "point"])


    

In [4]:

    

import Graphics.Rendering.Chart.Easy hiding (tan)
import Graphics.Rendering.Chart.Backend.Cairo
import qualified Data.ByteString as B
import Data.Text (pack, unpack)
import IHaskell.Display (base64)
import Control.Applicative ((<$>))

import Control.Monad (when, forM)
import Data.Maybe (fromJust)

dset :: [(String, [(Double, Double)])]
dset = [("sin", zmap sin r), ("cos", zmap cos r)]
  where zmap f xs = zip xs (map f xs)
        r = [0, 0.1 .. 6.3]

i <- mkImageWidget
setField i Width 500
setField i Height 500

-- Redraw the plot based on values from the widgets
refresh = do
  -- Read values from the widgets
  funs <- map unpack <$> getField msel SelectedValues
  sty <- unpack <$> getField tgbs SelectedValue
  
  let pts = zip funs (map (fromJust . flip lookup dset) funs)
      opts = def { _fo_size = (500, 500) }
  toFile opts ".chart" $ do
    layout_title .= "Plotting: " ++ unwords funs
    if sty == "line"
      then mapM_ (\(s, ps) -> plot (line s [ps])) pts
      else mapM_ (\(s, ps) -> plot (points s ps)) pts

  img <- B.readFile ".chart"
  setField i B64Value (base64 img)
  
-- Add event handlers to make widgets work
setField msel SelectionHandler refresh
setField tgbs SelectionHandler refresh

-- Trigger event to show empty grid initially
triggerSelection msel


    

In [5]:

    

-- Display the widgets
msel
tgbs
i