{-# LANGUAGE NoImplicitPrelude #-}

module Data.Aviation.C172.WB.C172MomentEnvelope(
  c172rNormalCategory
, c172sNormalCategory
, c172UtilityCategory
) where

import Prelude(Fractional)

c172rNormalCategory ::
  Fractional a =>
  [(a, a)]
c172rNormalCategory :: [(a, a)]
c172rNormalCategory =
  (a, a) -> [(a, a)]
forall a. Fractional a => (a, a) -> [(a, a)]
c172NormalCategory
    (a
98, a
2450)

c172sNormalCategory ::
  Fractional a =>
  [(a, a)]
c172sNormalCategory :: [(a, a)]
c172sNormalCategory =
  (a, a) -> [(a, a)]
forall a. Fractional a => (a, a) -> [(a, a)]
c172NormalCategory
    (a
120.5, a
2550)

c172UtilityCategory ::
  Fractional a =>
  [(a, a)]
c172UtilityCategory :: [(a, a)]
c172UtilityCategory =
  [
    (a
61, a
1500)
  , (a
89, a
2200)
  , (a
82.5, a
2200)
  , (a
68, a
1950)
  , (a
52.5, a
1500)
  ]
  
-- not exported


c172NormalCategory ::
  Fractional a =>
  (a, a)
  -> [(a, a)]
c172NormalCategory :: (a, a) -> [(a, a)]
c172NormalCategory (a, a)
x =
  [
      (a, a)
x
    , (a
71, a
1500)
    , (a
61, a
1500)
    , (a
89, a
2200)
    , (a
82.5, a
2200)
    , (a
104.5, a
2550)
  ]