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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
// 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 J<length(Iro) then
Str=Str+',';
end
end
Str=Str+'}';
end;
if Wfile=='default'
mprintf('%s\n',Str+'%');
else
mfprintf(FID,'%s\n',Str);
end;
end;
Mojisu=0; //
Tmp=varargin(1);
Data=Kyoukai(Tmp);
for I=1:length(Data)
PL=Op(I,Data);
for J=1:size(PL,1)
P=Doscaling(PL(J,:));
X=sprintf('%5.5f',P(1));
Y=sprintf('%5.5f',P(2));
Pt='('+X+','+Y+')';
if J==1 then
Str='\polygon*'+Pt;
else
Str=Pt;
end
if Wfile=='default'
mprintf('%s',Str);
else
mfprintf(FID,'%s',Str);
end
Mojisu=Mojisu+length(Str);
if Mojisu>80
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
|