b508cbc5 |
1 | puts "========" |
2 | puts "0026338: STL export (especially binary) needs a lot of time if selected export path is not local" |
3 | puts "========" |
4 | puts "" |
5 | |
6 | pload MODELING XSDRAW |
7 | |
8 | # check that export to STL correctly takes into account shape locations |
9 | box b1 5 5 5 |
10 | box b2 5 5 5 |
11 | ttranslate b2 10 10 10 |
12 | compound b1 b2 comp |
13 | incmesh comp 1. |
14 | |
15 | # write to binary STL |
16 | writestl comp $imagedir/${casename}.stl 1 |
17 | |
18 | # load STL |
19 | readstl result $imagedir/${casename}.stl |
20 | |
21 | # check that bounding box is |
22 | set bnd [boundingstr result] |
23 | checkreal "XMin" [lindex $bnd 0] 0. 1e-5 0. |
24 | checkreal "YMin" [lindex $bnd 1] 0. 1e-5 0. |
25 | checkreal "ZMin" [lindex $bnd 2] 0. 1e-5 0. |
26 | checkreal "XMax" [lindex $bnd 3] 15. 1e-5 0. |
27 | checkreal "YMax" [lindex $bnd 4] 15. 1e-5 0. |
28 | checkreal "ZMax" [lindex $bnd 5] 15. 1e-5 0. |