From 8c3c49fd56de185396400a0e8a636ac03d8239ab Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 12 Feb 2018 14:52:54 +0900 Subject: update ketcindy --- .../ketlib/ketpic2escifiles6/Invdashline.sci | 29 ---------------------- 1 file changed, 29 deletions(-) delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci') diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci deleted file mode 100644 index bf6f976f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci +++ /dev/null @@ -1,29 +0,0 @@ -// 10.11.13 ( Flattenlist used -// 13.10.19 debugged - -function Invdashline(varargin) - global MilliIn; - Nargs=length(varargin); - Nall=Nargs; Sen=1 ; Gap=1; - Tmp=varargin(Nall); - if type(Tmp)==1 & length(Tmp)==1 & Tmp>0 // 2013.10.19 - Tmp1=varargin(Nall-1); - if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0 // 2013.10.19 - Sen=Tmp1; Gap=Tmp; - Nall=Nall-2; - else - Sen=Tmp; Gap=Sen; - Nall=Nall-1; - end - end - Sen=1000/2.54/MilliIn*Sen; - Gap=1000/2.54/MilliIn*Gap; - for N=1:Nall - Tmp=varargin(N); - Fdata=Flattenlist(Tmp); - for I=1:length(Fdata); - Figdata=Fdata(I); - Makehasen(Figdata,Sen,Gap,1); - end; - end; -endfunction -- cgit v1.2.3