%
% value=settagbrush(style)
%
% version 0.1 (1999-12-01)


function value=settagbrush(style)
  if (strcmp('bsSolid',style)==1)
    value=0;
  elseif (strcmp('bsClear',style)==1)
    value=1;
  elseif (strcmp('bsHorizontal',style)==1)
    value=2;
  elseif (strcmp('bsVertical',style)==1)
    value=3;
  elseif (strcmp('bsFDiagonal',style)==1)
    value=4;
  elseif (strcmp('bsBDiagonal',style)==1)
    value=5;
  elseif (strcmp('bsCross',style)==1)
    value=6;
  elseif (strcmp('bsDiagCross',style)==1)
    value=7;
  else
    error('bad brush style name');
    return;
  end