##
# Borrowed from WaveWorld Examples (singleEyeWithShinyThing)
##

startShape eyeBall
  Rotate 180 1 0 0
  animatable: {Rotate $eyes(xR) 1 0 0 }
  animatable: {Rotate $eyes(yR) 0 1 0 }
  animatable: {Rotate $eyes(zR) 0 0 1 }
  startShape whitePart
    Color {1 1 1}
    animatable: {Scale $eyes(xScale) $eyes(yScale) $eyes(zScale)}
    animatable: {Sphere $eyes(radius) $eyes(zMin) $eyes(zMax) $eyes(thetaMax)}
    startShape pupil
      animatable: {Translate 0 0  [expr {0.0 - $eyes(radius)}]}
      animatable: {Color $eyes(color)}
      Scale 1 1 0.3
      animatable: {Sphere [expr {$eyes(pupil) * $eyes(radius)}] \
                     [expr {$eyes(pupil) * $eyes(zMin)}] [expr {$eyes(pupil) * $eyes(zMax)}] \
                     $eyes(thetaMax)}
    endShape
  endShape
endShape