From 26bc555dd7fbf708e4955a3c996be154fc28d5fd Mon Sep 17 00:00:00 2001 From: Ian Piumarta Date: Tue, 11 Sep 2012 18:16:39 +0900 Subject: [PATCH] use int-at instead of long-at to access pixels --- gl-texbuf.k | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gl-texbuf.k b/gl-texbuf.k index 927f5fb8..300a29db 100644 --- a/gl-texbuf.k +++ b/gl-texbuf.k @@ -87,12 +87,12 @@ (define-method fill (p) (for (i 0 (/ (data-length self.bits) sizeof-long)) - (set-long-at self.bits i p))) + (set-int-at self.bits i p))) (define-method fill-rect (x1 y1 x2 y2 p) (for (x x1 x2) (for (y y1 y2) - (set-long-at self.bits (+ (* y self.stride) x) p)))) + (set-int-at self.bits (+ (* y self.stride) x) p)))) (define-method draw-line (ix1 iy1 ix2 iy2 pixel) (let* (((x1 y1 x2 y2) (clip-line ix1 iy1 ix2 iy2)) @@ -103,13 +103,13 @@ (y (long->double y1)) (dy (/ (long->double (- y2 y1)) (long->double ax)))) (while (>= ax 0) (decr ax) - (set-long-at self.bits (+ (* self.stride (double->long y)) x) pixel) + (set-int-at self.bits (+ (* self.stride (double->long y)) x) pixel) (incr x dx) (incr y dy))) (let ((y y1) (dy (sgn ny)) (x (long->double x1)) (dx (/ (long->double (- x2 x1)) (long->double ay)))) (while (>= ay 0) (decr ay) - (set-long-at self.bits (+ (* self.stride y) (double->long x)) pixel) + (set-int-at self.bits (+ (* self.stride y) (double->long x)) pixel) (incr y dy) (incr x dx))))))