home *** CD-ROM | disk | FTP | other *** search
/ Virtual Reality Homebrewer's Handbook / vr.iso / vr386 / rooms / rdance.ani < prev    next >
Text File  |  1996-03-19  |  5KB  |  113 lines
  1. # dancing robot animation
  2.  
  3. animation 150
  4.  state init
  5.     do mm.chest=moveto(x,x,x x,0,x)[]
  6.     do mm.left_thigh=moveto(x,x,x 0,x,x)[]
  7.     do mm.left_calf=moveto(x,x,x 0,x,x)[]
  8.     do mm.left_upper_arm=moveto(x,x,x 0,x,x)[]
  9.     do mm.left_forearm=moveto(x,x,x 0,x,x)[]
  10.     do mm.right_upper_arm=moveto(x,x,x 0,x,x)[]
  11.     do mm.right_forearm=moveto(x,x,x 0,x,x)[]
  12.     do mm.head=moveto(x,x,x x,0,x)[state=a]
  13.  state a
  14.     do mm.chest=step(x,x,x x,60,x)[]                  # to 30
  15.     do mm.left_thigh=step(x,x,x 180,x,x)[]            # to 90
  16.     do mm.left_calf=step(x,x,x -180,x,x)[]            # to -90
  17.     do mm.left_upper_arm=step(x,x,x -90,x,x)[]        # to -45
  18.     do mm.left_forearm=step(x,x,x 180,x,x)[]          # to 90
  19.     do mm.right_upper_arm=step(x,x,x 90,x,x)[]        # to 45
  20.     do mm.right_forearm=step(x,x,x 180,x,x)[]         # to 90
  21.     do mm.head=step(x,x,x x,40,x)[]                   # to 20
  22.  
  23.     do mm.chest=rotlimit(x,x,x x,30,x)[][]
  24.     do mm.left_calf=rotlimit(-90,x,x x,x,x)[][]
  25.     do mm.left_upper_arm=rotlimit(-45,x,x x,x,x)[][]
  26.     do mm.left_forearm=rotlimit(x,x,x 90,x,x)[][]
  27.     do mm.right_upper_arm=rotlimit(x,x,x 45,x,x)[][]
  28.     do mm.right_forearm=rotlimit(x,x,x 90,x,x)[][]
  29.     do mm.head=rotlimit(x,x,x x,20,x)[][]
  30.     do mm.left_thigh=rotlimit(x,x,x 90,x,x)[state=b][]
  31.  
  32.  state b
  33.     do mm.chest=step(x,x,x x,-60,x)[]                 # to 0
  34.     do mm.left_thigh=step(x,x,x -180,x,x)[]           # to 0
  35.     do mm.left_calf=step(x,x,x 180,x,x)[]             # to 0
  36.     do mm.left_upper_arm=step(x,x,x 90,x,x)[]         # to 0
  37.     do mm.left_forearm=step(x,x,x -180,x,x)[]         # to 0
  38.     do mm.right_upper_arm=step(x,x,x -90,x,x)[]       # to 0
  39.     do mm.right_forearm=step(x,x,x -180,x,x)[]        # to 0
  40.     do mm.head=step(x,x,x x,-40,x)[]                  # to 0
  41.  
  42.     do mm.chest=rotlimit(x,0,x x,x,x)[][]
  43.     do mm.left_calf=rotlimit(x,x,x 0,x,x)[][]
  44.     do mm.left_upper_arm=rotlimit(x,x,x 0,x,x)[][]
  45.     do mm.left_forearm=rotlimit(0,x,x x,x,x)[][]
  46.     do mm.right_upper_arm=rotlimit(0,x,x x,x,x)[][]
  47.     do mm.right_forearm=rotlimit(0,x,x x,x,x)[][]
  48.     do mm.head=rotlimit(x,0,x x,x,x)[][]
  49.     do mm.left_thigh=rotlimit(0,x,x x,x,x)[state=c][]
  50.  
  51.  state c
  52.     do mm.chest=step(x,x,x x,-60,x)[]                 # to -30
  53.     do mm.right_thigh=step(x,x,x 180,x,x)[]           # to 90
  54.     do mm.right_calf=step(x,x,x -180,x,x)[]           # to -90
  55.     do mm.left_upper_arm=step(x,x,x 90,x,x)[]         # to 45
  56.     do mm.left_forearm=step(x,x,x 180,x,x)[]          # to 90
  57.     do mm.right_upper_arm=step(x,x,x -90,x,x)[]       # to -45
  58.     do mm.right_forearm=step(x,x,x 180,x,x)[]         # to 90
  59.     do mm.head=step(x,x,x x,-40,x)[]                  # to -20
  60.  
  61.     do mm.chest=rotlimit(x,-30,x x,x,x)[][]
  62.     do mm.right_calf=rotlimit(-90,x,x x,x,x)[][]
  63.     do mm.left_upper_arm=rotlimit(x,x,x 45,x,x)[][]
  64.     do mm.left_forearm=rotlimit(x,x,x 90,x,x)[][]
  65.     do mm.right_upper_arm=rotlimit(-45,x,x x,x,x)[][]
  66.     do mm.right_forearm=rotlimit(x,x,x 90,x,x)[][]
  67.     do mm.head=rotlimit(x,-20,x x,x,x)[][]
  68.     do mm.right_thigh=rotlimit(x,x,x 90,x,x)[state=d][]
  69.  
  70.  state d
  71.     do mm.chest=step(x,x,x x,60,x)[]                  # to 0
  72.     do mm.right_thigh=step(x,x,x -180,x,x)[]          # to 0
  73.     do mm.right_calf=step(x,x,x 180,x,x)[]            # to 0
  74.     do mm.left_upper_arm=step(x,x,x -90,x,x)[]        # to 0
  75.     do mm.left_forearm=step(x,x,x -180,x,x)[]         # to 0
  76.     do mm.right_upper_arm=step(x,x,x 90,x,x)[]        # to 0
  77.     do mm.right_forearm=step(x,x,x -180,x,x)[]        # to 0
  78.     do mm.head=step(x,x,x x,40,x)[]                   # to 0
  79.  
  80.     do mm.chest=rotlimit(x,x,x x,0,x)[][]
  81.     do mm.right_calf=rotlimit(x,x,x 0,x,x)[][]
  82.     do mm.left_upper_arm=rotlimit(0,x,x x,x,x)[][]
  83.     do mm.left_forearm=rotlimit(0,x,x x,x,x)[][]
  84.     do mm.right_upper_arm=rotlimit(x,x,x 0,x,x)[][]
  85.     do mm.right_forearm=rotlimit(0,x,x x,x,x)[][]
  86.     do mm.head=rotlimit(x,x,x x,0,x)[][]
  87.     do mm.right_thigh=rotlimit(0,x,x x,x,x)[state=a][]
  88.  
  89.  
  90.  
  91. # this stuff is leftover from sensor/click tests
  92.  
  93. #animation 15
  94. # state init
  95. ##    do sensor(0,0,0,5000,5000,5000)[][state=one]
  96. #    do mm.chest=moveto (0,x,x,0,0,0) []
  97. #    do mm.chest=selected (0)[][state=one]
  98. # state one
  99. ##    do sensor(0,0,0,5000,5000,5000)[state=init][]
  100. #    do mm.chest=selected(1) [state=init][]
  101. ##    do timer(1)[][state=two]
  102. #    do mm.chest=poslimit(x,x,x 1000,x,x)[state=two][]
  103. #    do mm.chest=rotlimit(-10,x,x 10,x,x)[][]
  104. #    do mm.chest=step (1000,x,x,-30,0,0) []
  105. # state two
  106. ##    do sensor(0,0,0,5000,5000,5000)[state=init][]
  107. #    do mm.chest=selected (1)[state=init][]
  108. ##    do timer(1)[][state=one]
  109. #    do mm.chest=poslimit(-1000,x,x x,x,x)[state=one][]
  110. #    do mm.chest=rotlimit(-10,x,x 10,x,x)[][]
  111. #    do mm.chest=step (-1000,x,x 30,0,0) []
  112.  
  113.