← Back to branch summary

~ubuntu-branches/ubuntu/lucid/tuxtype/lucid-proposed

« back to all changes in this revision

Viewing changes to tuxtype/data/images/keyboard/keyboard.eps

  • Committer: Bazaar Package Importer
  • Author(s): Oliver Grawert
  • Date: 2006-10-30 13:48:49 UTC
  • mfrom: (2.1.1 etch)
  • Revision ID: james.westby@ubuntu.com-20061030134849-5fdruftday0c02gs
Tags: 1.5.6.dfsg1-3ubuntu1
Merge from debian unstable.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tuxtype/data/images/keyboard/keyboard.eps
 
1
%!PS-Adobe-2.0 EPSF-2.0
 
2
%%BoundingBox: 99 303 455 421
 
3
%%HiResBoundingBox: 99 303.000000 455.000000 421.000000
 
4
 
 
5
% Made in 2005 by Karl Ove Hufthammer. Placed in the Public Domain.
 
6
% 
 
7
% To create PNG file, run:
 
8
% gs -sDEVICE=pngalpha -sOutputFile=keyboard.png -r118 -dTextAlphaBits=4
 
9
%    -dGraphicsAlphaBits=4 -dEPSCrop -dBATCH -dNOPAUSE keyboard.eps
 
10
 
 
11
 
 
12
% --- Some eps-specific stuff ---
 
13
%%BeginProlog
 
14
save
 
15
countdictstack
 
16
mark
 
17
newpath
 
18
/showpage {} def
 
19
/setpagedevice {pop} def
 
20
%%EndProlog
 
21
%%Page 1 1
 
22
 
 
23
 
 
24
% --- The actual program ---
 
25
 
 
26
0.7 setlinewidth % Width of outlines
 
27
0.2 setgray     % Colour of outlines
 
28
 
 
29
 
 
30
% --- Variables ---
 
31
/lengd 20 def                   % Scale
 
32
/space 0.2 lengd mul def        % Space between keys
 
33
/ark 3 def                      % Roundness of keys
 
34
/ecol { 1 setgray } bind def    % Colour for normal keys
 
35
/entcol { .5 setgray } bind def % Colour for 'Enter' key
 
36
/fcol { .8 setgray } bind def   % Colour for 'special' keys
 
37
 
 
38
 
 
39
% --- Procedures ---
 
40
 
 
41
/box % Draw a box at current position. Input: Width and height.
 
42
{
 
43
    /y exch lengd mul def  
 
44
    /x exch lengd mul def
 
45
    newpath 
 
46
    0 y 2 div moveto
 
47
    0 y x y ark arcto
 
48
    x y x 0 ark arcto
 
49
    x 0 0 0 ark arcto
 
50
    0 0 0 y ark arcto
 
51
    closepath
 
52
    x space add 0 translate
 
53
} bind def
 
54
/ebox { box gsave ecol fill grestore stroke } bind def % Empty box
 
55
/fbox { box gsave fcol fill grestore stroke } bind def % Filled box
 
56
 
 
57
 
 
58
% --- Start program ---
 
59
100 400 translate
 
60
 
 
61
 
 
62
% First key row.
 
63
gsave % Not very elegant. Very bad programming practice!
 
64
13 { 1 1 ebox } repeat
 
65
2.1 1 fbox
 
66
grestore
 
67
 
 
68
 
 
69
% Second row.
 
70
0 lengd space add neg translate
 
71
gsave
 
72
1.4 1 fbox
 
73
12 { 1 1 ebox } repeat
 
74
grestore
 
75
 
 
76
 
 
77
% Third row.
 
78
0 lengd space add neg translate
 
79
gsave
 
80
1.8 1 fbox
 
81
12 { 1 1 ebox } repeat
 
82
grestore
 
83
 
 
84
 
 
85
% Fourth row.
 
86
0 lengd space add neg translate
 
87
gsave
 
88
1.4 1 fbox
 
89
11 { 1 1 ebox } repeat
 
90
2.9 1 fbox
 
91
grestore
 
92
 
 
93
 
 
94
% Fifth row.
 
95
0 lengd space add neg translate
 
96
gsave
 
97
3 { 1.3 1 fbox } repeat
 
98
7.2 1 fbox
 
99
4 { 1.3 1 fbox } repeat
 
100
grestore
 
101
 
 
102
 
 
103
% The 'Enter' key.
 
104
0 2 lengd space add mul translate
 
105
12 1.8 add lengd mul space 13 mul add 0 translate
 
106
newpath
 
107
lengd 2 div 0 moveto
 
108
/wid 1.3 lengd mul def
 
109
/hei lengd lengd space add add def
 
110
wid 0 wid hei ark arcto
 
111
wid hei .4 lengd mul neg hei ark arcto 
 
112
.35 lengd mul neg hei .4 lengd mul neg lengd space add ark arcto
 
113
.35 lengd mul neg lengd space add 0 lengd space add ark arcto
 
114
0 lengd space add 0 0 ark arcto
 
115
0 0 wid 0 ark arcto
 
116
closepath
 
117
gsave
 
118
entcol
 
119
fill
 
120
grestore
 
121
stroke
 
122
showpage
 
123
 
 
124
 
 
125
% --- Some more eps stuff ---
 
126
 
 
127
%%Trailer
 
128
cleartomark
 
129
countdictstack
 
130
exch sub { end } repeat
 
131
restore
 
132
%%EOF