summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.sci
blob: 500ef7f99d47eb6539f4cd57b5a3b89369921806 (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='\special{pn '+string(PenThick)+'}%';
  if Wfile=='default'
    mprintf('%s\n',Str);
  else
    mfprintf(FID,'%s\n',Str);
  end
endfunction