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

.

Browse Source 
original commit: 95e215887d454d424f058b1598790d940a7dec03
This commit is contained in:
Matthew Flatt 2003-02-06 18:08:38 +00:00
parent 738ea87b63
commit 853cd8707c
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/tests/mred/draw.ss
View File

@ -424,6 +424,22 @@
(send dc set-brush ob))
(send dc set-pen op))
; Thick-line centering:
(let ([thick (make-object pen% "GREEN" 5 'solid)])
(define (draw-lines)
(send dc draw-line 360 10 400 50)
(send dc draw-line 360 50 400 10)
(send dc draw-line 360 80 400 80)
(send dc draw-line 380 60 380 100)
(send dc draw-line 360 120 400 140)
(send dc draw-line 370 110 390 150))
(let ([op (send dc get-pen)])
(send dc set-pen thick)
(draw-lines)
(send dc set-pen pen0s)
(draw-lines)
(send dc set-pen op)))
; B&W 8x8 stipple:
(unless no-bitmaps?