-- Skalieren eines Bildes um einen Ganzzahlwert
scale :: Int -> Picture -> Picture
scale x 
  | (x >= 0)  
    = concat . map (replicate x . concat . map (replicate x))
  | otherwise = error "Negative scaling factor"

-- Invertieren eines Bildes
invert :: Picture -> Picture
invert pic = [ [ invertChar ch | ch <- line] | line <- pic ]
oder
invert pic = [ invertLine line | line <- pic ] 
oder
invert = map (map invertChar)

-- Invertieren eines Zeichens
invertChar :: Char -> Char
invertChar ch = if ch == '.' then '#' else '.'