Adding test cases from grid chl
[occt.git] / tests / bugs / caf / bug350
1 puts "==========="
2 puts "OCC350"
3 puts "==========="
4
5 pload QAcommands
6
7 NewDocument D MDTV-Standard
8
9 vertex v1 0 0 -50
10 vertex v2 0 100 -50
11 vertex v3 100 0 -50
12 line l1 0 0 -50 0 1 0
13 line l2 0 100 -50 1 -1 0
14 line l3 100 0 -50 -1 0 0
15 mkedge e1 l1 v1 v2
16 mkedge e2 l2 v2 v3
17 mkedge e3 l3 v3 v1
18 wire w e1 e2 e3
19 plane pl 0 0 -50 0 0 1
20 mkface f pl w
21 NameImportShape D 0:1 f
22 NamePrism D 0:2 0:1 250 0 0 1
23 NameBox D 0:3 150 150 150
24 GetShape D 0:2 aPrism
25 GetShape D 0:3 aBox
26 NameCut D 0:4 aPrism aBox
27
28 if [catch { CheckNaming D 0:9 1 Label 0:4 1 1 1 } res] {
29   puts "OCC350: Error"
30 }
31