[occt.git] / tests / bugs / modalg / bug60555_1

#INTERFACE IGES
puts "==========="
puts "BUC60555"
puts "CUT Case 1"
puts "==========="
#cpulim add aki 070704
cpulimit 1600
restore [locate_data_file buc60555a.brep] part 
puts [checkshape part]
restore [locate_data_file buc60555b.brep] trTool1
puts [checkshape trTool1]
halfspace hs1 trTool1 20000 10000 0
bcut cut1 part hs1

puts [checkshape cut1]

tcopy cut1 result

explode cut1 e
mkcurve cu1 cut1_1
mkcurve cu2 cut1_2
mkcurve cu3 cut1_3
mkcurve cu4 cut1_4

set tolerance [ maxtolerance cut1 ]

regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance

if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
    puts "Faulty :Tolerance of shape is more then 1.0"
} else {
    puts "Tolerance of shape is less then 1.0"
}

set square 4.60842e+07
set 2dviewer 0
Commit	Line	Data
0e94a94e	1	#INTERFACE IGES
	2	puts "==========="
	3	puts "BUC60555"
	4	puts "CUT Case 1"
	5	puts "==========="
	6	#cpulim add aki 070704
	7	cpulimit 1600
	8	restore [locate_data_file buc60555a.brep] part
	9	puts [checkshape part]
	10	restore [locate_data_file buc60555b.brep] trTool1
	11	puts [checkshape trTool1]
	12	halfspace hs1 trTool1 20000 10000 0
	13	bcut cut1 part hs1
	14
	15	puts [checkshape cut1]
	16
	17	tcopy cut1 result
	18
	19	explode cut1 e
	20	mkcurve cu1 cut1_1
	21	mkcurve cu2 cut1_2
	22	mkcurve cu3 cut1_3
	23	mkcurve cu4 cut1_4
	24
	25	set tolerance [ maxtolerance cut1 ]
	26
	27	regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
	28	regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
	29	regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
	30
	31	if { $MaxFaceTolerance > 1 \|\| $MaxEdgeTolerance > 1 \|\| $MaxVertexTolerance > 1 } {
	32	puts "Faulty :Tolerance of shape is more then 1.0"
	33	} else {
	34	puts "Tolerance of shape is less then 1.0"
	35	}
	36
	37	set square 4.60842e+07
	38	set 2dviewer 0