0014673: Provide true support for Unicode symbols
[occt.git] / tests / bugs / demo / bug14673_2
1 puts "# ============================================================"
2 puts "# 0014673: Provide true support for Unicode symbols"
3 puts "# ============================================================"
4 puts ""
5 puts "# Check that different file open / save commands can deal with Unicode"
6
7 pload ALL
8
9 # Name means "Japanese"
10 set filePrefix "$imagedir/${casename}_日本語"
11
12 proc checkFile {filepath} {
13   if { [file exists $filepath] } {
14     puts "File $filepath is ceated, OK"
15   } else {
16     puts "Error: Could not find file $filepath"
17   }
18 }
19
20 puts "# OCAF documents"
21 NewDocument Xml XmlOcaf
22 SaveAs Xml ${filePrefix}.xml
23 checkFile ${filePrefix}.xml
24 Close Xml
25 Open ${filePrefix}.xml Xml
26
27 NewDocument Bin BinOcaf
28 SaveAs Bin ${filePrefix}.cbf
29 checkFile ${filePrefix}.cbf
30 Close Bin
31 Open ${filePrefix}.cbf Bin
32
33 puts "# STEP and IGES"
34 box b 10 10 10 
35 NewDocument XDE BinOcaf
36 XAddShape XDE b
37
38 WriteStep XDE ${filePrefix}.stp
39 checkFile ${filePrefix}.stp
40 ReadStep Step ${filePrefix}.stp
41
42 WriteIges XDE ${filePrefix}.igs
43 checkFile ${filePrefix}.igs
44 ReadIges Iges ${filePrefix}.igs