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

link properly

Browse source
This commit is contained in:
nek0 2016-12-28 12:17:55 +01:00
parent 786e4395b7
commit 589216101b
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Main.hs
View file

@ -57,10 +57,9 @@ load _ = do
sink <- gegl_node_new_child root $ Operation "gegl:copy-buffer" sink <- gegl_node_new_child root $ Operation "gegl:copy-buffer"
[ Property "buffer" $ PropertyBuffer buffer [ Property "buffer" $ PropertyBuffer buffer
] ]
-- gegl_node_link_many [over, crop, sink] gegl_node_link_many [ship, rotate, translate]
-- gegl_node_link_many [ship, translate, rotate] gegl_node_link_many [over, crop, sink]
gegl_node_link_many [ship, rotate, translate, crop, sink] gegl_node_connect_to translate "output" over "aux"
gegl_node_connect_to rotate "output" over "aux"
traceM "nodes complete" traceM "nodes complete"
myMap <- return $ M.fromList myMap <- return $ M.fromList
[ (KeyRoot, root) [ (KeyRoot, root)