40093367 |
1 | circle w -20 0 0 20 |
2 | mkedge w w 0 pi/2 |
3 | wire w w |
4 | polyline profile 0 0 0 10 0 0 5 0 5 0 0 0 |
5 | mkplane profile profile |
6 | pipe s w profile |
7 | tscale s 0 0 0 SCALE1 |
8 | fsameparameter s SCALE1*1.e-7 |
9 | explode s E |
10 | blend result s 1*SCALE1 s_5 |
11 | |
12 | set square 91635.9 |