From 853cd8707c56c2f3bd903b9910f00d97810a477f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 6 Feb 2003 18:08:38 +0000 Subject: [PATCH] . original commit: 95e215887d454d424f058b1598790d940a7dec03 --- collects/tests/mred/draw.ss | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/collects/tests/mred/draw.ss b/collects/tests/mred/draw.ss index f5bb101a..55c3d0bc 100644 --- a/collects/tests/mred/draw.ss +++ b/collects/tests/mred/draw.ss @@ -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?