fusee-depart.tex

\documentclass[a4paper]{article}
\usepackage[T1]{fontenc}
\usepackage[latin1]{inputenc}
\usepackage{pstricks-add,pst-solides3d}
\renewcommand{\sfdefault}{phv}
 
\makeatletter
\newdimen\pssizeStar
\def\psset@sizeStar#1{\pssetlength\pssizeStar{#1}}
\psset@sizeStar{1.5pt}
 
%% adapté de \psRandom du package pstricks-add
%% pour rendre aléatoire la taille des étoiles
\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
 
 
\pagestyle{empty}
\begin{document}
\psset{path=../data}
 
\definecolor{BlueDark}{cmyk}{1,1,0,0.7}
\psset{unit=0.75}
\begin{pspicture*}(-7,-2)(7,25)
\psframe*[linecolor=BlueDark](-7,-2)(7,25)
\psRandomStar[linecolor=yellow!50,randomPoints=200](-7,-1)(7,25){\psframe(-7,-1)(7,25)}
\psset{lightsrc=93 -20 34}
\psset[pst-solides3d]{SphericalCoor,viewpoint=100 0 10,Decran=100}
\pspolygon[fillstyle=solid,fillcolor={[cmyk]{0.9,1,0,0.8}},
    linestyle=none](-7,-2)(-7,14)(-6,13)(-5,13.4)(-4,11.5)(-3,12)(0,10)(3,11.5)(7,9)(7,-2)
\psframe*[linecolor={[cmyk]{1,0,1,0.8}},linestyle=none](-7,-2)(7,3)
\psRandomStar[linecolor={[cmyk]{0,0,1,0.6}},randomPoints=200,sizeStar=0.8pt](-7,-2)(7,3){%
    \psframe[linestyle=none](-7,-2)(7,3)}
\psSolid[object=datfile,file=fusee-depart,grid](0,0,0)
\pspolygon[fillstyle=solid](-2.5,23.6)(-2,24)(-2,23.6)(-1.5,23.9)(-1.4,23.5)(-1,23.8)(-1,23.4)(-0.4,23.6)
                        (-1.1,23.2)(-1.1,23.5)(-1.5,23.2)(-1.6,23.6)(-2.2,23.3)(-2.2,23.5)(-2.5,23.3)
\rput(-4.5,23.5){%
\psframebox[framearc=0.2,fillstyle=solid,linestyle=none]{
    \begin{minipage}{3cm}
    \textit{\textsf{Allo!Allo!\ldots Fusée \\ lunaire prête \\pour le départ!\ldots}}
    \end{minipage}}
    }
\rput(0,-3){Dernière case, page 58 : Objectif Lune}
\end{pspicture*}
 
 
\end{document}