|
function ScaleTibetan(score, lf) # multiply p2, p3, p7 and p8 by lf for all lines in score
{
if ((lf == 1) || score[0] == 0) # nothing to do if no score or no scaling
return(score)
if (score[0] > 0) # score[0] is the number of lines in score
for (l=1; l<=score[0]; l++) # ... a loop going through all lines
{
p = SCgetallp(score[l]) # ... reads the parameter in line l
p[2] *= lf # ... scales p2
p[3] *= lf
p[7] *= lf
p[8] *= lf
score[l] = SCsetallp(p) # ... rewrite the line with the new parameters
}
return (score)
}
|
|