summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.sci
blob: 9b84831512cd6aac34eac819a80450bf545068df (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
40
41
// 
// 09,12.05
// 09.12.06
// 09.12.07
// 09.12.20

function Texcom(Meirei)
  global Wfile FID;
  if Meirei=='\thinlines'
    Setpen(1);
    return
  end
  if Meirei=='\thicklines'
    Setpen(2);
    return
  end
  if Meirei=='\Thicklines'
    Setpen(3);
    return
  end;

  if Meirei==''  // 09.12.07
    Tmp=[];
  else
    Tmp=mtlb_findstr(Meirei,'newline');
  end;
  if length(Tmp)>0
    if Wfile=='default'
      mprintf('%s\n','');
    else
      mfprintf(FID,'%s\n','');
    end;
    return;
  end;
  if Wfile=='default'
    mprintf('%s%s\n',Meirei,'%');
  else
    mfprintf(FID,'%s%s\n',Meirei,'%');
  end
endfunction