summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci
blob: a07a89d1e73336b1a9d091035ae8e93c169ed72b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
function Kyorihensuu(varargin)
  if length(varargin)==0
    FL='default';
  else
    FL=varargin(1);
    if FL==''
      FL='tmp.tex'
    end   
  end
  StrM=[...
    '\newlength{\Width}%',...
    '\newlength{\Height}%',...
    '\newlength{\Depth}%'...
    ];
  if FL~='default'
    Fid=mopen(FL,'w');
    mprintf('%s\n\n','Writing to '+FL);
  end;
  for I=1:size(StrM,2)
    Str=StrM(I);
    mprintf('%s\n',Str);
    if FL~='default'
      mfprintf(Fid,'%s\n',Str);
    end
  end
  if FL~='default'
    mclose(Fid)
  end
endfunction