mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-15 11:44:07 +03:00
29 lines
730 B
Plaintext
Executable File
29 lines
730 B
Plaintext
Executable File
puts "================"
|
|
puts "BUC60654"
|
|
puts "OCC143"
|
|
puts "================"
|
|
puts ""
|
|
######################################################################
|
|
## Raises exception "Standard_NotImplemented3" in GCPnts_AbscissaPoint on a Geom2d_OffsetCurve
|
|
######################################################################
|
|
|
|
if { [array get env os_type] != "" } {
|
|
set os $env(os_type)
|
|
}
|
|
if { [string compare $os "windows"] == 0 } {
|
|
set len_ch 3.9999999999999993e+100
|
|
} else {
|
|
set len_ch 4.0000000000000001e+100
|
|
}
|
|
|
|
line line_2d 0 0 1 1
|
|
|
|
offset result line_2d 10 1 0
|
|
|
|
set info [length $result]
|
|
regexp {The length result is +([-0-9.+eE]+)} $info full len
|
|
|
|
if { ${len} != ${len_ch} } {
|
|
puts "Error : Length is invalid"
|
|
}
|