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