diff org/skin.org @ 58:25142dad240a

created test suite
author Robert McIntyre <rlm@mit.edu>
date Sat, 19 Nov 2011 23:42:21 -0700
parents 00d0e1639d4b
children 63951929fe44
line wrap: on
line diff
     1.1 --- a/org/skin.org	Wed Nov 16 02:42:50 2011 -0700
     1.2 +++ b/org/skin.org	Sat Nov 19 23:42:21 2011 -0700
     1.3 @@ -227,10 +227,10 @@
     1.4  
     1.5  (defn test-skin []
     1.6    (let [b
     1.7 -	;;(transparent-box)
     1.8 -	(transparent-sphere)
     1.9 +        ;;(transparent-box)
    1.10 +        (transparent-sphere)
    1.11          ;;(sphere)
    1.12 -	f (transparent-floor)
    1.13 +        f (transparent-floor)
    1.14          debug-node (Node.)
    1.15          node      (doto (Node.) (.attachChild b) (.attachChild f))
    1.16          root-node (doto (Node.) (.attachChild node)
    1.17 @@ -247,8 +247,8 @@
    1.18         ;;  (no-logging)
    1.19         ;;(enable-debug world)
    1.20         ;;  (set-accuracy world (/ 1 60))
    1.21 -     )
    1.22 -
    1.23 +       )
    1.24 +     
    1.25       (fn [& _]
    1.26         (let [sensitivity 0.2
    1.27               touch-data (touch-percieve sensitivity b node)]