examples/applications/erikw.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 Henrik Tidefelt
  17  **/
  18
  19 ##classoption 10pt
  20
  21 ##needs blockdraw_wfo
  22 ##needs centering
  23
  24   @longblockrx:0.9cm
  25 & @blockspacefar:6mm
  26 & @blockspacenear:5mm
  27 & @blockspaceverynear:2mm
  28 |
  29 {
  30
  31 f: [putblockOrigin •page [longblock [teX `Controller´]]]
  32 g: [putblockNearRight •page [longblock [teX `Robot´]] f]
  33 s:  [putblockNearLeft •page [sumpicture] f]
  34 sv:  [putblockNearRight •page [sumpicture] g]
  35
  36 sy: [putblockVeryNearRight •page [splitdot] sv]
  37
  38 ty: [putblockFarRight •page pointpicture sv]
  39 tr: [putblockFarLeft •page pointpicture s]
  40 tv: [putblockFarAbove •page pointpicture sv]
  41
  42 [ignore [connect •page tr s]]
  43 •page << [leftpointsign s `+´]
  44 [ignore [connect •page s f]]
  45 {p: [connect •page f g]
  46   •page << [putlabelAbove [teX `$u$´] [mspoint p 0.5] 0] }
  47 [ignore [connect •page g sv]]
  48 [ignore [connect •page tv sv]]
  49 [ignore [connect •page sv ty]]
  50 [ignore [bbconnect •page sy s 0.5cm]]
  51 •page << [bottompointsign s `-´]
  52
  53 •page << [putlabelAbove [teX `$r$´] [toppoint tr 1 1] ~1]
  54 •page << [putlabelAbove [teX `$y$´] [toppoint ty 1 1] 1]
  55 •page << [putlabelRight [teX `$v$´] [toppoint tv 1 1] 1]
  56
  57 }
  58
  59 •stdout << `Bredd: ´ << [xmax [bbox (•page)]] - [xmin [bbox (•page)]] << `¢n´