{-# LANGUAGE ExplicitForAll    #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE PatternSynonyms   #-}

module Main where

import           Text.Printf

import           Calibration.CalUnits

spec = newCalSpec 7.481
  ManualWater    ManualReader
  -- VoltageCmd_0_10 X866VoltsIn
  CurrentCmd_4_20 NewX866MillisIn
  -- KhsNlCurrentCmd2_4_20 X866MillisIn

main :: IO ()
main = do
      printf "make DEFINES='-D ZeroFlowCurrent=%.0f -D DeadbandUlps=%.0f -D MaxUlps=%.0f -D ADC_VOLTAGE=%d -D TEST=1' && ./test | tee /tmp/test.xyz\n\n"
        (calCmdZeroUlps spec)
        (calCmdUlpSpan spec * 0.03)
        (calCmdUlpMax spec)
        (compileSensorNumber $ calCmd spec)
      -- print (splineParams khsNlData)
      -- writeF "/tmp/spline.xyz" id
      --   [spline khsNlData] [(0,0),(1,1)]
      putStr "plot \"cal.xyz\" with lines, \"pts.xyz\", \"test.xyz\" with lines\n\n"