a87752f3 |
1 | puts "===========" |
2 | puts "OCC351" |
3 | puts "===========" |
4 | |
5 | pload QAcommands |
6 | |
7 | NewDocument D MDTV-Standard |
8 | |
9 | NameBox D 0:1 100 100 100 |
10 | NamePrism D 0:2 0:1:1 200 -1 0 0 |
11 | |
12 | if [catch { CheckNaming D 0:3 1 Label 0:2 1 1 1 } res] { |
13 | puts "OCC351: Error" |
14 | } |
15 | |