Here’s a demonstration with some more info:

https://michaelbach.de/ot/fcs-thompsonThatcher/