Hello,
I call the below procedure with `in` equal to a 1300-pixel wide PNG image,
w=320 and `out` equal to a nice path. Even so, the `out` image remains 1300
pixels wide (i.e. it's not resized).
(define (racket-resize in w out)
(let ([bitmap (read-bitmap in)])
(let ([orig-width (send bitmap get-width)])
(let ([dc (send bitmap make-dc)]
[s (/ w orig-width)])
(send dc scale s s))
(send bitmap save-file out 'png))))
What am I doing wrong?
Regards,
Tobias Gerdin
Sweden
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
