annotate org/genesis_demonstration.clj @ 573:ebdedb039cbb tip

add release.
author Robert McIntyre <rlm@mit.edu>
date Sun, 19 Apr 2015 04:01:53 -0700
parents 9647f0168287
children
rev   line source
rlm@527 1 (ns org.aurellem.genesis_demonstration
rlm@527 2 (:use clojure.java.shell)
rlm@527 3 (:use org.aurellem.worm-learn)
rlm@527 4 (:use org.aurellem.self-organizing-touch)
rlm@527 5 (:use cortex.test)
rlm@527 6 (:use cortex.import)
rlm@527 7 (:use cortex.util))
rlm@527 8
rlm@527 9 (mega-import-jme3)
rlm@527 10 (def play (comp dorun (partial sh "mplayer" "-fs")))
rlm@527 11
rlm@527 12
rlm@527 13 (comment
rlm@527 14 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
rlm@527 15 ;;;;;; CORTEX ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
rlm@527 16 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
rlm@527 17
rlm@527 18
rlm@527 19 ;; show some bodies
rlm@527 20 (.start (cortex.test.body/test-hand-3))
rlm@527 21 (play "/home/r/proj/cortex/video/full-hand.ogg")
rlm@527 22
rlm@527 23
rlm@527 24 ;; hearing
rlm@527 25 ;; interactive hearing
rlm@527 26 (run-test #'cortex.test.hearing/test-worm-hearing)
rlm@527 27 ;; multiple listeners
rlm@527 28 (run-test #'cortex.test.hearing/test-java-hearing)
rlm@527 29 (play "/home/r/proj/cortex/video/java-hearing-test.ogg")
rlm@527 30
rlm@527 31 ;; touch
rlm@527 32 (run-test #'cortex.test.touch/test-basic-touch)
rlm@527 33 (play "/home/r/proj/cortex/video/basic-touch.ogg")
rlm@527 34
rlm@527 35 ;; proprioception
rlm@527 36 (run-test #'cortex.test.proprioception/test-proprioception)
rlm@527 37
rlm@527 38 ;; movement
rlm@527 39 (run-test #'cortex.test.movement/test-worm-movement)
rlm@527 40
rlm@527 41 ;; instrumented hand
rlm@527 42 (play "/home/r/proj/cortex/video/hand-fixed.mkv")
rlm@527 43
rlm@527 44
rlm@527 45 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
rlm@527 46 ;;;;;; EMPATH ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
rlm@527 47 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
rlm@527 48
rlm@527 49
rlm@527 50 ;; init system with a basic training script
rlm@527 51 (init)
rlm@527 52 ;; demonstrate basic empathy; view phi-space
rlm@527 53 (empathy-experiment-1 false)
rlm@527 54 ;; init system with an interactive training session
rlm@527 55 (init-interactive)
rlm@527 56 ;; empathy is much better with more training
rlm@527 57 (empathy-experiment-2)
rlm@527 58
rlm@527 59 ;;;;; Learning touch
rlm@527 60
rlm@527 61 ;; small worm segment that learns its topology
rlm@527 62 (learn-and-view-touch-regions)
rlm@527 63
rlm@527 64
rlm@570 65 ;; pokemon yellow total control hack
rlm@570 66 (play "/home/r/proj/vba-clojure/video/total-control.mp4")
rlm@527 67
rlm@570 68
rlm@570 69
rlm@570 70 )