module Functions
where

import Data.List(transpose)

import Types

black   ::          Int -> Int -> Picture
black	= error "not yet implemented"

white   ::          Int -> Int -> Picture
white	= error "not yet implemented"

grey    :: Color -> Int -> Int -> Picture
grey c w h
    = error "not yet implemented"

b2wH    ::          Int -> Int -> Picture
b2wH w h
    = error "not yet implemented"

b2wV    ::          Int -> Int -> Picture
b2wV w h
    = error "not yet implemented"

b2wD    ::          Int -> Int -> Picture
b2wD w h
    = error "not yet implemented"

toFloat	:: Int -> Float
toFloat	= fromInteger . toInteger

-- ----------------------------------------

mapPicture	:: (Color -> Color) ->
		   Picture -> Picture
mapPicture f	= error "not yet implemented"

invert		:: Picture -> Picture
invert		= error "not yet implemented"

bitMap		:: Picture -> Picture
bitMap		= error "not yet implemented"

reduceColors	:: Int -> Picture -> Picture
reduceColors n
    = error "not yet implemented"

gammaFct	:: Float -> Float -> Float
gammaFct g x	= x ** (1.0 / g)

gamma		:: Float ->
		   Picture -> Picture
gamma g		= error "not yet implemented"

stretch		:: Picture -> Picture
stretch p	= error "not yet implemented"

-- ----------------------------------------

flipH	:: Picture -> Picture
flipH	= error "not yet implemented"

flipV	::          Picture -> Picture
flipV	= error "not yet implemented"

rot90	:: Picture -> Picture
rot90	= error "not yet implemented"

rot180	::          Picture -> Picture
rot180	= error "not yet implemented"

rot270	:: Picture -> Picture
rot270	= error "not yet implemented"

-- ----------------------------------------

halfSize	:: Picture -> Picture
halfSize
    = error "not yet implemented"

mean		:: Color -> Color -> Color
mean x y	= (x + y) / 2.0

-- ----------------------------------------