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
|