//
// some small helpers
//
// written by olaf.matthes@gmx.de
//
// scale an input f that goes from il to ih to go from ol to oh
__inline long scl(long f, long il, long ih, long ol, long oh)
{
long or = abs(oh-ol);
long ir = abs(ih-il);
float ratio = or/ir;
long steps = f-il;
return(steps*ratio+ol);
}