Flipping drawing

flipping.clj

(ns test.core
  (:require [quil.core :as q]))


(defn draw []
  (q/background 255)
  (q/fill 0)
  (q/with-translation [(/ (q/width) 2)
                       (/ (q/height) 2)]
    (q/apply-matrix 
      1 0 0 
      0 -1 0)
    (q/triangle 0 0 100 0 100 100)
    (q/text "Hello" 0 100 )))

(q/defsketch my-sketch
  :draw draw
  :size [500 500])