rlm@527: (ns org.aurellem.genesis_demonstration
rlm@527:   (:use clojure.java.shell)
rlm@527:   (:use org.aurellem.worm-learn)
rlm@527:   (:use org.aurellem.self-organizing-touch)
rlm@527:   (:use cortex.test)
rlm@527:   (:use cortex.import)
rlm@527:   (:use cortex.util))
rlm@527: 
rlm@527: (mega-import-jme3)
rlm@527: (def play (comp dorun (partial sh "mplayer" "-fs")))
rlm@527: 
rlm@527: 
rlm@527: (comment
rlm@527: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
rlm@527: ;;;;;;     CORTEX       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
rlm@527: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
rlm@527: 
rlm@527: 
rlm@527: ;; show some bodies
rlm@527: (.start (cortex.test.body/test-hand-3))
rlm@527: (play "/home/r/proj/cortex/video/full-hand.ogg")
rlm@527: 
rlm@527: 
rlm@527: ;; hearing
rlm@527: ;; interactive hearing
rlm@527: (run-test #'cortex.test.hearing/test-worm-hearing)
rlm@527: ;; multiple listeners
rlm@527: (run-test #'cortex.test.hearing/test-java-hearing)
rlm@527: (play "/home/r/proj/cortex/video/java-hearing-test.ogg")
rlm@527: 
rlm@527: ;; touch
rlm@527: (run-test #'cortex.test.touch/test-basic-touch)
rlm@527: (play "/home/r/proj/cortex/video/basic-touch.ogg")
rlm@527: 
rlm@527: ;; proprioception
rlm@527: (run-test #'cortex.test.proprioception/test-proprioception)
rlm@527: 
rlm@527: ;; movement
rlm@527: (run-test #'cortex.test.movement/test-worm-movement)
rlm@527: 
rlm@527: ;; instrumented hand
rlm@527: (play "/home/r/proj/cortex/video/hand-fixed.mkv")
rlm@527: 
rlm@527: 
rlm@527: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
rlm@527: ;;;;;;      EMPATH       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
rlm@527: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
rlm@527: 
rlm@527: 
rlm@527: ;; init system with a basic training script
rlm@527: (init)
rlm@527: ;; demonstrate basic empathy; view phi-space
rlm@527: (empathy-experiment-1 false)
rlm@527: ;; init system with an interactive training session
rlm@527: (init-interactive)
rlm@527: ;; empathy is much better with more training
rlm@527: (empathy-experiment-2)
rlm@527: 
rlm@527: ;;;;; Learning touch
rlm@527: 
rlm@527: ;; small worm segment that learns its topology 
rlm@527: (learn-and-view-touch-regions)
rlm@527: 
rlm@527: 
rlm@570: ;; pokemon yellow total control hack
rlm@570: (play "/home/r/proj/vba-clojure/video/total-control.mp4")
rlm@527: 
rlm@570: 
rlm@570: 
rlm@570: )