Racketで画像作成(racket/draw)

Racketで画像を作成します.
いくつか手段がありそうですが、racket/drawを利用します.

フォントを指定すれば日本語も出力できるようです.

#lang racket

(require racket/draw)

(define target (make-bitmap 150 30))
(define dc (new bitmap-dc% [bitmap target]))

;; 長方形
(send dc draw-rectangle 1 1 149 29)

;; フォントの設定
(define ms-font (make-object font% 10 "ＭＳ ゴシック" 'default))
(send dc set-font ms-font)

;; 文字列
(send dc draw-text "こんにちはせかい" 5 10)

;; 保存
(send target save-file "hello.png" 'png)