;@GreyScale::Buffer is already created and the %p image is already drawn into it

;Prepare variables for looping
var %w = $pic(%p).width
var %h = $Pic(%p).height
var %y = 0
var %x
var %dot
var %rdot

;Start at the top of the image and work down:
while (%y < %h) {
  %x = 0

  ;move from left to right
  while (%x < %w) {

    ;get the current dots RGB value in the format of "RRR+GGG+BBB"
    %dot = $getdot(@GreyScale::Buffer,%x,%y)
    %rdot = $replace($rgb(%dot),$chr(44),+)

    ;Check to make sure the color isn't already a shade of grey
    if (!$regex(%rdot,/^(\d+)\+\1\+\1$/)) {

      ;get the average of the R,G,B Values (R + G + B)/3
      %n = $calc( ( %rdot )/ 3)


      ;Replace the current dot's color with the ave'ed rgb's
      ;why isn't this working:
      drawfill -s @GreyScale::Buffer $rgb(%n,%n,%n) %dot %x %y


      ;This works but is slow:
      ;drawdot -nr @GreyScale::Buffer $rgb(%n,%n,%n) 1 %x %y


    }
    ;drawdot @GreyScale::Buffer
    inc %x
  }
  inc %y
}