0023087: Upgrade of the OCCT test system
[occt.git] / tests / blend / simple / S7
1 #box b -15 -15 -30 30 30 30
2 #psphere s 13 0 90 
3 #fuse f1 s b
4 #pcylinder c 8 25
5 #trotate c 0 0 0 1 0 0 90
6 #ttranslate c 0 0 -10
7 #fuse s f1 c
8 #save s 6_C56.draw
9
10 restore 6_C56.draw s
11 tscale s 0 0 0 SCALE2
12 explode s E
13 blend result s 3*SCALE2 s_3
14
15 set square 6392.3