Tom Streller scan

scan / .gitignore

Created September 28, 2012 09:27

Javascript to read an image and then cut it into tiles

	node_modules/
	.sw

scan / database.yml.example mysql2

Created September 25, 2012 09:07 — forked from erichurst/database.yml.example mysql2

Rails 3 database.yml examples

	# MySQL. Versions 4.1 and 5.0 are recommended.
	#
	# Install the MySQL driver:
	# gem install mysql2
	#
	# And be sure to use new-style password hashing:
	# http://dev.mysql.com/doc/refman/5.0/en/old-client.html
	development:
	adapter: mysql2
	encoding: utf8

scan / Server.hs

Created September 6, 2012 18:54

	{-# LANGUAGE OverloadedStrings, GeneralizedNewtypeDeriving, TemplateHaskell, DeriveDataTypeable #-}
	module Server where

	import Control.Monad
	import Control.Monad.Trans
	import Control.Monad.Reader
	import Control.Monad.Error
	import Happstack.Server
	import Happstack.Server.Error
	import Happstack.Server.ClientSession

scan / gist:3655954

Created September 6, 2012 12:53

	{-# LANGUAGE OverloadedStrings #-}
	module Auth where

	import Control.Monad.Trans (liftIO)
	import Control.Exception (bracket)
	import Happstack.Server
	import Server
	import Web.Authenticate.BrowserId (checkAssertion)
	import Network.HTTP.Conduit (newManager, closeManager, def)
	import Data.Text (Text)

scan / Main.hs

Created September 6, 2012 11:44

	main :: IO ()
	main = simpleHTTP nullConf $ do
	_ <- compressedResponseFilter
	msum
	[ dir "" $ do
	nullDir
	ok . toResponse $ object ["status" .= ("ok" :: Text)]
	, serveDirectory DisableBrowsing [] "./public/"
	, notFound . toResponse $ object ["error" .= ("not found" :: Text)]
	]

scan / Main.hs

Created August 31, 2012 15:07

	{-# LANGUAGE Arrows #-}
	module Main where

	import Prelude hiding ((.), id)
	import Control.Applicative
	import Control.Arrow
	import Control.Wire
	import Control.Exception
	import Control.Monad.Loops
	import qualified Control.Monad as M (when)

scan / gist:3456384

Created August 24, 2012 22:21

between = hold (pure down . keyDown <|> pure up . keyUp)

scan / loop.hs

Created August 18, 2012 17:44

	playerPos :: (Float, Float) -> SF (Float, Float) (Float, Float)
	playerPos p0 = proc speed -> do
	rec
	p' <- (^+^ p0) ^<< integral -< speed
	pos <- arr clampPos -< (p', pos)
	returnA -< pos
	where clampPos ((x,y), (ox, oy)) = (clamp x ox 40 720, clamp y oy 40 520)

	clamp a v mi ma \| a > mi && a < ma = a
	\| otherwise = v

scan / wiretest.hs

Created August 17, 2012 17:04

	{-# LANGUAGE Arrows, NoMonomorphismRestriction #-}
	module Main where

	import Prelude hiding ((.), id)
	import Control.Applicative
	import Control.Arrow
	import Control.Wire
	import qualified Control.Monad as M (when)
	import Control.Monad.Loops
	import Control.Exception

scan / datum.html

Created August 14, 2012 16:52

	<!DOCTYPE html>
	<html>
	<head>
	<script type="text/javascript">
	function check() {
	var day = parseInt(document.getElementById("iDay").value);
	var month = parseInt(document.getElementById("iMonth").value) - 1;
	var year = parseInt(document.getElementById("iYear").value);

	console.log([day,month,year]);