diff --git a/collects/mrlib/matrix-snip.rkt b/collects/mrlib/matrix-snip.rkt index 8949e23a..c383d568 100644 --- a/collects/mrlib/matrix-snip.rkt +++ b/collects/mrlib/matrix-snip.rkt @@ -43,7 +43,7 @@ [(pair? M_0) M_0] [else (error 'visible% "expects matrix or rectangle, given: ~e" M_0)])]) - + (define/public (get-M) (if M M R)) ;; create a matrix from this instance diff --git a/collects/mrlib/private/image-core-bitmap.rkt b/collects/mrlib/private/image-core-bitmap.rkt index 6a56a7f0..2ac019ae 100644 --- a/collects/mrlib/private/image-core-bitmap.rkt +++ b/collects/mrlib/private/image-core-bitmap.rkt @@ -24,20 +24,20 @@ instead of this scaling code, we use the dc<%>'s scaling code. (provide/contract [scale-bitmap (-> bytes? natural-number/c natural-number/c (and/c real? (not/c negative?)) bytes?)]) - - + + ; bmbytes: a bytes which represents an image -- ; its size is a multiple of 4, and each ; four consecutive bytes represent alpha,r,g,b. - + ; scale: given a bmbytes, ; return a new bmbytes scaled by k in each direction. ; ; TODO: this code is meant for scaling by (>= k 1); ; if (< k 1) then the result will ignore ~ (1-k) of the original's pixels. ; We should really do a proper averaging for that case. -; +; (define (scale-bitmap bmbytes w h k) (let* {[new-w (round/e (* w k))] [new-h (round/e (* h k))] diff --git a/collects/mrlib/syntax-browser.rkt b/collects/mrlib/syntax-browser.rkt index 3bff33b2..d6166102 100644 --- a/collects/mrlib/syntax-browser.rkt +++ b/collects/mrlib/syntax-browser.rkt @@ -161,7 +161,7 @@ needed to really make this work: (send output-text last-position)) (hash-ref range-ht stx-object (λ () null)))))))) (pop!))]) - + ;; reset `path' and `next-push' for use in pp hooks. (set! path '()) (set! next-push 0)