examples/doc/blockdraw-con-points.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 blockdraw
  20
  21 ##lookin ..Shapes
  22 ##lookin Blockdraw
  23
  24 ##unit dx = 6cm
  25 ##unit dy = 3cm
  26
  27 F: [longblock [TeX `$F$´]]
  28 S: [sumpicture]
  29
  30 helper: \ pos pt blk →
  31 [[shift pos]
  32  blk & (@width:4bp & @stroking:RGB_RED | [spot pt])
  33  &
  34  [[shift (0,~0.5dy)] [shiftoff_wlm @text_font:FONT_COURIER | (newText << [sourceof pt]) to_top]]]
  35
  36 •page << [helper (1dx,0dy) [locate [leftpoint F]] F]
  37 •page << [helper (2dx,0dy) [locate [leftpoint F 2]] F]
  38 •page << [helper (3dx,0dy) [locate [leftpoint F 2 1]] F]
  39 •page << [helper (4dx,0dy) [locate [leftpoint F 2 2]] F]
  40 •page << [helper (5dx,0dy) [locate [leftpoint F 2 3]] F]
  41
  42 •page << [helper (1dx,~1dy) [locate [rightpoint F]] F]
  43 •page << [helper (2dx,~1dy) [locate [rightpoint F 3]] F]
  44 •page << [helper (3dx,~1dy) [locate [rightpoint F 3 1]] F]
  45 •page << [helper (4dx,~1dy) [locate [rightpoint F 3 2]] F]
  46 •page << [helper (5dx,~1dy) [locate [rightpoint F 3 3]] F]
  47
  48 •page << [helper (1dx,~2dy) [locate [bottompoint F]] F]
  49 •page << [helper (2dx,~2dy) [locate [bottompoint F 4]] F]
  50 •page << [helper (3dx,~2dy) [locate [bottompoint F 4 1]] F]
  51 •page << [helper (4dx,~2dy) [locate [bottompoint F 4 2]] F]
  52 •page << [helper (5dx,~2dy) [locate [bottompoint F 4 3]] F]
  53
  54 •page << [helper (1dx,~3dy) [locate [toppoint S]] S]
  55 •page << [helper (2dx,~3dy) [locate [toppoint S 5]] S]
  56 •page << [helper (3dx,~3dy) [locate [toppoint S 5 1]] S]
  57 •page << [helper (4dx,~3dy) [locate [toppoint S 5 2]] S]
  58 •page << [helper (5dx,~3dy) [locate [toppoint S 5 3]] S]