diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/pstricks-examples-en/25-04-3.ltx')
-rw-r--r-- | Master/texmf-dist/doc/latex/pstricks-examples-en/25-04-3.ltx | 81 |
1 files changed, 0 insertions, 81 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks-examples-en/25-04-3.ltx b/Master/texmf-dist/doc/latex/pstricks-examples-en/25-04-3.ltx deleted file mode 100644 index bd96d220cb7..00000000000 --- a/Master/texmf-dist/doc/latex/pstricks-examples-en/25-04-3.ltx +++ /dev/null @@ -1,81 +0,0 @@ -%% -%% A DANTE-Edition example -%% -%% Example 25-04-3 on page 482. -%% -%% Copyright (C) 2011 Herbert Voss -%% -%% It may be distributed and/or modified under the conditions -%% of the LaTeX Project Public License, either version 1.3 -%% of this license or (at your option) any later version. -%% -%% See http://www.latex-project.org/lppl.txt for details. -%% -%% -%% ==== -% Show page(s) 1 -%% -\documentclass[]{article} -\pagestyle{empty} -\setlength\textwidth{201.70511pt} -\setlength\parindent{0pt} -\usepackage{pstricks-add} -\makeatletter -\newdimen\pssizeStar -\def\psset@sizeStar#1{\pssetlength\pssizeStar{#1}} -\psset@sizeStar{1.5pt} -%% adapted de \psRandom du package pstricks-add -\def\psRandomStar{\pst@object{psRandomStar}}% -\def\psRandomStar@i{\@ifnextchar({\psRandomStar@ii}{\psRandomStar@iii(0,0)(1,1)}} -\def\psRandomStar@ii(#1){\@ifnextchar({\psRandomStar@iii(#1)}{\psRandomStar@iii(0,0)(#1)}} -\def\psRandomStar@iii(#1)(#2)#3{% - \def\pst@tempA{#3}% - \ifx\pst@tempA\pst@empty\psclip{\psframe(#2)}\else\psclip{#3}\fi - \pst@getcoor{#1}\pst@tempA - \pst@getcoor{#2}\pst@tempB - \begin@SpecialObj - \addto@pscode{ - \pst@tempA\space /yMin exch def - /xMin exch def - \pst@tempB\space /yMax exch def - /xMax exch def - /dy yMax yMin sub def - /dx xMax xMin sub def - rrand srand % initializes the random generator - /getRandReal { rand 2147483647 div } def - \psk@randomPoints { - /DS \pst@number\pssizeStar\space getRandReal mul def - \@nameuse{psds@\psk@dotstyle} - \ifPst@color getRandReal 1 1 sethsbcolor \fi - getRandReal dx mul xMin add - getRandReal dy mul yMin add - Dot - \ifx\psk@fillstyle\psfs@solid fill \fi stroke - } repeat - }% - \end@SpecialObj - \endpsclip - \ignorespaces -} -\makeatother - -\usepackage{pst-map3d} - -\begin{document} -\definecolor{BlueDark}{cmyk}{1,1,0,0.5} -\newpsstyle{Globe}{circles=true, - gridmap=true,daynight=false} -\newpsstyle{night}{fillstyle=solid, - fillcolor=BlueDark,linecolor=BlueDark, - opacity=0.8} -\psset{Radius=5,Decran=100,Dobs=100, - unit=0.5,path=pst-geo/data} -\begin{pspicture}(-7,-7)(7,7) -\psframe*[linecolor=BlueDark](-7,-7)(7,7) -\psRandomStar[linecolor=yellow!50, - randomPoints=100](-7,-7)(7,7){% - \psframe(-7,-7)(7,7)} -\psGlobeTellure[hour=10,Day=1,Month=10, - Year=2008](13.297,52.5222){Berlin} -\end{pspicture} -\end{document} |