diff --git a/examples/example00.hs b/examples/example00.hs index 5601cb9..f3092b4 100644 --- a/examples/example00.hs +++ b/examples/example00.hs @@ -47,9 +47,22 @@ load _ = do , G.Property "color2" $ G.PropertyColor $ G.RGBA 0.6 0.6 0.6 1 ] traceM "checkerboard" + over <- G.gegl_node_new_child root G.defaultOverOperation + traceM "over" + text <- G.gegl_node_new_child root $ G.textOperation + [ G.Property "string" $ G.PropertyString "Hello world!" + , G.Property "color" $ G.PropertyColor $ G.RGB 0 0 1 + , G.Property "size" $ G.PropertyDouble 40 + ] + traceM "text" + G.gegl_node_link checkerboard over + G.gegl_node_connect_to text "output" over "aux" + traceM "connections made" myMap <- return $ M.fromList [ ("root" , root) + , ("over" , over) , ("checkerboard", checkerboard) + , ("text" , text) ] traceM "loading complete" return $ UserData @@ -67,11 +80,11 @@ draw = do let SDL.Surface rawSurfacePtr _ = drawSurface rawSurface <- liftIO $ peek rawSurfacePtr pixelFormat <- liftIO $ peek $ Raw.surfaceFormat rawSurface - format <- liftIO $ (B.babl_format $ B.PixelFormat B.R'G'B'A B.CFu8) + format <- liftIO $ (B.babl_format $ B.PixelFormat B.RGBA B.CFu8) SDL.V2 (CInt rw) (CInt rh) <- SDL.surfaceDimensions drawSurface let (w, h) = (fromIntegral rw, fromIntegral rh) liftIO $ G.gegl_node_blit - (nodeGraph M.! "checkerboard" :: G.GeglNode) + (nodeGraph M.! "over" :: G.GeglNode) 1 (G.GeglRectangle 0 0 w h) format