summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pstricks/voss/bsp02.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/generic/pstricks/voss/bsp02.tex')
-rw-r--r--Master/texmf-dist/doc/generic/pstricks/voss/bsp02.tex43
1 files changed, 43 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/generic/pstricks/voss/bsp02.tex b/Master/texmf-dist/doc/generic/pstricks/voss/bsp02.tex
new file mode 100644
index 00000000000..da41292aa1a
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pstricks/voss/bsp02.tex
@@ -0,0 +1,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}