[occt.git] / tests / blend / tolblend_simple / B2

#wedge b 4 10 10 0 5 0 5
#explode b f
#depouille s1 b 1 0 0 b_5 30  0 0 10 5 0 0
#copy s1 s2
#trotate s2 0 0 5 0 1 0 180
#explode s2 f
#explode s1 f
#glue s s1 s2 s1_1 s2_1
#trotate s 0 0 0 0 0 1 -25
#save s 5_I12.draw 

restore [locate_data_file 5_I12.draw]  s
tscale s 0 0 0 SCALE1 
explode s E
blend result s 0.15*SCALE1 s_11 0.3*SCALE1 s_12 0.3*SCALE1 s_2  0.15*SCALE1 s_3 0.25*SCALE1 s_9 0.3*SCALE1 s_10
explode result sh
tcopy result_1 sh 

set square 6107.12
Commit	Line	Data
40093367	1	#wedge b 4 10 10 0 5 0 5
	2	#explode b f
	3	#depouille s1 b 1 0 0 b_5 30 0 0 10 5 0 0
	4	#copy s1 s2
	5	#trotate s2 0 0 5 0 1 0 180
	6	#explode s2 f
	7	#explode s1 f
	8	#glue s s1 s2 s1_1 s2_1
	9	#trotate s 0 0 0 0 0 1 -25
	10	#save s 5_I12.draw
	11
8418c617	12	restore [locate_data_file 5_I12.draw] s
40093367	13	tscale s 0 0 0 SCALE1
	14	explode s E
	15	blend result s 0.15SCALE1 s_11 0.3SCALE1 s_12 0.3SCALE1 s_2 0.15SCALE1 s_3 0.25SCALE1 s_9 0.3SCALE1 s_10
	16	explode result sh
	17	tcopy result_1 sh
	18
	19	set square 6107.12