91322f44 |
1 | # Test for issue #22898 and other functionality that can be affected by locale. |
2 | # Just run multiple conversions of the shape to and from diferent formats and |
3 | # check that the result is good shape with expected area |
4 | |
5 | set anOS $tcl_platform(os) |
3af9db62 |
6 | if { ${anOS} == "Linux" } { |
91322f44 |
7 | dlocale LC_ALL fr_FR |
8 | } else { |
9 | dlocale LC_ALL French |
10 | } |
11 | |
12 | pload MODELING |
13 | pload XSTEP |
14 | |
15 | # original shape |
16 | restore [locate_data_file hammer.brep] hammer |
17 | checkshape hammer |
18 | tolerance hammer |
19 | checkarea hammer 3.978e8 1e6 0.001 |
20 | |
21 | # BREP |
22 | save hammer $imagedir/hammer.brep |
23 | restore $imagedir/hammer.brep brep |
24 | checkshape brep |
25 | tolerance brep |
26 | checkarea brep 3.978e8 1e6 0.001 |
27 | |
28 | # IGES |
29 | brepiges hammer $imagedir/hammer.igs |
30 | igesbrep $imagedir/hammer.igs iges * |
31 | checkshape iges |
32 | tolerance iges |
33 | checkarea iges 3.978e8 1e6 0.001 |
34 | |
35 | # STEP |
36 | stepwrite a hammer $imagedir/hammer.stp |
37 | stepread $imagedir/hammer.stp step * |
38 | checkshape step_1 |
39 | tolerance step_1 |
40 | checkarea step_1 3.978e8 1e6 0.001 |
41 | |
42 | # STL |
43 | writestl hammer $imagedir/hammer.stl |
44 | readstl stl $imagedir/hammer.stl |
45 | checkshape stl |
46 | tolerance stl |
47 | checkarea stl 3.978e8 1e6 0.001 |
48 | |
49 | # VRML: reading does not work regardless of locale... |
50 | writevrml hammer $imagedir/hammer.vrml |
51 | #loadvrml vrml $imagedir/hammer.vrml |
52 | #checkshape vrml |
53 | #tolerance vrml |