diff options
| author | siddharth ravikumar <s@ricketyspace.net> | 2022-06-19 17:33:25 -0400 |
|---|---|---|
| committer | siddharth ravikumar <s@ricketyspace.net> | 2022-06-19 17:33:25 -0400 |
| commit | aea9c4cb6af095b486897595e877e00b03e63e23 (patch) | |
| tree | d89d7d156f528f21c4c063f0e760bc0ba44f76a4 /static/logo/peach.rkt | |
| parent | ce73864f2418680f76a8a3f31a2bcc33fca68f43 (diff) | |
static/logo: peach.rkt: update `png-export`
Add `size` argument. Append size to the name of the exported PNG file.
Diffstat (limited to 'static/logo/peach.rkt')
| -rw-r--r-- | static/logo/peach.rkt | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/static/logo/peach.rkt b/static/logo/peach.rkt index 98e01e0..7460265 100644 --- a/static/logo/peach.rkt +++ b/static/logo/peach.rkt @@ -35,8 +35,8 @@ target)) ;; Exports the logo into PNG. -(define (png-export logo) - (send logo save-file "peach.png" 'png)) +(define (png-export logo size) + (send logo save-file (format "peach-~s.png" size) 'png)) ;; Peach logo as a bitmap. (define peach-logo (draw-logo 500)) @@ -45,4 +45,4 @@ (make-object image-snip% peach-logo) ;; Export logo to a PNG file. -(png-export peach-logo) +(png-export peach-logo 500) |