Finalize and allow drawing

Main.hs

@@ -0,0 +1,31 @@
+import Control.Monad (void)
+import Control.Monad.IO.Class (liftIO)
+import Diagram
+import Diagrams.Prelude
+import Diagrams.Backend.Cairo
+import Diagrams.Backend.Cairo.Internal
+import Diagrams.Backend.Gtk
+import Graphics.UI.Gtk
+
+
+main :: IO ()
+main = do
+  _ <- initGUI
+  mesh <- readFile "test.obj"
+  window <- windowNew
+  da <- drawingAreaNew
+  set window [windowDefaultWidth := 700, windowDefaultHeight := 700,
+              windowTitle := "Computergrafik", containerBorderWidth := 10,
+              containerChild := da]
+  _ <- onDestroy window mainQuit
+  void $ da `on` exposeEvent $ liftIO $ do
+      dw <- widgetGetDrawWindow da
+      let (png, r) = renderDia Cairo
+                             (CairoOptions "jo.svg" (Width 600) SVG False)
+                             (diagFromString $ mesh)
+      png
+      renderWithDrawable dw r
+      return True
+  _ <- windowSetTypeHint window WindowTypeHintDialog
+  widgetShowAll window
+  mainGUI