//cathing a raindrop

pen 100
antialias 1
forever
{
   //the back side of the cage
   pen 100
   repeat C 0 2
   {
      line (25+C) ((-25)+C) (25+C) ((+25)+C)
      line (45+C) ((-5)+C) (45+C) ((45+)+C)
      line (45+C) ((-5)+C) 100 ((-5)+C)
      line (45+C) ((+46)+C) 100 ((+46)+C)
      line (25+C) ((+25)+C) (45+C) ((+45)+C)
      line (25+C) ((-25)+C) (45+C) ((-5)+C)
   }
   set D ()

   //raindrop (slightly altered) from 2B
   repeat B 10 11
   {
      set [(50+B) (77+30-D)] 40
      set [(49+B) (73+30-D)] 40
      set [(47+B) (67+30-D)] 40
      set [(46+B) (64+30-D)] 40
      set [(43+B) (60+30-D)] 40
      set [(40+B) (55+30-D)] 40
      set [(36+B) (50+30-D)] 40
      set [(34+B) (45+30-D)] 40
      set [(54+B) (64+30-D)] 40
      set [(60+B) (55+30-D)] 30
      set [(34+B) (40+30-D)] 45
      set [(36+B) (36+30-D)] 45
      set [(39+B) (33+30-D)] 45
      set [(41+B) (31+30-D)] 45
      set [(43+B) (30+30-D)] 45
      set [(46+B) (29+30-D)] 45
      set [(50+B) (28+30-D)] 45
      set [(35+B) (38+30-D)] 45
      set [(38+B) (34+30-D)] 45
   }
   repeat A 7 13
   {
      set [(66+A) (40+30-D)] 30
      set [(61+A) (33+30-D)] 30
      set [(57+A) (30+30-D)] 30
      set [(54+A) (29+30-D)] 30
      set [(50+A) (28+30-D)] 30
      set [(36+A) (42+30-D)] 30
      set [(40+A) (38+30-D)] 30
      set [(40+A) (36+30-D)] 30
      set [(43+A) (32+30-D)] 30
      set [(46+A) (31+30-D)] 30
      set [(49+A) (30+30-D)] 30
      set [(51+A) (30+30-D)] 30
      set [(42+A) (34+30-D)] 30
      set [(37+A) (40+30-D)] 30
      set [(45+A) (33+30-D)] 30
      set [(53+A) (31+30-D)] 30
      set [(42+A) (42+30-D)] 30
      set [(44+A) (47+30-D)] 30
      set [(38+A) (45+30-D)] 30
      set [(40+A) (49+30-D)] 30
      set [(43+A) (52+30-D)] 30
      set [(46+A) (57+30-D)] 30
      set [(50+A) (40+30-D)] 30
      set [(47+A) (38+30-D)] 30
      set [(44+A) (36+30-D)] 30
      set [(46+A) (41+30-D)] 30
      set [(50+A) (35+30-D)] 30
      set [(53+A) (34+30-D)] 30
      set [(49+A) (33+30-D)] 30
      set [(44+A) (38+30-D)] 30
      set [(56+A) (33+30-D)] 30
   }

   //the front side of the cage
   repeat D 0 2
   {
      line (87+D) ((-5)+D) (87+D) ((45+)+D)
      line (67+D) ((+25)+D) (87+D) ((+45)+D)
      line (67+D) ((-25)+D) (87+D) ((-5)+D)
      line 0 ((-26)+D) (67+D) ((-26)+D)
      line 0 ((+25)+D) (67+D) ((+25)+D)
      line (67+D) ((-25)+D) (67+D) ((+25)+D)
   }
   pen 20
   repeat E 90 100
   {
      line E (-2) E (+45)
   }
   pen 10
   repeat F 0 24
   {
      line F (-23) F (+24)
   }

   paper 5
}