summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/ifsym/ifwea.gen
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/ifsym/ifwea.gen')
-rw-r--r--Master/texmf-dist/fonts/source/public/ifsym/ifwea.gen313
1 files changed, 313 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/ifsym/ifwea.gen b/Master/texmf-dist/fonts/source/public/ifsym/ifwea.gen
new file mode 100644
index 00000000000..9f70d2b8ee4
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/ifsym/ifwea.gen
@@ -0,0 +1,313 @@
+%%%%%%%%%%%%%%%%%% ifwea.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
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% weather symbols
+% by I.Kloeckl, ingo.kloeckl@2k-software.de
+
+pen normalpen;
+normalpen := pencircle scaled .75linewidth;
+
+%
+% centers of wind symbol
+%
+"BlueSky";
+beginchar(0,4pt#,4pt#,0);
+ pickup normalpen;
+ draw fullcircle scaled 4pt shifted (2pt,2pt);
+endchar;
+
+"BlueSky3/4";
+beginchar(1,4pt#,4pt#,0);
+ pickup normalpen;
+ draw fullcircle scaled 4pt shifted (2pt,2pt);
+ fill quartercircle scaled 4pt shifted(2pt,2pt)--(2pt,2pt)--cycle;
+endchar;
+
+"BlueSky2/4";
+beginchar(2,4pt#,4pt#,0);
+ pickup normalpen;
+ draw fullcircle scaled 4pt shifted (2pt,2pt);
+ fill halfcircle scaled 4pt shifted (2pt,2pt)--(2pt,2pt)--cycle;
+endchar;
+
+"BlueSky1/4";
+beginchar(3,4pt#,4pt#,0);
+ pickup normalpen;
+ draw fullcircle scaled 4pt shifted (2pt,2pt);
+ fill halfcircle scaled 4pt rotated 180 shifted(2pt,2pt)--(2pt,2pt)--cycle;
+ fill quartercircle scaled 4pt rotated -90 shifted(2pt,2pt)--(2pt,2pt)--cycle;
+endchar;
+
+"CloudySky";
+beginchar(4,4pt#,4pt#,0);
+ pickup normalpen;
+ fill fullcircle scaled 4pt shifted (2pt,2pt);
+endchar;
+
+%
+% nice thermometers
+%
+def Thermo(expr n, height) =
+ beginchar((char n),3pt#,10pt#,0);
+ pickup pencircle scaled .5linewidth;
+ fill fullcircle scaled 3pt shifted (1.5pt,1.5pt);
+
+ pickup pencircle scaled .2linewidth;
+ draw (0.5pt,2pt)--(0.5pt,9pt)..(1.5pt,10pt)..(2.5pt,9pt)--(2.5pt,2pt)--cycle;
+ draw (1.5pt,2pt)--(1.5pt,9pt);
+ path p; p := (1pt,1pt)--(2pt,1pt);
+ for i=2 upto 8:
+ draw p shifted(0, i*1pt);
+ endfor;
+
+ fill (1.2pt,2pt)--(1.2pt,height*1pt)--(1.8pt,height*1pt)--(1.8pt,2pt)--cycle;
+endchar;
+enddef;
+
+"Thermoa"; Thermo(5,3);
+"Thermob"; Thermo(6,4);
+"Thermoc"; Thermo(7,5);
+"Thermod"; Thermo(8,6);
+"Thermoe"; Thermo(9,7);
+"Thermof"; Thermo(10,8);
+"Thermog"; Thermo(11,9);
+
+%
+% popular weather symbols
+%
+"Sun";
+beginchar(16,10pt#,10pt#,0);
+ pickup normalpen;
+ draw fullcircle scaled 5pt shifted (5pt,5pt);
+ path p;
+ p=(7.5pt,5pt)--(10pt,5pt);
+ for i=0 upto 7:
+ draw p rotatedaround ((5pt,5pt),(i*45));
+ endfor;
+endchar;
+
+"Halfsun";
+beginchar(17,10pt#,10pt#,0);
+ pickup normalpen;
+ draw fullcircle scaled 5pt shifted (5pt,5pt);
+ fill halfcircle--cycle scaled 5pt rotated (180) shifted (5pt,5pt);
+ path p;
+ p=(7.5pt,5pt)--(10pt,5pt);
+ for i=0 upto 4:
+ draw p rotatedaround ((5pt,5pt),(i*45));
+ endfor;
+endchar;
+
+"Nosun";
+beginchar(18,10pt#,10pt#,0);
+ pickup normalpen;
+ fill fullcircle scaled 7pt shifted (5pt,5pt);
+endchar;
+
+"Fog";
+beginchar(19,10pt#,10pt#,0);
+pickup pencircle scaled 0.5linewidth;
+ for i=.1h step .1h until .9h:
+ for j=0 step .3w until .7w:
+ draw (j,i)--(j+.2w,i);
+ endfor
+ endfor
+endchar;
+
+
+"ThinFog";
+beginchar(20,10pt#,10pt#,0);
+pickup pencircle scaled .25linewidth;
+ for i=.1h step .1h until .9h:
+ for j=0 step .3w until .7w:
+ draw (j,i)--(j+.2w,i);
+ endfor
+ endfor
+endchar;
+
+"Rain";
+beginchar(21,10pt#,10pt#,0);
+pickup normalpen;
+for i=1 step 2 until 7:
+ draw (i*1pt,1pt)--((i+2)*1pt,4pt); draw((i+1)*1pt,5pt)--((i+3)*1pt,8pt);
+endfor;
+endchar;
+
+"WeakRain";
+beginchar(22,10pt#,10pt#,0);
+pickup pencircle scaled .5linewidth;
+for i:=1 step 2 until 7:
+ draw (i*1pt,1pt)--((i+1)*1pt,2pt);
+ draw((i+1)*1pt,4pt)--((i+2)*1pt,5pt);
+ draw((i+2)*1pt,7pt)--((i+3)*1pt,8pt);
+endfor;
+endchar;
+
+"Hagel";
+beginchar(23,10pt#,10pt#,0);
+pickup pencircle scaled 4linewidth;
+drawdot(3pt,3pt); drawdot(1pt,8pt); drawdot(6pt,7pt);
+drawdot(1pt,1pt); drawdot(8pt,2pt); drawdot(3pt,6pt);
+drawdot(7pt,3pt); drawdot(3pt,8pt); drawdot(6pt,1pt);
+endchar;
+
+"Graupel";
+beginchar(24,10pt#,10pt#,0);
+pickup pencircle scaled 2linewidth;
+drawdot(3pt,3pt); drawdot(1pt,8pt); drawdot(6pt,7pt);
+drawdot(1pt,1pt); drawdot(8pt,2pt); drawdot(3pt,6pt);
+drawdot(7pt,3pt); drawdot(3pt,8pt); drawdot(6pt,1pt);
+endchar;
+
+"Snow";
+beginchar(25,10pt#,10pt#,0);
+ pickup normalpen;
+ path p[];
+ p1 = (0,0)--(4pt,0);
+ p2 = (4pt,-1pt)--(3pt,0)--(4pt,1pt);
+ for i:=0 upto 5:
+ draw p1 rotated (i*60) shifted(5pt,5pt);
+ draw p2 shifted(-2pt,0) rotated (i*60) shifted(5pt,5pt);
+ draw p2 shifted(-1pt,0) rotated (i*60) shifted(5pt,5pt);
+ draw p2 rotated (i*60) shifted(5pt,5pt);
+ endfor;
+endchar;
+
+"Blitz";
+beginchar(26,10pt#,10pt#,0);
+ pickup normalpen;
+ fill (6.4pt,10pt)--(8.7pt,8.4pt)--(5.6pt,4.1pt)--(4.4pt,4.9pt)--(2.4pt,2.1pt)--
+ (3.9pt,1.6pt)--(0,0)--(1.1pt,4pt)--(1.6pt,2.4pt)--(3.5pt,8.5pt)--
+ (5pt,6pt)--cycle;
+endchar;
+
+path cloud;
+cloud = (5.0pt,0.0pt){left}..{up}(0.0pt,3.2pt){up}..{right}(2.1pt,5.7pt){right}..
+ {dir -60}(4.0pt,4.2pt){dir 40}..{dir -40}(5.5pt,4.1pt){dir -40}..
+ {dir -80}(6.1pt,2.4pt){dir 60}..{right}(7.8pt,3.3pt){right}..
+ {down}(9.3pt,2.0pt){down}..{left}cycle;
+
+"Cloud";
+beginchar(27,10pt#,6pt#,0);
+ pickup normalpen;
+ draw cloud;
+endchar;
+
+"RainCloud";
+beginchar(28,10pt#,10pt#,0);
+ pickup normalpen;
+ draw cloud shifted(0, 4pt);
+ for i=0 step 3 until 6:
+ draw (i*1pt,1pt)--((i+1)*1pt,4pt);
+ draw ((i+1)*1pt,0)--((i+2)*1pt,3pt);
+ endfor;
+endchar;
+
+"WeakRainCloud";
+beginchar(29,10pt#,6pt#,0);
+ pickup normalpen;
+ draw cloud shifted(0, 4pt);
+ for i=0 step 3 until 6:
+ draw (i*1pt,1pt)--((i+1)*1pt,4pt);
+ endfor;
+endchar;
+
+"SunCloud";
+beginchar(30,10pt#,10pt#,0);
+ pickup normalpen;
+ draw fullcircle scaled 4pt shifted (6pt,5pt);
+ path p;
+ p=(8pt,5pt)--(10pt,5pt);
+ for i=0 upto 7:
+ draw p rotatedaround ((6pt,5pt),(i*45));
+ endfor;
+ unfill cloud; draw cloud;
+endchar;
+
+"SnowCloud";
+beginchar(31,10pt#,10pt#,0);
+ pickup normalpen;
+ draw cloud shifted(0, 4pt);
+ pickup pencircle scaled 2linewidth;
+ drawdot(3pt,3pt); drawdot(6pt,2pt); drawdot(2pt,3pt);
+ drawdot(1pt,0); drawdot(8pt,1pt); drawdot(9pt,3pt);
+ drawdot(7pt,3pt); drawdot(4pt,0); drawdot(5pt,2pt);
+endchar;
+
+"FilledCloud";
+beginchar(32,10pt#,6pt#,0);
+ pickup normalpen;
+ fill cloud;
+endchar;
+
+"FilledRainCloud";
+beginchar(33,10pt#,10pt#,0);
+ pickup normalpen;
+ fill cloud shifted(0, 4pt);
+ for i=0 step 3 until 6:
+ draw (i*1pt,1pt)--((i+1)*1pt,4pt);
+ draw ((i+1)*1pt,0)--((i+2)*1pt,3pt);
+ endfor;
+endchar;
+
+"FilledWeakRainCloud";
+beginchar(34,10pt#,6pt#,0);
+ pickup normalpen;
+ fill cloud shifted(0, 4pt);
+ for i=0 step 3 until 6:
+ draw (i*1pt,1pt)--((i+1)*1pt,4pt);
+ endfor;
+endchar;
+
+"FilledSunCloud";
+beginchar(35,10pt#,10pt#,0);
+ pickup normalpen;
+ draw fullcircle scaled 4pt shifted (6pt,5pt);
+ path p;
+ p=(8pt,5pt)--(10pt,5pt);
+ for i=0 upto 7:
+ draw p rotatedaround ((6pt,5pt),(i*45));
+ endfor;
+ fill cloud;
+endchar;
+
+"FilledSnowCloud";
+beginchar(36,10pt#,10pt#,0);
+ pickup normalpen;
+ fill cloud shifted(0, 4pt);
+ pickup pencircle scaled 2linewidth;
+ drawdot(3pt,3pt); drawdot(6pt,2pt); drawdot(2pt,3pt);
+ drawdot(1pt,0); drawdot(8pt,1pt); drawdot(9pt,3pt);
+ drawdot(7pt,3pt); drawdot(4pt,0); drawdot(5pt,2pt);
+endchar;
+
+%HalfWeakRainCloud 165
+%CloudBlitz 166
+
+def wind(expr n, strength) =
+ beginchar((char n),0pt#,11pt#,0);
+ pickup normalpen;
+ draw (0,4pt)--(0,10pt);
+ for k=0 upto strength/2:
+ draw (0,(10-k)*1pt)--(-2pt,(11-k)*1pt);
+ endfor
+ if (strength mod 2 = 1):
+ draw (0,(9.5-strength/2)*1pt)--(-1pt,(10-strength/2)*1pt);
+ fi
+endchar;
+enddef;
+
+for j=0 step 1 until 10:
+ wind(48+j,j);
+endfor;
+
+end.
+%%%%%%%%%%%%%%%%%% end of ifwea.gen %%%%%%%%%%%%%%%%%%%%%%%