anchor.diff:                DrawOnePolygon(Canvas, Bnd, Color, I, Print);
               end;
           end;
  -        Color := C[I] or PalRelative;
           Bnd[0] := PM[I];
           Bnd[1] := PM[(I + 1) mod 4];
           Bnd[2] := PI[(I + 1) mod 4];
  
positive.code:       end
        else if S[I] in [bssRidge, bssGroove] then
        begin {ridge or groove}
          Color := C[I] or PalRelative;
          Bnd[0] := PO[I];
          Bnd[1] := PO[(I + 1) mod 4];
          Bnd[2] := PM[(I + 1) mod 4];
  
negative.code:       Red := Color and $FF;
        Green := (Color and $FF00) shr 8;
        Blue := (Color and $FF0000) shr 16;
        Result := RGB(Min(255, Round(F * Red)), Min(255, Round(F * Green)), Min(255, Round(F * Blue)));
      end;
    end;
  