static/logo/peach.rkt: update logo

10 files changed, 8 insertions, 8 deletions

diff --git a/static/logo/peach-114.png b/static/logo/peach-114.png
index 4d68e12..a935f1f 100644
--- a/static/logo/peach-114.png
+++ b/static/logo/peach-114.png
diff --git a/static/logo/peach-120.png b/static/logo/peach-120.png
index a75c693..b16a721 100644
--- a/static/logo/peach-120.png
+++ b/static/logo/peach-120.png
diff --git a/static/logo/peach-152.png b/static/logo/peach-152.png
index 158d100..56dc172 100644
--- a/static/logo/peach-152.png
+++ b/static/logo/peach-152.png
diff --git a/static/logo/peach-167.png b/static/logo/peach-167.png
index eb654a5..34fff1a 100644
--- a/static/logo/peach-167.png
+++ b/static/logo/peach-167.png
diff --git a/static/logo/peach-180.png b/static/logo/peach-180.png
index b77605f..929d0d1 100644
--- a/static/logo/peach-180.png
+++ b/static/logo/peach-180.png
diff --git a/static/logo/peach-58.png b/static/logo/peach-58.png
index 4c5802c..59d0a5a 100644
--- a/static/logo/peach-58.png
+++ b/static/logo/peach-58.png
diff --git a/static/logo/peach-76.png b/static/logo/peach-76.png
index 49d5e87..599bd98 100644
--- a/static/logo/peach-76.png
+++ b/static/logo/peach-76.png
diff --git a/static/logo/peach-80.png b/static/logo/peach-80.png
index c0cbefd..e4a57e5 100644
--- a/static/logo/peach-80.png
+++ b/static/logo/peach-80.png
diff --git a/static/logo/peach-87.png b/static/logo/peach-87.png
index 52cf9dc..d1f6b0c 100644
--- a/static/logo/peach-87.png
+++ b/static/logo/peach-87.png
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.