diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/ifsym/ifclk.gen')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/ifsym/ifclk.gen | 111 |
1 files changed, 111 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/ifsym/ifclk.gen b/Master/texmf-dist/fonts/source/public/ifsym/ifclk.gen new file mode 100644 index 00000000000..8b332933d6a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/ifsym/ifclk.gen @@ -0,0 +1,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 %%%%%%%%%%%%%%%%%%%%%%%
\ No newline at end of file |