on note

    {Timing}
    $start_time := $ENGINE_UPTIME

    {Counters}
    $step_counter:=0
    $filter_counter:=0

    {Ignore first played note}
    if($step_sequencer=1)
        ignore_event($EVENT_ID)
    end if


    while($NOTE_HELD = 1)

        {Step Sequencer}

        if($step_sequencer=1 and (($ENGINE_UPTIME-$start_time) mod ($step_length/1000)) = 0)

            if(%steps[$step_counter] >= 1)
                play_note($EVENT_NOTE,%steps[$step_counter],0,$step_length/$step_divisor)
            end if

            $step_counter := $step_counter + 1

            if($step_counter >= $step_num_steps)
                $step_counter := 0
            end if

        end if

        {Filter Sequencer}

        if($filter_enable=1 and (($ENGINE_UPTIME-$start_time) mod ($filter_length/1000)) = 0)

            $count := 0
            while($count < $NUM_GROUPS)
                set_engine_par($ENGINE_PAR_CUTOFF,%filter_steps[$filter_counter],$count,4,-1)
                inc($count)
            end while

            $filter_counter:=$filter_counter+1

            if($filter_counter >= $filter_num_steps)
                $filter_counter:=0
            end if

        end if

    wait(1000)
    end while

end on