1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/org/genesis_demonstration.clj	Mon Apr 21 02:11:59 2014 -0400
     1.3 @@ -0,0 +1,66 @@
     1.4 +(ns org.aurellem.genesis_demonstration
     1.5 +  (:use clojure.java.shell)
     1.6 +  (:use org.aurellem.worm-learn)
     1.7 +  (:use org.aurellem.self-organizing-touch)
     1.8 +  (:use cortex.test)
     1.9 +  (:use cortex.import)
    1.10 +  (:use cortex.util))
    1.11 +
    1.12 +(mega-import-jme3)
    1.13 +(def play (comp dorun (partial sh "mplayer" "-fs")))
    1.14 +
    1.15 +
    1.16 +(comment
    1.17 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    1.18 +;;;;;;     CORTEX       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    1.19 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    1.20 +
    1.21 +
    1.22 +;; show some bodies
    1.23 +(.start (cortex.test.body/test-hand-3))
    1.24 +(play "/home/r/proj/cortex/video/full-hand.ogg")
    1.25 +
    1.26 +
    1.27 +;; hearing
    1.28 +;; interactive hearing
    1.29 +(run-test #'cortex.test.hearing/test-worm-hearing)
    1.30 +;; multiple listeners
    1.31 +(run-test #'cortex.test.hearing/test-java-hearing)
    1.32 +(play "/home/r/proj/cortex/video/java-hearing-test.ogg")
    1.33 +
    1.34 +;; touch
    1.35 +(run-test #'cortex.test.touch/test-basic-touch)
    1.36 +(play "/home/r/proj/cortex/video/basic-touch.ogg")
    1.37 +
    1.38 +;; proprioception
    1.39 +(run-test #'cortex.test.proprioception/test-proprioception)
    1.40 +
    1.41 +;; movement
    1.42 +(run-test #'cortex.test.movement/test-worm-movement)
    1.43 +
    1.44 +;; instrumented hand
    1.45 +(play "/home/r/proj/cortex/video/hand-fixed.mkv")
    1.46 +
    1.47 +
    1.48 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    1.49 +;;;;;;      EMPATH       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    1.50 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    1.51 +
    1.52 +
    1.53 +;; init system with a basic training script
    1.54 +(init)
    1.55 +;; demonstrate basic empathy; view phi-space
    1.56 +(empathy-experiment-1 false)
    1.57 +;; init system with an interactive training session
    1.58 +(init-interactive)
    1.59 +;; empathy is much better with more training
    1.60 +(empathy-experiment-2)
    1.61 +
    1.62 +;;;;; Learning touch
    1.63 +
    1.64 +;; small worm segment that learns its topology 
    1.65 +(learn-and-view-touch-regions)
    1.66 +
    1.67 +
    1.68 +
    1.69 +)
    1.70 \ No newline at end of file