Commit | Line | Data |
---|---|---|
a87752f3 | 1 | puts "=================" |
2 | puts "OCC381" | |
3 | puts "=================" | |
4 | puts "" | |
5 | ||
6 | pload QAcommands | |
7 | ||
8 | NewDocument D MDTV-Standard | |
9 | ||
10 | ###################################################### | |
74f764ba | 11 | catch { SaveAs D ${imagedir}/OCC381_1.std } |
a87752f3 | 12 | |
13 | if { [catch { OCC381_Save D } ] } { | |
e54706ed | 14 | puts "OCC381: Error" |
a87752f3 | 15 | } else { |
74f764ba | 16 | catch { exec chmod 777 ${imagedir}/OCC381_1.std } |
17 | file delete -force ${imagedir}/OCC381_1.std | |
a87752f3 | 18 | } |