summaryrefslogtreecommitdiffstats
path: root/static/logo/peach.rkt
diff options
context:
space:
mode:
authorsiddharth ravikumar <s@ricketyspace.net>2022-06-21 20:04:54 -0400
committersiddharth ravikumar <s@ricketyspace.net>2022-06-21 20:04:54 -0400
commitf72bc7700c780618721688d452a6df0627684df1 (patch)
tree9019f5f5a3e9d37feffe1623755040b26f5bc672 /static/logo/peach.rkt
parentba69adcfa787b5aa4946fecff69460f26920451c (diff)
static/logo/peach.rkt: update logo
Diffstat (limited to 'static/logo/peach.rkt')
-rw-r--r--static/logo/peach.rkt16
1 files changed, 8 insertions, 8 deletions
diff --git a/static/logo/peach.rkt b/static/logo/peach.rkt
index 80fb742..73f1454 100644
--- a/static/logo/peach.rkt
+++ b/static/logo/peach.rkt
@@ -19,12 +19,12 @@
(let* ((moon (new dc-path%))
(inner-arc-x (/ (* size -50) 500.0))
(inner-arc-y (* -1 inner-arc-x))
- (inner-arc-size (/ (* size 320) 500.0))
- (outer-arc-x (/ (* size 5) 500.0))
- (outer-arc-y outer-arc-x)
- (outer-arc-size (/ (* size 490) 500.0)))
- (send moon arc inner-arc-x inner-arc-y inner-arc-size inner-arc-size 1.57 4.36 #f)
- (send moon arc outer-arc-x outer-arc-y outer-arc-size outer-arc-size 3.54 2.20 #t)
+ (inner-arc-size (/ (* size 345) 500.0))
+ (outer-arc-x (/ (* size 10) 500.0))
+ (outer-arc-y (/ (* size 46) 500.0))
+ (outer-arc-size (/ (* size 400) 500.0)))
+ (send moon arc inner-arc-x inner-arc-y inner-arc-size inner-arc-size 1.30 4.49 #f)
+ (send moon arc outer-arc-x outer-arc-y outer-arc-size outer-arc-size 3.91 1.85 #t)
moon))
@@ -46,8 +46,8 @@
;; 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.
+ (png-export logo-bitmap size) ;Export logo to a PNG file.
+ (make-object image-snip% logo-bitmap))) ;Render logo in racket shell.
;; Make logos in different sizes.