Considérant en fait et en droit:
1. La partie qui saisit le Tribunal fédéral doit avancer les frais présumés de la procédure (<ref-law>). Si elle ne verse pas l'avance requise dans le délai supplémentaire qui lui est fixé à cet effet après un premier non paiement, son recours est irrecevable (<ref-law>).
En l'espèce, X._ a déposé un recours dirigé contre un arrêt de la Cour de cassation pénale du Tribunal cantonal du canton de Vaud du 31 août 2009. Invité une première fois à verser une avance de frais de 2'000 fr., il ne s'est pas exécuté.
Par ordonnance du 13 janvier 2010, le président de la cour de céans lui a imparti, pour ce faire, un délai supplémentaire au 2 février 2010, avec l'indication qu'à défaut de paiement en temps utile, le recours serait irrecevable. X._ ne s'est toujours pas exécuté. Son recours, manifestement irrecevable, doit dès lors être écarté en application de l'<ref-law>.
2. Le recourant, qui succombe, supportera les frais de justice (<ref-law>), réduits à 500 francs.


Par ces motifs, le Président prononce:
1. Le recours est déclaré irrecevable.
2. Les frais judiciaires, arrêtés à 500 fr., sont mis à la charge du recourant.
3. Le présent arrêt est communiqué aux parties et au Tribunal cantonal du canton de Vaud, Cour de cassation pénale.
Lausanne, le 22 février 2010
Au nom de la Cour de droit pénal
du Tribunal fédéral suisse
Le Président: Le Greffier:
Favre Oulevey