logo animation  // disallow printing

include landscape1
include tracer

landscape1 250 3 500

message "Meteor shower" "Stop"
repeat untilbreak [
  if keypress = 1 [ break ]
  logo linecolor = "darkblue"
  pointlist clearall
  pointlist startcapture
    pu; moveto random 200 (calc 500 + random 250)
    pd; moveto (calc 400 + random 200) (calc 250 + random 200)
  pointlist endcapture

  pointlist startcapture
   pointlist dotfill 10
  pointlist endcapture

  tracer 3 60
  wait random 200
  ]

