#lang racket/base (require 2htdp/universe ; "sb-universe.rkt" htdp/error ; check-arg "tiles.rkt" "io-stuff.rkt" "map-image.rkt") (provide ; (all-from-out "sb-universe.rkt") (all-from-out "tiles.rkt") ; includes all-from-out 2htdp/image, plus a few simple add-ons (all-from-out "io-stuff.rkt") ; includes with-{input-from,output-to}-{string,file}, with-io-strings (all-from-out "map-image.rkt") ; includes (map,build)-[masked-]image, real->int, maybe-color?, name->color, ; get-pixel-color, pixel-visible? ) (provide show-it) (provide (all-from-out 2htdp/universe)) (define (show-it img) (check-arg 'show-it (image? img) "image" "first" img) img)