module Graphics.Rendering.Chart.Gtk.Simple(
plotWindow
) where
import Graphics.Rendering.Chart
import Graphics.Rendering.Chart.Gtk
import Graphics.Rendering.Chart.Simple.Internal
plotWindow :: PlotWindowType a => a
plotWindow = plw []
class PlotWindowType t where
plw :: [UPlot] -> t
instance (PlotArg a, PlotWindowType r) => PlotWindowType (a -> r) where
plw args = \ a -> plw (toUPlot a ++ args)
instance PlotWindowType (IO a) where
plw args = do
renderableToWindow (toRenderable $ uplot (reverse args)) 640 480
return undefined