nek0/haskelloids
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

reposition new haskelloids

Browse source
This commit is contained in:
nek0 2016-12-30 13:59:22 +01:00
parent 9c3b6c6c4a
commit 82a82bdde4
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/Main.hs
View file

@ -498,8 +498,8 @@ insertHaskelloid hasks split (px, py) = do
, Property "height" $ PropertyInt (100 `div` rdiv) , Property "height" $ PropertyInt (100 `div` rdiv)
] ]
tempTrans <- liftIO $ gegl_node_new_child tempRoot $ Operation "gegl:translate" tempTrans <- liftIO $ gegl_node_new_child tempRoot $ Operation "gegl:translate"
[ Property "x" $ PropertyDouble px [ Property "x" $ PropertyDouble $ px + (100 / fromIntegral rdiv / 2)
, Property "y" $ PropertyDouble py , Property "y" $ PropertyDouble $ py + (100 / fromIntegral rdiv / 2)
, Property "sampler" $ PropertyInt $ fromEnum GeglSamplerCubic , Property "sampler" $ PropertyInt $ fromEnum GeglSamplerCubic
] ]
tempRot <- liftIO $ gegl_node_new_child tempRoot $ Operation "gegl:rotate" tempRot <- liftIO $ gegl_node_new_child tempRoot $ Operation "gegl:rotate"
@ -511,7 +511,10 @@ insertHaskelloid hasks split (px, py) = do
liftIO $ gegl_node_link_many [tempSvg, tempRot, tempTrans] liftIO $ gegl_node_link_many [tempSvg, tempRot, tempTrans]
_ <- liftIO $ gegl_node_connect_to tempTrans "output" tempOver "aux" _ <- liftIO $ gegl_node_connect_to tempTrans "output" tempOver "aux"
return $ Just Haskelloid return $ Just Haskelloid
{ hPos = (px, py) { hPos =
( px + (100 / 2 / fromIntegral rdiv)
, py + (100 / 2 / fromIntegral rdiv)
)
, hVel = (vx, vy) , hVel = (vx, vy)
, hRot = rot , hRot = rot
, hPitch = pitch , hPitch = pitch