summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci
blob: b06ac44b1c3b8a20f5226b4b6e30e950269dc115 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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;