.

img.mu

@@ -109,7 +109,7 @@ fn render-image screen: (addr screen), _img: (addr image), xmin: int, ymin: int,
     break-if-!=
     var img2-storage: image
     var img2/edi: (addr image) <- address img2-storage
-    dither-pgm-with-monochrome img, img2
+    dither-pgm-unordered-monochrome img, img2
     render-pbm-image screen, img2, xmin, ymin, width, height
     return
   }
@@ -360,7 +360,7 @@ fn nearest-grey level-255: byte -> _/eax: int {
   return result
 }
 
-fn dither-pgm-with-monochrome _src: (addr image), _dest: (addr image) {
+fn dither-pgm-unordered-monochrome _src: (addr image), _dest: (addr image) {
   var src/esi: (addr image) <- copy _src
   var dest/edi: (addr image) <- copy _dest
   # copy 'width'
@@ -391,10 +391,10 @@ fn dither-pgm-with-monochrome _src: (addr image), _dest: (addr image) {
   var src-data-ah/eax: (addr handle array byte) <- get src, data
   var _src-data/eax: (addr array byte) <- lookup *src-data-ah
   var src-data/esi: (addr array byte) <- copy _src-data
-  _unordered-monochrome-dither src-data, src-width, src-height, buffer, dest-data
+  _dither-pgm-unordered-monochrome src-data, src-width, src-height, buffer, dest-data
 }
 
-fn _unordered-monochrome-dither src: (addr array byte), width: int, height: int, buf: (addr array int), dest: (addr array byte) {
+fn _dither-pgm-unordered-monochrome src: (addr array byte), width: int, height: int, buf: (addr array int), dest: (addr array byte) {
   var y/edx: int <- copy 0
   {
     compare y, height
@@ -405,9 +405,9 @@ fn _unordered-monochrome-dither src: (addr array byte), width: int, height: int,
       compare x, width
       break-if->=
 #?       psd "x", x, 3/fg, x, y
-      var error/ebx: int <- _read-buffer buf, x, y, width
-      $_unordered-monochrome-dither:update-error: {
-        var curr/eax: byte <- _read-byte-buffer src, x, y, width
+      var error/ebx: int <- _read-pgm-buffer buf, x, y, width
+      $_dither-pgm-unordered-monochrome:update-error: {
+        var curr/eax: byte <- _read-pgm-byte-buffer src, x, y, width
         var curr-int/eax: int <- copy curr
         curr-int <- shift-left 0x10  # we have 32 bits; we'll use 16 bits for the fraction and leave 8 for unanticipated overflow
         error <- add curr-int
@@ -416,14 +416,14 @@ fn _unordered-monochrome-dither src: (addr array byte), width: int, height: int,
         {
           break-if->=
 #?           psd "p", 0, 0x14/fg, x, y
-          _write-byte-buffer dest, x, y, width, 0/black
-          break $_unordered-monochrome-dither:update-error
+          _write-pgm-byte-buffer dest, x, y, width, 0/black
+          break $_dither-pgm-unordered-monochrome:update-error
         }
 #?         psd "p", 1, 0xf/fg, x, y
-        _write-byte-buffer dest, x, y, width, 1/white
+        _write-pgm-byte-buffer dest, x, y, width, 1/white
         error <- subtract 0xff0000
       }
-      _diffuse-monochrome-dithering-errors buf, x, y, width, height, error
+      _diffuse-dithering-error-floyd-steinberg buf, x, y, width, height, error
       x <- increment
       loop
     }
@@ -440,7 +440,7 @@ fn _unordered-monochrome-dither src: (addr array byte), width: int, height: int,
 #
 # Error is currently a fixed-point number with 16-bit fraction. But
 # interestingly this function doesn't care about that.
-fn _diffuse-monochrome-dithering-errors buf: (addr array int), x: int, y: int, width: int, height: int, error: int {
+fn _diffuse-dithering-error-floyd-steinberg buf: (addr array int), x: int, y: int, width: int, height: int, error: int {
   {
     compare error, 0
     break-if-!=
@@ -466,7 +466,7 @@ fn _diffuse-monochrome-dithering-errors buf: (addr array int), x: int, y: int, w
     tmp <- multiply delta
     var xright/edx: int <- copy x
     xright <- increment
-    _accumulate-error buf, xright, y, width, tmp
+    _accumulate-pgm-error buf, xright, y, width, tmp
   }
   var y/ebx: int <- copy y
   {
@@ -484,30 +484,30 @@ fn _diffuse-monochrome-dithering-errors buf: (addr array int), x: int, y: int, w
     tmp <- multiply delta
     var xleft/edx: int <- copy x
     xleft <- decrement
-    _accumulate-error buf, xleft, ybelow, width, tmp
+    _accumulate-pgm-error buf, xleft, ybelow, width, tmp
   }
   {
     var tmp/eax: int <- copy 5
     tmp <- multiply delta
-    _accumulate-error buf, x, ybelow, width, tmp
+    _accumulate-pgm-error buf, x, ybelow, width, tmp
   }
   {
     compare x, width-1
     break-if->=
     var xright/edx: int <- copy x
     xright <- increment
-    _accumulate-error buf, xright, ybelow, width, delta
+    _accumulate-pgm-error buf, xright, ybelow, width, delta
   }
 #?   show-errors buf, width, height, x, y
 }
 
-fn _accumulate-error buf: (addr array int), x: int, y: int, width: int, error: int {
-  var curr/ebx: int <- _read-buffer buf, x, y, width
+fn _accumulate-pgm-error buf: (addr array int), x: int, y: int, width: int, error: int {
+  var curr/ebx: int <- _read-pgm-buffer buf, x, y, width
   curr <- add error
-  _write-buffer buf, x, y, width, curr
+  _write-pgm-buffer buf, x, y, width, curr
 }
 
-fn _read-buffer _buf: (addr array int), x: int, y: int, width: int -> _/ebx: int {
+fn _read-pgm-buffer _buf: (addr array int), x: int, y: int, width: int -> _/ebx: int {
   var buf/esi: (addr array int) <- copy _buf
   var idx/ecx: int <- copy y
   idx <- multiply width
@@ -517,7 +517,7 @@ fn _read-buffer _buf: (addr array int), x: int, y: int, width: int -> _/ebx: int
   return *result-a
 }
 
-fn _write-buffer _buf: (addr array int), x: int, y: int, width: int, val: int {
+fn _write-pgm-buffer _buf: (addr array int), x: int, y: int, width: int, val: int {
   var buf/esi: (addr array int) <- copy _buf
   var idx/ecx: int <- copy y
   idx <- multiply width
@@ -529,7 +529,7 @@ fn _write-buffer _buf: (addr array int), x: int, y: int, width: int, val: int {
   copy-to *dest-a, src
 }
 
-fn _read-byte-buffer _buf: (addr array byte), x: int, y: int, width: int -> _/eax: byte {
+fn _read-pgm-byte-buffer _buf: (addr array byte), x: int, y: int, width: int -> _/eax: byte {
   var buf/esi: (addr array byte) <- copy _buf
   var idx/ecx: int <- copy y
   idx <- multiply width
@@ -539,7 +539,7 @@ fn _read-byte-buffer _buf: (addr array byte), x: int, y: int, width: int -> _/ea
   return result
 }
 
-fn _write-byte-buffer _buf: (addr array byte), x: int, y: int, width: int, val: byte {
+fn _write-pgm-byte-buffer _buf: (addr array byte), x: int, y: int, width: int, val: byte {
   var buf/esi: (addr array byte) <- copy _buf
   var idx/ecx: int <- copy y
   idx <- multiply width
@@ -568,7 +568,7 @@ fn show-errors buf: (addr array int), width: int, height: int, x: int, y: int {
     {
       compare x, width
       break-if->=
-      var error/ebx: int <- _read-buffer buf, x, y, width
+      var error/ebx: int <- _read-pgm-buffer buf, x, y, width
       psd "e", error, 5/fg, x, y
       x <- increment
       loop