circle result 0  0 1 0 30
dset ech 1.1
repeat 20 { 
    2dpscale result 0 0 0 ech; 
    copy result .; 
}
checklength result -l 1268.1038650696225
checkview -display result -2d v2d -path ${imagedir}/${test_image}.png