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

racket/draw: fix set-clipping-rect' in record-dc%'

Browse Source 
original commit: edd2035f88b571afc9ed85ba0f7c6167332fb5b3
This commit is contained in:
Matthew Flatt 2012-08-23 09:42:34 -06:00
parent a2aae67945
commit ab6afa4e96
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -596,6 +596,28 @@
(send gl1 call-as-current (lambda () (error "fail"))))
(test 12 'post-exn (send gl1 call-as-current (lambda () 12)))))
;; ----------------------------------------
;; check clipping
(let ()
(define rdc (new record-dc%))
(send rdc set-brush "green" 'solid)
(send rdc set-clipping-rect 2 2 5 5)
(send rdc draw-rectangle 0 0 9 9)
(define bm (make-bitmap 25 25))
(define bm-dc (make-object bitmap-dc% bm))
(send bm-dc set-clipping-rect 10 10 5 5)
((send rdc get-recorded-procedure) bm-dc)
(define s (make-bytes (* 20 20 4)))
(send bm get-argb-pixels 0 0 20 20 s)
(for ([i (in-range 0 (* 20 20 4) 4)])
(test 0 'record-dc-clipping-byte (bytes-ref s i))))
;; ----------------------------------------
(report-errs)