/** 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 **/ ##needs winding-rule-paths.shext ##lookin ..Shapes ##lookin ..Shapes..Geometry cmd: Graphics..fill Traits..@nonstroking: [Traits..gray 0.4] | { IO..•page << ( [cmd starPath] & starPathStroke ) << ( [cmd sameCircle] & sameCircleStroke ) >> [shift (3cm,0cm)] << ( [cmd alternatingCircle] & alternatingCircleStroke ) >> [shift (6cm,0cm)] }