summaryrefslogtreecommitdiff
path: root/fonts/ifsym/ifclk.gen
blob: 2a351cb64460c9b9d1cb53eb67f4183f6015c885 (plain)
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
%%%%%%%%%%%%%%%%%% ifclk.gen %%%%%%%%%%%%%%%%%%%%%%%
% (c) Ingo Kloeckl
% This program can be redistributed and/or modified under the terms
% of the LaTeX Project Public License Distributed from CTAN
% archives in directory macros/latex/base/lppl.txt; either
% version 1 of the License, or any later version.

% History
% 20.12.1999 v1.0  IK 
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% generates clock symbols with 5 min increment
% by I.Kloeckl, ingo.kloeckl@2k-software.de
% clock for hh:mm -> \symbol{hh*12+mm/5}

picture clk,	% Zifferblatt
	clkb,	% Zifferblatt mit Zeiger 13:00
	clks;	% Stopuhr

path button; button = (5.5pt,10pt)--(5.5pt,11pt)--(6pt,11pt)..
    (6.5pt,11.5pt)..(6pt,12pt)--(4pt,12pt)..(3.5pt,11.5pt)..
    (4pt,11pt)--(4.5pt,11pt)--(4.5pt,10pt)--cycle;

% Zifferblatt
beginchar(149,10pt#,10pt#,0); 
  pickup pencircle scaled .75linewidth;
  draw fullcircle scaled 10pt shifted (5pt,5pt);
  path s; s=(8pt,5pt)--(9pt,5pt);
  for i=0 upto 11:
    draw s rotatedaround ((5pt,5pt),(i*30));
  endfor;
  clk := currentpicture;
endchar;

n := 0;
for h=3 downto -8:
  for m=15 step -5 until -40:
    beginchar((char n),10pt#,10pt#,0); 
      currentpicture := clk;
      pickup pencircle scaled .75linewidth;
      draw (5pt,5pt)--(9pt,5pt) rotatedaround ((5pt,5pt),(m*6));
      draw (5pt,5pt)--(7pt,5pt) rotatedaround ((5pt,5pt),(h*30-(15-m)/2));
    endchar;
    n := n+1;
  endfor;
endfor;

% Taschenuhr
beginchar(150,10pt#,14pt#,0); 
  currentpicture := clk;
  pickup pencircle scaled .75linewidth;
  draw (5pt,5pt)--(9pt,5pt) rotatedaround ((5pt,5pt),0);
  draw (5pt,5pt)--(7pt,5pt) rotatedaround ((5pt,5pt),22.5);
  clkb := currentpicture;
  draw fullcircle scaled 4pt shifted (5pt,12pt);
  fill button;
endchar;

% Taschenuhr2
beginchar(148,11pt#,16pt#,0); 
  currentpicture := clkb shifted(0,1pt);
  pickup pencircle scaled .75linewidth;
  draw fullcircle scaled 12pt shifted (5pt,6pt);
  draw fullcircle scaled 4pt shifted (5pt,14pt);
  fill button shifted(0,2pt);
endchar;

% stop watch start
beginchar(151,12pt#,12pt#,0); 
  currentpicture := clk;
  pickup pencircle scaled .75linewidth;
  draw fullcircle scaled 2pt shifted (5pt,11pt);
  fill button rotatedaround((5pt,5pt),40);
  fill button rotatedaround((5pt,5pt),-40);
  clks := currentpicture;
  draw (5pt,5pt)--(9pt,5pt) rotatedaround ((5pt,5pt),90);
endchar;

% stop watch stop
beginchar(152,10pt#,12pt#,0); 
  currentpicture := clks;
  pickup pencircle scaled .75linewidth;
  draw (5pt,5pt)--(9pt,5pt) rotatedaround ((5pt,5pt),-60);
endchar;

% interval
beginchar(153,10pt#,10pt#,0); 
  currentpicture := clk;
  fill quartercircle scaled 10pt shifted(5pt,5pt)--(5pt,5pt)--cycle;
  fill quartercircle rotated -30 scaled 10pt shifted(5pt,5pt)
	--(5pt,5pt)--cycle;
endchar;

% Wecker
beginchar(154,14pt#,12pt#,0); 
  fill unitsquare xscaled 14pt yscaled 12pt;
  unfill fullcircle scaled 10pt shifted(7pt,6pt);
  currentpicture := currentpicture + clkb shifted(2pt,1pt);
endchar;

% another clock
beginchar(155,10pt#,10pt#,0);
  pickup pencircle scaled .75linewidth;
  draw fullcircle scaled 10pt shifted (5pt,5pt);
  fill fullcircle scaled 1pt shifted (5pt,5pt);
  draw (5pt,5pt)--(9pt,5pt) rotatedaround ((5pt,5pt),90);
  draw (5pt,5pt)--(7pt,5pt) rotatedaround ((5pt,5pt),60);
endchar;

end.
%%%%%%%%%%%%%%%%%% end of ifclk.gen %%%%%%%%%%%%%%%%%%%%%%%