; Pendulum wave simulation ; Newton's cradle (experiment of timesensor implementation) ; By Andy Yeh (2017) clean home ct reset setbg 31 ; black background ; collect orientations tr 40 collectori "oris repeat 4 [ tl 20 ] repeat 4 [ tr 20 ] endcollect "oris home ; create cradle and animation make "start gettime/1000 ; get a common startTime for timeSensors setmat 4 20 ; neon blue for balls setpcname "white repeat 20 [ transform make "obj object rd 90 setparent :obj pd fd 3 pu setscale .5 .5 .5 ball setscale 1 1 1 setparent "root bk 3 ru 90 make "t 6 - # * .1 orient :obj :oris :t set word "orient_ts_ :obj "startTime :start fd 1 ] ; create a rod on top bk 10.5 setscale .1 20 .1 setmat 4 4 ; neon orange for the rod rd 90 can ru 90