summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pstricks/voss/bsp02.tex
blob: da41292aa1a3858a985724b3f2af98abf3e8cb81 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% bsp02.tex ---
%% Autor           : Herbert Voss <voss@perce.de> (nach einer Idee von
%%                   Denos Girou)
%% Datum           : 2004-04-25 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass{article}
\usepackage{pstricks}
\usepackage{pst-grad}
\usepackage{multido}

\parindent=0pt
\pagestyle{empty}
\begin{document}

\begin{pspicture}(-6,-5)(5,8)
\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](-5.5,0)(0,0)
\psline[linestyle=dashed](-5.5,6)(2,6)
\psline{->}(-5.5,-6)(-5.5,7)
\uput[180](-5.5,6){\Large $h_0$}
\uput[180](-5.5,0){\Large $h(t)$}
\end{pspicture}

\end{document}