// all these elements fit. no explanation necessary.

norefresh
paper 100
pen 0

antialias 1

command griddify_normal
{
   pen 50
   repeat n 0 9
   {
      line 0 50 50 (5+10*n)
      line 50 (5+10*n) 100 50
      line 50 0 50 100
   }
   refresh
}

command griddify_time
{
   pen 50
   repeat n 0 9
   {
      line 50 0 (5+n*10) 50
      line (5+n*10) 50 50 100
   }
   refresh
}

command spiritualize
{
   griddify_normal
   griddify_time
}

command galaxy
{
   set [43 45] 0
   set [45 47] 0
   set [45 50] 0
   set [46 51] 0
   set [47 54] 0
   set [46 45] 0
   set [46 47] 0
   set [49 49] 0
   set [47 50] 0
   set [43 53] 0
   set [43 45] 0
   set [46 47] 0
   set [47 49] 0
   set [47 50] 0
   set [49 53] 0
   set [50 49] 0
   set [48 50] 0
   set [49 51] 0
   set [48 52] 0
   set [47 54] 0
   set [49 48] 0
   set [51 49] 0
   set [47 50] 0
   set [48 51] 0
   set [52 52] 0
   set [51 48] 0
   set [52 49] 0
   set [50 50] 0
   set [49 51] 0
   set [47 52] 0
   set [51 47] 0
   set [50 48] 0
   set [51 50] 0
   set [54 51] 0
   set [49 52] 0
   set [50 47] 0
   set [52 48] 0
   set [50 50] 0
   set [49 51] 0
   set [54 52] 0
   set [53 47] 0
   set [50 48] 0
   set [54 50] 0
   set [53 51] 0
   set [52 52] 0
   set [56 45] 0
   set [54 46] 0
   set [57 47] 0
   set [54 51] 0
   set [52 53] 0
   set [57 46] 0
   set [53 49] 0
   set [54 50] 0
   set [52 53] 0
   set [51 55] 0
}

command spiral
{
   pen 0
   set c 5
   set bound 4

   command points p0 q0 p q color
   {
      repeat i p0 p
      {
         repeat j q0 q
         {
            set [i j] color
         }
      }
   }

   command drawpts x0 y0
   {
      set x x0
      set y y0
      repeat n 0 (100/c)
      {
         set x0 x
         set y0 y
         same? 0 (n % 4)
         {
            set y (y0+c*n)
         }
         same? 1 (n % 4)
         {
            set x (x0+c*n)
         }
         same? 2 (n % 4)
         {
            set y (y0-c*n)
         }
         same? 3 (n % 4)
         {
            set x (x0-c*n)
         }
         points x0 y0 x y (c*n)
         refresh
      }
   }

   drawpts 50 50
}

spiritualize
galaxy
spiral