mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
5200cc4aa3
Draw command 'proj' has been improved: - Add possibility to pass the starting point. If it is passed than the algorithm Extrema_GenLocateExtPS is used instead of standard projection. - Make the output of the command more clear. Test case bugs/moddata_3/bug28196 has been added.
15 lines
361 B
Plaintext
15 lines
361 B
Plaintext
puts "========"
|
|
puts "OCC27762"
|
|
puts "========"
|
|
puts ""
|
|
# This is the second script that tries to reproduce the source of the problem -
|
|
# impossibility to project a point on a torus with major radius == 0
|
|
|
|
torus s 0 10
|
|
set out [proj s 1 0 0]
|
|
if {[llength [lmatch $out ext_*]] != 4} {
|
|
puts "Error: projection failed"
|
|
} else {
|
|
puts "OK : projection passed"
|
|
}
|