905be68549e6124f101b3f96292a4190386f8d6e
[scilab.git] / scilab / modules / graphics / tests / unit_tests / xlfont.tst
1 // =============================================================================\r
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
3 // Copyright (C) 2008 - DIGITEO - Allan CORNET\r
4 //\r
5 //  This file is distributed under the same license as the Scilab package.\r
6 // =============================================================================\r
7 \r
8 \r
9 // <-- TEST WITH GRAPHIC -->\r
10 \r
11 fonts = xlfont();\r
12 if size(fonts,'*') <> 11 then pause,end\r
13 \r
14 default_fonts = [ "Monospaced" , ..\r
15 "Symbol" , ..\r
16 "Serif" , ..\r
17 "Serif" , ..\r
18 "Serif" , ..\r
19 "Serif" , ..\r
20 "SansSerif" , ..\r
21 "SansSerif" , ..\r
22 "SansSerif" , ..\r
23 "SansSerif" , ..\r
24 "SansSerif" ];\r
25 \r
26 if ~MSDOS then \r
27 default_fonts = strsubst(default_fonts,'Symbol','OpenSymbol');\r
28 end\r
29 \r
30 if ( or(fonts <> default_fonts) ) then pause,end\r
31 \r
32 availablefonts = xlfont('AVAILABLE_FONTS');\r
33 if size(availablefonts,'*') < 11 then pause,end\r
34 \r
35 for i=0:size(fonts,'*')-1\r
36   xlfont(default_fonts(1),i);\r
37 end  \r
38 ref = emptystr(1:size(fonts,'*')) + default_fonts(1);\r
39 fonts = xlfont();\r
40 \r
41 if ( and(fonts <> default_fonts) ) then pause,end\r
42 \r
43 for i=0:size(fonts,'*')-1\r
44   xlfont(default_fonts(2),i,%t);\r
45 end  \r
46 ref = emptystr(1:size(fonts,'*')) + default_fonts(2);\r
47 fonts = xlfont();\r
48 \r
49 if ( and(fonts <> default_fonts) ) then pause,end\r
50 \r
51 for i=0:size(fonts,'*')-1\r
52   xlfont(default_fonts(2),i,%t,%t);\r
53 end  \r
54 ref = emptystr(1:size(fonts,'*')) + default_fonts(2);\r
55 fonts = xlfont();\r
56 \r
57 if ( and(fonts <> default_fonts) ) then pause,end\r
58 \r