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

more beatiful text

Browse source
This commit is contained in:
nek0 2016-12-30 13:49:58 +01:00
parent ff74f14f26
commit 9c3b6c6c4a
1 changed files with 17 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
src/Main.hs
View file

@ -58,6 +58,11 @@ load _ = do
, Property "y" $ PropertyDouble 275 , Property "y" $ PropertyDouble 275
, Property "sampler" $ PropertyInt $ fromEnum GeglSamplerCubic , Property "sampler" $ PropertyInt $ fromEnum GeglSamplerCubic
] ]
fgtranslate <- gegl_node_new_child root $ Operation "gegl:translate"
[ Property "x" $ PropertyDouble 150
, Property "y" $ PropertyDouble 250
, Property "sampler" $ PropertyInt $ fromEnum GeglSamplerCubic
]
rotate <- gegl_node_new_child root $ Operation "gegl:rotate" rotate <- gegl_node_new_child root $ Operation "gegl:rotate"
[ Property "origin-x" $ PropertyDouble 25 [ Property "origin-x" $ PropertyDouble 25
, Property "origin-y" $ PropertyDouble 25 , Property "origin-y" $ PropertyDouble 25
@ -74,15 +79,18 @@ load _ = do
] ]
won <- gegl_node_new_child root $ textOperation won <- gegl_node_new_child root $ textOperation
[ Property "string" $ PropertyString "YOU WON!" [ Property "string" $ PropertyString "YOU WON!"
, Property "font" $ PropertyString "Modulo"
, Property "size" $ PropertyDouble 100 , Property "size" $ PropertyDouble 100
, Property "color" $ PropertyColor $ GEGL.RGBA 1 1 1 1 , Property "color" $ PropertyColor $ GEGL.RGBA 1 1 1 1
] ]
lost <- gegl_node_new_child root $ textOperation lost <- gegl_node_new_child root $ textOperation
[ Property "string" $ PropertyString "YOU LOST!" [ Property "string" $ PropertyString "YOU LOST!"
, Property "font" $ PropertyString "Modulo"
, Property "size" $ PropertyDouble 100 , Property "size" $ PropertyDouble 100
, Property "color" $ PropertyColor $ GEGL.RGBA 1 1 1 1 , Property "color" $ PropertyColor $ GEGL.RGBA 1 1 1 1
] ]
vignette <- gegl_node_new_child root $ Operation "gegl:vignette" [] vignette <- gegl_node_new_child root $ Operation "gegl:vignette" []
-- pixelize <- gegl_node_new_child root $ Operation "gegl:pixelize"
pixelize <- gegl_node_new_child root $ Operation "gegl:pixelize" pixelize <- gegl_node_new_child root $ Operation "gegl:pixelize"
[ Property "size-x" $ PropertyInt 3 [ Property "size-x" $ PropertyInt 3
, Property "size-y" $ PropertyInt 3 , Property "size-y" $ PropertyInt 3
@ -96,7 +104,8 @@ load _ = do
_ <- gegl_node_connect_to pnop "output" pover "aux" _ <- gegl_node_connect_to pnop "output" pover "aux"
_ <- gegl_node_connect_to hnop "output" hover "aux" _ <- gegl_node_connect_to hnop "output" hover "aux"
_ <- gegl_node_connect_to bg "output" bgover "aux" _ <- gegl_node_connect_to bg "output" bgover "aux"
_ <- gegl_node_connect_to fgnop "output" fgover "aux" liftIO $ gegl_node_link fgnop fgtranslate
_ <- gegl_node_connect_to fgtranslate "output" fgover "aux"
traceM "nodes complete" traceM "nodes complete"
myMap <- return $ M.fromList myMap <- return $ M.fromList
[ (KeyRoot, root) [ (KeyRoot, root)
@ -187,7 +196,7 @@ update sec = do
ad <- get ad <- get
evs <- SDL.pollEvents evs <- SDL.pollEvents
wd <- getAffection wd <- getAffection
when (((floor $ elapsedTime ad) * 100) `mod` 10 < 2 && pixelSize wd > 3) $ do when (((floor $ elapsedTime ad :: Int) * 100) `mod` 10 < 2 && pixelSize wd > 3) $ do
liftIO $ gegl_node_set (nodeGraph wd M.! KeyPixelize) $ Operation "gegl:pixelize" liftIO $ gegl_node_set (nodeGraph wd M.! KeyPixelize) $ Operation "gegl:pixelize"
[ Property "size-x" $ PropertyInt $ pixelSize wd - 1 [ Property "size-x" $ PropertyInt $ pixelSize wd - 1
, Property "size-y" $ PropertyInt $ pixelSize wd - 1 , Property "size-y" $ PropertyInt $ pixelSize wd - 1
@ -205,7 +214,7 @@ update sec = do
when (SDL.keyboardEventKeyMotion dat == SDL.Pressed && not (wonlost wd)) $ when (SDL.keyboardEventKeyMotion dat == SDL.Pressed && not (wonlost wd)) $
putAffection ud putAffection ud
{ ship = (ship ud) { ship = (ship ud)
{ sRot = (sRot $ ship ud) + 180 * sec { sRot = (sRot $ ship ud) + 270 * sec
} }
} }
SDL.KeycodeRight -> do SDL.KeycodeRight -> do
@ -213,7 +222,7 @@ update sec = do
when (SDL.keyboardEventKeyMotion dat == SDL.Pressed) $ when (SDL.keyboardEventKeyMotion dat == SDL.Pressed) $
putAffection ud putAffection ud
{ ship = (ship ud) { ship = (ship ud)
{ sRot = (sRot $ ship ud) - 180 * sec { sRot = (sRot $ ship ud) - 270 * sec
} }
} }
SDL.KeycodeUp -> SDL.KeycodeUp ->
@ -235,8 +244,8 @@ update sec = do
, Property "size-y" $ PropertyInt 8 , Property "size-y" $ PropertyInt 8
] ]
-- ad <- get -- ad <- get
let posX = (fst $ sPos $ ship ud) + 23 - 30 * sin (toR $ sRot $ ship ud) let posX = (fst $ sPos $ ship ud) + 23 - 35 * sin (toR $ sRot $ ship ud)
posY = (snd $ sPos $ ship ud) + 23 - 30 * cos (toR $ sRot $ ship ud) posY = (snd $ sPos $ ship ud) + 23 - 35 * cos (toR $ sRot $ ship ud)
tempRoot <- liftIO $ gegl_node_new tempRoot <- liftIO $ gegl_node_new
tempRect <- liftIO $ gegl_node_new_child tempRoot $ Operation "gegl:rectangle" tempRect <- liftIO $ gegl_node_new_child tempRoot $ Operation "gegl:rectangle"
[ Property "x" $ PropertyDouble $ posX [ Property "x" $ PropertyDouble $ posX
@ -428,11 +437,9 @@ haskelloidShotDown h = do
(nodeGraph ud M.! KeyHNop) (nodeGraph ud M.! KeyHNop)
else do else do
liftIO $ traceIO "YOU WON!" liftIO $ traceIO "YOU WON!"
_ <- liftIO $ gegl_node_connect_to liftIO $ gegl_node_link
(nodeGraph ud M.! KeyWon) (nodeGraph ud M.! KeyWon)
"output" (nodeGraph ud M.! KeyFGNop)
(nodeGraph ud M.! KeyFGOver)
"aux"
putAffection ud putAffection ud
{ wonlost = True { wonlost = True
} }