/slc {
  /lineBlue exch def
  /lineGreen exch def
  /lineRed exch def
  /color 1 def
  lineBlue 1000 eq {lineGreen 1000 eq {lineRed 1000 eq {
     /lineBlue 0 def
     /lineGreen 0 def
     /lineRed 0 def
  } if} if} if
} def

/sfc {
  /fillBlue exch def
  /fillGreen exch def
  /fillRed exch def
  /color 1 def
  fillBlue 1000 eq {fillGreen 1000 eq {fillRed 1000 eq {
     /fillBlue 0 def
     /fillGreen 0 def
     /fillRed 0 def
   } if} if} if
} def