summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci41
1 files changed, 0 insertions, 41 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci
deleted file mode 100644
index 9b848315..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-//
-// 09,12.05
-// 09.12.06
-// 09.12.07
-// 09.12.20
-
-function Texcom(Meirei)
- global Wfile FID;
- if Meirei=='\thinlines'
- Setpen(1);
- return
- end
- if Meirei=='\thicklines'
- Setpen(2);
- return
- end
- if Meirei=='\Thicklines'
- Setpen(3);
- return
- end;
-
- if Meirei=='' // 09.12.07
- Tmp=[];
- else
- Tmp=mtlb_findstr(Meirei,'newline');
- end;
- if length(Tmp)>0
- if Wfile=='default'
- mprintf('%s\n','');
- else
- mfprintf(FID,'%s\n','');
- end;
- return;
- end;
- if Wfile=='default'
- mprintf('%s%s\n',Meirei,'%');
- else
- mfprintf(FID,'%s%s\n',Meirei,'%');
- end
-endfunction
-