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