Hi, I'm learning the racket GUI package, and I ran into something that
doesn't make sense to me:

#lang racket/gui

(define black-pen
  (new pen%
       [width 1]
       [color "black"]))

(define blue-brush
  (new brush%
       [color "blue"]))

(define (draw-test-2 dc)
  (send dc scale 10 10)
  (send dc set-pen black-pen)
  (send dc set-brush blue-brush)
  (send dc draw-rectangle 7 2 4 4))

(define pic (make-bitmap 200 100))

(define dc (new bitmap-dc% [bitmap pic]))

(draw-test-2 dc)

And at the end, pic looks like this:

[image: Inline image 1]
The outline and the filling don't line up.  What am I doing wrong?  This is
with DrRacket 5.2.1 on linux.

Thanks,
-- Garrett Mitchener

<<bug-1.png>>

____________________
  Racket Users list:
  http://lists.racket-lang.org/users

Reply via email to