/** 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 <http://www.gnu.org/licenses/>.
 **
 ** Copyright 2008, 2014 Henrik Tidefelt
 **/

##lookin ..Shapes
##lookin ..Shapes..Geometry

h: 2cm   |** This is half the height of our path
w: 1cm   |** This is the width of our path
r: 4mm   |** This is a corner radius

/**
 ** Construct a path as follows:
 ** Start at (0,h) and make a horizontal line to the x-coordinate (w-r).  Make an (approximately) circular arc
 ** to the point located r to the right and r down.  Make a vertical line to the y-coordinate (~h+r).  Finally,
 ** make a smooth spline without inflexion that ends horizontally at (0,~h).
 **
 ** Then stroke the path joined with its reverse mirrored in the y-axis.
 **/
pth: @defaultunit:1%c | (0,h)--(w-r,(+0m))>(^)--(^)<(+(r,~r))--((+0m),~h+r)>(^)--(^0°)<(0,~h)

IO..•page << [Graphics..stroke pth--[[scale x:~1] [reverse pth]]]


/**
 ** Allow for some space around the path we want to see!
 **/
IO..•page << [Graphics..stroke [rectangle (~1.5*w,~1.5*h) (1.5*w,1.5*h)]]