// LPRISA
//
//
// Draw a spiral with your eyes closed, lift the pencil?

antialias 1
set rseed <time 4>

number randoma
{
   set bb 198621
   set mm (98621+<time 4>)
   set bl (rseed*bb+1)
   set rseed (bl%mm)
   value (rseed%100)
}

paper 100
pen 0
set c 5
set bound 4

number exp a b
{
   set result 1
   repeat k 1 b
   {
      set result (result*a)
   }
   value result
}

command pawz n
{
   repeat i 0 n
   {
   }
}

command points p0 q0 p q color
{
   repeat i p0 p
   {
      repeat j q0 q
      {
         set [i j] color
         //         pawz (<exp 2 (color/c)>)
      }
   }
}

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)
      }
      pen (c*n)
      set xnew (x+(<randoma>%10))
      set ynew (y+(<randoma>%10))
      line x0 y0 xnew ynew
      line (x0-1) (y0-1) (xnew-1) (ynew-1)
      line (x0+1) (y0+1) (xnew+1) (ynew+1)
   }
}

drawpts 50 50