-- Drehen des Bildes um 180 Grad
rotate :: Picture -> Picture
rotate pic = flipV (flipH pic)
oder
rotate = flipV . flipH

-- Drehen eines Bildes um 90 Grad
rotate90 :: Picture -> Picture
rotate90 p 
  = flipV [[ x!!y | x <- p ] | y <- [0..width p-1]]