5ecd3b91548e856b747169e671d1b24354be715a
[scilab.git] / scilab / modules / graphics / macros / colordef.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA
3 // This file must be used under the terms of the CeCILL.
4 // This source file is licensed as described in the file COPYING, which
5 // you should have received as part of this distribution.  The terms
6 // are also available at    
7 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
8
9 function colordef(a1,a2)
10   if type(a1)==9 then //a handle
11     f=gcf();a=gca();a1=a2
12     if f.type<>'Figure' then 
13       error('First argument shoud be a handle on a figure'),
14     end
15   elseif a1=='new' then
16     n=winsid();if n==[] then n=0;else n=max(n+1),end
17     f=scf(n)
18     a=gca();a1=a2
19   else
20     f=gdf();a=gda();
21   end
22   
23   if type(a1)<>10 then  error(44,1),  end
24
25   select convstr(a1)
26   case 'white'
27     f.color_map=[jetcolormap(64);[1 1 1]*0.8];
28     f.background=65;f.foreground=-1;
29     a.background=-2;a.foreground=-1;
30     a.font_color=a.foreground;
31     a.mark_foreground=a.foreground;
32   case 'black'
33     if MSDOS then c=0.2, else c=0.35,end
34     f.color_map=[jetcolormap(64);[1 1 1]*c];
35     f.background=65;f.foreground=-2;
36     a.background=-1;a.foreground=-2;
37     a.font_color=a.foreground;
38     a.mark_foreground=a.foreground;
39   case 'none'
40     f.color_map=[hsvcolormap(64)];
41     f.background=-1;f.foreground=-2;
42     a.background=-1;a.foreground=-2;
43     a.font_color=a.foreground;
44     a.mark_foreground=a.foreground;
45   else
46     error('Unknown color default option '+a1)
47   end
48 endfunction