%
% value=settagmode(mode)
%
% version 0.1 (1999-12-01)

function value=settagmode(mode)
  if (strcmp('pmBlack',mode)==1)
    value=0;
  elseif (strcmp('pmWhite',mode)==1)
    value=1;
  elseif (strcmp('pmNop',mode)==1)
    value=2;
  elseif (strcmp('pmNot',mode)==1)
    value=3;
  elseif (strcmp('pmCopy',mode)==1)
    value=4;
  elseif (strcmp('pmNotCopy',mode)==1)
    value=5;
  elseif (strcmp('pmMergePenNot',mode)==1)
    value=6;
  elseif (strcmp('pmMaskPenNot',mode)==1)
    value=7;
  elseif (strcmp('pmMergeNotPen',mode)==1)
    value=8;
  elseif (strcmp('pmMaskNotPen',mode)==1)
    value=9;
  elseif (strcmp('pmMerge',mode)==1)
    value=10;
  elseif (strcmp('pmNotMerge',mode)==1)
    value=11;
  elseif (strcmp('pmMask',mode)==1)
    value=12;
  elseif (strcmp('pmNotMask',mode)==1)
    value=13;
  elseif (strcmp('pmXor',mode)==1)
    value=14;
  elseif (strcmp('pmNotXor',mode)==1)
    value=15;
  else
    error('bad PenMode name');
    return;
  end