summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.sci41
1 files changed, 41 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.sci
new file mode 100755
index 00000000..9b848315
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.sci
@@ -0,0 +1,41 @@
+//
+// 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
+