%% 
%%  A DANTE-Edition example
%% 
%%  Example 36-00-27 on page 779.
%% 
%%  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{375.57637pt}
\setlength\parindent{0pt}

\usepackage{pstricks,pst-grad,multido}

\begin{document}
\psset{unit=0.65}
\begin{pspicture}(-6,-5.75)(5,7.5)
\psset{gradbegin=white,gradend=black,gradmidpoint=1}
\multido{\in=35+90,\im=59+90}{4}{%
  \ifodd\im\pswedge[fillstyle=gradient](0,0){4}{\in}{\im}\fi%
}
\pscircle*[linecolor=white](0,0){1}
\pscircle[linewidth=1cm,linecolor=lightgray](0,0){5}
\pscircle[linewidth=0.2,linecolor=cyan](0,0){1}
\pscircle(0,0){1}\pscircle(0,0){0.8}
\psline{->}(0,0)(0.8,0)\uput[90](0.4,0){r}
\uput[180](0,0){S}
\psframe[fillcolor=cyan,fillstyle=solid](0.8,0)(1.0,7)
\psframe[fillstyle=vlines,linestyle=none](-0.1,7)(2,7.5)
\psline(-0.1,7)(2,7)
\psline[linewidth=0.2,linecolor=red]{->}(0.9,0)(0.9,3)\uput[0](0.9,2.8){\LARGE $F_f$}
{\psset{arrowscale=2,linewidth=0.075,linecolor=red}
\psline{->}(0,0)(0,3)\uput[-180](0,2.8){\LARGE $F_f^\prime$}
\psline{->}(0,0)(0,-3)\uput[-180](0,-2.8){\LARGE $-F_f^\prime$}
\psline{->}(0,0)(0,-6)\uput[-180](0,-5.8){\LARGE $F_g$} }
\psarc{->}(0,0){2}{100}{170}\uput[-45](-1.5,1.5){\Large $\varphi$}
\psline[linestyle=dashed](-6,0)(0,0)
\psline[linestyle=dashed](-6,6)(2,6)
\psline{->}(-6,-6)(-6,7)
\uput[180](-6,6){\Large $h_0$}
\uput[180](-6,0){\Large $h(t)$}
\end{pspicture}
\end{document}
