You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
468 B
Racket
13 lines
468 B
Racket
#lang br
|
|
(require pict icns file/ico rsvg)
|
|
|
|
(define p (svg-file->pict "pollen-raw.svg"))
|
|
(send (pict->bitmap p) save-file "pollen.png" 'png)
|
|
|
|
(with-output-to-file "pollen.icns"
|
|
(λ () (void (write-bytes (pict->icns-bytes p))))
|
|
#:exists 'replace)
|
|
|
|
(write-icos (for/list ([size '(16 32 48 256)])
|
|
(argb->ico size size (pict->argb-pixels (scale p (/ size 720))))) "pollen.ico"
|
|
#:exists 'replace) |