   "OHTA -> RGB"
   [^Vec4 c]
   (let [i1 (.x c) ; divided by 3
-        i2  (- (.y c) 127.5) ; divided by 2
+        i2 (- (.y c) 127.5) ; divided by 2
         i3 (- (* c46 (.z c)) 85.0) ; divided by 6
         r (clamp255 (+ i1 i2 i3))
         g (clamp255 (- i1 i3 i3))

        g (/ (- (.x c) (* 0.2126 r) (* 0.0722 b)) 0.7152)]
    (Vec4. (clamp255 r) (clamp255 g) (clamp255 b) (.w c))))

;;(test-colors (comp from-YPbPr to-YPbPr))



          g (bit-and 0xff (bit-shift-right cc 8))
          b (bit-and 0xff cc)
          ^Vec4 res (f (Vec4. r g b 255))
          nmnr (if (< (.x res) mnr) (.x res) mnr)
          nmxr (if (> (.x res) mxr) (.x res) mxr)
          nmng (if (< (.y res) mng) (.y res) mng)
          nmxg (if (> (.y res) mxg) (.y res) mxg)
          nmnb (if (< (.z res) mnb) (.z res) mnb)
          nmxb (if (> (.z res) mxb) (.z res) mxb)]
      (if (< cc 0x1000000)
        (recur (inc cc) (int nmnr) (int nmxr) (int nmng) (int nmxg) (int nmnb) (int nmxb))
        [nmnr nmxr nmng nmxg nmnb nmxb]))))


