Melody Mine now has Lua scripting...

Here's a short Lua script that truncates notes in a pattern in my MIDI editor, Melody Mine.

function TruncateDuration(duration)

local i, index, note, dur
local pattern = GetCurrentPattern()
local count = GetNoteCount(pattern)

for i = 0, count - 1 do
note = GetNote(pattern, i)
dur = GetNoteDuration(note)
if dur > duration then
dur = duration
end
SetNoteDuration(note, dur)
end
end

TruncateDuration(24)