[pstricks] Drawing Weather Maps/Reports (anything about weather?)
Herbert Voss
Herbert.Voss at FU-Berlin.DE
Tue Mar 28 19:52:00 CEST 2017
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}
>
More information about the PSTricks
mailing list