examples/doc/blockdraw-tutorial-layout.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 ##needs blockdraw-tutorial-tut-prefs.shext
  21
  22 ##lookin ..Shapes
  23 ##lookin ..Applications..Blockdraw
  24
  25 tut_prefs
  26 |
  27 { |** Tutorial preferences activated.
  28
  29 SF: [putblockOrigin IO..•page [sumpicture]]
  30 F: [putblockNearRight IO..•page [longblock [Graphics..TeX `$F$´]] SF]
  31 S1: [putblockNearRight IO..•page [sumpicture] F]
  32 G1: [putblockFarRight IO..•page [longblock [Graphics..TeX `$G_{1}$´]] S1]
  33 S2: [putblockNearRight IO..•page [sumpicture] G1]
  34 G2: [putblockNearRight IO..•page [longblock [Graphics..TeX `$G_{2}$´]] S2]
  35 H: [putblockNearAbove IO..•page [longblock [Graphics..TeX `$H$´]] S2]
  36 sn: [putblockNearAbove IO..•page [splitdot] H]
  37 Ff: [putblockVeryFarLeft IO..•page [longblock [Graphics..TeX `$F_{\mathrm{f}}$´]] sn]
  38 Neg: [putblockNearBelow IO..•page [squareblock [Graphics..TeX `$-1$´]] G1]
  39
  40 tr: [putblockFarLeft IO..•page pointpicture SF]
  41 tn: [putblockFarAbove IO..•page pointpicture H]
  42 sy: [putblockVeryNearRight IO..•page [splitdot] G2]
  43 ty: [putblockFarRight IO..•page pointpicture G2]
  44
  45 ignore [] [connect IO..•page tr SF]
  46 IO..•page << [leftpointsign SF `+´]
  47
  48 ignore [] [connect IO..•page SF F]
  49
  50 ignore [] [connect IO..•page F S1]
  51 IO..•page << [leftpointsign S1 `+´]
  52
  53 ignore [] [connect IO..•page S1 G1]
  54
  55 ignore [] [connect IO..•page G1 S2]
  56 IO..•page << [leftpointsign S2 `+´]
  57
  58 ignore [] [connect IO..•page S2 G2]
  59 ignore [] [connect IO..•page G2 ty]
  60
  61 ignore [] [brconnect IO..•page sy Neg]
  62 ignore [] [connect IO..•page Neg SF]
  63 IO..•page << [bottompointsign SF `+´]
  64
  65 ignore [] [connect IO..•page tn H]
  66 ignore [] [connect IO..•page sn Ff]
  67 ignore [] [connect IO..•page Ff S1]
  68 IO..•page << [toppointsign S1 `+´]
  69 ignore [] [connect IO..•page H S2]
  70 IO..•page << [toppointsign S2 `+´]
  71
  72 {
  73   dashboxmargin: 4mm
  74
  75   x1: [leftpoint SF].x - dashboxmargin
  76   x2: [rightpoint S1].x + dashboxmargin
  77   x3: [rightpoint Ff].x + dashboxmargin
  78   y1: [bottompoint F].y - dashboxmargin
  79   y2: [bottompoint Ff].y - dashboxmargin
  80   y3: [toppoint Ff].y + dashboxmargin
  81
  82   IO..•page << hstyle1 | [Graphics..stroke (x1,y1)--(x1,y3)--(x3,y3)--(x3,y2)--(x2,y2)--(x2,y1)--cycle]
  83         << [shift (x1+10mm,y3-5mm)] [] [Layout..center_wlm [Graphics..TeX `Regulator´] (~1,1)]
  84 }
  85
  86 } |** End of tutorial preferences.