球拍 - 将Pict导出到图像文件

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”中。