-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathstjernen.ps
64 lines (56 loc) · 1.32 KB
/
stjernen.ps
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
57
58
59
60
61
62
63
64
%!
% F-klub stjernen. Hacket sammen af cmb og guano til en fredagsbar.
% Baseret på første udkast til logo for F-klubben af (c) Lucifer-data 26-10-1989
% tegner det enkle intergraltegn med paremetre
% Kald : angle x y int -
/int {
gsave
translate
/Symbol findfont 100 scalefont setfont
rotate
-14 33 moveto
gsave
1 1.5 scale
(\362) show
grestore
grestore
} def
% Skriver selve logo'et, x,y referer til midten af den midster cirkel.
% Kald : scale x y logo -
/logo {
gsave
translate
gsave
120 div
dup neg scale
3 setlinewidth
-95 -54 10 0 360 arc stroke
0 110.6 10 0 360 arc stroke
95 -54 10 0 360 arc stroke
0 0 45 0 360 arc stroke % stor cirkel.
93 95 -54 int
-147 0 110.6 int
-27 -95 -54 int
grestore
grestore
} def
% eviluminaty-logo
/eviluminaty-logo {
gsave
translate
gsave
120 div
dup neg scale
3 setlinewidth
95 54 10 0 360 arc stroke
0 -110.6 10 0 360 arc stroke
-95 54 10 0 360 arc stroke
92 95 54 int
332 0 -110.6 int
210 -95 54 int
grestore
grestore
} def
300 300 350 logo
300 300 350 eviluminaty-logo
showpage