diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci | 84 |
1 files changed, 84 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci new file mode 100644 index 00000000..ff22a933 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci @@ -0,0 +1,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 |