summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.sci')
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.sci23
1 files changed, 23 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.sci
new file mode 100644
index 00000000..b06ac44b
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.sci
@@ -0,0 +1,23 @@
+// 15.05.04
+
+function Definecolor(Name,Data)
+ Tmp1=size(Data,2);
+ if Tmp1<3 | Tmp1>4
+ disp("Size of data should be 3 or 4.");
+ return;
+ end;
+ if Tmp1==4
+ Tp="cmyk"
+ else
+ Tp="rgb"
+ end;
+ Tmp="";
+ for J=1:Tmp1
+ Tmp=Tmp+string(Data(J));
+ if J<Tmp1
+ Tmp=Tmp+",";
+ end;
+ end
+ Tmp="\definecolor{"+Name+"}{"+Tp+"}{"+Tmp+"}";
+ Texcom(Tmp);
+endfunction;