From 8c3c49fd56de185396400a0e8a636ac03d8239ab Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 12 Feb 2018 14:52:54 +0900 Subject: update ketcindy --- .../ketcindy/ketlib/ketpicscifiles6/Drwline.sci | 71 ---------------------- 1 file changed, 71 deletions(-) delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci') diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci deleted file mode 100644 index 2ec407ec..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci +++ /dev/null @@ -1,71 +0,0 @@ -// 08.05.21 - -function Drwline(varargin) - global Wfile FID MilliIn PenThick PenThickInit; - Nall=length(varargin); - Thick=0; - Tmp=varargin(Nall); - if type(Tmp)==1 & length(Tmp)==1 - Thick=round(varargin(Nall)*PenThickInit); - Str='\special{pn '+string(Thick)+'}%'; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end - Nall=Nall-1; - end - for N=1:Nall - Tmp=varargin(N); - Pdata=Flattenlist(Tmp); - for II=1:length(Pdata) - Clist=MakeCurves(Op(II,Pdata)); - DinM=Dataindex(Clist); - for n=1:size(DinM,1) - Tmp=DinM(n,:); - Data=Clist(Tmp(1):Tmp(2),:); - Mojisu=0; - for I=1:size(Data,1) - Tmp=Data(I,:); - X=round(MilliIn*Tmp(1)); - X=string(X); - Y=-round(MilliIn*Tmp(2)); - Y=string(Y); - 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('%c\n','%'); - else - mfprintf(FID,'%c\n','%'); - end - Mojisu=0; - end - end - if Mojisu~=0 - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end; - if Wfile=='default' - mprintf('%s\n','\special{fp}%'); - else - mfprintf(FID,'%s\n','\special{fp}%'); - end - end - end - end; - Str='%'; - if Thick>0 - Tmp=PenThick/PenThickInit; // modified - Setpen(Tmp); - end -endfunction - -- cgit v1.2.3