Mercurial > cortex

     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 ;; pokemon yellow total control hack

    66 (play "/home/r/proj/vba-clojure/video/total-control.mp4")

    67 

    68 

    69 

    70 )
author	Robert McIntyre <rlm@mit.edu>
date	Sun, 08 Mar 2015 22:08:17 -0700
parents	9647f0168287
children