diff options
author | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-10 22:53:12 +0900 |
---|---|---|
committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-10 23:13:11 +0900 |
commit | e59d89f39f090f8feb16a48ed150e5ac48c2858f (patch) | |
tree | d88fb66f0280f717599fd4e9ca97eb4a234ef24a /pnm/image.scm | |
parent | f67f8d68b33a5d0b2ae2409a81c30d852a475ebe (diff) |
Rename procedures from `image-*` to `pnm-image-*`
Diffstat (limited to 'pnm/image.scm')
-rw-r--r-- | pnm/image.scm | 56 |
1 files changed, 28 insertions, 28 deletions
diff --git a/pnm/image.scm b/pnm/image.scm index ceab0cf..f9d0b83 100644 --- a/pnm/image.scm +++ b/pnm/image.scm @@ -17,37 +17,37 @@ ;;; along with R7RS-PNM. If not, see <https://www.gnu.org/licenses/>. (define-library (pnm image) - (export make-image - image? - image-type - image-width - image-height - image-maxval - image-data - image-pixel-getter - image-pixel-setter - image-ref - image-set!) + (export make-pnm-image + pnm-image? + pnm-image-type + pnm-image-width + pnm-image-height + pnm-image-maxval + pnm-image-data + pnm-image-pixel-getter + pnm-image-pixel-setter + pnm-image-ref + pnm-image-set!) (import (scheme base) (scheme case-lambda)) (begin - (define-record-type <image> - (make-image type width height maxval data pixel-getter pixel-setter) - image? - (type image-type) - (width image-width) - (height image-height) - (maxval image-maxval) - (data image-data) - (pixel-getter image-pixel-getter) - (pixel-setter image-pixel-setter)) + (define-record-type <pnm-image> + (make-pnm-image type width height maxval data pixel-getter pixel-setter) + pnm-image? + (type pnm-image-type) + (width pnm-image-width) + (height pnm-image-height) + (maxval pnm-image-maxval) + (data pnm-image-data) + (pixel-getter pnm-image-pixel-getter) + (pixel-setter pnm-image-pixel-setter)) - (define (image-ref image x y) - ((image-pixel-getter image) x y)) + (define (pnm-image-ref pnm-image x y) + ((pnm-image-pixel-getter pnm-image) x y)) - (define image-set! + (define pnm-image-set! (case-lambda - ((image x y v) - ((image-pixel-setter image) x y v)) - ((image x y r g b) - ((image-pixel-setter image) x y r g b)))))) + ((pnm-image x y v) + ((pnm-image-pixel-setter pnm-image) x y v)) + ((pnm-image x y r g b) + ((pnm-image-pixel-setter pnm-image) x y r g b)))))) |