summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.sci17
1 files changed, 17 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.sci
new file mode 100755
index 00000000..ce63e542
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.sci
@@ -0,0 +1,17 @@
+// 09.11.26
+
+function Putrecmark(TbL,Nrg,Mrg,Dt)
+ if type(Dt)==10
+ N=1; Pos=Dt; Str='';
+ else
+ N=length(Dt); Pos='l'; Str='\hspace*{2mm}';
+ end;
+ for I=1:N
+ Str=Str+'\recmark';
+ if I<N
+ Str=Str+'\hspace{3mm}';
+ end;
+ end;
+ Putcell(TbL,Nrg,Mrg,Pos,Str);
+endfunction;
+