blob: 51b8e0c3807a99788c2de121c30a8507660353d4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
// 11.05.28
// 11.08.24
// 15.05.03
function Setcolor(varargin)
global Wfile FID;
Nargs=length(varargin);
Color='black';
Kosa=1;
Color=varargin(1);
if length(varargin)>1
Kosa=varargin(2);
end;
Iro=Ratiocmyk(Color);
if type(Iro)==10
Str='\color{'+Iro+"}%";
else
if size(Iro,2)>3
Str='\color[cmyk]{';
else
Str='\color[rgb]{';
end;
for J=1:size(Iro,2)
Str=Str+string(Kosa*Iro(J));
if J<size(Iro,2)
Str=Str+',';
end;
end;
Str=Str+'}%';
end;
if Wfile=='default'
mprintf('%s\n',Str);
else
mfprintf(FID,'%s\n',Str);
end
endfunction
|