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