mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
53a1447a00
Adding new and early removed for some reasons test cases Removing TODO ? Adding necessary TODO ? on corresponding platforms for OK and BAD cases
23 lines
541 B
Plaintext
23 lines
541 B
Plaintext
#wedge b 10 10 10 0 5 0 5
|
|
#explode b f
|
|
#depouille s1 b 1 0 0 b_5 15 0 0 10 5 0 0
|
|
#polyline p1 0 0 0 0 10 5 0 0 10 0 0 0
|
|
#mkplane p1 p1
|
|
#prism p p1 -5 0 0
|
|
#explode p f
|
|
#depouille s2 p 1 0 0 p_1 -15 0 0 10 5 0 0
|
|
#explode s2 f
|
|
#explode s1 f
|
|
#glue s s1 s2 s1_1 s2_4
|
|
#trotate s 0 0 0 0 0 1 -20
|
|
#save s 5_E12.draw
|
|
|
|
restore [locate_data_file CFI_5_e12fgj.rle] s
|
|
tscale s 0 0 0 SCALE1
|
|
explode s E
|
|
blend result s 0.5*SCALE1 s_2 0.5*SCALE1 s_3 0.5*SCALE1 s_10 0.5*SCALE1 s_12
|
|
explode result So
|
|
tcopy result_1 result
|
|
|
|
checkprops result -s 10755.6
|