From 786e4395b703c7b71de411d3de9f8ffd1a9bd9c6 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Wed, 28 Dec 2016 00:30:32 +0100
Subject: [PATCH] experiment

---
 src/Main.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/Main.hs b/src/Main.hs
index 825c9a8..10a8bd8 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -180,6 +180,16 @@ draw = do
   traceM "drawing"
   ud <- getAffection
   liftIO $ gegl_node_process $ nodeGraph ud M.! KeySink
+  -- mintr <- liftIO $ gegl_rectangle_intersect
+  --   (GeglRectangle 0 0 800 600)
+  --   (GeglRectangle (floor $ fst $ sPos $ ship ud) (floor $ snd $ sPos $ ship ud) 50 50)
+  -- maybe (return ()) (\intr ->
+  --   present
+  --     (GeglRectangle (floor $ fst $ sPos $ ship ud) (floor $ snd $ sPos $ ship ud) 50 50)
+  --     (buffer ud)
+  --     False
+  --   ) mintr
+  -- XXX: above part crashes regularly for no apparent reason
   present
     (GeglRectangle 0 0 800 600)
     (buffer ud)