 (def n repeat)
 
 
-(defn nn
+(defhigh nn
   [times seq]
   (repeat times (cat seq)))
 

      (.updateBound))

    (doto (Geometry. "triangle" triangle-mesh)
      (.setMaterial (default-material)))))



    (.setColor "Color"  default-color)))


(defn- optimize
  "Optimize a Spatial. Internal use."
  [spatial]
  (doto (.getChild ^Node (GeometryBatchFactory/optimize spatial) 0)
    (.setName "structured")))


(defhigh merge-geometries

  [geom1 geom2]
  (let [out-mesh (Mesh.)]
    (GeometryBatchFactory/mergeGeometries [geom1 geom2] out-mesh)
    (doto (Geometry. "structured" out-mesh)
      (optimize)
      (.setMaterial (default-material)))))


