/** This file is part of Shapes.
 **
 ** Shapes is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU General Public License as published by
 ** the Free Software Foundation, either version 3 of the License, or
 ** any later version.
 **
 ** Shapes is distributed in the hope that it will be useful,
 ** but WITHOUT ANY WARRANTY; without even the implied warranty of
 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ** GNU General Public License for more details.
 **
 ** You should have received a copy of the GNU General Public License
 ** along with Shapes.  If not, see <http://www.gnu.org/licenses/>.
 **
 ** Copyright 2008, 2010, 2014 Henrik Tidefelt
 **/

##needs ..Applications..Blockdraw

##lookin ..Shapes
##lookin ..Shapes..Geometry
##lookin ..Applications..Blockdraw

##unit u = 2cm

@connectionlw: 0.6bp
|
{
  j1: [putblockOrigin IO..•page [shift (1u,1u)] [] sjunction]
  j2: [putblockOrigin IO..•page [shift (2u,1u)] [] [gyjunction Layout..to_rt [Graphics..TeX `$\mu$´]]]
  j3: [putblockOrigin IO..•page [shift (3u,1u)] [] sjunction]
  j4: [putblockOrigin IO..•page [shift (4u,1u)] [] [tfjunction Layout..to_rt [Graphics..TeX `$r$´]]]
  j5: [putblockOrigin IO..•page [shift (5u,1u)] [] pjunction]
  j6: [putblockOrigin IO..•page [shift (5u,~0.5u)][] sjunction]
  j7: [putblockOrigin IO..•page [shift (5u,2u)] [] sjunction]

  IO..•page << tbond [] [bgconnect j1 j2]
  IO..•page << hbond [] [bgconnect j2 j3]
  IO..•page << tbond [] [bgconnect j3 j4]
  IO..•page << tbond [] [bgconnect j4 j5]
  IO..•page << hbond [] [bgconnect j5 j6]
  IO..•page << tbond [] [bgconnect j5 j7]

  IO..•page << tbond [] [terminalfrom IO..•page j1 (1u,0u) [Graphics..TeX `R: $\phi_{1}(\bullet)$´]]
  IO..•page << hbond [] [terminalfrom IO..•page j1 (1u,2u) [Graphics..TeX `I: $m_{1}$´]]
  IO..•page << hbond [] [terminalfrom IO..•page j3 (3u,2u) [Graphics..TeX `I: $m_{2}$´]]
  IO..•page << tbond [] [terminalfrom IO..•page j3 ( [Layout..centerof j3]+1u*[dir ~120°] ) [Graphics..TeX `R: $R_{2}$´]]
  IO..•page << tbond [] [terminalfrom IO..•page j3 ( [Layout..centerof j3]+1u*[dir ~60°] ) [Graphics..TeX `R: $R_{3}$´]]
  IO..•page << hbond [] [terminalto   IO..•page j6 ( [Layout..centerof j6]+(~1u,0u) ) [Graphics..TeX `$S_{\mathrm{e}}$´]]
  IO..•page << hbond [] [terminalfrom IO..•page j6 ( [Layout..centerof j6]+(1u,0u) ) [Graphics..TeX `I: $m_{3}$´]]
  IO..•page << tbond [] [terminalfrom IO..•page j7 (4u,2u) [Graphics..TeX `C: $C_{1}$´]]
  IO..•page << tbond [] [terminalfrom IO..•page j7 (6u,2u) [Graphics..TeX `R: $R_{1}$´]]

  {
    con: [terminalto IO..•page j1 (0u,1u) [Graphics..TeX `$S_{\mathrm{e}}$´]]
    IO..•page << hbond [] con
    IO..•page << [flowlabel con [Graphics..TeX `f´]]
    IO..•page << [effortlabel con [Graphics..TeX `e´]]
  }
}