bitmap image scaling with flomap operations

bitmap-scale-with-flomap.rkt

#lang racket

(require net/url
         racket/gui/base
         images/flomap)
(define ip (get-pure-port 
            (string->url "http://racket-lang.org/logo.png")))
(define bm (make-object bitmap% ip))

(define big-bm
  (flomap->bitmap (flomap-scale (bitmap->flomap bm) 2 2)))