|
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 )
|
