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