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
|