// The lively sea walrus
paper 28
pen 100
forever
{
   //from aurora borealis 1F

   command aurora X Y
   {
      set A 
      set B 50
      set C (( + ) / 2)

      line (X+5) (Y+55) (X+5) (Y+80)
      pen A
      line (X+7) (Y+54) (X+7) (Y+82)
      pen B
      line (X+9) (Y+52) (X+9) (Y+80)
      pen C
      line (X+11) (Y+49) (X+11) (Y+78)
      pen B
      line (X+13) (Y+45) (X+13) (Y+79)
      pen C
      line (X+15) (Y+40) (X+15) (Y+82)
      pen A
      line (X+17) (Y+37) (X+17) (Y+84)
      pen B
      line (X+19) (Y+35) (X+19) (Y+88)
      pen C
      line (X+21) (Y+33) (X+21) (Y+88)
      pen B
      line (X+23) (Y+35) (X+23) (Y+86)
      pen C
      line (X+25) (Y+37) (X+25) (Y+82)
      pen B
      line (X+27) (Y+38) (X+27) (Y+78)
      pen A
      line (X+29) (Y+37) (X+29) (Y+75)
      pen C
      line (X+31) (Y+36) (X+31) (Y+74)
      pen B
      line (X+33) (Y+34) (X+33) (Y+76)
      pen A
      line (X+35) (Y+33) (X+35) (Y+74)
      pen C
      line (X+37) (Y+35) (X+37) (Y+70)
      pen B
      line (X+39) (Y+37) (X+39) (Y+68)
      pen C
      line (X+41) (Y+39) (X+41) (Y+64)
      pen A
      line (X+43) (Y+38) (X+43) (Y+61)
      pen B
      line (X+45) (Y+37) (X+45) (Y+58)
      pen C
      line (X+47) (Y+34) (X+47) (Y+55)
      pen B
      line (X+49) (Y+32) (X+49) (Y+52)
      pen A
      line (X+51) (Y+28) (X+51) (Y+49)
      pen C
      line (X+53) (Y+27) (X+53) (Y+48)
      pen B
      line (X+55) (Y+26) (X+55) (Y+49)
      pen C
      line (X+57) (Y+27) (X+57) (Y+50)
      pen A
      line (X+59) (Y+28) (X+59) (Y+47)
      pen C
   }

   //from visual illusion 2B

   command block X Y S P
   {
      pen P
      repeat A X (X + S)
      {
         line A Y A (Y + S)
      }
   }
   command outline X Y L P
   {
      pen P
      line X Y X (Y+L)
      line X (Y+L) (X+L) (Y+L)
      line (X+L) (Y+L) (X+L) Y
      line (x+L) Y X Y
   }

   //from cubist clock 2C

   command rectangle X Y W L P
   {
      pen P
      repeat E X (X+W)
      {
         line E Y E (Y+L)
      }
   }
   command threeline X Y L D P
   {
      pen P
      line X Y (X+L) Y
      line X (Y+D) (X + L) (Y+D)
      line X (Y+D+D) (X+L) (Y+D+D)
   }
   command triangle X Y L P
   {
      pen P
      repeat B X (X + L)
      {
         line X Y B (Y + L)
      }
   }

   //from pollution 4B

   command particle X Y P
   {
      pen P
      line (X-2) (Y-3) (X+2) (Y+3)
      line (X) (Y-3) (X) (Y+3)
      line (X-2) Y (X+2) Y
   }

   aurora 15 (0-12)
   //this is the sea walrus' body.
   //the motion of the aurora borealis is similar to the
   //texture of the sea walrus' skin while it is moving
   //through the water.

   block 33 74 5 0
   outline 33 74 5 100
   block 33 74 3 100
   //this is the sea walrus' eye.
   //the outline and block combination make for
   //a comical eye.

   rectangle 23 25 2 30 0
   rectangle 17 49 3 17 50
   threeline 14 58 5 2 100
   //this is the sea walrus' tusks, mouth, and whiskers.
   //these simple shapes could be easily used to add
   //details to the sea walrus

   triangle 77 20 18 100
   //this is the sea walrus' tail.

   particle 23 86 
   particle 12 77 (/2)
   particle 15 94 (*2)
   //this are the sea walrus' air bubbles.
   //the particles are small and seem to float upward.
   //as an added bonus, for some reason?, the first line
   //of the aurora borealis command has taken on the
   //characteristics of the air bubbles.  This makes it
   //look like while the sea walrus is breathing, air
   //bubbles come flow up.
}