puts "===========" puts "OCC350" puts "===========" pload QAcommands NewDocument D MDTV-Standard vertex v1 0 0 -50 vertex v2 0 100 -50 vertex v3 100 0 -50 line l1 0 0 -50 0 1 0 line l2 0 100 -50 1 -1 0 line l3 100 0 -50 -1 0 0 mkedge e1 l1 v1 v2 mkedge e2 l2 v2 v3 mkedge e3 l3 v3 v1 wire w e1 e2 e3 plane pl 0 0 -50 0 0 1 mkface f pl w NameImportShape D 0:1 f NamePrism D 0:2 0:1 250 0 0 1 NameBox D 0:3 150 150 150 GetShape D 0:2 aPrism GetShape D 0:3 aBox NameCut D 0:4 aPrism aBox if [catch { CheckNaming D 0:9 1 Label 0:4 1 1 1 } res] { puts "OCC350: Error" }