mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-07 18:30:55 +03:00
Modifications: 1.Test cases 2. locate_data_file from DrawResources/TestCommands.tcl Fix for mesh end Adjusting testing cases for current state of master using new organization of data files
20 lines
392 B
Plaintext
20 lines
392 B
Plaintext
#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 -20
|
|
#save s 8_G1.draw
|
|
|
|
restore [locate_data_file CFI_5_i12fgn.rle] s
|
|
tscale s 0 0 0 SCALE1
|
|
explode s E
|
|
blend result s 0.5*SCALE1 s_2
|
|
explode result So
|
|
tcopy result_1 result
|
|
|
|
set square 24551.4
|