function GetSCurve(a,w)local j=math.max(CurveS(a)/(PeakCurveS/HP_S),0)*100 return j,((((j*(EQ/a))*_Tune.Ratios[w+2])*fFD)*hpScaling)*1000 end
--Plot Current Supercharger Horsepower
function GetSCurve(x, gear)
	local hp = (math.max(CurveS(x) / (PeakCurveS / HP_S), 0)) * 100
	return hp, ((hp * (EQ / x)) * _Tune.Ratios[gear + 2] * fFD * hpScaling) * 1000
end
