// EYES demo

logo animation
logo backcolor "black" 
set eyecolor = "red"
set eyesize = 70
pu
message "Eyes.." "Stop"
repeat untilbreak [
  if keypress = 1  [ break ]
  if :eyecolor = "red" [ set eyecolor = "green" ]
  else [ set eyecolor = "red" ]

  set whicheye = "left"
  repeat 2 [

    if :whicheye = "left" [ moveto 200 center ]
    else [ moveto 550 center ]
   
    pd
    ellipse :eyesize (calc :eyesize - 40)
    logo fillcolor :eyecolor
    fillshape
  
    set pupilsize = (calc :eyesize - 60)
    ellipse  40 :pupilsize
    logo fillcolor "black"
    fillshape
    pu

    if :whicheye = "left" [ set whicheye = "right" ]
    ]

  if :eyesize < 200 [ incr eyesize by 5 ]

  wait 10 
  ]
