#lang scheme/gui

(define bm (make-object bitmap% "collatz.png"))
(send (current-ps-setup) set-scaling 1.0 1.0)
(send (current-ps-setup) set-file "collatz.ps")
(define dc (new post-script-dc% [interactive #f]))
(send dc start-doc "ok")
(send dc start-page)
(send dc draw-bitmap bm 0 0)
(send dc end-page)
(send dc end-doc)