new pstricks package pst-pulley (18jan12)

git-svn-id: svn://tug.org/texlive/trunk@25142 c570f23f-e606-0410-a88d-b1316a301751

12 files changed, 1649 insertions, 1 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-pulley/Changes b/Master/texmf-dist/doc/generic/pst-pulley/Changes
new file mode 100644
index 00000000000..2306a7563c1
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-pulley/Changes
@@ -0,0 +1,7 @@
+pst-pulley.sty --------
+
+pst-pulley.tex --------
+v 0.01  2012/01/17  first version
+
+
+pst-pulley-doc.tex --------
diff --git a/Master/texmf-dist/doc/generic/pst-pulley/README b/Master/texmf-dist/doc/generic/pst-pulley/README
new file mode 100644
index 00000000000..5b29e1ced19
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-pulley/README
@@ -0,0 +1,11 @@
+pst-eps: exporting eps figures
+
+pst-eps.sty     - The LaTeX file
+pst-eps.tex     - The TeX file
+pst-eps-doc.pdf - The documentation
+pst-eps-doc.tex - The documentation source
+pst-eps-doc.bib - The documentation bib
+
+
+--
+Herbert Voss 2006-11-05
diff --git a/Master/texmf-dist/doc/generic/pst-pulley/pst-pulley-doc.bib b/Master/texmf-dist/doc/generic/pst-pulley/pst-pulley-doc.bib
new file mode 100644
index 00000000000..8c5a13d2f5c
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-pulley/pst-pulley-doc.bib
@@ -0,0 +1,174 @@
+@STRING{tugboat	= {TUGboat} }
+@STRING{beiprogramm	= {{\TeX}-Beiprogramm} }
+@STRING{bretter	= {Bretter, die die Welt bedeuten} }
+@STRING{dtk		= {{D}ie {\TeX}nische {K}om{\"o}die} }
+@STRING{editorial	= {Editorial} }
+@STRING{fremdebuehne	= {Von fremden B{\"u}hnen} }
+@STRING{fundus		= {Aus dem Fundus} }
+@STRING{hinterbuehne	= {Hinter der B{\"u}hne} }
+@STRING{leserbrief	= {Leserbrief(e)} }
+@STRING{magazin	= {Magazin} }
+@STRING{rezension	= {Rezensionen} }
+@STRING{schonimmer	= {Was Sie schon immer {\"u}ber {\TeX} wissen wollten \dots} }
+@STRING{theaterkasse	= {Von der Theaterkasse} }
+@STRING{theatertage	= {{\TeX}-Theatertage} }
+
+@Article{	  dtk02.2:jackson.voss:plot-funktionen,
+  author	= {Laura E. Jackson and Herbert Vo{\ss}},
+  title		= {Die {P}lot-{F}unktionen von {\texttt{pst-plot}}},
+  journal	= dtk,
+  year		= 2002,
+  volume	= {2/02},
+  altvolume	= 2,
+  altnumber	= 14,
+  month		= jun,
+  pages		= {27--34},
+  annote	= bretter,
+  keywords	= {},
+  abstract	= { Im letzten Heft wurden die mathematischen Funktionen von
+		  \PS~im Zusammenhang mit dem {\LaTeX}-Paket
+		  \texttt{pst-plot} zum Zeichnen von Funktionen beschrieben
+		  und durch Beispiele erl{\"a}utert. In diesem Teil werden
+		  die bislang nur erw{\"a}hnten Plot-Funktionen f{\"u}r
+		  externe Daten behandelt. }
+}
+
+@Article{	  dtk02.1:voss:mathematischen,
+  author	= {Herbert Vo{\ss}},
+  title		= {Die mathematischen {F}unktionen von {P}ost{S}cript},
+  journal	= dtk,
+  year		= 2002,
+  volume	= {1/02},
+  altvolume	= 1,
+  altnumber	= 14,
+  month		= mar,
+  pages		= {},
+  annote	= bretter,
+  keywords	= {},
+  abstract	= { \PS, faktisch genauso alt wie {\TeX}, ist im
+		  Verh{\"a}ltnis dazu allgemein noch weniger bekannt, wenn es
+		  darum geht zu beurteilen, was es denn nun im eigentlichen
+		  Sinne ist. Au{\ss}erdem wird h{\"a}ufig vergessen, dass
+		  sich mit den \PS-Funktionen viele Dinge erledigen lassen,
+		  bei denen sonst auf externe Programme zur{\"u}ckgegriffen
+		  wird. Dies wird im Folgenden f{\"u}r die mathematischen
+		  Funktionen im Zusammenhang mit dem Paket \texttt{pst-plot}
+		  gezeigt. }
+}
+
+@Book{tlgc2,
+  author	= {Michel Goosens and Frank Mittelbach and Sebastian Rahtz and Denis Roegel and Herbert Vo{\ss}},
+  title		= {The {\LaTeX} {G}raphics {C}ompanion},
+  publisher	= {{Addison-Wesley Publishing Company}},
+  edition	= second,
+  year		= {2007},
+  address	= {Reading, Mass.}
+}
+
+
+@Book{voss:chaos,
+  author	= {Herbert Vo{\ss}},
+  title		= {Chaos und {F}raktale selbst programmieren: von {M}andelbrotmengen 
+    {\"u}ber {F}arbmanipulationen zur perfekten Darstellung},
+  publisher	= {{Franzis Verlag}},
+  year		= {1994},
+  address	= {Poing}
+}
+
+@Article{girou:01:,
+  author	= {Denis Girou},
+  title		= {Pr\'esentation de {PST}ricks},
+  journal	= {Cahier {GUT}enberg},
+  year		= 1994,
+  volume	= {16},
+  month		= apr,
+  pages		= {21-70}
+}
+
+@Article{girou:02:,
+  author	= {{Timothy van} Zandt and Denis Girou},
+  title		= {Inside {PST}ricks},
+  journal	= TUGboat,
+  year		= 1994,
+  volume	= {15},
+  month		= sep,
+  pages		= {239-246}
+}
+
+@Book{PostScript,
+  Author         = {Kollock, Nikolai G.},
+  Title          = {Post{S}cript richtig eingesetzt: vom {K}onzept zum
+                   praktischen {E}insatz},
+  Publisher      = {IWT},
+  Address        = {Vaterstetten},
+  year           = 1989,
+}
+
+@Manual{pstricks,
+  Title          = {PSTricks - {\PS} macros for generic {\TeX}},
+  Author         = {{Timothy van} Zandt},
+  Organization   = {},
+  Address        = {\url{http://www.tug.org/application/PSTricks}},
+  Note           = {},
+  year           = 1993
+}
+
+@Manual{pst-plot,
+  Title          = {\texttt{pst-plot}: Plotting two dimensional functions and data},
+  Author         = {{Timothy van} Zandt},
+  Organization   = {},
+  Address        = {\url{CTAN:graphics/pstricks/generic/pst-plot.tex}},
+  Note           = {},
+  year           = 1999
+}
+
+@Manual{multido,
+  Title          = {\texttt{multido.tex} - a loop macro, that supports fixed-point addition},
+  Author         = {{Timothy van} Zandt},
+  Organization   = {},
+  Address        = {\url{CTAN:/graphics/pstricks/generic/multido.tex}},
+  Note           = {},
+  year           = 1997
+}
+
+@Book{PSTricks2,
+  author	= {Herbert Vo\ss},
+  title		= {\texttt{PSTricks} -- {G}rafik f\"ur \TeX{} und \LaTeX},
+  edition	= {6.},
+  publisher	= {DANTE -- Lehmanns},
+  year		= {2010},
+  address	= {Heidelberg/Berlin}
+}
+
+@Book{voss:math,
+  author	= {Herbert Vo\ss},
+  title		= {Typesetting mathematics with \LaTeX},
+  publisher	= {UIT},
+  year		= {2010},
+  address	= {Cambridge}
+}
+
+@Book{PSTricks2-UIT,
+  author	= {Herbert Vo\ss},
+  title		= {PSTricks -- Graphics for \TeX\ and \LaTeX},
+  publisher	= {UIT},
+  year		= {2011},
+  address	= {Cambridge}
+}
+
+@Book{LaTeXRef-UIT,
+  author	= {Herbert Vo\ss},
+  title		= {{\LaTeX} quick reference},
+  publisher	= {UIT},
+  year		= {2012},
+  address	= {Cambridge}
+}
+
+@Manual{wolfram,
+  author	= {Eric Weisstein},
+  title		= {Wolfram MathWorld},
+  publisher	= {{Wolfram}},
+  year		= {2007},
+  address	= {\url{http://mathworld.wolfram.com}}
+}
+
diff --git a/Master/texmf-dist/doc/generic/pst-pulley/pst-pulley-doc.pdf b/Master/texmf-dist/doc/generic/pst-pulley/pst-pulley-doc.pdf
new file mode 100644
index 00000000000..0569122058a
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-pulley/pst-pulley-doc.pdf
diff --git a/Master/texmf-dist/doc/generic/pst-pulley/pst-pulley-doc.tex b/Master/texmf-dist/doc/generic/pst-pulley/pst-pulley-doc.tex
new file mode 100644
index 00000000000..47677049166
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-pulley/pst-pulley-doc.tex
@@ -0,0 +1,116 @@
+\PassOptionsToPackage{dvipsnames}{xcolor}
+\documentclass[11pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,
+   smallheadings, headexclude,footexclude,oneside]{pst-doc}
+\usepackage[utf8]{inputenc}
+\usepackage{pst-pulley}
+\let\pstPulleyFV\fileversion
+\renewcommand\bgImage{\psscalebox{0.5}{\pspulleys[N=1,M=60,h=35]}}
+
+\lstset{language=PSTricks,morekeywords={pspulleys},basicstyle=\footnotesize\ttfamily}
+%
+\begin{document}
+
+\title{\texttt{pst-pulley}}
+\subtitle{Plotting different pulleys; v.\pstPulleyFV}
+\author{Thomas Söll}
+\docauthor{}
+\date{\today}
+\maketitle
+
+\tableofcontents
+\psset{unit=1cm}
+
+\clearpage
+
+\begin{abstract}
+\noindent
+\LPack{pst-pulley} loads by default the following packages: \LPack{pst-plot},
+\LPack{pstricks-add}, \LPack{pst-eucl}, \LPack{pst-xkey}, and, of course \LPack{pstricks}.
+All should be already part of your local \TeX\ installation. If not, or in case
+of having older versions, go to \url{http://www.CTAN.org/} and load the latest version.
+
+
+
+\vfill\noindent
+Thanks to: \\
+Manuel Luque \\
+Jürgen Gilg \\
+Herbert Voss
+
+
+\end{abstract}
+
+\clearpage
+\section{Parameters}
+
+With this package it is possible to draw different pulleys. There are four parameters: N=1\ldots 6 gives the number of wheels of the pulley. M= \ldots gives the mass of the weight in kg. The parameter h=\ldots gives the height of the weight in cm from the bottom. To align the down-part of the pulley, there is the parameter Dx= \ldots With positive values the down-part goes to the left. The mass of the rolls are neglegible, or you have to add it to the mass of the weight. The rope is not stiff and inextensible. The force of the weight, the force in each rope and the distance to pull will calculated from the macro and shown. For the gravitation-constant we have $g=10\, m/s^2$.\\[0.5cm]
+
+\Lcs{pspulleys}\OptArgs\\[0.5cm]
+
+\Lcs{pspulleys}[N=4,M=30,h=15,Dx=0.1]
+
+
+\section{Examples}
+
+\begin{center}\xLcs{pspulleys}\xLkeyword{grid}\xLkeyword{N}\xLkeyword{M}\xLkeyword{h}
+\pspulleys[grid,N=1,M=60,h=35]
+
+\vspace{1.5cm}
+\Lcs{pspulleys}[grid,N=1,M=60,h=35]
+\end{center}
+
+\begin{center}
+\pspulleys[N=2,M=60,h=30,Dx=0.41]
+
+\vspace{1.5cm}
+\Lcs{pspulleys}[N=2,M=60,h=30,Dx=0.41]
+\end{center}
+
+\begin{center}
+\pspulleys[N=3,M=60,h=25]
+
+\vspace{1.5cm}
+\Lcs{pspulleys}[N=3,M=60,h=25]
+\end{center}
+
+\begin{center}
+\pspulleys[N=4,M=60,h=20]
+
+\vspace{1.5cm}
+\Lcs{pspulleys}[N=4,M=60,h=20]
+\end{center}
+
+\begin{center}
+\pspulleys[N=5,M=60,h=15]
+
+\vspace{1.5cm}
+\Lcs{pspulleys}[N=5,M=60,h=15]
+\end{center}
+
+\begin{center}
+\pspulleys[N=6,M=60,h=10]
+
+\vspace{1.5cm}
+\Lcs{pspulleys}[N=6,M=60,h=10]
+\end{center}
+
+
+\clearpage
+\section{List of all optional arguments for \texttt{pst-pulleys}}
+
+\xkvview{family=pst-pulleys,columns={key,type,default}}
+
+
+
+
+\bgroup
+\raggedright
+\nocite{*}
+\bibliographystyle{plain}
+\bibliography{pst-pulley-doc}
+\egroup
+
+\printindex
+
+
+\end{document}
diff --git a/Master/texmf-dist/source/generic/pst-pulley/Makefile b/Master/texmf-dist/source/generic/pst-pulley/Makefile
new file mode 100644
index 00000000000..9f3e0ba4ad2
--- /dev/null
+++ b/Master/texmf-dist/source/generic/pst-pulley/Makefile
@@ -0,0 +1,71 @@
+
+# `Makefile' for `pst-coil.pdf', hv, 2006/08/11
+
+.SUFFIXES : .tex .ltx .dvi .ps .pdf .eps
+
+PACKAGE = pst-pulley
+
+MAIN = pst-pulley-doc
+
+LATEX = latex
+
+ARCHNAME = $(MAIN)-$(shell date +%y%m%d)
+
+ARCHFILES = $(PACKAGE).sty $(PACKAGE).tex $(PACKAGE).pro $(MAIN).tex README Changes Makefile
+
+TDS = ~/PSTricks/PSTricks-TDS
+
+all : doc clean
+# clean
+doc: $(MAIN).pdf
+
+$(MAIN).pdf : $(MAIN).ps
+	GS_OPTIONS=-dAutoRotatePages=/None ps2pdf $<
+
+$(MAIN).ps : $(MAIN).dvi
+	dvips $<
+
+$(MAIN).dvi : $(MAIN).tex
+	$(LATEX) $<
+	$(LATEX) $<
+	if ! test -f $(basename $<).glo ; then touch $(basename $<).glo; fi
+	if ! test -f $(basename $<).idx ; then touch $(basename $<).idx; fi
+	makeindex -s gglo.ist -t $(basename $<).glg -o $(basename $<).gls \
+	  $(basename $<).glo
+	makeindex -t $(basename $<).ilg -o $(basename $<).ind \
+	  $(basename $<).idx
+	bibtex $(basename $<)
+	$(LATEX) $<
+	$(LATEX) $<
+
+clean : 
+	$(RM) $(addprefix $(MAIN), .log .aux .glg .glo .gls .ilg .idx .ind .tmp .toc .out .bbl .blg)
+	$(RM) $(addprefix $(MAIN), .dvi .ps)
+
+veryclean : clean
+	$(RM) $(addprefix $(MAIN), .pdf .bbl .blg)
+
+arch :
+	zip $(ARCHNAME).zip $(ARCHFILES)
+
+tds:
+	cp -u Changes     $(TDS)/doc/generic/$(PACKAGE)/
+	cp -u README      $(TDS)/doc/generic/$(PACKAGE)/
+	cp -u $(MAIN).pdf $(TDS)/doc/generic/$(PACKAGE)/
+#
+	cp -u Changes        $(TDS)/tex/latex/$(PACKAGE)/
+	cp -u $(PACKAGE).sty $(TDS)/tex/latex/$(PACKAGE)/
+#
+	cp -u Changes        $(TDS)/tex/generic/$(PACKAGE)/
+	cp -u $(PACKAGE).tex $(TDS)/tex/generic/$(PACKAGE)/
+#
+#	cp -u Changes        $(TDS)/dvips/$(PACKAGE)/
+#	cp -u $(PACKAGE).pro $(TDS)/dvips/$(PACKAGE)/
+#
+	cp -u Changes     $(TDS)/source/$(PACKAGE)/
+	cp -u $(MAIN).tex $(TDS)/source/$(PACKAGE)/
+	cp -u $(MAIN).bib $(TDS)/source/$(PACKAGE)/
+	cp -u Makefile    $(TDS)/source/$(PACKAGE)/
+
+
+# EOF
diff --git a/Master/texmf-dist/tex/generic/pst-pulley/pst-pulley.tex b/Master/texmf-dist/tex/generic/pst-pulley/pst-pulley.tex
new file mode 100644
index 00000000000..7b509772a63
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pst-pulley/pst-pulley.tex
@@ -0,0 +1,1257 @@
+%% COPYRIGHT 2011 by Thomas Söll
+%
+% This work 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.
+% The latest version of this license is in
+%   http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2003/12/01 or later.
+%
+% This work consists of the file pstricks.tex, PostScript macros 
+% for Generic TeX.
+% See the PSTricks User's Guide for description.
+%
+\csname PSTpulleyLoaded\endcsname
+\let\PSTpulleyLoaded\endinput
+\ifx\GradientLoaded\endinput   \else\input pst-grad     \fi
+\ifx\PstSlopeLoaded\endinput   \else\input pst-slpe     \fi
+\ifx\PSTEuclideLoaded\endinput \else\input pst-eucl     \fi
+\ifx\PSTricksAddLoaded\endinput\else\input pstricks-add \fi
+%
+\def\fileversion{0.01}
+\def\filedate{2012/01/17}
+\message{ v\fileversion, \filedate (ts)}
+\message{ v\fileversion, \filedate}
+\edef\TheAtCode{\the\catcode`\@}
+\catcode`\@=11
+
+\pst@addfams{pst-pulleys}
+\define@boolkey[psset]{pst-pulleys}[Pst@]{grid}[true]{} % show grid
+\define@key[psset]{pst-pulleys}{N}{\def\psk@pulleys@N{#1}} % nombre de poulies
+\define@key[psset]{pst-pulleys}{M}{\def\psk@pulleys@M{#1}} % charge en kg
+\define@key[psset]{pst-pulleys}{h}{\def\psk@pulleys@S{#1}} % déplacement du point d'action en cm %
+\define@key[psset]{pst-pulleys}{Dx}{\def\psk@pulleys@DX{#1}} % placement of the down-part  %
+\psset[pst-pulleys]{N=1,M=20,h=15,Dx=0,grid=false}
+%
+\newpsstyle{pulley}{linewidth=0.7pt,fillstyle=radslope,slopeangle=70,slopeend=black!70,slopebegin=gray!30,dimen=outer}
+\newpsstyle{pulley-frame}{linewidth=1.0pt,framearc=.15,fillstyle=gradient,gradangle=0,gradend=cyan!30,gradbegin=black!70}
+\newpsstyle{force-diagg}{linearc=0.15,armB=0.1,angleA=0,arrowscale=1.4,arrowinset=0.04,lineAngle=120,arrows=->}
+%%% les 3 types de poulies ----------------
+\def\pulleyA{\pscircle[style=pulley]{0.85}}
+\def\pulleyB{\pscircle[style=pulley]{0.55}}
+\def\pulleyC{\pscircle[style=pulley]{0.3}}
+%%% Inner Half Diameter for the rope
+\def\radianAI{0.835}
+\def\radianBI{0.535}
+\def\radianCI{0.285}
+%
+\def\poulieA{% 1 poulie
+\def\flzlx{-0.835}% ----------- unteren Flaschenzugteil nach links oder rechts ausrichten, damit die Seile symmetrisch sind
+\rput(\flzlx\space,-10){%
+\rput{180}(0,1.35){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!40,linewidth=1pt,linecolor=black!40}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)}%
+\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=cyan!10,gradbegin=black!25,linecolor=black!40]%
+(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
+\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\textcolor{black!50}{\psk@pulleys@M{}kg}}}
+\rput(0,-1){\pnode(0,0){vmu}}}% --------- Node an der verschobenen Massenunterseite
+%
+%------------------- Nodes für die Seile ---------------------------------------
+%
+\rput(0,3.7){\pnode(0.835;180){F}}
+\rput(0,3.7){\pnode(0.835;10){I}}
+\rput(I){\pnode(3;-80){End}}%------------------------ Ende
+\rput(I){\pnode(3.37;-80){EndH}}%--------------------- Ende für Beginn Haken
+\rput(I){\pnode(!\ps@SeilEnd\space 10 sin mul \ps@SeilEnd\space 10 cos neg mul){EndZ}}%----------------------- verschobenes Ende
+\rput(I){\pnode(!\ps@SeilEndH\space 10 sin mul \ps@SeilEndH\space 10 cos neg mul){EndZH}}%-------------------- Ende für Beginn Haken verschobenes Ende
+%
+% -----------------Nodes für die Seile der Unterseite --------------------------
+%
+\rput(-0.835,\ps@HightH){% -----------   y-Wert ändert die Flaschenzuglänge nach unten oder oben
+\rput{180}(0,0){%
+\rput(0,4.3){\pnode(0,0){N}}
+}}%
+%
+%--------------------- Haken am oberen Seilende zum Ziehen ------------------------------------------------------------
+%
+\rput{10}(EndH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=2.5pt,doublecolor=gray!60,linewidth=0.7pt,linecolor=gray!60}%
+\psarc[linecap=1](0,0){1}{-150}{45}%
+\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%--------------------- Haken am unteren Seilende zum Ziehen ------------------------------------------------------------
+%
+\rput{10}(EndZH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=4.5pt,doublecolor=black!80,linewidth=0.4pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{-150}{45}%
+\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+\pscircle[linecolor=black!80,linewidth=0.4pt,fillstyle=solid, fillcolor=white](EndZ){2.0pt}%
+\psline[nodesepA=1cm,linewidth=2.5pt,linecap=1,linecolor=Brown!80](I)(EndZ)% --- Seil bis zur Öffnung
+%
+%---------------- Kraftpfeil am Seilende und delta s --------------------------------------------------------------
+%
+\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=.3cm,linecolor=red,nodesepA=1,nodesepB=1]{->}(I)(End)
+\naput{$F_{{\sf Z}} = \ps@ForceS$ N}%
+\rput(EndH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
+\rput(EndZH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
+\pcline[linewidth=0.7pt,arrowsize=0.12,arrowinset=0.05, offset=.6cm]{<->}(EndH)(EndZH)
+\naput{$\Delta s = \pst@CommaVal{\ps@Seil}$ cm}%
+%
+%---------------------- Seile des Flaschenzuges ----------------------------
+%
+{\psset{linecolor=Brown!80,linewidth=2.5pt}
+\psline(F)(N)%
+\psarc(0,3.7){0.835}{10}{190}%
+\psline[linecolor=Brown!80](I)(EndZ)%
+\psline(I)(End)%
+}%
+%
+%------------------ Pfeile zu den Seilmitten für Kräfte ------------------------------------------------
+%
+\pstMiddleAB[PointSymbol=none,PointName=none]{F}{N}{MI}%
+\pnode([offset=0.4,nodesep=-1.0]MI){SKE}%
+\pcdiagg[style=force-diagg,linecolor=green]{->}(SKE)(MI)%
+\uput{0.1}[180]{0}([Xnodesep=-0.1]{SKE}SKE){$F_{\sf S} =\ps@ForceS$  N}%
+%
+%----------------------- Haken an der Decke ------------------------------------------------------
+%
+\rput(0,5.65){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%----------------------- gedrehter Haken unterhalb des Deckenhakens  ------------------------------------------------------
+%
+\rput{180}(0,5){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%---------------------Verbindung mit dem Deckenhaken ---------------------------------------------
+%
+\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)
+%
+%--------------------- Oberer Flaschenzugteil -------------------------------------------------------
+%
+\rput(0,3.7){\pulleyA}%
+\rput(0,1.65){\psframe[style=pulley-frame](-0.15,1.1)(0.15,3)}%
+\rput(0,3.7){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+%
+%-------------------------- Variation der Flaschenzuglänge --------------------------------------------
+%
+\rput(-0.835,\ps@HightH){% -----------   y-Wert ändert die Flaschenzuglänge nach unten oder oben
+%
+%-----------------------------Kompletter unterer Teil des Flaschenzuges um 100° gedreht -----------------
+%
+\rput{180}(0,0){%
+%------------------------------ Haken am unteren Flaschenzugteil -----------------------------------------
+%
+\rput(0,5.65){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%------------------------------------- Haken an der angehängten Masse  ----------------------------------------
+%
+\rput{180}(0,5){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)% Verbindung der Haken angeh. Masse - Flaschz.
+%
+%-------------------------- Unterer Flaschenzugteil -------------------------------------------------------
+%
+\rput(0,1.65){\psframe[linewidth=1.0pt,framearc=.15,fillstyle=gradient,gradangle=0,gradend=cyan!30,gradbegin=black!70](-0.15,2.4)(0.15,3)}%
+\rput(N){\pscircle[linewidth=1pt,fillstyle=solid, fillcolor=black](0,0){.07}}%
+\pcline[linewidth=2.5pt,nodesepA=1cm,linecolor=Brown!80,linecap=1](H)(N)%-------------Neu-Zeichnen des letzten Verbindungsstückes
+}%
+%
+%------------------------- angehängte Masse ------------------------------------------------------------------
+%
+\rput(0,-7){\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=black!70,gradbegin=black!100]%
+(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
+\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\psk@pulleys@M{}kg}}
+\rput(0,-1){\pnode(0,0){mu}}% --------- Node an der Massenunterseite
+%
+%------------------ Kraft und Abstandspfeile
+%
+\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=-1.4cm,linecolor=blue]{->}(0,1.5)(0,0.5)
+\nbput{$F_{{\sf G}} = \pst@CommaVal{\ps@ForceG}$ N}
+}%
+}%
+\psline[linewidth=0.7pt](mu)([Xnodesep=1.5]{mu}mu)%
+\psline[linewidth=0.7pt](vmu)([Xnodesep=1.5]{vmu}vmu)%
+\pcline[linewidth=0.7pt,arrowsize=0.09,arrowinset=0.05, offset=1.4cm]{<->}(mu)(vmu)%
+\naput{\small $\Delta h =$ \psk@pulleys@S{} cm}%
+%
+%-----------------------------------Decke ------------------------------------------------------------------------
+%
+\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,6)(2,6.5)%
+\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,6)(2,6.5)%
+%
+%
+%-----------------------------------Boden ------------------------------------------------------------------------
+%
+\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradmidpoint=0.1,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,-11.5)(2,-11)%
+\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,-11.5)(2,-11)%
+}
+%
+%-------------------------------------------------------------------------------------------------------------------------
+%-------------------------- Mit 2 Rollen -----------------------------------------------------------------------------------
+%
+\def\poulieB{% 2 poulie
+\def\flzlx{-0.41}% ----------- unteren Flaschenzugteil nach links oder rechts ausrichten, damit die Seile symmetrisch sind
+%
+%
+%------------------------- verschobene Masse mit Haken-------------------------------------------------------
+%
+\rput(-\psk@pulleys@DX\space,-10){%
+\rput{180}(0,1.35){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!40,linewidth=1pt,linecolor=black!40}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)}%
+\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=cyan!10,gradbegin=black!25,linecolor=black!40]%
+(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
+\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\textcolor{black!50}{\psk@pulleys@M{}kg}}}
+\rput(0,-1){\pnode(0,0){vmu}}}% --------- Node an der verschobenen Massenunterseite
+%
+%------------------- Nodes für die Mittelpunkte der oberen Rollen ---------------------------------------
+%
+\pnode(0,3.7){F}
+\pnode(0,2.5){N}
+% ----------------- Nodes für die Mittelpunkte der unteren Rollen --------------------------
+%
+\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert ändert die Flaschenzuglänge nach unten oder oben
+\rput{180}(0,0){%
+\pnode(0,3.7){G}}}%
+%
+\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}%
+\rput(0,3.7){\pnode(\radianAI\space;10){I}}
+\rput(I){\pnode(3;-80){End}}%------------------------ Ende
+\rput(I){\pnode(3.37;-80){EndH}}%--------------------- Ende für Beginn Haken
+\rput(I){\pnode(!\ps@SeilEnd\space 10 sin mul \ps@SeilEnd\space 10 cos neg mul){EndZ}}%------- verschobenes Ende
+\rput(I){\pnode(!\ps@SeilEndH\space 10 sin mul \ps@SeilEndH\space 10 cos neg mul){EndZH}}%---- Ende für Beginn Haken verschobenes  Ende
+%
+%
+%--------------------- Haken am oberen Seilende zum Ziehen ------------------------------------------------------------
+%
+\rput{10}(EndH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=2.5pt,doublecolor=gray!60,linewidth=0.7pt,linecolor=gray!60}%
+\psarc[linecap=1](0,0){1}{-150}{45}%
+\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%--------------------- Haken am unteren Seilende zum Ziehen ------------------------------------------------------------
+%
+\rput{10}(EndZH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=4.5pt,doublecolor=black!80,linewidth=0.4pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{-150}{45}%
+\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+\pscircle[linecolor=black!80,linewidth=0.4pt,fillstyle=solid, fillcolor=white](EndZ){2.0pt}%
+\psline[nodesepA=1cm,linewidth=2.5pt,linecap=1,linecolor=Brown!80](I)(EndZ)% --- Seil bis zur Öffnung
+%
+%---------------- Kraftpfeil am Seilende und delta s --------------------------------------------------------------
+%
+\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=.3cm,linecolor=red,nodesepA=1,nodesepB=1]{->}(I)(End)
+\naput{$F_{\sf Z} = \pst@CommaVal{\ps@ForceS}$ N}%
+\rput(EndH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
+\rput(EndZH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
+\pcline[linewidth=0.7pt,arrowsize=0.12,arrowinset=0.05, offset=.6cm]{<->}(EndH)(EndZH)
+\naput{$\Delta s = \pst@CommaVal{\ps@Seil}$ cm}%
+%
+%---------------------- Seile des Flaschenzuges ----------------------------
+%
+{\psset{linecolor=Brown!80,linewidth=2.5pt}
+\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}
+\pnode(CircleTO4){J}%
+\pnode(CircleTO3){K}%
+\pcline(K)(J)%
+\pstArcOAB{F}{I}{J}%
+\pstMiddleAB[PointSymbol=none,PointName=none]{K}{J}{MI}%
+%
+\psCircleTangents(N)(G){\radianAI\space}
+\pnode(CircleT2){H}%
+\pcline(N)(H)
+\pstArcOAB{G}{CircleT1}{H}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(H)(N){IPi}%
+\psline[linecolor=Brown!80](I)(EndZ)%
+\psline(I)(End)%
+}%
+%
+%----------------------- Haken an der Decke ------------------------------------------------------
+%
+\rput(0,5.65){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%----------------------- gedrehter Haken unterhalb des Deckenhakens  ------------------------------------------------------
+%
+\rput{180}(0,5){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%---------------------Verbindung mit dem Deckenhaken ---------------------------------------------
+%
+\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)
+%
+%--------------------- Oberer Flaschenzugteil -------------------------------------------------------
+%
+\rput(0,3.7){\pulleyA}%
+\rput(0,1.65){\psframe[style=pulley-frame](-0.15,0.7)(0.15,3)}%
+\rput(0,3.7){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+\rput(N){\pscircle[linewidth=1pt,fillstyle=solid, fillcolor=black](0,0){.07}}%
+\pcline[linewidth=2.5pt,nodesepA=2cm,linecolor=Brown!80,linecap=1](H)(N)%-------------Neu-Zeichnen des letzten Verbindungsstückes
+%
+%------------------ Pfeile zu den Seilmitten für Kräfte ------------------------------------------------
+%
+\pnode([offset=0.4,nodesep=-1.0]MI){SKE}%
+\pcdiagg[style=force-diagg,linecolor=green](SKE)(MI)%
+\pcdiagg[style=force-diagg,linecolor=orange](SKE)(IPi)%
+\uput{0.1}[180]{0}(SKE){$F_{\sf S} =\pst@CommaVal{\ps@ForceS}$  N}%
+%
+%-------------------------- Variation der Flaschenzuglänge --------------------------------------------
+%
+\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert ändert die Flaschenzuglänge nach unten oder oben
+%
+%-----------------------------Kompletter unterer Teil des Flaschenzuges um 100° gedreht -----------------
+%
+\rput{180}(0,0){%
+%------------------------------ Haken am unteren Flaschenzugteil -----------------------------------------
+%
+\rput(0,5.65){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%------------------------------------- Haken an der angehängten Masse  ----------------------------------------
+%
+\rput{180}(0,5){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)% Verbindung der Haken angeh. Masse - Flaschz.
+%
+%-------------------------- Unterer Flaschenzugteil -------------------------------------------------------
+%
+\rput(G){\pulleyA}%
+\rput(0,1.65){\psframe[style=pulley-frame](-0.15,1.1)(0.15,3)}%
+\rput(0,3.7){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+}%
+%
+%
+%------------------------- angehängte Masse ------------------------------------------------------------------
+%
+\rput(0,-7){\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=black!70,gradbegin=black!100]%
+(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
+\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\psk@pulleys@M{}kg}}
+\rput(0,-1){\pnode(0,0){mu}}% --------- Node an der Massenunterseite
+%
+%------------------ Kraft und Abstandspfeile
+%
+\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=-1.4cm,linecolor=blue]{->}(0,1.5)(0,0.5)
+\nbput{$F_{{\sf G}} = \pst@CommaVal{\ps@ForceG}$ N}
+}%
+}%
+\psline[linewidth=0.7pt](mu)([Xnodesep=1.5]{mu}mu)%
+\psline[linewidth=0.7pt](vmu)([Xnodesep=1.5]{vmu}vmu)%
+\pcline[linewidth=0.7pt,arrowsize=0.09,arrowinset=0.05, offset=1.4cm]{<->}(mu)(vmu)%
+\naput{\small $\Delta h =$ \psk@pulleys@S{} cm}%
+%
+%-----------------------------------Decke ------------------------------------------------------------------------
+%
+\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,6)(2,6.5)%
+\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,6)(2,6.5)%
+%
+%
+%-----------------------------------Boden ------------------------------------------------------------------------
+%
+\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradmidpoint=0.1,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,-11.5)(2,-11)%
+\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,-11.5)(2,-11)%
+}
+%
+%-------------------------- Mit 3 Rollen -----------------------------------------------------------------------------------
+%
+\def\poulieC{% 3 poulie
+\def\flzlx{-0.13}% ----------- unteren Flaschenzugteil nach links oder rechts ausrichten, damit die Seile symmetrisch sind
+%
+%
+%------------------------- verschobene Masse mit Haken-------------------------------------------------------
+%
+\rput(-\psk@pulleys@DX,-10){%
+\rput{180}(0,1.35){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!40,linewidth=1pt,linecolor=black!40}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)}%
+\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=cyan!10,gradbegin=black!25,linecolor=black!40]%
+(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
+\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\textcolor{black!50}{\psk@pulleys@M{}kg}}}
+\rput(0,-1){\pnode(0,0){vmu}}}% --------- Node an der verschobenen Massenunterseite
+%
+%------------------- Nodes für die Mittelpunkte der oberen Rollen ---------------------------------------
+%
+\pnode(0,3.7){F}
+\pnode(0,2.2){Z}
+% ----------------- Nodes für die Mittelpunkte der unteren Rollen --------------------------
+%
+\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert ändert die Flaschenzuglänge nach unten oder oben
+\rput{180}(0,0){%
+\pnode(0,3.7){G}
+\pnode(0,2.5){N}
+}}%
+%
+\psCircleTangents(F){\radianAI}(G){\radianAI}%
+\rput(F){\pnode(\radianAI;10){I}}
+\rput(I){\pnode(3;-80){End}}%------------------------ Ende
+\rput(I){\pnode(3.37;-80){EndH}}%--------------------- Ende für Beginn Haken
+\rput(I){\pnode(!\ps@SeilEnd\space 10 sin mul \ps@SeilEnd\space 10 cos neg mul){EndZ}}%------- verschobenes Ende
+\rput(I){\pnode(!\ps@SeilEndH\space 10 sin mul \ps@SeilEndH\space 10 cos neg mul){EndZH}}%---- Ende für Beginn Haken verschobenes  Ende
+%
+%
+%--------------------- Haken am oberen Seilende zum Ziehen ------------------------------------------------------------
+%
+\rput{10}(EndH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=2.5pt,doublecolor=gray!60,linewidth=0.7pt,linecolor=gray!60}%
+\psarc[linecap=1](0,0){1}{-150}{45}%
+\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%--------------------- Haken am unteren Seilende zum Ziehen ------------------------------------------------------------
+%
+\rput{10}(EndZH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=4.5pt,doublecolor=black!80,linewidth=0.4pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{-150}{45}%
+\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+\pscircle[linecolor=black!80,linewidth=0.4pt,fillstyle=solid, fillcolor=white](EndZ){2.0pt}%
+\psline[nodesepA=1cm,linewidth=2.5pt,linecap=1,linecolor=Brown!80](I)(EndZ)% --- Seil bis zur Öffnung
+%
+%---------------- Kraftpfeil am Seilende und delta s --------------------------------------------------------------
+%
+\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=.3cm,linecolor=red,nodesepA=1,nodesepB=1]{->}(I)(End)
+\naput{$F_{\sf Z} = \pst@CommaVal{\ps@ForceS}$ N}%
+\rput(EndH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
+\rput(EndZH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
+\pcline[linewidth=0.7pt,arrowsize=0.12,arrowinset=0.05, offset=.6cm]{<->}(EndH)(EndZH)
+\naput{$\Delta s = \pst@CommaVal{\ps@Seil}$ cm}%
+%
+%---------------------- Seile des Flaschenzuges ----------------------------
+%
+{\psset{linecolor=Brown!80,linewidth=2.5pt}
+\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}
+\pnode(CircleTO4){J}%
+\pnode(CircleTO3){K}%
+\psCircleTangents(Z){\radianBI\space}(G){\radianAI\space}
+\pnode(CircleTO3){Q}%
+\pnode(CircleTO4){R}%
+\psCircleTangents(N)(0,2.2){\radianBI\space}
+\pnode(CircleT1){S}%
+\pnode(CircleT2){T}%
+\pstArcOAB{Z}{R}{T}%
+\pcline(K)(J)%
+\pcline(Q)(R)%
+\pcline(N)(T)%
+\pstArcOAB{F}{I}{J}%
+\pstArcOAB{G}{K}{Q}%
+\pstMiddleAB[PointSymbol=none,PointName=none]{K}{J}{MI}%
+%
+\psCircleTangents(N){\radianAI\space}(G){\radianAI\space}
+\pnode(CircleTO3){H}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(Q)(R){IPi}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(T)(N){IPii}%
+\psline[linecolor=Brown!80](I)(EndZ)%
+\psline(I)(End)%
+}%
+%
+%----------------------- Haken an der Decke ------------------------------------------------------
+%
+\rput(0,5.65){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%----------------------- gedrehter Haken unterhalb des Deckenhakens  ------------------------------------------------------
+%
+\rput{180}(0,5){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%---------------------Verbindung mit dem Deckenhaken ---------------------------------------------
+%
+\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)
+%
+%--------------------- Oberer Flaschenzugteil -------------------------------------------------------
+%
+\rput(F){\pulleyA}%
+\rput(0,2.2){\pulleyB}%
+\rput(0,1.65){\psframe[style=pulley-frame](-0.15,-0.1)(0.15,3)}%
+\rput(0,3.7){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+\rput(0,2.2){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+%
+%-------------------------- Variation der Flaschenzuglänge --------------------------------------------
+%
+\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert ändert die Flaschenzuglänge nach unten oder oben
+%
+%-----------------------------Kompletter unterer Teil des Flaschenzuges um 100° gedreht -----------------
+%
+\rput{180}(0,0){%
+%------------------------------ Haken am unteren Flaschenzugteil -----------------------------------------
+%
+\rput(0,5.65){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%------------------------------------- Haken an der angehängten Masse  ----------------------------------------
+%
+\rput{180}(0,5){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)% Verbindung der Haken angeh. Masse - Flaschz.
+%
+%-------------------------- Unterer Flaschenzugteil -------------------------------------------------------
+%
+\rput(G){\pulleyA}%
+\rput(0,1.65){\psframe[style=pulley-frame](-0.15,.7)(0.15,3)}%
+\rput(0,3.7){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+\rput(N){\pscircle[linewidth=1pt,fillstyle=solid, fillcolor=black](0,0){.07}}%
+}%
+\pcline[linewidth=2.5pt,nodesepA=2cm,linecolor=Brown!80,linecap=1](T)(N)%-------------Neu-Zeichnen des letzten Verbindungsstückes
+%
+%
+%------------------------- angehängte Masse ------------------------------------------------------------------
+%
+\rput(0,-7){\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=black!70,gradbegin=black!100]%
+(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
+\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\psk@pulleys@M{}kg}}
+\rput(0,-1){\pnode(0,0){mu}}% --------- Node an der Massenunterseite
+%
+%------------------ Pfeile zu den Seilmitten für Kräfte ------------------------------------------------
+%
+\pnode([offset=0.4,nodesep=-1.0]MI){SKE}%
+\pcdiagg[style=force-diagg,linecolor=green](SKE)(MI)%
+\pcdiagg[style=force-diagg,linecolor=orange](SKE)(IPi)%
+\pcdiagg[style=force-diagg,linecolor=magenta](SKE)(IPii)%
+\uput{0.1}[180]{0}(SKE){$F_{\sf S} =\pst@CommaVal{\ps@ForceS}$  N}%
+%
+%------------------ Kraft und Abstandspfeile
+%
+\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=-1.4cm,linecolor=blue]{->}(0,1.5)(0,0.5)
+\nbput{$F_{{\sf G}} = \pst@CommaVal{\ps@ForceG}$ N}
+}%
+}%
+\psline[linewidth=0.7pt](mu)([Xnodesep=1.5]{mu}mu)%
+\psline[linewidth=0.7pt](vmu)([Xnodesep=1.5]{vmu}vmu)%
+\pcline[linewidth=0.7pt,arrowsize=0.09,arrowinset=0.05, offset=1.4cm]{<->}(mu)(vmu)%
+\naput{\small $\Delta h =$ \psk@pulleys@S{} cm}%
+%
+%-----------------------------------Decke ------------------------------------------------------------------------
+%
+\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,6)(2,6.5)%
+\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,6)(2,6.5)%
+%
+%
+%-----------------------------------Boden ------------------------------------------------------------------------
+%
+\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradmidpoint=0.1,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,-11.5)(2,-11)%
+\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,-11.5)(2,-11)%
+}
+%
+%
+%-------------------------- Mit 4 Rollen -----------------------------------------------------------------------------------
+%
+\def\poulieD{% 4 poulie
+\def\flzlx{-0.12}% ----------- unteren Flaschenzugteil nach links oder rechts ausrichten, damit die Seile symmetrisch sind
+%
+%
+%------------------------- verschobene Masse mit Haken-------------------------------------------------------
+%
+\rput(-\psk@pulleys@DX,-10){%
+\rput{180}(0,1.35){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!40,linewidth=1pt,linecolor=black!40}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)}%
+\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=cyan!10,gradbegin=black!25,linecolor=black!40]%
+(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
+\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\textcolor{black!50}{\psk@pulleys@M{}kg}}}
+\rput(0,-1){\pnode(0,0){vmu}}}% --------- Node an der verschobenen Massenunterseite
+%
+%------------------- Nodes für die Mittelpunkte der oberen Rollen ---------------------------------------
+%
+\pnode(0,3.7){F}
+\pnode(0,2.2){Z}
+\pnode(0,1.5){N}
+% ----------------- Nodes für die Mittelpunkte der unteren Rollen --------------------------
+%
+\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert ändert die Flaschenzuglänge nach unten oder oben
+\rput{180}(0,0){%
+\pnode(0,3.7){G}
+\pnode(0,2.2){Y}
+}}%
+%
+\psCircleTangents(F){\radianAI}(G){\radianAI}%
+\rput(F){\pnode(\radianAI\space;10){I}}
+\rput(I){\pnode(3;-80){End}}%------------------------ Ende
+\rput(I){\pnode(3.37;-80){EndH}}%--------------------- Ende für Beginn Haken
+\rput(I){\pnode(!\ps@SeilEnd\space 10 sin mul \ps@SeilEnd\space 10 cos neg mul){EndZ}}%------- verschobenes Ende
+\rput(I){\pnode(!\ps@SeilEndH\space 10 sin mul \ps@SeilEndH\space 10 cos neg mul){EndZH}}%---- Ende für Beginn Haken verschobenes  Ende
+%
+%
+%--------------------- Haken am oberen Seilende zum Ziehen ------------------------------------------------------------
+%
+\rput{10}(EndH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=2.5pt,doublecolor=gray!60,linewidth=0.7pt,linecolor=gray!60}%
+\psarc[linecap=1](0,0){1}{-150}{45}%
+\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%--------------------- Haken am unteren Seilende zum Ziehen ------------------------------------------------------------
+%
+\rput{10}(EndZH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=4.5pt,doublecolor=black!80,linewidth=0.4pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{-150}{45}%
+\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+\pscircle[linecolor=black!80,linewidth=0.4pt,fillstyle=solid, fillcolor=white](EndZ){2.0pt}%
+\psline[nodesepA=1cm,linewidth=2.5pt,linecap=1,linecolor=Brown!80](I)(EndZ)% --- Seil bis zur Öffnung
+%
+%---------------- Kraftpfeil am Seilende und delta s --------------------------------------------------------------
+%
+\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=.3cm,linecolor=red,nodesepA=1,nodesepB=1]{->}(I)(End)
+\naput{$F_{\sf Z} = \pst@CommaVal{\ps@ForceS}$ N}%
+\rput(EndH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
+\rput(EndZH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
+\pcline[linewidth=0.7pt,arrowsize=0.12,arrowinset=0.05, offset=.6cm]{<->}(EndH)(EndZH)
+\naput{$\Delta s = \pst@CommaVal{\ps@Seil}$ cm}%
+%
+%---------------------- Seile des Flaschenzuges ----------------------------
+%
+{\psset{linecolor=Brown!80,linewidth=2.5pt}
+\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}
+\pnode(CircleTO4){J}%
+\pnode(CircleTO3){K}%
+\psCircleTangents(Z){\radianBI\space}(G){\radianAI\space}
+\pnode(CircleTO3){Q}%
+\pnode(CircleTO4){R}%
+\psCircleTangents(Z){\radianBI\space}(Y){\radianBI\space}
+\pnode(CircleTO3){S}%
+\pnode(CircleTO4){T}%
+\psCircleTangents(N)(Y){\radianBI\space}
+\pnode(CircleT2){U}%
+\pcline(K)(J)%
+\pcline(Q)(R)%
+\pcline(S)(T)%
+\pcline(N)(U)%
+\pstArcOAB{Y}{S}{U}%
+\pstArcOAB{Z}{R}{T}%
+\pstArcOAB{F}{I}{J}%
+\pstArcOAB{G}{K}{Q}%
+\pstMiddleAB[PointSymbol=none,PointName=none]{K}{J}{MI}%
+%
+\psCircleTangents(N){\radianAI\space}(G){\radianAI\space}
+\pnode(CircleTO3){H}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(Q)(R){IPi}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(S)(T){IPii}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(U)(N){IPiii}%
+\psline[linecolor=Brown!80](I)(EndZ)%
+\psline(I)(End)%
+}%
+%
+%----------------------- Haken an der Decke ------------------------------------------------------
+%
+\rput(0,5.65){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%----------------------- gedrehter Haken unterhalb des Deckenhakens  ------------------------------------------------------
+%
+\rput{180}(0,5){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%---------------------Verbindung mit dem Deckenhaken ---------------------------------------------
+%
+\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)
+%
+%--------------------- Oberer Flaschenzugteil -------------------------------------------------------
+%
+\rput(F){\pulleyA}%
+\rput(0,2.2){\pulleyB}%
+\rput(0,1.65){\psframe[style=pulley-frame](-0.15,-0.35)(0.15,3)}%
+\rput(0,3.7){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+\rput(0,2.2){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+%
+%-------------------------- Variation der Flaschenzuglänge --------------------------------------------
+%
+\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert ändert die Flaschenzuglänge nach unten oder oben
+%
+%-----------------------------Kompletter unterer Teil des Flaschenzuges um 100° gedreht -----------------
+%
+\rput{180}(0,0){%
+%------------------------------ Haken am unteren Flaschenzugteil -----------------------------------------
+%
+\rput(0,5.65){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%------------------------------------- Haken an der angehängten Masse  ----------------------------------------
+%
+\rput{180}(0,5){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)% Verbindung der Haken angeh. Masse - Flaschz.
+%
+%-------------------------- Unterer Flaschenzugteil -------------------------------------------------------
+%
+\rput(G){\pulleyA}%
+\rput(Y){\pulleyB}%
+\rput(0,1.65){\psframe[style=pulley-frame](-0.15,-0.1)(0.15,3)}%
+\rput(G){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+\rput(Y){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+}%
+\rput(N){\pscircle[linewidth=1pt,fillstyle=solid, fillcolor=black](0,0){.07}}%
+\pcline[linewidth=2.5pt,nodesepA=2cm,linecolor=Brown!80,linecap=1](U)(N)%-------------Neu-Zeichnen des letzten Verbindungsstückes
+%
+%
+%------------------------- angehängte Masse ------------------------------------------------------------------
+%
+\rput(0,-7){\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=black!70,gradbegin=black!100]%
+(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
+\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\psk@pulleys@M{}kg}}
+\rput(0,-1){\pnode(0,0){mu}}% --------- Node an der Massenunterseite
+%
+%------------------ Pfeile zu den Seilmitten für Kräfte ------------------------------------------------
+%
+\pnode([offset=0.4,nodesep=-1.0]MI){SKE}%
+\pcdiagg[style=force-diagg,linecolor=green](SKE)(MI)%
+\pcdiagg[style=force-diagg,linecolor=orange](SKE)(IPi)%
+\pcdiagg[style=force-diagg,linecolor=magenta](SKE)(IPii)%
+\pcdiagg[style=force-diagg,linecolor=cyan](SKE)(IPiii)%
+\uput{0.1}[180]{0}(SKE){$F_{\sf S} =\pst@CommaVal{\ps@ForceS}$  N}%
+%
+%------------------ Kraft und Abstandspfeile
+%
+\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=-1.4cm,linecolor=blue]{->}(0,1.5)(0,0.5)
+\nbput{$F_{{\sf G}} = \pst@CommaVal{\ps@ForceG}$ N}
+}%
+}%
+\psline[linewidth=0.7pt](mu)([Xnodesep=1.5]{mu}mu)%
+\psline[linewidth=0.7pt](vmu)([Xnodesep=1.5]{vmu}vmu)%
+\pcline[linewidth=0.7pt,arrowsize=0.09,arrowinset=0.05, offset=1.4cm]{<->}(mu)(vmu)%
+\naput{\small $\Delta h =$ \psk@pulleys@S{} cm}%
+%
+%-----------------------------------Decke ------------------------------------------------------------------------
+%
+\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,6)(2,6.5)%
+\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,6)(2,6.5)%
+%
+%
+%-----------------------------------Boden ------------------------------------------------------------------------
+%
+\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradmidpoint=0.1,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,-11.5)(2,-11)%
+\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,-11.5)(2,-11)%
+}
+%-------------------------------------------------------------------------------------------------------------------------
+
+%-------------------------- Mit 5 Rollen -----------------------------------------------------------------------------------
+%
+\def\poulieE{% 5 poulie
+\def\flzlx{-0.08}% ----------- unteren Flaschenzugteil nach links oder rechts ausrichten, damit die Seile symmetrisch sind
+%
+%
+%------------------------- verschobene Masse mit Haken-------------------------------------------------------
+%
+\rput(-\psk@pulleys@DX,-10){%
+\rput{180}(0,1.35){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!40,linewidth=1pt,linecolor=black!40}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)}%
+\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=cyan!10,gradbegin=black!25,linecolor=black!40]%
+(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
+\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\textcolor{black!50}{\psk@pulleys@M{}kg}}}
+\rput(0,-1){\pnode(0,0){vmu}}}% --------- Node an der verschobenen Massenunterseite
+%
+%------------------- Nodes für die Mittelpunkte der oberen Rollen ---------------------------------------
+%
+\pnode(0,3.7){F}
+\pnode(0,2.2){Z}
+\pnode(0,1.25){X}
+% ----------------- Nodes für die Mittelpunkte der unteren Rollen --------------------------
+%
+\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert ändert die Flaschenzuglänge nach unten oder oben
+\rput{180}(0,0){%
+\pnode(0,3.7){G}
+\pnode(0,2.2){Y}
+\pnode(0,1.4){N}
+}}%
+%
+\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}%
+\rput(F){\pnode(\radianAI\space;10){I}}
+\rput(I){\pnode(3;-80){End}}%------------------------ Ende
+\rput(I){\pnode(3.37;-80){EndH}}%--------------------- Ende für Beginn Haken
+\rput(I){\pnode(!\ps@SeilEnd\space 10 sin mul \ps@SeilEnd\space 10 cos neg mul){EndZ}}%------- verschobenes Ende
+\rput(I){\pnode(!\ps@SeilEndH\space 10 sin mul \ps@SeilEndH\space 10 cos neg mul){EndZH}}%---- Ende für Beginn Haken verschobenes  Ende
+%
+%
+%--------------------- Haken am oberen Seilende zum Ziehen ------------------------------------------------------------
+%
+\rput{10}(EndH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=2.5pt,doublecolor=gray!60,linewidth=0.7pt,linecolor=gray!60}%
+\psarc[linecap=1](0,0){1}{-150}{45}%
+\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%--------------------- Haken am unteren Seilende zum Ziehen ------------------------------------------------------------
+%
+\rput{10}(EndZH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=4.5pt,doublecolor=black!80,linewidth=0.4pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{-150}{45}%
+\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+\pscircle[linecolor=black!80,linewidth=0.4pt,fillstyle=solid, fillcolor=white](EndZ){2.0pt}%
+\psline[nodesepA=1cm,linewidth=2.5pt,linecap=1,linecolor=Brown!80](I)(EndZ)% --- Seil bis zur Öffnung
+%
+%---------------- Kraftpfeil am Seilende und delta s --------------------------------------------------------------
+%
+\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=.3cm,linecolor=red,nodesepA=1,nodesepB=1]{->}(I)(End)
+\naput{$F_{\sf Z} = \pst@CommaVal{\ps@ForceS}$ N}%
+\rput(EndH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
+\rput(EndZH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
+\pcline[linewidth=0.7pt,arrowsize=0.12,arrowinset=0.05, offset=.6cm]{<->}(EndH)(EndZH)
+\naput{$\Delta s = \pst@CommaVal{\ps@Seil}$ cm}%
+%
+%---------------------- Seile des Flaschenzuges ----------------------------
+%
+{\psset{linecolor=Brown!80,linewidth=2.5pt}
+\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}
+\pnode(CircleTO4){J}%
+\pnode(CircleTO3){K}%
+\psCircleTangents(Z){\radianBI\space}(G){\radianAI\space}
+\pnode(CircleTO3){Q}%
+\pnode(CircleTO4){R}%
+\psCircleTangents(Z){\radianBI\space}(Y){\radianBI\space}
+\pnode(CircleTO3){S}%
+\pnode(CircleTO4){T}%
+\psCircleTangents(X){\radianCI\space}(Y){\radianBI\space}
+\pnode(CircleTO3){U}%
+\pnode(CircleTO4){V}%
+\psCircleTangents(N)(X){\radianCI\space}
+\pnode(CircleT2){W}%
+\pcline(K)(J)%
+\pcline(Q)(R)%
+\pcline(S)(T)%
+\pcline(U)(V)%
+\pcline(W)(N)%
+\pstArcOAB{X}{V}{W}%
+\pstArcOAB{Y}{S}{U}%
+\pstArcOAB{Z}{R}{T}%
+\pstArcOAB{F}{I}{J}%
+\pstArcOAB{G}{K}{Q}%
+\pstMiddleAB[PointSymbol=none,PointName=none]{K}{J}{MI}%
+%
+\psCircleTangents(N){\radianAI\space}(G){\radianAI\space}
+\pnode(CircleTO3){H}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(Q)(R){IPi}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(S)(T){IPii}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(U)(V){IPiii}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(W)(N){IPiiii}%
+\psline[linecolor=Brown!80](I)(EndZ)%
+\psline(I)(End)%
+}%
+%
+%----------------------- Haken an der Decke ------------------------------------------------------
+%
+\rput(0,5.65){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%----------------------- gedrehter Haken unterhalb des Deckenhakens  ------------------------------------------------------
+%
+\rput{180}(0,5){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%---------------------Verbindung mit dem Deckenhaken ---------------------------------------------
+%
+\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)
+%
+%--------------------- Oberer Flaschenzugteil -------------------------------------------------------
+%
+\rput(F){\pulleyA}%
+\rput(Z){\pulleyB}%
+\rput(X){\pulleyC}%
+\rput(0,1.65){\psframe[style=pulley-frame](-0.15,-0.8)(0.15,3)}%
+\rput(F){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+\rput(Z){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+\rput(X){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+%
+%-------------------------- Variation der Flaschenzuglänge --------------------------------------------
+%
+\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert ändert die Flaschenzuglänge nach unten oder oben
+%
+%-----------------------------Kompletter unterer Teil des Flaschenzuges um 100° gedreht -----------------
+%
+\rput{180}(0,0){%
+%------------------------------ Haken am unteren Flaschenzugteil -----------------------------------------
+%
+\rput(0,5.65){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%------------------------------------- Haken an der angehängten Masse  ----------------------------------------
+%
+\rput{180}(0,5){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)% Verbindung der Haken angeh. Masse - Flaschz.
+%
+%-------------------------- Unterer Flaschenzugteil -------------------------------------------------------
+%
+\rput(G){\pulleyA}%
+\rput(Y){\pulleyB}%
+\rput(0,1.65){\psframe[style=pulley-frame](-0.15,-0.4)(0.15,3)}%
+\rput(G){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+\rput(Y){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+}%
+\rput(N){\pscircle[linewidth=1pt,fillstyle=solid, fillcolor=black](0,0){.07}}%
+\pcline[linewidth=2.5pt,nodesepA=2cm,linecolor=Brown!80,linecap=1](W)(N)%-------------Neu-Zeichnen des letzten Verbindungsstückes
+%
+%
+%------------------------- angehängte Masse ------------------------------------------------------------------
+%
+\rput(0,-7){\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=black!70,gradbegin=black!100]%
+(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
+\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\psk@pulleys@M{}kg}}
+\rput(0,-1){\pnode(0,0){mu}}% --------- Node an der Massenunterseite
+%
+%------------------ Pfeile zu den Seilmitten für Kräfte ------------------------------------------------
+%
+\pnode([offset=0.4,nodesep=-1.0]MI){SKE}%
+\pcdiagg[style=force-diagg,linecolor=green](SKE)(MI)%
+\pcdiagg[style=force-diagg,linecolor=orange](SKE)(IPi)%
+\pcdiagg[style=force-diagg,linecolor=magenta](SKE)(IPii)%
+\pcdiagg[style=force-diagg,linecolor=cyan](SKE)(IPiii)%
+\pcdiagg[style=force-diagg,linecolor=blue](SKE)(IPiiii)%
+\uput{0.1}[180]{0}(SKE){$F_{\sf S} =\pst@CommaVal{\ps@ForceS}$  N}%
+%
+%------------------ Kraft und Abstandspfeile
+%
+\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=-1.4cm,linecolor=blue]{->}(0,1.5)(0,0.5)
+\nbput{$F_{{\sf G}} = \pst@CommaVal{\ps@ForceG}$ N}
+}%
+}%
+\psline[linewidth=0.7pt](mu)([Xnodesep=1.5]{mu}mu)%
+\psline[linewidth=0.7pt](vmu)([Xnodesep=1.5]{vmu}vmu)%
+\pcline[linewidth=0.7pt,arrowsize=0.09,arrowinset=0.05, offset=1.4cm]{<->}(mu)(vmu)%
+\naput{\small $\Delta h =$ \psk@pulleys@S{} cm}%
+%
+%-----------------------------------Decke ------------------------------------------------------------------------
+%
+\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,6)(2,6.5)%
+\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,6)(2,6.5)%
+%
+%
+%-----------------------------------Boden ------------------------------------------------------------------------
+%
+\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradmidpoint=0.1,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,-11.5)(2,-11)%
+\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,-11.5)(2,-11)%
+}
+%-------------------------------------------------------------------------------------------------------------------------
+
+%-------------------------- Mit 6 Rollen -----------------------------------------------------------------------------------
+%
+\def\poulieF{% 6 poulie
+\def\flzlx{-0.07}% ----------- unteren Flaschenzugteil nach links oder rechts ausrichten, damit die Seile symmetrisch sind
+%
+%
+%------------------------- verschobene Masse mit Haken-------------------------------------------------------
+%
+\rput(-\psk@pulleys@DX,-10){%
+\rput{180}(0,1.35){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!40,linewidth=1pt,linecolor=black!40}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)}%
+\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=cyan!10,gradbegin=black!25,linecolor=black!40]%
+(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
+\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\textcolor{black!50}{\psk@pulleys@M{}kg}}}
+\rput(0,-1){\pnode(0,0){vmu}}}% --------- Node an der verschobenen Massenunterseite
+%
+%------------------- Nodes für die Mittelpunkte der oberen Rollen ---------------------------------------
+%
+\pnode(0,3.7){F}
+\pnode(0,2.2){Z}
+\pnode(0,1.25){X}
+\pnode(0,0.77){N}
+% ----------------- Nodes für die Mittelpunkte der unteren Rollen --------------------------
+%
+\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert ändert die Flaschenzuglänge nach unten oder oben
+\rput{180}(0,0){%
+\pnode(0,3.7){G}
+\pnode(0,2.2){Y}
+\pnode(0,1.25){AA}
+}}%
+%
+\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}%
+\rput(F){\pnode(\radianAI\space;10){I}}
+\rput(I){\pnode(3;-80){End}}%------------------------ Ende
+\rput(I){\pnode(3.37;-80){EndH}}%--------------------- Ende für Beginn Haken
+\rput(I){\pnode(!\ps@SeilEnd\space 10 sin mul \ps@SeilEnd\space 10 cos neg mul){EndZ}}%------- verschobenes Ende
+\rput(I){\pnode(!\ps@SeilEndH\space 10 sin mul \ps@SeilEndH\space 10 cos neg mul){EndZH}}%---- Ende für Beginn Haken verschobenes  Ende
+%
+%
+%--------------------- Haken am oberen Seilende zum Ziehen ------------------------------------------------------------
+%
+\rput{10}(EndH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=2.5pt,doublecolor=gray!60,linewidth=0.7pt,linecolor=gray!60}%
+\psarc[linecap=1](0,0){1}{-150}{45}%
+\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%--------------------- Haken am unteren Seilende zum Ziehen ------------------------------------------------------------
+%
+\rput{10}(EndZH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=4.5pt,doublecolor=black!80,linewidth=0.4pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{-150}{45}%
+\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+\pscircle[linecolor=black!80,linewidth=0.4pt,fillstyle=solid, fillcolor=white](EndZ){2.0pt}%
+\psline[nodesepA=1cm,linewidth=2.5pt,linecap=1,linecolor=Brown!80](I)(EndZ)% --- Seil bis zur Öffnung
+%
+%---------------- Kraftpfeil am Seilende und delta s --------------------------------------------------------------
+%
+\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=.3cm,linecolor=red,nodesepA=1,nodesepB=1]{->}(I)(End)
+\naput{$F_{\sf Z} = \pst@CommaVal{\ps@ForceS}$ N}%
+\rput(EndH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
+\rput(EndZH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
+\pcline[linewidth=0.7pt,arrowsize=0.12,arrowinset=0.05, offset=.6cm]{<->}(EndH)(EndZH)
+\naput{$\Delta s = \pst@CommaVal{\ps@Seil}$ cm}%
+%
+%---------------------- Seile des Flaschenzuges ----------------------------
+%
+{\psset{linecolor=Brown!80,linewidth=2.5pt}
+\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}
+\pnode(CircleTO4){J}%
+\pnode(CircleTO3){K}%
+\psCircleTangents(Z){\radianBI\space}(G){\radianAI\space}
+\pnode(CircleTO3){Q}%
+\pnode(CircleTO4){R}%
+\psCircleTangents(Z){\radianBI\space}(Y){\radianBI\space}
+\pnode(CircleTO3){S}%
+\pnode(CircleTO4){T}%
+\psCircleTangents(X){\radianCI\space}(Y){\radianBI\space}
+\pnode(CircleTO3){U}%
+\pnode(CircleTO4){V}%
+\psCircleTangents(AA){\radianCI\space}(X){\radianCI\space}
+\pnode(CircleTO2){AB}%
+\pnode(CircleTO1){W}%
+\psCircleTangents(N)(AA){\radianCI\space}
+\pnode(CircleT2){AC}%
+\pcline(K)(J)%
+\pcline(Q)(R)%
+\pcline(S)(T)%
+\pcline(U)(V)%
+\pcline(W)(AB)%
+\pcline(AC)(N)%
+\pstArcOAB{AA}{AB}{AC}%
+\pstArcOAB{X}{V}{W}%
+\pstArcOAB{Y}{S}{U}%
+\pstArcOAB{Z}{R}{T}%
+\pstArcOAB{F}{I}{J}%
+\pstArcOAB{G}{K}{Q}%
+\pstMiddleAB[PointSymbol=none,PointName=none]{K}{J}{MI}%
+%
+\psCircleTangents(N){\radianAI\space}(G){\radianAI\space}
+\pnode(CircleTO3){H}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(Q)(R){IPi}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(S)(T){IPii}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(U)(V){IPiii}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(W)(AB){IPiiii}%
+\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(AC)(N){IPiiiii}%
+\psline[linecolor=Brown!80](I)(EndZ)%
+\psline(I)(End)%
+}%
+%
+%----------------------- Haken an der Decke ------------------------------------------------------
+%
+\rput(0,5.65){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%----------------------- gedrehter Haken unterhalb des Deckenhakens  ------------------------------------------------------
+%
+\rput{180}(0,5){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%---------------------Verbindung mit dem Deckenhaken ---------------------------------------------
+%
+\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)
+%
+%--------------------- Oberer Flaschenzugteil -------------------------------------------------------
+%
+\rput(F){\pulleyA}%
+\rput(Z){\pulleyB}%
+\rput(X){\pulleyC}%
+\rput(0,1.65){\psframe[style=pulley-frame](-0.15,-1)(0.15,3)}%
+\rput(F){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+\rput(Z){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+\rput(X){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+%
+%-------------------------- Variation der Flaschenzuglänge --------------------------------------------
+%
+\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert ändert die Flaschenzuglänge nach unten oder oben
+%
+%-----------------------------Kompletter unterer Teil des Flaschenzuges um 100° gedreht -----------------
+%
+\rput{180}(0,0){%
+%------------------------------ Haken am unteren Flaschenzugteil -----------------------------------------
+%
+\rput(0,5.65){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+%
+%------------------------------------- Haken an der angehängten Masse  ----------------------------------------
+%
+\rput{180}(0,5){%
+\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
+\psarc[linecap=1](0,0){1}{140}{45}%
+\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
+}%
+\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)% Verbindung der Haken angeh. Masse - Flaschz.
+%
+%-------------------------- Unterer Flaschenzugteil -------------------------------------------------------
+%
+\rput(G){\pulleyA}%
+\rput(Y){\pulleyB}%
+\rput(AA){\pulleyC}%
+\rput(0,1.65){\psframe[style=pulley-frame](-0.15,-0.8)(0.15,3)}%
+\rput(G){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+\rput(Y){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+\rput(AA){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
+\rput(N){\pscircle[linewidth=1pt,fillstyle=solid, fillcolor=black](0,0){.07}}%
+}%
+\pcline[linewidth=2.5pt,nodesepA=2cm,linecolor=Brown!80,linecap=1](AC)(N)%-------------Neu-Zeichnen des letzten Verbindungsstückes
+%
+%
+%------------------------- angehängte Masse ------------------------------------------------------------------
+%
+\rput(0,-7){\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=black!70,gradbegin=black!100]%
+(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
+\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\psk@pulleys@M{}kg}}
+\rput(0,-1){\pnode(0,0){mu}}% --------- Node an der Massenunterseite
+%
+%------------------ Pfeile zu den Seilmitten für Kräfte ------------------------------------------------
+%
+\pnode([offset=0.4,nodesep=-1.0]MI){SKE}%
+\pcdiagg[style=force-diagg,linecolor=green](SKE)(MI)%
+\pcdiagg[style=force-diagg,linecolor=orange](SKE)(IPi)%
+\pcdiagg[style=force-diagg,linecolor=magenta](SKE)(IPii)%
+\pcdiagg[style=force-diagg,linecolor=cyan](SKE)(IPiii)%
+\pcdiagg[style=force-diagg,linecolor=blue](SKE)(IPiiii)%
+\pcdiagg[style=force-diagg,linecolor=red](SKE)(IPiiiii)%
+\uput{0.1}[180]{0}(SKE){$F_{\sf S} =\pst@CommaVal{\ps@ForceS}$  N}%
+%
+%------------------ Kraft und Abstandspfeile
+%
+\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=-1.4cm,linecolor=blue]{->}(0,1.5)(0,0.5)
+\nbput{$F_{{\sf G}} = \pst@CommaVal{\ps@ForceG}$ N}
+}%
+}%
+\psline[linewidth=0.7pt](mu)([Xnodesep=1.5]{mu}mu)%
+\psline[linewidth=0.7pt](vmu)([Xnodesep=1.5]{vmu}vmu)%
+\pcline[linewidth=0.7pt,arrowsize=0.09,arrowinset=0.05, offset=1.4cm]{<->}(mu)(vmu)%
+\naput{\small $\Delta h =$ \psk@pulleys@S{} cm}%
+%
+%-----------------------------------Decke ------------------------------------------------------------------------
+%
+\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,6)(2,6.5)%
+\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,6)(2,6.5)%
+%
+%
+%-----------------------------------Boden ------------------------------------------------------------------------
+%
+\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradmidpoint=0.1,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,-11.5)(2,-11)%
+\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,-11.5)(2,-11)%
+}
+%-------------------------------------------------------------------------------------------------------------------------
+% etc.
+%
+%%% la macro ------------------------------
+
+\def\pst@CommaVal#1{\expandafter\pst@@CommaVal#1..\@nil}
+\def\pst@@CommaVal#1.#2.#3\@nil{\ifx\relax#2\relax#1\else\pst@@@CommaVal#1.#2\@nil\fi}
+\def\pst@@@CommaVal#1.#2#3\@nil{#1{,}#2}
+%
+%
+%
+\def\pspulleys{\pst@object{pspulleys}}
+\def\pspulleys@i{%
+\begingroup%
+\pst@killglue
+\use@par
+\pstFPmul\ps@Seil{\psk@pulleys@S}{\psk@pulleys@N}
+\pstFPdiv\ps@ForceS{\psk@pulleys@M}{\psk@pulleys@N}
+\pstFPMul\ps@ForceS{10}{\ps@ForceS}
+\pstFPMul\ps@ForceG{\psk@pulleys@M}{10}
+\pstFPdiv\ps@HightH{\psk@pulleys@S}{10}
+\pstFPsub\ps@HightH{\ps@HightH}{3}
+\pstFPmul\ps@SeilEnd{\psk@pulleys@S}{\psk@pulleys@N}
+\pstFPdiv\ps@SeilEnd{\ps@SeilEnd}{10}
+\pstFPadd\ps@SeilEndH{\ps@SeilEnd}{3.37}
+\pstFPadd\ps@SeilEnd{\ps@SeilEnd}{3}
+
+%
+\newcount\Npulleys
+\Npulleys=\psk@pulleys@N
+\advance\Npulleys by -1
+\ifPst@grid\pspicture[showgrid](-4,-11.5)(4,7)\else\pspicture(-4,-11.5)(4,7)\fi%
+\ifcase\Npulleys
+      % 1 poulie
+      \poulieA
+       \or
+      % 2 poulies
+      \poulieB
+       \or
+      % 3 poulies
+      \poulieC
+      \or
+     % 4 poulies
+     \poulieD
+      \or
+     % 5 poulies
+     \poulieE
+      \or
+     % 6 poulies
+     \poulieF
+    \else
+     %  if N>6
+     \poulieD
+    \fi
+\endpspicture
+\endgroup%
+\ignorespaces}
+
+\catcode`\@=\TheAtCode\relax
+
+\endinput
+%%
+%% END pst-pulley.tex
+
diff --git a/Master/texmf-dist/tex/latex/pst-pulley/pst-pulley.sty b/Master/texmf-dist/tex/latex/pst-pulley/pst-pulley.sty
new file mode 100644
index 00000000000..c7df2fcbd0b
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/pst-pulley/pst-pulley.sty
@@ -0,0 +1,10 @@
+\RequirePackage{pstricks}
+\ProvidesPackage{pst-pulley}[2012/01/17 package wrapper for PSTricks pst-pulley.tex]
+\input{pst-pulley.tex}
+\ProvidesFile{pst-pulley.tex}
+  [\filedate\space v\fileversion\space `PST-pulley' (ts)]
+\IfFileExists{pst-pulley.pro}{%
+  \ProvidesFile{pst-pulley.pro}
+    [2011/08/04 v. 1.00,  PostScript prologue file (hv)]
+    \@addtofilelist{pst-pulley.pro}}{}%
+\endinput
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index f87858f2aed..1c4f457fdc6 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -320,7 +320,7 @@ my @TLP_working = qw(
     pst-infixplot pst-jtree pst-knot pst-labo pst-layout
     pst-lens pst-light3d pst-magneticfield pst-math pst-mirror pst-node
     pst-ob3d pst-optexp pst-optic
-    pst-osci pst-pad pst-pdgr pst-platon pst-plot pst-poly pst-pdf
+    pst-osci pst-pad pst-pdgr pst-platon pst-plot pst-poly pst-pdf pst-pulley
     pst-qtree pst-rubans
     pst-sigsys pst-slpe pst-solarsystem pst-solides3d pst-soroban pst-spectra
     pst-stru pst-support pst-text pst-thick pst-tools pst-tree pst-tvz pst-uml
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index c03575e34a7..4b8270ed12a 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -715,6 +715,7 @@ chomp ($Build = `cd $Master/../Build/source && pwd`);
  'pst-platon',	"&MAKEpst",
  'pst-plot',	"&MAKEpst",
  'pst-poly',	"&MAKEpst",
+ 'pst-pulley',	"&MAKEpst",
  'pst-qtree',	"&MAKEpst",
  'pst-rubans',	"&MAKEpst",
  'pst-sigsys',	"&MAKEpst",
diff --git a/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc b/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc
index 3c12b7cf9f0..d44cdc333a1 100644
--- a/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc
@@ -57,6 +57,7 @@ depend pst-pdgr
 depend pst-platon
 depend pst-plot
 depend pst-poly
+depend pst-pulley
 depend pst-qtree
 depend pst-rubans
 depend pst-sigsys
diff --git a/Master/tlpkg/tlpsrc/pst-pulley.tlpsrc b/Master/tlpkg/tlpsrc/pst-pulley.tlpsrc
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/pst-pulley.tlpsrc