schell

Running test Arr...
cat: TestDriver.tmp: No such file or directory
cat: TestDriver.tmp: No such file or directory
  GHC disagrees with hastec output!
  GHC says '[0,0,0,0,0,999,1041,0,0,0]', but hastec says ''
  GHC disagrees with hastec -O2 output!
  GHC says '[0,0,0,0,0,999,1041,0,0,0]', but hastec says ''
Running test BitOps...
cat: TestDriver.tmp: No such file or directory
cat: TestDriver.tmp: No such file or directory

schell

{-# LANGUAGE OverloadedStrings #-}
module Web.Parsers where

import Data.Attoparsec.Text as A
import Data.Text
import Control.Applicative
import Data.Char


convertUnicode :: Text -> Either String Text

schell

-- | Loads a character into our atlas.
-- It does so by rendering a glyph to a texture then draws the original
-- atlas and the glyph texture into a framebuffer that is used as the new
-- atlas.
loadCharacter :: TextShaderProgram -> Atlas -> Char -> IO Atlas
loadCharacter tsp a char = do
    let fp       = _atlasFontFilePath a
        px       = _atlasPxSize a
        (aW, aH) = _atlasTextureSize a
        aTex     = _atlasTextureObject a

schell

Onomatopentameter
=================
Onomatopentameters are words that when spoken make drum beats or some other cool musiclike pattern. The words themselves sound like the different drums in a trap set or a drum machine but the words themselves also make some kind of sense when put together as opposed to just patterns of onomatopoea. Here are some examples (and jokes).

Big Cat Little Cat
------------------
Old man: "Punk music is all about cats."
Young punk: "No way old man, it's about drugs and dirt and spikes."
Old man: "Then why are the drums always like - big cat little cat, big cat little cat?"

schell

module Geometry.Matrix where

import Data.List        ( intercalate )
import Data.Maybe       ( fromJust, fromMaybe )

import qualified Data.List as L

{- The Matrix -}
type Matrix a = [Vector a]

schell

toTriangleRect :: Rectangle -> [GLfloat]
toTriangleRect (Rectangle (x,y) (w,h)) = concat [tl, bl, br, br, tl, tr]
    where tl = [x,y]
          tr = [x+w,y]
          bl = [x,y+h]
          br = [x+w,y+h]

schell

module Main where

import Graphics.UI.GLFW
import Control.Monad.Cont

import System.Exit                  ( exitSuccess )

data GameState = GameState { keys :: [Key]
                           , wSize:: (Int, Int)
                           , mPos :: (Int, Int)

schell

module Main where

import Graphics.UI.GLFW
import Control.Monad.Cont

import System.Exit                  ( exitSuccess )

main :: IO ()
main = do
    putStrLn "Running glfw-cont-test."

schell

module Main where

import Graphics.UI.GLFW
import Control.Monad.Cont

import System.Exit                  ( exitSuccess )

main :: IO ()
main = do
    putStrLn "Running glfw-cont-test."

schell

module Main where

import Graphics.UI.GLFW
import Control.Monad.Cont

import System.Exit                  ( exitSuccess )

main :: IO ()
main = do
    putStrLn "Running glfw-cont-test."