'convert the rmt() data to display data rmd()
 gain=76/(rmsmin-rmsmax)
 Math add rmt(),-rmsmax,rmd()  'rmd is also a double buffer
 Math scale rmd(),gain,rmd()
 Math add rmd(),161,rmd()      'put the data in the window

'
OPTION EXPLICIT
;    This library is free software; you can redistribute it and/or
;    modify it under the terms of the GNU Lesser General Public
;    License as published by the Free Software Foundation; either
;    version 2.1 of the License, or (at your option) any later version.

;    This library is distributed in the hope that it will be useful,
;    but WITHOUT ANY WARRANTY; without even the implied warranty of
;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;    Lesser General Public License for more details.

;    You should have received a copy of the GNU Lesser General Public
;    License along with this library; if not, write to the Free Software
;    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

;********************************************************************************
;    IMPORTANT:
;    THIS FILE IS ESSENTIAL FOR SOME OF THE COMMANDS IN GCBASIC. DO NOT ALTER THIS FILE
;    UNLESS YOU KNOW WHAT YOU ARE DOING. CHANGING THIS FILE COULD RENDER SOME GCBASIC
;    COMMANDS UNUSABLE!
;********************************************************************************
;    18.02.2018    Initial release to the world.


; Re-Scales a number from one range to another. That is, a value of fromLow would get Scaled to toLow, a value of fromHigh to toHigh, values in-between to values in-between, etc.
; Does not constrain values to within the range, because out-of-range values are sometimes intended and useful. The constrain() function may be used either before or after this function, if limits to the ranges are desired.
; Note that the "lower bounds" of either range may be larger or smaller than the "upper bounds" so the Scale() function may be used to reverse a range of numbers, for example
;       myvalue = Scale( InValue , 1, 50, 50, 1)
;
; The function also handles negative numbers well, so that this example
;      myvalue = Scale( inValue, 1, 1023, 50, -100) is also valid and works well.
;
; The Scale() function uses integer maths.


function scale ( in l_map as word, in l_fromLow as integer, in l_fromHigh as integer, in l_toLow as integer, in l_toHigh  as integer) as integer

 dim l_syscalc as integer
 dim l_syscalcF as long
 l_syscalcf = 0
 repeat (l_toHigh   - l_toLow)
     l_syscalcf = l_syscalcf + ( l_map - l_fromLow )
 end Repeat
 l_syscalc = (  l_fromHigh - l_fromLow )
 scale = (l_syscalcf / l_syscalc) + l_toLow

end function

option explicit
dim integer l_syscalc,l_syscalcf,l_fromHigh,l_fromLow,scale,l_toHigh,l_toLow,lim1,l_map

l_fromLow=0:l_fromHigh=100:l_toLow=0:l_toHigh=255 ' 0 to 100 scaled 0 to 255
l_map=100 ' value to scale
 'the scale code
 l_syscalcf = 0
 lim1=l_toHigh - l_toLow
 do while lim1>0
l_syscalcf = l_syscalcf + ( l_map - l_fromLow )
   lim1=lim1-1
 loop
 l_syscalc = (  l_fromHigh - l_fromLow )
 scale = (l_syscalcf / l_syscalc) + l_toLow
 
 cls
 text 0,0,str$(scale) ' lcd display

option explicit
dim integer l_syscalc,l_syscalcf,l_fromHigh,l_fromLow,scval,l_toHigh,l_toLow,lim1,l_map,sc

l_fromLow=0:l_fromHigh=100:l_toLow=0:l_toHigh=1024
do
cls
for l_map=0 to 100
 scale
 text 0,0,str$(l_map)
 text 48,0,str$(scval) ' lcd display
 pause 100
next
pause 1000
loop

sub scale
 'the scale code
 l_syscalcf = 0
 lim1=l_toHigh - l_toLow
 do while lim1>0
l_syscalcf = l_syscalcf + ( l_map - l_fromLow )
   lim1=lim1-1
 loop
 l_syscalc = (  l_fromHigh - l_fromLow )
 scval = (l_syscalcf / l_syscalc) + l_toLow
end sub
 cls
 text 0,0,str$(scval) ' lcd display