/** This file is part of Shapes. ** ** Shapes is free software: you can redistribute it and/or modify ** it under the terms of the GNU General Public License as published by ** the Free Software Foundation, either version 3 of the License, or ** any later version. ** ** Shapes is distributed in the hope that it will be useful, ** but WITHOUT ANY WARRANTY; without even the implied warranty of ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ** GNU General Public License for more details. ** ** You should have received a copy of the GNU General Public License ** along with Shapes. If not, see . ** ** Copyright 2009, 2014 Henrik Tidefelt **/ ##lookin ..Shapes ##lookin ..Shapes..Geometry ##lookin ..Shapes..Text /** Color definitions borrowed from logo.shape. **/ shapes_gray: [Traits..gray 0.94] shapes_yellow: [Traits..rgb 1 0.7 0] shapes_blue: [Traits..rgb 0.3 0.6 1] @size:20mm | { content: Traits..@stroking:shapes_yellow & Traits..@width:2bp | [[Data..range 2mm @size-10mm 2mm].foldl \ p e → p & [Graphics..stroke (1cm,e)--(6cm,e)] Graphics..null] IO..•page << [Graphics..clip content Traits..@nonstroking:shapes_gray & Traits..@stroking:shapes_blue & @rendering:[textmode] | ( newText << [kern `Shapes´] )] >> [shift (0cm,0*@size)] IO..•page << [Graphics..clip content Traits..@nonstroking:shapes_gray & Traits..@stroking:shapes_blue & @rendering:[textmode fill:true] | ( newText << [kern `Shapes´] )] >> [shift (0cm,~1*@size)] IO..•page << [Graphics..clip content Traits..@nonstroking:shapes_gray & Traits..@stroking:shapes_blue & @rendering:[textmode stroke:true] | ( newText << [kern `Shapes´] )] >> [shift (0cm,~2*@size)] IO..•page << [Graphics..clip content Traits..@nonstroking:shapes_gray & Traits..@stroking:shapes_blue & @rendering:[textmode fill:true stroke:true] | ( newText << [kern `Shapes´] )] >> [shift (0cm,~3*@size)] }