dfdfa61f |
1 | puts "TODO OCC25481 ALL: unexpected polygons are found" |
2 | puts "TODO OCC25481 ALL: unexpected pcurves are found" |
3 | |
4 | puts "================" |
5 | puts "OCC25481" |
6 | puts "================" |
7 | puts "" |
8 | ####################################################################### |
9 | # Edge must not contain obsolete curve representations |
10 | ####################################################################### |
11 | |
12 | pcylinder c 1 1 |
13 | incmesh c 0.1 -a 60 |
14 | subshape c e 1 |
15 | unset c |
16 | renamevar c_1 e |
17 | |
18 | polygons e |
19 | |
20 | set dmp [dump e] |
21 | set npol 0 |
22 | set npc 0 |
23 | foreach l [split $dmp \n] { |
24 | if [regexp -- {- PCurve} $l dummy dummy] { |
25 | puts $l |
26 | incr npc |
27 | } |
28 | if [regexp -- {- PolygonOnTriangulation} $l dummy dummy] { |
29 | puts $l |
30 | incr npol |
31 | } |
32 | } |
33 | |
34 | if $npol { |
35 | puts "Error : $npol unexpected polygons are found" |
36 | } else { |
37 | puts "OK : unexpected polygons are not found" |
38 | } |
39 | if $npc { |
40 | puts "Error : $npc unexpected pcurves are found" |
41 | } else { |
42 | puts "OK : unexpected pcurves are not found" |
43 | } |
44 | |
45 | checkview -display e -2d -path ${imagedir}/${test_image}.png |