examples/showcase/fig2_2a.shape

   1 /** This file is part of Shapes.
   2  **
   3  ** Shapes is free software: you can redistribute it and/or modify
   4  ** it under the terms of the GNU General Public License as published by
   5  ** the Free Software Foundation, either version 3 of the License, or
   6  ** any later version.
   7  **
   8  ** Shapes is distributed in the hope that it will be useful,
   9  ** but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11  ** GNU General Public License for more details.
  12  **
  13  ** You should have received a copy of the GNU General Public License
  14  ** along with Shapes.  If not, see <http://www.gnu.org/licenses/>.
  15  **
  16  ** Copyright 2008, 2010, 2014 Henrik Tidefelt
  17  **/
  18
  19 ##needs ..Applications..Blockdraw
  20
  21 ##lookin ..Shapes
  22 ##lookin ..Applications..Blockdraw
  23
  24 g1: [putblockOrigin IO..•page [longblock [Graphics..TeX `Amp´]]]
  25 g2: [putblockNearRight IO..•page [longblock [Graphics..TeX `Motor´]] g1]
  26 f:  [putblockNearLeft IO..•page [longblock [Graphics..TeX `$K$´]] g1]
  27 s:  [putblockNearLeft IO..•page [sumpicture] f]
  28
  29 sy: [putblockVeryNearRight IO..•page [splitdot] g2]
  30
  31 ty: [putblockFarRight IO..•page Graphics..pointpicture g2]
  32 tr: [putblockFarLeft IO..•page Graphics..pointpicture s]
  33
  34 [ignore [connect IO..•page tr s]]
  35 IO..•page << [leftpointsign s `+´]
  36 { p: [connect IO..•page s f]
  37   IO..•page << [putlabelAbove [Graphics..TeX `$e$´] [Layout..mspoint p 0.5] 0] }
  38 {p: [connect IO..•page f g1]
  39   IO..•page << [putlabelAbove [Graphics..TeX `$u$´] [Layout..mspoint p 0.5] 0] }
  40 [ignore [connect IO..•page g1 g2]]
  41 [ignore [connect IO..•page g2 ty]]
  42 [ignore [bbconnect IO..•page sy s 0.5cm]]
  43 IO..•page << [bottompointsign s `-´]
  44
  45 IO..•page << [putlabelAbove [Graphics..TeX `$r$´] [toppoint tr 1 1] ~1]
  46 IO..•page << [putlabelAbove [Graphics..TeX `$y$´] [toppoint ty 1 1] 1]