[occt.git] / tests / bugs / modalg_1 / buc60777


puts "========================"
puts "BUC60777"
puts "========================"

profile p x 30 y -10 x 10 y 10 x 10 y 30 t -30 -20 t -30 20 
mkoffset result p 1 -1
explode p w

regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full end
regexp {Mass +: +([-0-9.+eE]+)} [lprops p_1] full end1

if {  $end >=  $end1} {
    puts " Faulty Mkoffset operation was made  wrongly"
 }  else {
    puts " Mkoffset  operation was made successfully"
}

#  Lenth of "profile" : 203.733802110964

renamevar result_1 result

set length 191.044
set 2dviewer 0
Commit	Line	Data
a87752f3	1
	2	puts "========================"
	3	puts "BUC60777"
	4	puts "========================"
	5
	6	profile p x 30 y -10 x 10 y 10 x 10 y 30 t -30 -20 t -30 20
	7	mkoffset result p 1 -1
	8	explode p w
	9
	10	regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full end
	11	regexp {Mass +: +([-0-9.+eE]+)} [lprops p_1] full end1
	12
	13	if { $end >= $end1} {
	14	puts " Faulty Mkoffset operation was made wrongly"
	15	} else {
	16	puts " Mkoffset operation was made successfully"
	17	}
	18
	19	# Lenth of "profile" : 203.733802110964
	20
	21	renamevar result_1 result
	22
	23	set length 191.044
	24	set 2dviewer 0