diff --git a/examples/example02.hs b/examples/example02.hs index 934d812..31df9ee 100644 --- a/examples/example02.hs +++ b/examples/example02.hs @@ -36,8 +36,8 @@ load _ = do traceM "new root node" checkerboard <- G.gegl_node_new_child root $ G.checkerboardOperation $ props $ do - prop "color1" $ G.RGBA 0.4 0.4 0.4 1 - prop "color2" $ G.RGBA 0.6 0.6 0.6 1 + prop "color1" $ G.RGBA 0.4 0.4 0.4 1 + prop "color2" $ G.RGBA 0.6 0.6 0.6 1 traceM "checkerboard" over <- G.gegl_node_new_child root G.defaultOverOperation traceM "over" @@ -49,16 +49,16 @@ load _ = do traceM "buffer-sink" rect <- G.gegl_node_new_child root $ G.Operation "gegl:rectangle" $ props $ do - prop "x" (0::Double) - prop "y" (0::Double) - prop "width" (20::Double) - prop "height" (20::Double) - prop "color" $ G.RGBA 1 0 0 0.5 + prop "x" (0::Double) + prop "y" (0::Double) + prop "width" (20::Double) + prop "height" (20::Double) + prop "color" $ G.RGBA 1 0 0 0.5 traceM "rect" crop <- G.gegl_node_new_child root $ G.Operation "gegl:crop" $ props $ do - prop "width" (800::Double) - prop "height" (600::Double) + prop "width" (800::Double) + prop "height" (600::Double) G.gegl_node_link_many [checkerboard, over, crop, sink] _ <- G.gegl_node_connect_to rect "output" over "aux" traceM "connections made"