-- Erweiterung der Pixel-Typklasse
normalize   :: a -> Double
denormalize :: Double -> a
shader      :: (Double -> Double) -> a -> a
shader f    =  denormalize . f . normalize