fn zRotKeys obj rotType:#cw x: step: ang: =
(
   local arr = #()
   for i = 1 to step do
   (
      for j = 1 to 2 do append arr (if mod j 2 != 0 then i*x else (i*x+(j-1)))
   )
   addNewKey obj[3][2][3].track 1
   for i = 1 to arr.count do
   (
      if mod i 2 != 0 then (addNewKey obj[3][2][3].track arr[i]) else
      (
         with animate on at time arr[i]
         (   
            if rotType == #ccw then obj[3][2][3].track.value += ang else obj[3][2][3].track.value -= ang
         )
      )
   )
)


tea = $centerdummy

zRotKeys tea rotType:#cw x:30 step:7 ang:-45