I want to draw an image pixel by pixel using `Manipulate`.
My code almost works but it erases the old points each time.

    image0 = Image[Table[0, {x, 1, 512}, {y, 1, 680}]]
    
    Manipulate[
      ReplacePixelValue[image0, coordList[[i]] -> 1], 
      {i, 1, Length @ coordList}]

`coordList` is the list of the pixels that get changed from 0 to 1 in the image.