From 1b11dce52c0da17ac9348e54a00953907183e0d0 Mon Sep 17 00:00:00 2001 From: siddharth ravikumar Date: Sun, 19 Jun 2022 17:39:37 -0400 Subject: static/logo: peach.rkt: add `make-logo` --- static/logo/peach.rkt | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'static/logo/peach.rkt') 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)) -- cgit v1.2.3