Updating documentation and examples with new core namespaces
[shapes.git] / test / graphics / approximate2d.shape
blob1879141c5590e97b42d8b647722bec4602faeb3f
1 pth: Geometry..@defaultunit:1%c | (0cm,0cm)>(^90°)--(^90°)<(2cm,0cm)
3 IO..•page ≪ [Graphics..stroke pth]
5 IO..•page ≪
7   @width: 0.2bp
8   |
9   [[Data..range '1 '10].foldl
10    \ pile i →!
11      {
12        p: (~2cm+i*0.5cm,0.6cm)
13        pile & [Graphics..stroke p--[approximator pth p].p ]
14      }
15    null]