suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

comment out quantize-bitmap so that it works in mzscheme

Browse Source 
svn: r10998
This commit is contained in:
Matthew Flatt 2008-07-31 02:47:25 +00:00
parent ec408d0f24
commit 2a6f90b0e4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/file/private/octree-quantize.ss
View File

@ -1,7 +1,6 @@
#lang scheme/base #lang scheme/base
(require scheme/class (require scheme/class
scheme/contract scheme/contract)
scheme/gui/base)
;; This is an implementation of the Octree Quantization algorithm. This implementation ;; This is an implementation of the Octree Quantization algorithm. This implementation
;; follows the sketch in: ;; follows the sketch in:
@ -66,6 +65,7 @@
;; quantize-bitmap: bitmap positive-number -> bitmap ;; quantize-bitmap: bitmap positive-number -> bitmap
;; Given a bitmap, returns a new bitmap quantized to, at most, n colors. ;; Given a bitmap, returns a new bitmap quantized to, at most, n colors.
#;
(define (quantize-bitmap bm n) (define (quantize-bitmap bm n)
(let* ([width (send bm get-width)] (let* ([width (send bm get-width)]
[height (send bm get-height)] [height (send bm get-height)]
@ -347,6 +347,7 @@
(provide/contract (provide/contract
[quantize ((argb-bytes?) (#:palette [integer-in 1 255]) [quantize ((argb-bytes?) (#:palette [integer-in 1 255])
. ->* . (values bytes? gif-colormap? color?))] . ->* . (values bytes? gif-colormap? color?))]
#;
[quantize-bitmap [quantize-bitmap
([is-a?/c bitmap%] natural-number/c . -> . [is-a?/c bitmap%])] ([is-a?/c bitmap%] natural-number/c . -> . [is-a?/c bitmap%])]