nek0/vulkan-tutorial
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

showing text

Browse source
This commit is contained in:
nek0 2016-11-05 00:41:49 +01:00
parent 211cbd85ad
commit 1ccdf4ad75
1 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
examples/example00.hs
View file

@ -47,9 +47,22 @@ load _ = do
, G.Property "color2" $ G.PropertyColor $ G.RGBA 0.6 0.6 0.6 1 , G.Property "color2" $ G.PropertyColor $ G.RGBA 0.6 0.6 0.6 1
] ]
traceM "checkerboard" 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 myMap <- return $ M.fromList
[ ("root" , root) [ ("root" , root)
, ("over" , over)
, ("checkerboard", checkerboard) , ("checkerboard", checkerboard)
, ("text" , text)
] ]
traceM "loading complete" traceM "loading complete"
return $ UserData return $ UserData
@ -67,11 +80,11 @@ draw = do
let SDL.Surface rawSurfacePtr _ = drawSurface let SDL.Surface rawSurfacePtr _ = drawSurface
rawSurface <- liftIO $ peek rawSurfacePtr rawSurface <- liftIO $ peek rawSurfacePtr
pixelFormat <- liftIO $ peek $ Raw.surfaceFormat rawSurface 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 SDL.V2 (CInt rw) (CInt rh) <- SDL.surfaceDimensions drawSurface
let (w, h) = (fromIntegral rw, fromIntegral rh) let (w, h) = (fromIntegral rw, fromIntegral rh)
liftIO $ G.gegl_node_blit liftIO $ G.gegl_node_blit
(nodeGraph M.! "checkerboard" :: G.GeglNode) (nodeGraph M.! "over" :: G.GeglNode)
1 1
(G.GeglRectangle 0 0 w h) (G.GeglRectangle 0 0 w h)
format format