(defn
ortho-matrix-3d
[left right bottom top near far]
(let
[width (- right left) height (- top bottom) depth (- near far)]
[(/ 2 width)
0
0
0
0
(/ 2 height)
0
0
0
0
(/ 2 depth)
0
(/ (+ left right) (- left right))
(/ (+ bottom top) (- bottom top))
(/ (+ near far) (- near far))
1]))