[occt.git] / tests / bugs / moddata_2 / bug49_1


puts "========"
puts "OCC49"
puts "========"

pload QAcommands

pcylinder c 10 20

set result [OCC49 c]

if {$result == 1} {
   puts "OCC49: OK"
} else {
   puts "Error : OCC49"
}

set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "========"
	3	puts "OCC49"
	4	puts "========"
	5
	6	pload QAcommands
	7
	8	pcylinder c 10 20
	9
	10	set result [OCC49 c]
	11
	12	if {$result == 1} {
	13	puts "OCC49: OK"
	14	} else {
	15	puts "Error : OCC49"
	16	}
	17
	18	set 2dviewer 0