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

Question

如何将球拍Pict导出为可在网页上使用的图像文件？

（任何支持html的格式或data-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”中。