From aea9c4cb6af095b486897595e877e00b03e63e23 Mon Sep 17 00:00:00 2001 From: siddharth ravikumar Date: Sun, 19 Jun 2022 17:33:25 -0400 Subject: static/logo: peach.rkt: update `png-export` Add `size` argument. Append size to the name of the exported PNG file. --- static/logo/peach.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'static') 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) -- cgit v1.2.3