[pstricks] Drawing Weather Maps/Reports (anything about weather?)

[Herbert Voss]

Herbert Voss schrieb:
> Am 26.03.2017 um 23:49 schrieb TeXnicer:
>
>> Questions:
>> - Is there any packages, pst-packages dealing with this kind of science?
>> Weatherreport, Symbols, e.g.?
>
> There is no such package. However, here is an example
> how you can write a new package:
>
>
> \documentclass{minimal}
> \usepackage{pstricks}
> \makeatletter
> \define at key[psset]{}{WeatherSymbol}[]{\def\psk at WeatherSymbol{#1}}
> \psset{WeatherSymbol=xyz}

Sorry, the two Lines above should be deleted

Herbert


> \define at choicekey[psset]{}{WeatherSymbol}[\val\pst at WSymbol]{xyz,abc}[xyz]{}
> \psset{WeatherSymbol=xyz}%
> \def\psWeather{\pst at object{psWeather}}
> \def\psWeather at i(#1)#2#3{%
>    \pst at killglue
>    \begingroup
>    \addbefore at par{gangle=-135}
>    \use at par
>    \ifcase\pst at WSymbol   % nr 0->xyz
>       \rput{\psk at gangle}(#1){%
>         \psline(0,.2)(0,1.2)
> 	   \psline(0,1.2)(0.5,1.2)
> 	   \psline(0,1.1)(0.5,1.1)
> 	   \psline(0,1.0)(0.25,1.0)
>    	   \pscircle(0,0){.2}}
> 	 \rput(#1){%
> 	 	\rput[r](-1.3,0){$\mathsf{#2}$}
> 	    \rput[l](1.3,0){$\mathsf{#3}$}}
>    \or                   % nr 1 -> abc
>    \fi
>    \endgroup
> }
> \makeatother
>
> \begin{document}
> \centering
> WX: SE~5, misty, 5$^\circ$, 1008\,hPa\par
> \begin{pspicture}(-3,-5)(3,2)
> 	\psWeather(0,0){5}{1008}
> 	\psWeather[gangle=-90,linecolor=red](0,-2){5}{1008}
> \end{pspicture}
> \end{document}
>