 (defmacro contact!
   [object k & options]
   `(u/call! ^Contact ~object ~k ~@options))
-
-(defmacro fixture!
-  [object k & options]
-  `(u/call! ^Fixture ~object ~k ~@options))
 
 (defn find-body
   [body entities]

  `(let [^FixtureDef object# (FixtureDef.)]
     (u/fields! object# ~@options)
     object#))

; shapes


  `(let [object# (~(joint-init k))]
     (u/fields! object# ~@options)))

(defmacro joint!
  [object k & options]
  `(u/call! ^Joint ~object ~k ~@options))

(defn create-joint!*
  [screen j-def]
  (box-2d! screen :create-joint j-def))
