diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci | 142 |
1 files changed, 0 insertions, 142 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci deleted file mode 100644 index 5df4a877..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci +++ /dev/null @@ -1,142 +0,0 @@ -// -// 08.05.31 -// 09.12.25 -// 10.01.01 -// 11.05.26 (for pdflatex) - -function Drwpt(varargin) - global Wfile FID TenSize TenSizeInit MilliIn; - Nargs=length(varargin); - All=Nargs; - Tmp=varargin(All); - Iro=[0,0,0,1]; - Iroflg=0; - if type(Tmp)==10 then - Iro=Ratiocmyk(Tmp); - Iroflg=1; - All=All-1; - end - Tmp=varargin(All); - Kosa=1; - if type(Tmp)==1 & length(Tmp)==1 - Kosa=Tmp; All=All-1; - end; - Ra=TenSize*1000/2.54/MilliIn; - if Iroflg>0 - Str='{\color[cmyk]{'; - for J=1:4 - Str=Str+string(Kosa*Iro(J)); - if J<4 then - Str=Str+','; - end - end - Str=Str+'}%'; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end - end; - Mojisu=0; - for II=1:All - Tmp=varargin(II); - MS=Flattenlist(Tmp); // 11.05.29 - for I=1:length(MS); - P=Op(I,MS); - if InWindow(P)~='i' - continue - end - P=Doscaling(P); - X=sprintf('%5.5f',P(1)); - Y=sprintf('%5.5f',P(2)); - Str='\put('+X+','+Y+'){\circle*{'+sprintf('%6.6f',Ra)+'}}'; - 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; - Str=""; - if Iroflg>0 - Str='}'; - end; - if Mojisu>0 - Fmt='\n%s\n'; - else - Fmt='%s\n'; - end; - if Wfile=='default' - mprintf(Fmt,Str); - else - mfprintf(FID,Fmt,Str); - end; - Mojisu=0; - if Iroflg>0 - Str='{\color[cmyk]{'; - for J=1:4 - Str=Str+string(Iro(J)); - if J<4 then - Str=Str+','; - end - end - Str=Str+'}%'; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end; - Mojisu=0; - end; - for II=1:All - Tmp=varargin(II); - MS=Flattenlist(Tmp); // 11.05.29 - for I=1:length(MS); - P=Op(I,MS); - if InWindow(P)~='i' - continue - end - P=Doscaling(P); - X=sprintf('%5.5f',P(1)); - Y=sprintf('%5.5f',P(2)); - Str='\put('+X+','+Y+'){\circle{'+sprintf('%6.6f',Ra)+'}}'; - 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 - Str="%"; - if Iroflg>0 - Str='}%'; - end; - if Mojisu>0 - Fmt='\n%s\n'; - else - Fmt='%s\n'; - end; - if Wfile=='default' - mprintf(Fmt,Str); - else - mfprintf(FID,Fmt,Str); - end; -endfunction |