summaryrefslogtreecommitdiffstats
path: root/static
diff options
context:
space:
mode:
authorsiddharth ravikumar <s@ricketyspace.net>2022-06-19 17:39:37 -0400
committersiddharth ravikumar <s@ricketyspace.net>2022-06-19 17:39:37 -0400
commit1b11dce52c0da17ac9348e54a00953907183e0d0 (patch)
treeff1e07ba96cafed38959e9574cd14e6d419c39ed /static
parentaea9c4cb6af095b486897595e877e00b03e63e23 (diff)
static/logo: peach.rkt: add `make-logo`
Diffstat (limited to 'static')
-rw-r--r--static/logo/peach.rkt8
1 files changed, 8 insertions, 0 deletions
diff --git a/static/logo/peach.rkt b/static/logo/peach.rkt
index 7460265..8d4fa08 100644
--- a/static/logo/peach.rkt
+++ b/static/logo/peach.rkt
@@ -38,6 +38,14 @@
(define (png-export logo size)
(send logo save-file (format "peach-~s.png" size) 'png))
+
+;; Makes a sizexsize peach logo and exports it to a PNG.
+(define (make-logo size)
+ (let ((logo-bitmap (draw-logo size)))
+ (make-object image-snip% logo-bitmap) ;Render logo in racket shell.
+ (png-export logo-bitmap size))) ;Export logo to a PNG file.
+
+
;; Peach logo as a bitmap.
(define peach-logo (draw-logo 500))