new pstricks package pst-pulley (18jan12)

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

1 files changed, 1257 insertions, 0 deletions

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
+