; a walking man ; cs reset deselect up 1.6 setscale 0.25 0.32 0.25 setmat 11 5 ball ; head fd 0.1 setscale 0.08 0.1 0.1 setmat 11 4 cone ; nose up 0.03 west 0.05 setscale 0.05 0.05 0.05 setmat 14 27 ball ; left eye east 0.1 ball ; right eye west 0.05 dn 0.12 setscale 0.12 0.03 0.05 setmat 10 1 ball ; mouth bk 0.1 dn 0.04 setscale 0.1 0.1 0.1 setmat 11 4 can ; neck dn 0.30 setscale 0.30 0.5 0.12 setmat 11 29 box ; body west 0.2 dn 0.05 tr 10 setscale 0.1 0.6 0.1 setmat 11 9 can ; left arm make "leftarm object ; while here collect some movements for animation for left arm make "lap [] queue "lap pos ; lap = left arm positions make "lao [] queue "lao ori ; lao = left arm orientation ru 90 fd 0.3 rd 210 fd 0.3 ru 90 queue "lap pos ; lap = left arm positions queue "lao ori ; lao = left arm orientation ru 90 fd 0.3 rd 150 fd 0.3 ru 90 queue "lap pos ; lap = left arm positions queue "lao ori ; lao = left arm orientation ru 90 fd 0.3 rd 150 fd 0.3 ru 90 queue "lap pos ; lap = left arm positions queue "lao ori ; lao = left arm orientation ru 90 fd 0.3 rd 210 fd 0.3 ru 90 queue "lap pos ; lap = left arm positions queue "lao ori ; lao = left arm orientation ; left arm animation recorded tl 10 east 0.4 tl 10 can ; right arm make "rightarm object ; while here collect some movements for animation for left arm make "rap [] queue "rap pos ; rap = right arm positions make "rao [] queue "rao ori ; rao = right arm orientation ru 90 fd 0.3 rd 150 fd 0.3 ru 90 queue "rap pos ; rap = right arm positions queue "rao ori ; rao = right arm orientation ru 90 fd 0.3 rd 210 fd 0.3 ru 90 queue "rap pos ; rap = right arm positions queue "rao ori ; rao = right arm orientation ru 90 fd 0.3 rd 210 fd 0.3 ru 90 queue "rap pos ; rap = right arm positions queue "rao ori ; rao = right arm orientation ru 90 fd 0.3 rd 150 fd 0.3 ru 90 queue "rap pos ; rap = right arm positions queue "rao ori ; rao = right arm orientation ; right arm animation recorded tr 10 west 0.2 dn 0.285 setscale 0.3 0.17 0.12 setmat 11 15 box ; waist pelvis dn 0.42 west 0.08 setscale 0.13 0.7 0.12 setmat 11 9 can ; left leg make "leftleg object make "key [0 0.25 0.5 0.75 1] make "lv [] queue "lv pos up 0.2 queue "lv pos dn 0.2 repeat 3 [queue "lv pos] east 0.16 can ; right leg make "rightleg object make "rv [] queue "rv pos repeat 2 [queue "rv pos] up 0.2 queue "rv pos dn 0.2 queue "rv pos timesensor "ts 2 "true posint "lapi :key :lap oriint "laoi :key :lao posint "rapi :key :rap oriint "raoi :key :rao posint "llpi :key :lv posint "rlpi :key :rv route "laroutep1 "ts "fraction_changed "lapi "set_fraction route "larouteo1 "ts "fraction_changed "laoi "set_fraction route "laroutep2 "lapi "value_changed :leftarm "translation route "larouteo2 "laoi "value_changed :leftarm "rotation route "raroutep1 "ts "fraction_changed "rapi "set_fraction route "rarouteo1 "ts "fraction_changed "raoi "set_fraction route "raroutep2 "rapi "value_changed :rightarm "translation route "rarouteo2 "raoi "value_changed :rightarm "rotation route "llroute1 "ts "fraction_changed "llpi "set_fraction route "rlroute1 "ts "fraction_changed "rlpi "set_fraction route "llroute2 "llpi "value_changed :leftleg "translation route "rlroute2 "rlpi "value_changed :rightleg "translation ;