-- Bild an der horizontalen Achse spiegeln
flipH :: Picture -> Picture
flipH = reverse

-- Bild an der vertikalen Achse spiegeln
flipV :: Picture -> Picture
flipV pic = [ reverse line | line <- pic ] 
oder 
flipV = map reverse