球拍 - 將圖片導出爲圖片文件

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」 保存的圖像。