1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
puts "========"
puts "OCC311"
puts "========"
restore [locate_data_file OCC311.draw] c
#### checkshape c # - not a topological shape
set ufirst 1e-7
set ulast 6.2831854071795901
segment c ${ufirst} ${ulast}
set dumpc [dump c]
set list [split ${dumpc} "\n\t"]
set listLength [llength ${list}]
if { ${listLength} < 25 } {
puts "OCC311 - Error : listLength= ${listLength}"
}
regexp { +Degree +([-0-9.+eE]+), +([-0-9.+eE]+) +Poles, +([-0-9.+eE]+) +Knots} $dumpc full DegreeNumber PolesNumber KnotsNumber
set Knots [regexp -all -inline { +([-0-9.+eE]+ +: +[-0-9.+eE]+ +[-0-9.+eE]+)} $dumpc]
regexp { *[-0-9.+eE]+ +: +([-0-9.+eE]+) +[-0-9.+eE]+} [lindex $Knots 1] full FirstKnot
regexp { *[-0-9.+eE]+ +: +([-0-9.+eE]+) +[-0-9.+eE]+} [lindex $Knots [llength $Knots]-1] full LastKnot
set delta_first [expr abs(${FirstKnot} - ${ufirst}) / ${ufirst} * 100]
set delta_last [expr abs(${LastKnot} - ${ulast}) / ${ulast} * 100]
set maxdelta 0.01
puts "FirstKnot = ${FirstKnot}"
puts "LastKnot = ${LastKnot}"
if { ${delta_first} > ${maxdelta} } {
puts "OCC311 - Error : delta_first = ${delta_first}"
}
if { ${delta_last} > ${maxdelta} } {
puts "OCC311 - Error : delta_last = ${delta_last}"
}
if { ${delta_first} <= ${maxdelta} && ${delta_last} <= ${maxdelta} } {
puts "OCC311: OK"
}
set 2dviewer 0
|
