Buggy dropframe lookup when using inexact rate

[tilmans]

Hi, thanks for publishing this, it saved me some time. I found an issue with the dropframe lookup though. The current code expects exact floats, in my case I'm calculating the FPS from a fraction "30000/1001". The result of this is not exact enough for the current code to work.

The code that works for me:

import Float.Extra as Float
...
isDropFrameRate : Float -> Bool
isDropFrameRate rate =
  [ 29.97
  , 59.94
  ]
      |> List.foldl (\r acc -> acc || Float.equalWithin 1.0e-3 r rate) False
...
Timecode frames (isDropFrameRate rate) rate