Ok, I don't understand what you want then. I tried the code below and
it did what I expect.
N.
racket@> (define (display-bitmap bitmap)
(define f
(new frame%
[label "Bitmap"]
[width (send bitmap get-width)]
[height (send bitmap get-height)]))
(define c (new canvas%
[parent f]
[paint-callback
(lambda (canvas dc)
(send dc translate 10 10)
(send dc rotate .1)
(send dc draw-bitmap bitmap 0 0))]))
(send f show #t)
f)
racket@> (define texture
(make-object bitmap%
"cauliflower.jpg"
'jpeg))
racket@> (display-bitmap texture)
2011/5/10 Jyu 。 <[email protected]>:
> @noelWelsh : I tested your advice, but it not run.. I tested to rotate and
> translate then : The bitmap is turn around another point..
> I test to translate and rotate then, the result is the same. Thanks you
> anyway.
_________________________________________________
For list-related administrative tasks:
http://lists.racket-lang.org/listinfo/users
