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

Arj*_*jun 2 racket

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

(任何支持html的格式或data-uri都可以)

soe*_*ard 5

#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)
Run Code Online (Sandbox Code Playgroud)

这会将图像保存在“ fish.png”中。

在此处输入图片说明