[occt.git] / tests / bugs / step / bug51

set os $env(os_type)

puts "================"
puts "OCC51"
puts "================"
puts ""

puts " write STEP and IGES file "
box b 12 34 56

######################################################################
catch {exec rm ${imagedir}/box.step}
catch {exec rm ${imagedir}/box.igs}

stepwrite a b ${imagedir}/box.step

brepiges b ${imagedir}/box.igs
####################################################
dall
puts " Read STEP  file "
stepread ${imagedir}/box.step a *

puts " Read IGES file "
igesbrep ${imagedir}/box.igs b *

compound a_1 b_1 result
checkshape result

set 2dviewer 0
Commit	Line	Data
075b21ec	1	set os $env(os_type)
075b21ec	2
0e94a94e	3	puts "================"
	4	puts "OCC51"
	5	puts "================"
	6	puts ""
	7
	8	puts " write STEP and IGES file "
	9	box b 12 34 56
	10
	11	######################################################################
	12	catch {exec rm ${imagedir}/box.step}
	13	catch {exec rm ${imagedir}/box.igs}
	14
	15	stepwrite a b ${imagedir}/box.step
	16
	17	brepiges b ${imagedir}/box.igs
	18	####################################################
	19	dall
	20	puts " Read STEP file "
	21	stepread ${imagedir}/box.step a *
	22
	23	puts " Read IGES file "
	24	igesbrep ${imagedir}/box.igs b *
	25
	26	compound a_1 b_1 result
352ffd73	27	checkshape result
0e94a94e	28
	29	set 2dviewer 0
	30