examples/applications/johan_lay.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 ##needs centering
  20
  21 size1: @text_size:10bp & @text_horizontalscaling:1 & @text_characterspacing:0.45bp
  22 size2: @text_size:16bp
  23 size3: @text_size:26bp & @text_horizontalscaling:1
  24 font: @text_font:FONT_HELVETICA & @text_leading:1.3
  25 sentenceSep: 0.8
  26
  27 leftMargin: 20mm
  28 topbotMargin: 20mm
  29
  30 pageFrame_S5: [rectangle (0mm,0mm) (165mm,240mm)]
  31 pageFrame_A4: [rectangle (0mm,0mm) (210mm,297mm)]
  32
  33
  34 •helpers: newGroup
  35 helperStyle: @width:0bp & @dash:[dashpattern 3bp 2mm] & @stroking:[rgb 33.3*0.01        44.7*0.01       57.3*0.01]
  36
  37 y1: 240mm - topbotMargin
  38 line1: [shift (leftMargin,y1)] [] [centerat font & size1 | ( newText << [kerning `Linköping studies in science and technology.´ ~sentenceSep `Dissertations.´ ~sentenceSep `No. 1166´] ) (~1,1)]
  39 •page << line1
  40
  41 y2: [ymin [bbox line1]] - 20mm
  42 line2: [shift (leftMargin,y2)] [] [centerat size3 & font | @text_font:FONT_HELVETICA | ( newText <<`
  43 Optimal Control and
  44 Model Reduction of
  45 Nonlinear DAE Models
  46 ´ ) (~1,1)]
  47 •page << line2
  48
  49 y3: [ymin [bbox line2]] - 20mm
  50 line3: [shift (leftMargin,y3)] [] [centerat font & size2 | ( newText << `Johan Sjöberg´ ) (~1,1)]
  51 •page << line3
  52
  53 y4: [ymin [bbox line3]] - 15mm
  54 sheet: [import `johans.pdf´] [] '0   |** import all pages, and select page 0
  55 •page << [shift (leftMargin-5mm,y4)] [] [centerat sheet (~1,1)]
  56
  57 y5: topbotMargin
  58 •helpers << helperStyle | [stroke (0mm,y5)--(170mm,(+0mm))]
  59 •page << [shift (leftMargin,y5)] [] ( font & size1 | ( newText << `Linköping 2008´ ) )
  60
  61 LiTH: [import `LiTH_staende_eng_sv.pdf´] [] '0   |** import all pages, and select page 0
  62 •page << [shift ([xmax pageFrame_S5]-leftMargin-4mm,y5-2.3mm)] [] [centerat [scale 30mm/([ymax [bbox LiTH]]-[ymin [bbox LiTH]])] [] LiTH (1,~1)]
  63
  64 •helpers << helperStyle | [stroke (5mm,0)--((+0mm),240mm)]
  65 •helpers << [bboxed helperStyle | [stroke pageFrame_S5]
  66                                                                 [shift (~20mm,~30mm)] [] pageFrame_A4]
  67
  68 {
  69   tmp: [bboxed [clip (•page) pageFrame_S5] pageFrame_S5]
  70         [erase •page]
  71   •page << tmp
  72 }
  73
  74 /** Comment out the line below to remove helper lines!
  75  **/
  76 |** •page << (•helpers)