mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
bfd69b5f7b
Correct the method PerformCurve of GCPnts_QuasiUniformDeflection to get the proper derivative at the end of the current curve. Improve the Draw commands "crvpoints" and "crvtpoints" so that to work with wires as composite curves.
24 lines
578 B
Plaintext
24 lines
578 B
Plaintext
puts "======="
|
|
puts "0029102"
|
|
puts "======="
|
|
puts ""
|
|
##################################################
|
|
# Missing points using GCPnts_QuasiUniformDeflection
|
|
##################################################
|
|
|
|
brestore [locate_data_file bug29102_Wire.brep] w
|
|
|
|
set info [crvpoints r w 0.0005]
|
|
|
|
regexp "Max defl: +(\[-0-9.+eE\]+)" $info full defl
|
|
|
|
if {$defl > 0.0005} {
|
|
puts "Error: deflection $defl is greater than expected 0.0005"
|
|
} else {
|
|
puts "OK: deflection $defl is within limit 0.0005"
|
|
}
|
|
|
|
smallview +X+Y
|
|
fit
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
|