repo.or.cz
/
shapes.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Updating documentation and examples with new core namespaces
[shapes.git]
/
test
/
graphics
/
approximate2d.shape
blob
1879141c5590e97b42d8b647722bec4602faeb3f
1
pth: Geometry..@defaultunit:1%c | (0cm,0cm)>(^90°)--(^90°)<(2cm,0cm)
2
3
IO..•page ≪ [Graphics..stroke pth]
4
5
IO..•page ≪
6
(
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]
16
)