summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/pstricks-examples-en/25-04-3.ltx
diff options
context:
space:
mode:
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.ltx81
1 files changed, 81 insertions, 0 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
new file mode 100644
index 00000000000..bd96d220cb7
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks-examples-en/25-04-3.ltx
@@ -0,0 +1,81 @@
+%%
+%% 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}