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

draw snip smoothly

Browse Source 
svn: r2163
This commit is contained in:
Matthew Flatt 2006-02-07 20:41:51 +00:00
parent 88a4753c56
commit 0e21991dbc
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/texpict/pict-value-snip.ss
View File

@ -26,7 +26,10 @@ the user has to move the mouse first.
(define white? #f)
(define pict-drawer (make-pict-drawer pict))
(define/override (draw dc x y left top right bottom dx dy draw-caret)
(let ([smoothing (send dc get-smoothing)])
(send dc set-smoothing 'aligned)
(pict-drawer dc x y)
(send dc set-smoothing smoothing))
(let ([old-pen (send dc get-pen)]
[old-brush (send dc get-brush)])
(send dc set-brush (send the-brush-list find-or-create-brush "black" 'transparent))
@ -111,6 +114,7 @@ the user has to move the mouse first.
[str (make-bytes (* w h 4))]
[bdc (make-object bitmap-dc% bm)])
(send bdc clear)
(send bdc set-smoothing 'aligned)
(pict-drawer bdc 0 0)
(send bdc get-argb-pixels 0 0 w h str)
(send bdc set-bitmap #f)