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

add alpha value to `color%'

Browse Source 
original commit: a974dad8bfb63679ac5af1fd819e7c7c67ee75e5
This commit is contained in:
Matthew Flatt 2010-12-30 06:40:05 -07:00
parent 792c8b222e
commit 0e0139ebb4
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/gracket/draw.rkt
View File

@ -920,6 +920,14 @@
100 310)
p))
(let ([p (send dc get-pen)])
(send dc set-pen (make-object color% 0 0 0 0.1) 1 'solid)
(send dc set-brush (make-object color% 255 0 200 0.5) 'solid)
(send dc draw-rectangle 250 310 20 20)
(send dc set-brush (make-object color% 0 255 200 0.5) 'solid)
(send dc draw-rectangle 260 320 20 20)
(send dc set-pen p))
(send dc draw-line 130 310 150 310)
(send dc draw-line 130 312.5 150 312.5)
(send dc draw-line 130 314.3 150 314.3)