[occt.git] / tests / bugs / iges / bug23746

puts "============"
puts "OCC23746"
puts "============"
puts ""
#######################################################################
# IGES wheel model fails to load when OCCT unit is meters
#######################################################################

param write.iges.brep.mode Faces
dall

tpclear
newmodel
param xstep.cascade.unit MM
igesbrep [locate_data_file bug23746_wheel.igs] a *
checkshape a
tpclear
newmodel
set aFile1 ${imagedir}/bug23746_wheel-0.igs
file delete ${aFile1}
brepiges a ${aFile1}

tpclear
newmodel
param xstep.cascade.unit M
igesbrep [locate_data_file bug23746_wheel.igs] b *
checkshape b
tpclear
newmodel
set aFile2 ${imagedir}/bug23746_wheel-1.igs
file delete ${aFile2}
brepiges b ${aFile2}

tpclear
newmodel
param xstep.cascade.unit MM
igesbrep ${aFile1} a0 *
checkshape a0
tpclear
newmodel
set aFile3 ${imagedir}/bug23746_wheel-0-0.igs
file delete ${aFile3}
brepiges a0 ${aFile3}

tpclear
newmodel
param xstep.cascade.unit M
igesbrep ${aFile1} b0 *
checkshape b0
tpclear
newmodel
set aFile4 ${imagedir}/bug23746_wheel-0-1.igs
file delete ${aFile4}
brepiges b0 ${aFile4}

tpclear
newmodel
param xstep.cascade.unit MM
igesbrep ${aFile2} a1 *
checkshape a1
tpclear
newmodel
set aFile5 ${imagedir}/bug23746_wheel-1-0.igs
file delete ${aFile5}
brepiges a1 ${aFile5}

tpclear
newmodel
param xstep.cascade.unit M
igesbrep ${aFile2} b1 *
checkshape b1
tpclear
newmodel
set aFile6 ${imagedir}/bug23746_wheel-1-1.igs
file delete ${aFile6}
brepiges b1 ${aFile6}
Commit	Line	Data
fdabc211	1	puts "============"
	2	puts "OCC23746"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# IGES wheel model fails to load when OCCT unit is meters
	7	#######################################################################
	8
	9	param write.iges.brep.mode Faces
	10	dall
	11
	12	tpclear
	13	newmodel
	14	param xstep.cascade.unit MM
	15	igesbrep [locate_data_file bug23746_wheel.igs] a *
	16	checkshape a
	17	tpclear
	18	newmodel
	19	set aFile1 ${imagedir}/bug23746_wheel-0.igs
	20	file delete ${aFile1}
	21	brepiges a ${aFile1}
	22
	23	tpclear
	24	newmodel
	25	param xstep.cascade.unit M
	26	igesbrep [locate_data_file bug23746_wheel.igs] b *
	27	checkshape b
	28	tpclear
	29	newmodel
	30	set aFile2 ${imagedir}/bug23746_wheel-1.igs
	31	file delete ${aFile2}
	32	brepiges b ${aFile2}
	33
	34	tpclear
	35	newmodel
	36	param xstep.cascade.unit MM
	37	igesbrep ${aFile1} a0 *
	38	checkshape a0
	39	tpclear
	40	newmodel
	41	set aFile3 ${imagedir}/bug23746_wheel-0-0.igs
	42	file delete ${aFile3}
	43	brepiges a0 ${aFile3}
	44
	45	tpclear
	46	newmodel
	47	param xstep.cascade.unit M
	48	igesbrep ${aFile1} b0 *
	49	checkshape b0
	50	tpclear
	51	newmodel
	52	set aFile4 ${imagedir}/bug23746_wheel-0-1.igs
	53	file delete ${aFile4}
	54	brepiges b0 ${aFile4}
	55
	56	tpclear
	57	newmodel
	58	param xstep.cascade.unit MM
	59	igesbrep ${aFile2} a1 *
	60	checkshape a1
	61	tpclear
	62	newmodel
	63	set aFile5 ${imagedir}/bug23746_wheel-1-0.igs
	64	file delete ${aFile5}
65	brepiges a1 ${aFile5}
66
67	tpclear
68	newmodel
69	param xstep.cascade.unit M
70	igesbrep ${aFile2} b1 *
71	checkshape b1
72	tpclear
73	newmodel
74	set aFile6 ${imagedir}/bug23746_wheel-1-1.igs
75	file delete ${aFile6}
76	brepiges b1 ${aFile6}