ラケット - 画像ファイルへのピクトのエクスポート

Question

ウェブページで使用できる画像ファイルとして、Racket pictをエクスポートするにはどうすればよいですか？

（任意のHTML可能な形式又はデータ-URIだろう）

Answer 1

#lang racket 
(require pict) 

(define (save-pict the-pict name kind) 
    (define bm (pict->bitmap the-pict)) 
    (send bm save-file name kind)) 

(save-pict (standard-fish 200 200) "fish.png" 'png) 

これは "fish.png" に画像を保存します。