// 08.05.22 // 09.12.25 // 11.05.27 (for pdflatex ) // 17.01.09 (shade, thickness ) function Shade(varargin) global Wfile FID MilliIn; // 2nd arg is a color name or '[..]{ }' Nargs=length(varargin); Iroflg=0; if Nargs>1 Iroflg=1; Iro=varargin(Nargs); if type(Iro)==10 then if length(strchr(Iro,"{"))>0 Str="{\color"+Iro; else Str="{\color{"+Iro+"}"; end; else if length(Iro)==4 Str='{\color[cmyk]{'; else Str='{\color[rgb]{'; end; for J=1:length(Iro) Str=Str+string(Iro(J)); if J80 if Wfile=='default' mprintf('%s\n','%'); else mfprintf(FID,'%s\n','%'); end Mojisu=0; end; end; end; if Iroflg==1 Str='}%'; if Mojisu>0 Fmt='\n%s\n'; else Fmt='%s\n'; end; if Wfile=='default' mprintf(Fmt,Str); else mfprintf(FID,Fmt,Str); end; end; endfunction