mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
54 lines
1.2 KiB
Plaintext
Executable File
54 lines
1.2 KiB
Plaintext
Executable File
puts "========================"
|
|
puts "OCC14782"
|
|
puts "========================"
|
|
puts ""
|
|
#######################################################################
|
|
# Method segment works wrongly for periodical BSpline curve
|
|
#######################################################################
|
|
|
|
set BugNumber OCC14782
|
|
|
|
restore [locate_data_file OCC14782.draw] res
|
|
|
|
bounds res t1 t2
|
|
set bounds_list [dump res]
|
|
|
|
puts ""
|
|
if { [llength ${bounds_list}] < 7 } {
|
|
puts "Bad bounds_list"
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
set periodic_type [lindex ${bounds_list} 6]
|
|
puts "periodic_type=${periodic_type}"
|
|
if { ${periodic_type} != "periodic" } {
|
|
puts "1. Faulty ${BugNumber}"
|
|
} else {
|
|
puts "1. OK ${BugNumber}"
|
|
}
|
|
}
|
|
|
|
set ll1 [lindex [length res] end]
|
|
puts "length1=${ll1}"
|
|
|
|
segment res t1 t2
|
|
set segment_list [dump res]
|
|
|
|
puts ""
|
|
if { [llength ${segment_list}] < 7 } {
|
|
puts "Bad segment_list"
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
set periodic_type [lindex ${segment_list} 6]
|
|
puts "periodic_type=${periodic_type}"
|
|
if { ${periodic_type} != "periodic" } {
|
|
puts "2. OK ${BugNumber}"
|
|
} else {
|
|
puts "2. Faulty ${BugNumber}"
|
|
}
|
|
}
|
|
|
|
set ll2 [lindex [length res] end]
|
|
puts "length2=${ll2}"
|
|
|
|
checkreal "length1" ${ll1} ${ll2} 0 0.001
|