logo animation
logo backcolor "darkblue"
pointlist startcapture
pointlist loadfile "ptsfiles/wham.pts"
pointlist endcapture

message "Click with mouse in graphics area..." "Done"
repeat untilbreak [
  getkey
  logo linecolor = (calc 60 + random 40) (calc 60 + random 40) (calc 60 + random 40)
  if whichkey = "Done" [ break ]
  set scale = 0.3
  repeat (calc 10 + random 4) [
    eraseshape 
    pointlist render whereclick :scale
    wait 2
    incr scale by 0.1
    ]
  ]
