correct ship position

This commit is contained in:
nek0 2016-12-28 14:58:21 +01:00
parent ef12ff1147
commit 5380225c21

View file

@ -42,10 +42,8 @@ load _ = do
hover <- gegl_node_new_child root $ defaultOverOperation hover <- gegl_node_new_child root $ defaultOverOperation
pover <- gegl_node_new_child root $ defaultOverOperation pover <- gegl_node_new_child root $ defaultOverOperation
translate <- gegl_node_new_child root $ Operation "gegl:translate" translate <- gegl_node_new_child root $ Operation "gegl:translate"
[ Property "origin-x" $ PropertyDouble 25 [ Property "x" $ PropertyDouble 375
, Property "origin-y" $ PropertyDouble 25 , Property "y" $ PropertyDouble 275
, Property "x" $ PropertyDouble 400
, Property "y" $ PropertyDouble 300
, Property "sampler" $ PropertyInt $ fromEnum GeglSamplerCubic , Property "sampler" $ PropertyInt $ fromEnum GeglSamplerCubic
] ]
rotate <- gegl_node_new_child root $ Operation "gegl:rotate" rotate <- gegl_node_new_child root $ Operation "gegl:rotate"