summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.sci
blob: 11b02c6325714c8d78d757841561f83b0b3ec292 (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
31
32
33
34
35
36
37
38
39
function Mawarikomi(varargin)
  FL='default';
  haba='10cm';
  Nargs=length(varargin);
  if Nargs>0 
    haba=varargin(1);
    if Nargs>=2
      FL=varargin(2);
      if FL==''
        FL='tmp.tex'
      end
    end
  end
  StrM=[
        '\begin{mawarikomi}%',...
        '%<1>[5](0,0)%',...
        '{'+haba+'}{%',...
        '',...
        '}',...
        '',...
        '',...
        '\end{mawarikomi}'...
       ];
  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