blob: eedc75bf293fcb95fc61b74f6b3724c653635b8d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
(define font "B612")
(define sticker-radius 3.82); mm
(define page-size a7-size)
(define glyphs
(concatenate
(list
(map (lambda (l) (make-glyph l font "6" "white" "none")) ru-chars)
(map (lambda (l) (make-glyph l font "6" "white" "none")) numbers)
(map (lambda (l) (make-glyph l font "6" "red" "none")) brackets)
(map (lambda (l) (make-glyph l font "6" "white" "none")) punct)
(map (lambda (l) (make-glyph l font "6" "lightgreen" "none")) symbols)
(map (lambda (l) (make-glyph l font "6" "white" "none")) math)
(map (lambda (l) (make-glyph l font "6" "white" "none")) tab)
(map (lambda (l) (make-glyph l font "6" "white" "none")) backspace)
(map (lambda (l) (make-glyph l font "6" "white" "none")) arrows)
(map (lambda (l) (make-glyph l font "6" "white" "none")) upcase)
(map (lambda (l) (make-glyph l font "6" "white" "none")) enter)
(map (lambda (l) (make-glyph l font "3" "white" "italic")) modifiers)
(map (lambda (l) (make-glyph l font "3" "white" "italic")) pagers)
(map (lambda (l) (make-glyph l font "6" "steelblue" "none")) media))))
(make-config page-size sticker-radius glyphs)
|
