summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci
blob: a17c9e95060cb781aa7bd0f6e30f98f6ea7cd2c8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
// 
// 09.02.27
// 14.03.05 MARKLEN

function Setmarklen(varargin)
  global MARKLEN MARKLENInit MARKLENNow;
  Nargs=length(varargin);
  if Nargs==0
    Tmp=MARKLEN/MARKLENInit;
    Tmp=round(Tmp*100)/100;
    disp(Tmp);
    return;
  end;
  Size=varargin(1);
  MARKLEN=MARKLENInit*Size;
  MARKLENNow=MARKLEN;
endfunction