6 lines
133 B
Text
6 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]
|