diff options
author | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
commit | 8c3c49fd56de185396400a0e8a636ac03d8239ab (patch) | |
tree | adf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci | 93 |
1 files changed, 0 insertions, 93 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci deleted file mode 100644 index ec4fa716..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci +++ /dev/null @@ -1,93 +0,0 @@ -// -// 08.05.22 -// 09.12.25 -// 17.01.09 (available colorname or colorcode as 2nd arg) - -function Shade(varargin) - global Wfile FID MilliIn; - Nargs=length(varargin); - Iroflg=0; - Kosa=1; - if Nargs>1 - Iro=varargin(Nargs); - if type(Iro)==10 - Iroflg=1; - if length(strchr(Iro,"{"))>0 - Str="{\color"+Iro; - else - Str="{\color{"+Iro+"}"; - end; - else - if length(Iro)==1 - Kosa=Iro; - else - Iroflg=1; - if length(Iro)==4 - Str='{\color[cmyk]{'; - else - if length(Iro)==3 - Str='{\color[rgb]{'; - end; - end; - for J=1:length(Iro) - Str=Str+string(Iro(J)); - if J<length(Iro) - Str=Str+','; - end - end - Str=Str+'}'; - end; - end; - if Iroflg==1 - if Wfile=='default' - mprintf('%s\n',Str+'%'); - else - mfprintf(FID,'%s\n',Str+'%'); - end; - end; - end; - Tmp=varargin(1); - Data=Kyoukai(Tmp); - for I=1:length(Data) - PL=Op(I,Data); - Mojisu=0; - for J=1:size(PL,1) - P=Doscaling(PL(J,:)); - X=string(round(MilliIn*P(1))); - Y=string(-round(MilliIn*P(2))); - Str='\special{pa '+X+' '+Y+'}'; - 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 - Str1='\special{sh '+string(Kosa)+'}'; - Str2='\special{ip}%'; - if Wfile=='default' - mprintf('%s',Str1); - mprintf('%s\n',Str2); - else - mfprintf(FID,'%s',Str1); - mfprintf(FID,'%s\n',Str2); - end - end - if Iroflg==1 - Str='}%'; - Fmt='%s\n'; - if Wfile=='default' - mprintf(Fmt,Str); - else - mfprintf(FID,Fmt,Str); - end; - end; -endfunction |