 
 (defn matrix-multiplication [m1 m2]
   (let [res-mat (Mat.)]
-    (Core/gemm h p2 1  (Mat.) 0 res-mat 0))
-    res-mat
-  )
+    (Core/gemm h p2 1  (Mat.) 0 res-mat 0)
+    res-mat))
+
 ;; ----------------------------------------------------------------
 ;; Feature detection
 ;; ----------------------------------------------------------------

        a (into-array matches)]
    (.fromArray m a)
    m))





  (def keyImage (first rsiv))
  (def h (calculate-homography (first rsiv) (second rsiv)))
  (def base-points (create-base-points keyImage))
  (def base-p-calc
     (for [x (range 0 (.rows base-points))]
      (matrix-multiplication h (.t (.row base-points x)))))


)
