cortex: org/test-creature.org comparison

comparison org/test-creature.org @ 90:6d7c17c847a3

saving progress

author	Robert McIntyre <rlm@mit.edu>
date	Sun, 08 Jan 2012 06:11:58 -0700
parents	cd5151b5e7c3
children	2bcc7636cfea

comparison

equal deleted inserted replaced

-:cd5151b5e7c3
+:6d7c17c847a3
 (def hand "Models/creature1/one.blend")
 (def worm "Models/creature1/try-again.blend")
+(def touch "Models/creature1/touch.blend")
+(defn worm-model [] (load-blender-model worm))
 (defn x-ray [#^ColorRGBA color]
 (doto (Material. (asset-manager)
 "Common/MatDefs/Misc/Unshaded.j3md")
 (.setColor "Color" color)
 (-> (.getAdditionalRenderState)
 (box 10 2 10 :position (Vector3f. 0 -9 0)
 :color ColorRGBA/Gray :mass 0)
 x-axis y-axis z-axis
 ])
 standard-debug-controls
-(comp light-up-everything enable-debug
+(fn [world]
-(fn [world]
+(light-up-everything world)
-(.setTimer world (NanoTimer.))
+(enable-debug world)
-;;(set-gravity world (Vector3f. 0 0 0))
+;;(com.aurellem.capture.Capture/captureVideo
-(speed-up world)
+;; world (file-str "/home/r/proj/ai-videos/hand"))
-world
+(.setTimer world (NanoTimer.))
-))
+;;(set-gravity world (Vector3f. 0 0 0))
-no-op)))
+(speed-up world)
+)
+no-op
+;;(let [timer (atom 0)]
+;;  (fn [_ _]
+;;    (swap! timer inc)
+;;    (if (= (rem @timer 60) 0)
+;;      (println-repl (float (/ @timer 60))))))
+)))
+(def colorful (.getChild (worm-model) "worm-21"))
+(def im-data
+(let [sink (byte-array 3145727)
+data (.getData (.getImage texture) 0)]
+(.rewind data)
+(.get data sink)
+(vec (seq sink))))
+(import jme3tools.converters.ImageToAwt)
+(import ij.ImagePlus)
+(defn triangle-indices
+"Get the triangle vertex indices of a given triangle from a given
+mesh."
+[#^Mesh mesh triangle-index]
+(let [indices (int-array 3)]
+(.getTriangle mesh triangle-index indices)
+(vec indices)))
+(defn uv-coord
+"Get the uv-coordinates of the vertex named by vertex-index"
+[#^Mesh mesh vertex-index]
+(let [UV-buffer
+(.getData
+(.getBuffer
+mesh
+VertexBuffer$Type/TexCoord))]
+[(.get UV-buffer (* vertex-index 2))
+(.get UV-buffer (+ 1 (* vertex-index 2)))]))
+(defn touch-receptor-image [#^Geometry obj]
+;; yay there's a converter!
+(defn uv-image []
+(let
+[colorful (.getChild (worm-model) "worm-21")
+mat (.getMaterial colorful)
+texture
+(.getTextureValue
+(.getTextureParam
+mat
+MaterialHelper/TEXTURE_TYPE_DIFFUSE))
+im (.getImage texture)]
+(ImagePlus.
+"UV-map"
+(ImageToAwt/convert im false false 0))))
+;; for each triangle in the mesh,
+;; get the normal to the triangle,
+;; look at the UV touch map, restricted to that triangle,
+;; get the positions of those touch sensors in geometry-relative
+;; coordinates.
+(defrecord LulzLoader [])
+(defprotocol Lulzable (load-lulz [this]))
+(extend-type LulzLoader
+Lulzable
+(load-lulz [this] (println "the lulz have arrived!")))
+(defn
 (defn world-setup [joint]
-(let [
+(let [joint-position (Vector3f. 0 0 0)
-joint-position (Vector3f. 0 0 0)
 joint-rotation
 (.toRotationMatrix
 (.mult
 (doto (Quaternion.)
 (.fromAngleAxis

Mercurial > cortex

comparison org/test-creature.org @ 90:6d7c17c847a3