5 lines
133 B
Text
5 lines
133 B
Text
to interpolate :s :a1 :a2 :b1 :b2
|
|
output (:s-:a1) / (:a2-:a1) * (:b2-:b1) + :b1
|
|
end
|
|
|
|
for [i 0 10] [print interpolate :i 0 10 -1 0]
|