// ITP Thursday Night Out Announcement for Sept. 11, 2003
// by Josh Nimoy

property f

on loop
  fw =  34
  fh =  88
  r = 64
  c = 0
  repeat with y = 0  to fh - 1
    repeat with x = 0  to fw - 1
      tp = f[1+(y*fw+x)]
      if(tp=0)then
        cc = 4 + c
        xx = ((x * 2) + 85)
        yy = ((y * 2) + 50)
        d = dst(the mouseH,the mouseV,xx,yy)
        if(d > r) then
          xx = xx + (random(d-r)-((d-r)/2))
          yy = yy + (random(d-r)-((d-r)/2))
          sprite(cc).width = (d-r)/10+2
          sprite(cc).height = (d-r)/10+2
          sprite(cc).color = rgb(random(d-r), ¬
          random(d-r), ¬
          random(d-r))
          sprite(cc).rotation = (d-r)
          sprite(cc).blend = max(0,400-(d-r))/4
        else
          sprite(cc).width = 2
          sprite(cc).height = 2
          sprite(cc).color = rgb(0,0,0)          
          sprite(cc).rotation = 0
          sprite(cc).blend = 100
        end if
        sprite(cc).loc = point(xx,yy)
        c = c + 1
      end if
    end repeat
  end repeat    
end

on exitFrame me
  loop()
  go the frame
end

on beginsprite
  setup()
end

on dst x1, y1, x2, y2
  x = x1 - x2
  y = y1 - y2
  return sqrt(x*x+y*y)
end


on setup
  r = "111111111111111111111110111111111111111111111
11111111111111111111111111111111111111111110111111
11111111111111111111111111000001111111111111111111
11111111111011111111111111111111111111111111111111
11111111111111111111111111111001011111111111111111
11111111111110100111111111111110111111111111111011
01111111111111111111111111111111001111111111110111
11111111111111111111111111111000001111111111111110
01011111111111011111111111111111101001111111111111
11111111111111111011011111111111000011111111111111
11001111111111111110111111111111111111111111111111
11101111111111111110111111111111110001111111111111
11110111111111111111111111111111111110000111111111
01000111111111111111111111111111111011101111111111
11111011111111101010111011111111111111000001111101
01010001111111111111111011111111010101111111111111
11111111111111110000011111111111111111110110111111
11111111111111111111111101010111111111111111111111
11111111010101111111111101111111111111111110110111
11111110000011111111111111111111111100000101111111
11111111111111111111101101111111111111111111111111
11111011011000111111111111111111111111110011011111
11111111111111000111111111110111111111111111111011
11111111000000001111111111111110111111111011111111
11111111111111000001111110111110000111111111111111
11111111100001011010111111111111101111111111111101
10101111111111110000011111110001100111111111111111
10111111111011011111111111111111111111111111101100
10001111111111111110010111111100111111111111111111
11010101111111111000001111111111111101010111111111
11101111111111111111011001111111111101111111111111
11111111111111111110000011111111111111000001111110
00011111111111111111110111111111010111111111111111
11111111111111110101111111111111111111111111111111
10000111111111111111111111111111111111110000011111
11111111111111111111111111101011111111111110111111
11111111111010111111111111000001111111111100011111
11111111111011111111110001111111111111111111111111
11111011111000111111111111111010111111101111011011
11111111111110100111111000010110111111111111111001
01111111111110011111111111111111010111111001011111
11111111111111111111111110100000001111111111111111
00011111101101011011111111111111101101111111001101
10111111111011111011011111111111100111111111111111
11001111111001011111111111100011111111111111101001
01011111110111111101110111111011010100111111100011
11010101111111001100101111110111111101010111111111
11101011111100001111000001111110001111111111111111
11111111111111111101011111111100101111111111111110
00111011111111010011111111111111111101000011111101
10111111111111111000111111111111100111110110111111
11111100001111111111111101010111111011111110111111
01111111010101111100000111101111100000111100010111
11101111000111111101111111111111111111111111111111
11111111111000111111100101100011111110011111011101
11111010010111111111011011110111011111101101011111
11110110111110001111111100100000111111100111111111
11111111111111111111111111111101101111111010101111
11111011111111010101111101010000001111100000111101
01011111010100111111111011111111000101111100000"  
  f = []
  repeat with i = 1 to 34*88
    f.append(integer(r.char[i]))
  end repeat
end