blob: 58a9cdf5431ff6cc9e572e5ea447106110192fd2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
;;;; 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 size)
(let* ((moon (new dc-path%))
(inner-arc-x (/ (* size -50) 500.0))
(inner-arc-y (* -1 inner-arc-x))
(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))
;; Draws the peach logo in a bitmap and returns the bitmap.
(define (draw-logo size)
(let* ((target (make-bitmap size size))
(dc (new bitmap-dc% (bitmap target))))
(setup-dc dc)
(send dc set-brush "black" 'solid)
(send dc draw-path (moon-drawing size))
target))
;; Exports the logo into PNG.
(define (png-export logo size)
(send logo save-file (format "peach-v2-~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)))
(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.
(begin
(let ((sizes '(58 76 80 87 114 120 152 167 120 180)))
(map make-logo sizes)))
|
