summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci24
1 files changed, 0 insertions, 24 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci
deleted file mode 100644
index f2928103..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-//
-// 13.05.19 openfile error tackled
-// 13.11.01 Endpicture joined optionally
-// 13.11.05 debugged
-
-function Closefile(varargin)
- global Wfile FID;
- if length(varargin)>=1 then
- Pa=varargin(1);
- if type(Pa)==10 then
- if Pa=="1" then // 2013.11.05
- Endpicture(1)
- end;
- if Pa=="0" then
- Endpicture(0)
- end //
- end
- end
- if Wfile~='default' then
- mclose(FID);
- FID=[]; // 2013.05.19
- end
- Wfile='default';
-endfunction