From 5380225c21d2c2e142b42563ecf8c65321ea69b0 Mon Sep 17 00:00:00 2001 From: nek0 Date: Wed, 28 Dec 2016 14:58:21 +0100 Subject: [PATCH] correct ship position --- src/Main.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index a560dfb..50f2747 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -42,10 +42,8 @@ load _ = do hover <- gegl_node_new_child root $ defaultOverOperation pover <- gegl_node_new_child root $ defaultOverOperation translate <- gegl_node_new_child root $ Operation "gegl:translate" - [ Property "origin-x" $ PropertyDouble 25 - , Property "origin-y" $ PropertyDouble 25 - , Property "x" $ PropertyDouble 400 - , Property "y" $ PropertyDouble 300 + [ Property "x" $ PropertyDouble 375 + , Property "y" $ PropertyDouble 275 , Property "sampler" $ PropertyInt $ fromEnum GeglSamplerCubic ] rotate <- gegl_node_new_child root $ Operation "gegl:rotate"