diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/ifsym/ifwea.gen')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/ifsym/ifwea.gen | 313 |
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 %%%%%%%%%%%%%%%%%%%%%%% |