- // Loop through all pawns of the current color and score each pawn
- while (pawns)
- {
- bool passed, doubled, isolated, backward, chain, candidate;
- Square s = pop_1st_bit(&pawns);
- File f = square_file(s);
- Rank r = square_rank(s);
-
- assert(pos.piece_on(s) == pawn_of_color(us));
-
- // The file containing the pawn is not half open
- pi->halfOpenFiles[us] &= ~(1 << f);
-
- // Passed, isolated or doubled pawn?
- passed = pos.pawn_is_passed(us, s);
- isolated = pos.pawn_is_isolated(us, s);
- doubled = pos.pawn_is_doubled(us, s);
-
- // We calculate kingside and queenside pawn storm scores
- // for both colors. These are used when evaluating middle
- // game positions with opposite side castling.
- //
- // Each pawn is given a base score given by a piece square table
- // (KStormTable[] or QStormTable[]). This score is increased if
- // there are enemy pawns on adjacent files in front of the pawn.
- // This is because we want to be able to open files against the
- // enemy king, and to avoid blocking the pawn structure (e.g. white
- // pawns on h6, g5, black pawns on h7, g6, f7).
-
- // Kingside and queenside pawn storms
- int KBonus = KStormTable[relative_square(us, s)];
- int QBonus = QStormTable[relative_square(us, s)];
- bool outPostFlag = (KBonus > 0 && (outpost_mask(us, s) & theirPawns));
- bool passedFlag = (QBonus > 0 && (passed_pawn_mask(us, s) & theirPawns));
-
- switch (f) {
-
- case FILE_A:
- QBonus += passedFlag * QBonus / 2;
- break;
-
- case FILE_B:
- QBonus += passedFlag * (QBonus / 2 + QBonus / 4);
- break;
-
- case FILE_C:
- QBonus += passedFlag * QBonus / 2;
- break;
-
- case FILE_F:
- KBonus += outPostFlag * KBonus / 4;
- break;
-
- case FILE_G:
- KBonus += outPostFlag * (KBonus / 2 + KBonus / 4);
- break;
-
- case FILE_H:
- KBonus += outPostFlag * KBonus / 2;
- break;
-
- default:
- break;
- }
- pi->ksStormValue[us] += KBonus;
- pi->qsStormValue[us] += QBonus;
-
- // Member of a pawn chain (but not the backward one)? We could speed up
- // the test a little by introducing an array of masks indexed by color
- // and square for doing the test, but because everything is hashed,
- // it probably won't make any noticable difference.
- chain = ourPawns
- & neighboring_files_bb(f)
- & (rank_bb(r) | rank_bb(r - (us == WHITE ? 1 : -1)));
-
- // Test for backward pawn
- //
- // If the pawn is passed, isolated, or member of a pawn chain
- // it cannot be backward. If can capture an enemy pawn or if
- // there are friendly pawns behind on neighboring files it cannot
- // be backward either.
- if ( passed
- || isolated
- || chain
- || (pos.pawn_attacks(us, s) & theirPawns)
- || (ourPawns & behind_bb(us, r) & neighboring_files_bb(f)))
- backward = false;
- else
- {
- // We now know that there are no friendly pawns beside or behind this
- // pawn on neighboring files. We now check whether the pawn is
- // backward by looking in the forward direction on the neighboring
- // files, and seeing whether we meet a friendly or an enemy pawn first.
- Bitboard b;
- if (us == WHITE)
- {
- for (b = pos.pawn_attacks(us, s); !(b & (ourPawns | theirPawns)); b <<= 8);
- backward = (b | (b << 8)) & theirPawns;
- }
- else
- {
- for (b = pos.pawn_attacks(us, s); !(b & (ourPawns | theirPawns)); b >>= 8);
- backward = (b | (b >> 8)) & theirPawns;
- }
- }