Commit | Line | Data |
---|---|---|
a87752f3 | 1 | puts "===========" |
2 | puts "OCC352" | |
3 | puts "===========" | |
4 | ||
5 | pload QAcommands | |
6 | ||
e837410d | 7 | NewDocument D BinOcaf |
a87752f3 | 8 | |
9 | NameBox D 0:1 100 100 100 | |
10 | box abox 100 100 100 | |
11 | ttranslate abox 100 0 50 | |
12 | NameImportShape D 0:2 abox | |
13 | ||
14 | NameGlue D 0:3 0:1 0:2 | |
15 | ||
16 | if [catch { CheckNaming D 0:4 1 Label 0:3 1 1 1 } res] { | |
17 | puts "OCC352: Error" | |
18 | } |