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

fix `draw-bitmap-section-smooth' method of bitmap-dc<%>

Browse Source 
original commit: 8e8844641c63767ce0df4428051cf086ffa91e6e
This commit is contained in:
Matthew Flatt 2010-11-25 10:52:15 -07:00
parent e0622ddb4f
commit 0120b59ea5
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/tests/gracket/dc.rktl
View File

@ -194,6 +194,27 @@
#"\377\377\377\377\377\377\377\377\377\0\0\0\377\0\0\0\377\0\0\0")))
(test #t 'same-bits (equal? bs bs2)))
;; ----------------------------------------
;; Test draw-bitmap-section-smooth
(let* ([bm (make-bitmap 100 100)]
[dc (make-object bitmap-dc% bm)]
[bm2 (make-bitmap 70 70)]
[dc2 (make-object bitmap-dc% bm2)]
[bm3 (make-bitmap 70 70)]
[dc3 (make-object bitmap-dc% bm3)])
(send dc draw-ellipse 0 0 100 100)
(send dc2 draw-bitmap-section-smooth bm
10 10 50 50
0 0 100 100)
(send dc3 scale 0.5 0.5)
(send dc3 draw-bitmap bm 20 20)
(let ([s2 (make-bytes (* 4 70 70))]
[s3 (make-bytes (* 4 70 70))])
(send bm2 get-argb-pixels 0 0 70 70 s2)
(send bm3 get-argb-pixels 0 0 70 70 s3)
(test #t 'same-scaled (equal? s2 s3))))
;; ----------------------------------------
(report-errs)