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

Revert "Fixing use and documentation of draw-bitmap-section-smooth"

Browse Source 
because the implementation is wrong, not the documented contract

This reverts commit 68051f845a.
This commit is contained in:
Matthew Flatt 2010-11-25 10:40:06 -07:00
parent e0bcec0825
commit e9562a8ddc
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/handin-client/client-gui.rkt
View File

@ -704,13 +704,13 @@
(make-object bitmap% (quotient w 2) (quotient h 2)))] (make-object bitmap% (quotient w 2) (quotient h 2)))]
[mdc (make-object bitmap-dc% bm2)]) [mdc (make-object bitmap-dc% bm2)])
(send mdc draw-bitmap-section-smooth bm (send mdc draw-bitmap-section-smooth bm
0 0 0 0 (quotient w 2) (quotient h 2)
0 0 w h) 0 0 w h)
(send mdc set-bitmap #f) (send mdc set-bitmap #f)
(when mbm2 (when mbm2
(send mdc set-bitmap mbm2) (send mdc set-bitmap mbm2)
(send mdc draw-bitmap-section-smooth (send bm get-loaded-mask) (send mdc draw-bitmap-section-smooth (send bm get-loaded-mask)
0 0 0 0 (quotient w 2) (quotient h 2)
0 0 w h) 0 0 w h)
(send mdc set-bitmap #f) (send mdc set-bitmap #f)
(send bm2 set-loaded-mask mbm2)) (send bm2 set-loaded-mask mbm2))

2
collects/scribblings/draw/bitmap-dc-class.scrbl
View File

@ -30,6 +30,8 @@ Creates a new memory DC. If @scheme[bitmap] is not @scheme[#f], it is
@defmethod[(draw-bitmap-section-smooth [source (is-a?/c bitmap%)] @defmethod[(draw-bitmap-section-smooth [source (is-a?/c bitmap%)]
[dest-x real?] [dest-x real?]
[dest-y real?] [dest-y real?]
[dest-width (and/c real? (not/c negative?))]
[dest-height (and/c real? (not/c negative?))]
[src-x real?] [src-x real?]
[src-y real?] [src-y real?]
[src-width (and/c real? (not/c negative?))] [src-width (and/c real? (not/c negative?))]