1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
puts "================"
puts "BUC60654"
puts "OCC143"
puts "================"
puts ""
######################################################################
## Raises exception "Standard_NotImplemented3" in GCPnts_AbscissaPoint on a Geom2d_OffsetCurve
######################################################################
set len_expected 4.e100
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
checkreal "Length" $len $len_expected 0. 1e-10
|
