summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci18
1 files changed, 18 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci
new file mode 100644
index 00000000..63bc151f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci
@@ -0,0 +1,18 @@
+// 09.11.26
+
+function Putcirmark(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
+ Tmp1=Dt(I);
+ Str=Str+'\cirmark';
+ if I<N
+ Str=Str+'\hspace{3mm}';
+ end;
+ end;
+ Putcell(TbL,Nrg,Mrg,Pos,Str);
+endfunction;
+