Skip to content

Instantly share code, notes, and snippets.

View funrep's full-sized avatar

Karl-Oskar Rikås funrep

42 followers · 58 following
View GitHub Profile
@funrep
funrep / dothellrc.cabal
Created November 22, 2013 16:20
name: dothellrc
version: 0.1.0.0
synopsis: My personal ".hellrc"
license: WTFPL
license-file: COPYING
author: Karl-Oskar "klrr" Rikås
maintainer: [email protected]
copyright: (C) 2013, Karl-Oskar Rikås
category: System
build-type: Simple
@funrep
funrep / frpdontworksadsmiley.hs
Created November 19, 2013 20:26
-- some stuff taken from ocharle's SDL and netwire tutorial, https://github.com/ocharles/ocharles.org.uk--Getting-Started-with-Netwire-and-SDL/blob/master/Challenge3.hs
{-# LANGUAGE StandaloneDeriving #-}
import Data.Word (Word16)
import Data.Set (Set)
import qualified Data.Set as Set
import qualified Graphics.UI.SDL as SDL
import Reactive.Banana
import Reactive.Banana.Frameworks
main = do
@funrep
funrep / foo.hs
Created November 14, 2013 18:14
import Data.Bits
import Data.Word
import Data.IORef
import qualified Graphics.UI.SDL as SDL
import qualified Graphics.UI.SDL.Primitives as SDL
main = do
SDL.init [SDL.InitEverything]
SDL.setVideoMode 640 480 32 []
var <- newIORef (0, 0)
@funrep
funrep / sdl.hs
Created November 13, 2013 17:32
import Data.Bits
import Data.Word
import Data.IORef
import qualified Graphics.UI.SDL as SDL
import qualified Graphics.UI.SDL.Primitives as SDL
main = do
SDL.init [SDL.InitEverything]
SDL.setVideoMode 640 480 32 []
var <- newIORef (0, 0)
@funrep
funrep / sdl.hs
Created November 13, 2013 15:48
import qualified Graphics.UI.SDL as SDL
import qualified Graphics.UI.SDL.Primitives as SDL
main = do
SDL.init [SDL.InitEverything]
SDL.setVideoMode 640 480 32 [] >>= loop
loop screen = do
SDL.rectangle screen (SDL.Rect 50 50 100 100) (SDL.Pixel 101)
SDL.flip screen
@funrep
funrep / frpstuff.hs
Created November 10, 2013 10:48
{-# LANGUAGE RankNTypes #-}
import Control.Monad (when)
import Reactive.Banana
import Reactive.Banana.Frameworks
main = do
source <- newAddHandler
network <- setupNetwork source
actuate network
eventLoop source
@funrep
funrep / frpsdl.hs
Last active December 27, 2015 20:29
{-# LANGUAGE RankNTypes #-}
import Reactive.Banana
import Reactive.Banana.Frameworks
import qualified Graphics.UI.SDL as SDL
import qualified Graphics.UI.SDL.Image as Image
main = do
SDL.init [SDL.InitEverything]
SDL.rawSetCaption (Just "foobar") Nothing
SDL.setVideoMode 640 480 32 []
@funrep
funrep / fuckingfrpshit.hs
Created November 9, 2013 00:07
{-# LANGUAGE RankNTypes #-}
import Reactive.Banana
import Reactive.Banana.Frameworks
import qualified Graphics.UI.SDL as SDL
import qualified Graphics.UI.SDL.Image as Image
main = do
SDL.init [SDL.InitEverything]
SDL.rawSetCaption (Just "foobar") Nothing
SDL.setVideoMode 640 480 32 []
@funrep
funrep / frpsdl.hs
Created November 7, 2013 19:06
{-# LANGUAGE RankNTypes #-}
import Reactive.Banana
import Reactive.Banana.Frameworks
import qualified Graphics.UI.SDL as SDL
import qualified Graphics.UI.SDL.Image as Image
main = do
SDL.init [SDL.InitEverything]
SDL.rawSetCaption (Just "foobar") Nothing
SDL.setVideoMode 640 480 32 []
@funrep
funrep / xonoticslideshow.elm
Created October 30, 2013 09:10
Enter this code here: http://elm-lang.org/try
import Window
ith i lst = case lst of
x::xs -> if i == 0 then x else ith (i-1) xs
images = [ "http://www.xonotic.org/m/uploads/2012/07/frontpage_007.jpg",
"http://www.xonotic.org/m/uploads/2012/07/frontpage_021.jpg",
"http://www.xonotic.org/m/uploads/2012/07/frontpage_008.jpg",
"http://www.xonotic.org/m/uploads/2012/07/frontpage_005.jpg" ]