Threads

component divider "Divide the 'clock' signal of the thread by some amount";
pin in bit enable=TRUE "enable divider";
pin out bit pulse=FALSE "pulse output";
param u32 divider=10000 "divider value";

variable u32 counter = 0;

function _;

license "GPL";
author "fma";

;;

FUNCTION(_)
{
    if (enable) {
        counter += 1;
        if counter == divider {
            pulse = TRUE;
            counter = 0;
        }
        else {
            pulse = FALSE;
        }
    }
}