[occt.git] / tests / bugs / modalg_6 / bug27762_2

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 $out] != 4} {
  puts "Error: projection failed"
} else {
  puts "OK : projection passed"
}
Commit	Line	Data
5a0fc7ce	1	puts "========"
	2	puts "OCC27762"
	3	puts "========"
	4	puts ""
	5	# This is the second script that tries to reproduce the source of the problem -
	6	# impossibility to project a point on a torus with major radius == 0
	7
	8	torus s 0 10
	9	set out [proj s 1 0 0]
	10	if {[llength $out] != 4} {
	11	puts "Error: projection failed"
	12	} else {
	13	puts "OK : projection passed"
	14	}