12 lines
270 B
Text
12 lines
270 B
Text
include "NSLog.incl"
|
|
|
|
local fn MapRange( s as double, a1 as double, a2 as double, b1 as double, b2 as double ) as double
|
|
end fn = b1+(s-a1)*(b2-b1)/(a2-a1)
|
|
|
|
NSInteger i
|
|
|
|
for i = 0 to 10
|
|
NSLog( @"%2d maps to %5.1f", i, fn MapRange( i, 0, 10, -1, 0 ) )
|
|
next
|
|
|
|
HandleEvents
|