summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.sci
blob: b3f0cbad4f66e39b89c0634dd9799bc12d95bdeb (plain)
1
2
3
4
5
6
7
8
9
10
11
function Setpen(Width)
  global Wfile FID PenThick PenThickInit;
  PenThick=round(PenThickInit*Width);
  Str='\linethickness{'+string(PenThick/1000)+'in}%';
  if Wfile=='default'
    mprintf('%s\n',Str);
  else
    mfprintf(FID,'%s\n',Str);
  end
endfunction