1puts "============"
2puts "OCC6768"
3puts "============"
4puts ""
5#######################################################
6# Problems making offset wires
7#######################################################
8
9restore [locate_data_file bug6768.brep] co
10explode co
11foreach s {co_1 co_2 co_3 co_4} {
12
13puts "\n*** make offset of wire r$s\n"
14mkoffset r${s} ${s} 1 -1
15
16regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection r${s}_1] full nbv
17
18if { $nbv != 0 } {
19  puts "Error : Section is incorrect"
20} else {
21  puts "Section is correct"
22}
23
24if { ${s} eq "co_1" } {
25  checkprops r${s}_1 -l 577.397
26  checknbshapes r${s}_1 -vertex  99
27} elseif { ${s} eq "co_2" } {
28  checkprops r${s}_1 -l 591.334
29  checknbshapes r${s}_1 -vertex  80
30} elseif { ${s} eq "co_3" } {
31  checkprops r${s}_1 -l 550.648
32  checknbshapes r${s}_1 -vertex 111
33} else {
34  checkprops r${s}_1 -l 545.219
35  checknbshapes r${s}_1 -vertex 290
36}
37
38}
39
40smallview
41fit
42
43checkview -screenshot -2d -path ${imagedir}/${test_image}.png
44