(projection-matrix width height)

Source

(defn projection-matrix [width height] [(/ 2 width) 0 0 0 (/ -2 height) 0 -1 1 1])