球拍 - 将图片导出为图片文件

Question

如何将球杆图片导出为我可以在网页上使用的图片文件？

（任何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” 保存的图像。