circle result 0  0 1 0 30
dset ech 1.1
repeat 20 { 
	2dpscale result 0 0 0 ech; 
	copy result .; 
}
set viewer "v2d"
set length 1268.1038650696225