From a21e815a1e85c3b16afcb49b20007ebbbbcd411a Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Thu, 31 Jul 2008 02:19:40 +0000 Subject: [PATCH] Moved octree-quantize to private, replacing original implementation of file/gif's quantize. svn: r10996 original commit: ec408d0f24fc49cc23a44dc76a95aede781f70b4 --- collects/mrlib/gif.ss | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/mrlib/gif.ss b/collects/mrlib/gif.ss index e89b2f23..215255b5 100644 --- a/collects/mrlib/gif.ss +++ b/collects/mrlib/gif.ss @@ -4,8 +4,7 @@ scheme/class scheme/list net/gifwrite - scheme/contract - (prefix-in octree: file/octree-quantize)) + scheme/contract) (provide write-gif write-animated-gif) @@ -44,7 +43,7 @@ (let ([last-argb-thunk (last argb-thunks)]) (for-each (lambda (argb-thunk) (let-values ([(pixels colormap transparent) - (octree:quantize (argb-thunk))]) + (quantize (argb-thunk))]) (when (or transparent delay) (gif-add-control gif 'any #f (or delay 0) transparent)) (gif-add-image gif 0 0 w h #f colormap pixels) @@ -55,7 +54,7 @@ (gif-end gif)))) ;; Build images and quantize all at once: (let-values ([(pixels colormap transparent) - (octree:quantize (apply bytes-append (map (lambda (t) (t)) argb-thunks)))]) + (quantize (apply bytes-append (map (lambda (t) (t)) argb-thunks)))]) (call-with-output-file* filename (lambda (p)