From 34e42fb3f22968829c505fc88cf0fd07877a07f8 Mon Sep 17 00:00:00 2001
From: siddharth ravikumar <s@ricketyspace.net>
Date: Sat, 18 Jun 2022 23:23:04 -0400
Subject: static: add logo

Generated using racket :)
---
 static/logo/logo.png  | Bin 0 -> 11642 bytes
 static/logo/peach.rkt |  41 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 41 insertions(+)
 create mode 100644 static/logo/logo.png
 create mode 100644 static/logo/peach.rkt

diff --git a/static/logo/logo.png b/static/logo/logo.png
new file mode 100644
index 0000000..f47deb6
Binary files /dev/null and b/static/logo/logo.png differ
diff --git a/static/logo/peach.rkt b/static/logo/peach.rkt
new file mode 100644
index 0000000..4615ae4
--- /dev/null
+++ b/static/logo/peach.rkt
@@ -0,0 +1,41 @@
+;;;; Copyright © 2022 siddharth ravikumar <s@ricketyspace.net>
+;;;; SPDX-License-Identifier: ISC
+
+#lang racket
+
+(require racket/draw)
+(require racket/snip)
+
+;; Sets up settings for the drawing context.
+(define (setup-dc dc)
+  (send dc set-smoothing 'aligned)
+  (send dc set-pen "black" 1 'transparent)
+  (send dc set-brush "black" 'solid))
+
+;; Draws a moon.
+(define (moon-drawing)
+  (let ((moon (new dc-path%)))
+    (send moon arc -50 50 320 320 1.57 4.36 #f)
+    (send moon arc 1 4 490 490 3.54 2.20 #t)
+    moon))
+
+;; Draws the peach logo in a bitmap and returns the bitmap.
+(define (draw-logo)
+  (let* ((target (make-bitmap 500 500))
+         (dc (new bitmap-dc% (bitmap target))))
+    (setup-dc dc)
+    (send dc draw-path (moon-drawing))
+    target))
+
+;; Exports the logo into PNG.
+(define (png-export logo)
+  (send logo save-file "logo.png" 'png))
+
+;; Peach logo as a bitmap.
+(define peach-logo (draw-logo))
+
+;; Render logo in racket shell.
+(make-object image-snip% peach-logo)
+
+;; Export logo to a PNG file.
+(png-export peach-logo)
-- 
cgit v1.2.3