summaryrefslogtreecommitdiffstats
path: root/website/logo.scm
diff options
context:
space:
mode:
Diffstat (limited to 'website/logo.scm')
-rw-r--r--website/logo.scm229
1 files changed, 229 insertions, 0 deletions
diff --git a/website/logo.scm b/website/logo.scm
new file mode 100644
index 0000000..e4164a3
--- /dev/null
+++ b/website/logo.scm
@@ -0,0 +1,229 @@
1;;; This file uses the Guile Picture Language to generate the GNU
2;;; Assembly logo variants and favicon.
3;;;
4;;; The League spartan font is available here:
5;;; https://www.theleagueofmoveabletype.com/league-spartan
6;;;
7;;; After generating the SVG files, any text should be converted to
8;;; paths so that viewers don't need to have that font installed. The
9;;; picture language cannot do this yet, so I recommend using
10;;; Inkscape manually.
11;;;
12;;; The logo is released under CC-BY-SA 4.0 or any other license as
13;;; agreed upon after a vote by the GNU Assembly.
14;;;
15;;; ~~ Ricardo
16
17(import (pict)
18 (srfi :1))
19
20(define palette
21 (list "#073b4c"
22 "#118ab2"
23 "#06d6a0"
24 "#ffd166"
25 "#ef476f"))
26
27(define hill-color
28 "#ffe9b2")
29
30(define next-color
31 (let ((index 0)
32 (palette* (list-tail palette 1)))
33 (lambda ()
34 (set! index (modulo (1+ index)
35 (length palette*)))
36 (list-ref palette* index))))
37
38(define* (wildebeest #:key (color "black"))
39 (fill
40 (path
41 (list (move-to '(14 . 5))
42 ;; The wildebeest is drawn counter-clockwise, starting from
43 ;; the right horn.
44
45 ;; head
46 (curve '((-1.6 . 1.2) (-2.5 . 1.4) (-2.5 . 0.7)))
47 (curve '((0 . -0.4) (-1.9 . -5.4) (-2.3 . -5.3)))
48 (curve '((-0.2 . 0) (2 . 4.1) (0.3 . 5.9)))
49 (curve '((-0.9 . 1.2) (-1.9 . 0.8) (-3.2 . 1.1)))
50 (curve '((-0.7 . 0.2) (-0.9 . -0.3) (-1 . -0.7)))
51 (curve '((-0.3 . -1.9) (0.7 . -6.6) (0.4 . -6)))
52 (curve '((-0.67 . 1.32) (-1 . 2.7) (-1.5 . 5.1)))
53 (curve '((-0.5 . 2.5) (-1.6 . 2.8) (-2.3 . 4.8)))
54 (curve '((-1.5 . 4.1) (-2.1 . 8.9) (-1.1 . 11.3)))
55 (curve '((0.5 . 1.3) (0.9 . 1) (2.3 . 0.8)))
56 (curve '((0.3 . 0) (0.7 . -0.7) (1 . -0.7)))
57 (curve '((0.7 . 0) (1.1 . 0.8) (1.8 . 1.2)))
58 (curve '((1.3 . 0.6) (2.5 . 1.5) (2.3 . 1.1)))
59 (curve '((-0.2 . -0.3) (-0.1 . -0.9) (0 . -1.2)))
60 (curve '((0.2 . -0.7) (0.4 . -0.7) (1.6 . -0.2)))
61
62 ;; right foreleg
63 (curve '((0.7 . 0.3) (1.5 . 0.8) (1.7 . 1.1)))
64 (curve '((0.2 . 0.3) (0.5 . 0.7) (1.9 . 1.3)))
65 (curve '((1 . 0.4) (2.1 . 0.9) (2.1 . 1.1)))
66 (curve '((0 . 0.7) (-1 . 1) (-1.8 . 1.7)))
67 (curve '((-0.8 . 0.7) (-2.4 . 2) (-2.6 . 2.9)))
68 (curve '((-0.2 . 0.7) (2.7 . 4) (3.2 . 4.7)))
69 (curve '((0.1 . 0.8) (0.7 . 0.7) (0.9 . 1.7)))
70 (curve '((0.3 . 0.8) (0.8 . 1.4) (2.4 . 2.8)))
71 (curve '((1.9 . 1.6) (2.5 . 1.6) (2.4 . 1)))
72 (curve '((-0.2 . -0.8) (-0.5 . -4.2) (-1.2 . -4.2)))
73 (curve '((-0.4 . 0) (-0.9 . 0.6) (-1 . 0.2)))
74 (curve '((-0.1 . -0.5) (-0.4 . -0.6) (-0.8 . -0.6)))
75 (curve '((-0.2 . 0) (-1.7 . -2.4) (-2 . -2.4)))
76 (curve '((-0.3 . -0.3) (-1.7 . -2.8) (-1.7 . -2.8)))
77
78 ;; left foreleg
79 (curve '((0 . 0) (2.3 . -1.7) (2.2 . -1.7)))
80 (curve '((0 . 0) (-1.2 . 1.7) (-1.9 . 3.5)))
81 (curve '((-0.9 . 2.2) (-1.2 . 4.2) (-1.5 . 4.8)))
82 (curve '((-0.2 . 0.4) (-0.5 . 0.5) (-1 . 1.3)))
83 (curve '((-0.5 . 0.8) (-0.7 . 1.6) (-0.1 . 2.8)))
84 (curve '((0.4 . 0.9) (4 . -2.2) (3.4 . -3.7)))
85 (curve '((-0.4 . -1.10) (0.5 . -3.4) (0.7 . -4.1)))
86 (curve '((0.5 . -1.8) (1.7 . -3.1) (3.2 . -4.4)))
87 (curve '((2.5 . -2) (2.2 . -2) (9.1 . -0.7)))
88
89 ;; left hindleg
90 (curve '((2.8 . 0.5) (2.8 . 0.2) (4.9 . 2.7)))
91 (curve '((1.1 . 1.4) (4 . 3.9) (5.1 . 6.4)))
92 (curve '((0.2 . 0.4) (0.3 . 0.7) (0.3 . 1.2)))
93 (curve '((-0.4 . 1.5) (-0.3 . 3.7) (-1.4 . 5)))
94 (curve '((-0.5 . 1) (-1.5 . 2.1) (0.2 . 1.9)))
95 (line-to '(2.2 . 0))
96 (line-to '(0.3 . -2.3))
97 (curve '((0.3 . -2.2) (0 . -5) (0.4 . -7.2)))
98 (curve '((0.1 . -0.2) (-3.8 . -4) (-3.8 . -4.4)))
99 (curve '((0 . -0.5) (-0.2 . -2.8) (0 . -2.7)))
100
101 ;; right hindleg
102 (curve '((0.2 . 0.1) (0.4 . 3.7) (0.5 . 4.2)))
103 (curve '((0.1 . 0.6) (-0.5 . 1.6) (-2.6 . 3.6)))
104 (curve '((-3.1 . 3) (-4.3 . 4.6) (-4.4 . 5.4)))
105 (curve '((0 . 0.8) (2.2 . 0.7) (2.9 . -0.1)))
106 (curve '((0.4 . -0.4) (1 . -2.4) (1 . -2.4)))
107 (curve '((1.4 . -1.4) (3 . -3.2) (4.1 . -3.7)))
108 (line-to '(1 . -1.9))
109 (curve '((0.1 . -1.7) (-1 . -7.2) (0.3 . -8.8)))
110 (curve '((0.3 . -0.4) (1.2 . -3) (1.2 . -3)))
111
112 ;; tail
113 (curve '((0.5 . 1.8) (4 . 4.7) (4 . 4.7)))
114 (curve '((-0.5 . -0.8) (-0.4 . -0.9) (-0.4 . -0.9)))
115 (curve '((0 . 0) (2.8 . 0.9) (4.2 . 0.5)))
116 (curve '((2 . -0.6) (4.8 . -4) (4.8 . -4)))
117 (curve '((-1.3 . 1.1) (-1.3 . 0.8) (-2.5 . 1.2)))
118 (curve '((0 . 0) (0.8 . -1) (1.1 . -1.4)))
119 (curve '((1 . -1.4) (1.6 . -3.6) (2 . -5.1)))
120 (curve '((-0.2 . 0.4) (-0.4 . 0.4) (-0.5 . 0.4)))
121 (curve '((-0.2 . -0.6) (1.1 . -3.3) (1.1 . -3.3)))
122 (curve '((-0.9 . 0.9) (-1.8 . 1.8) (-2.6 . 3.2)))
123 (curve '((-1.3 . 2.2) (-2.4 . 4.7) (-4.4 . 6.2)))
124 (curve '((-1.3 . 1) (-4.8 . -2) (-4.8 . -2)))
125 (curve '((-1.4 . -0.9) (-1.5 . -2.1) (-1.7 . -2.1)))
126
127 ;; back
128 (line-to '(0.1 . 0.2))
129 (curve '((0.2 . -2.4) (-3 . -5.4) (-4.4 . -6.3)))
130 (curve '((-5.8 . -1.4) (-7.4 . -2.16) (-9.8 . -3.9)))
131 (curve '((0 . 0) (2.8 . 0.4) (3.3 . -0.8)))
132 (curve '((-1.1 . 0.6) (-3.6 . -0.2) (-5.6 . -1.2)))
133 (curve '((-3.5 . -1.9) (-4 . -2.6) (-5.2 . -2.6)))
134 (curve '((-0.8 . 0) (-1.9 . -0.2) (-1.9 . -1)))
135 (curve '((-0.1 . -0.8) (0.3 . -0.8) (1.5 . -1.2)))
136 (curve '((-0.7 . -0.1) (-2.5 . 0.2) (-3.6 . 1.1)))
137
138 (close-path))
139 #:stroke-width 0)
140 color))
141
142(define parliament
143 (begin
144 (next-color)(next-color)
145 (rotate
146 (apply cc-superimpose
147 (map (lambda (n)
148 (let ((segment (disk 18 #:color (next-color))))
149 (rotate (expand segment #:right 130)
150 (* n 24))))
151 (iota 8)))
152 -35)))
153
154(define hill
155 (scale
156 (fill
157 (polygon '((0 . 30)
158 (10 . 30)
159 (20 . 25)
160 (40 . 20)
161 (60 . 5)
162 (80 . 10)
163 (100 . 30))
164 #:border-width 0)
165 hill-color)
166 2.8))
167
168(define composition
169 (expand
170 (cc-superimpose
171 (expand parliament #:bottom 40)
172 (expand hill #:top 20)
173 (expand
174 (scale (wildebeest #:color (first palette)) 2.8)
175 #:left 80))
176 #:bottom -50
177 #:left -20))
178
179(define composition-with-text
180 (expand
181 (vc-append
182 composition
183 (hb-append
184 (text "the"
185 #:border-width 0
186 #:font-family "League spartan Light"
187 #:color (first palette)
188 #:font-size 32)
189 (expand
190 (text "gnu"
191 #:border-width 0
192 #:font-family "League spartan ExtraBold"
193 #:color (second palette)
194 #:font-size 32)
195 #:left 5
196 #:right 5)
197 (text "assembly"
198 #:border-width 0
199 #:font-family "League spartan Light"
200 #:color (first palette)
201 #:font-size 32)))
202 #:bottom 10))
203
204(define favicon
205 (let ((circles
206 (expand (scale parliament 0.5)
207 #:amount -10)))
208 (scale
209 (cc-superimpose
210 (filled-rectangle
211 (pict-width circles)
212 (pict-height circles)
213 #:color "white")
214 circles
215 (expand (text "g"
216 #:border-width 0
217 #:font-family "League spartan ExtraBold"
218 #:color (first palette)
219 #:font-size 64)
220 #:left 5))
221 0.3)))
222
223(define small-wildebeest
224 (wildebeest #:color (first palette)))
225
226(pict->file composition-with-text "/tmp/logo.svg")
227(pict->file composition "/tmp/logo-small.svg")
228(pict->file favicon "/tmp/favicon.svg")
229(pict->file small-wildebeest "/tmp/wildebeest.svg")