(define (flip vect horizintal? vertical?)
  (if horizintal? (if vertical?
		      (vect:flip-h (vect:flip-v vect))
		      (vect:flip-h vect))
      vect))