Data

Tools

Indexes

Applications

Experiments

Awesome

An open API service indexing awesome lists of open source software.

https://github.com/glideangle/flare-timing

Scoring for free flight competitions.
https://github.com/glideangle/flare-timing

ghcjs gps haskell-application haversines igc kml reflex-frp servant shortest-path utm vincenty wgs84

Last synced: about 1 month ago
JSON representation

Scoring for free flight competitions.

Awesome Lists containing this project

README 

          
# Flare Timing



![stack](https://github.com/BlockScope/flare-timing/workflows/stack/badge.svg)

![cabal](https://github.com/BlockScope/flare-timing/workflows/cabal/badge.svg)

![pier](https://github.com/BlockScope/flare-timing/workflows/pier/badge.svg)

[![docs](https://readthedocs.org/projects/flare-timing/badge/?version=latest)](https://flare-timing.readthedocs.io/en/latest/?badge=latest)



> [!IMPORTANT]

> This project depends on `uom-plugin-0.3.0.0` that was constrained to use

> `ghc <= 8.2`. A new version, `uom-plugin-0.4.0.0`, has been released that

> works with `ghc >= 9` so this project could now be upgraded.



**Flare Timing** is a reference implementation of [GAP](lang-haskell/GAP.md)

scoring for cross country hang gliding and paragliding racing.



Its command line console apps, one for each step in scoring, write down their

workings along with their outputs. With these workings we can trace how

a pilot's score has been calculated. There's no visual competition editor. The

one file that defines a competition can be generated from an FS database, the

`*.fsdb` file. It includes a web app that can be hosted locally for visual

checks and comparisons with expected or official results. It is possible to

publish the data alongside this web app standalone as done at [flaretiming, the

web site](https://flaretiming.com).



## Installation



Download the source, build and install the command line apps with

[stack](https://docs.haskellstack.org) or with ghc and cabal that can be

installed with [ghcup](https://www.haskell.org/ghcup/):



```

> git clone https://github.com/BlockScope/flare-timing.git --recursive

> cd flare-timing/lang-haskell



# with stack

> stack install



# with cabal supplying options --installdir and --overwrite-policy

> cabal v2-install all:exes

```



There's more in the [building](lang-haskell/BUILDING.md) guide. There's a guide for

[testing](lang-haskell/TESTING.md) too.



## Usage



Let's get the inputs and outputs from FS, do the scoring and host the comp

locally.



Start by preparing the FS comp file, the `*.fsdb`. This will often contain

sensitive personal information such as birthdays, phone numbers and notes that

we'll want to avoid publishing. We'll also want some output data for making

comparisons between flare-timing and FS.



1. Clean out the sensitive pilot personal stuff we don't need with

[`fs-clean`](lang-haskell/flare-timing/prod-apps/fs-clean).  

2. Trim away data we don't need with

[`fs-trim`](lang-haskell/flare-timing/prod-apps/fs-trim).  

3. Grab the optimal route around the tasks found by FS with

[`fs-route`](lang-haskell/flare-timing/prod-apps/fs-route).  

4. Grab the arrival times and positions from FS with

[`fs-arrival`](lang-haskell/flare-timing/prod-apps/fs-arrival).  

5. Grab the landouts from FS with

[`fs-effort`](lang-haskell/flare-timing/prod-apps/fs-effort).  

6. Grab the scores from FS with

[`fs-score`](lang-haskell/flare-timing/prod-apps/fs-score).  



That's the `*.fsdb` file done with. From here on, flare-timing deals with the

trimmed XML, the `*.trim-fsdb.xml`. If we have the track logs we can score the

tasks:



1. Extract the inputs with

[`ft-extract-input`](lang-haskell/flare-timing/prod-apps/extract-input).  

2. Trace the shortest path to fly a task with

[`ft-task-length`](lang-haskell/flare-timing/prod-apps/task-length).  

3. Find flying times with

[`ft-fly-time`](lang-haskell/flare-timing/prod-apps/fly-time).  

4. Find pairs of fixes crossing over zones with

[`ft-cross-zone`](lang-haskell/flare-timing/prod-apps/cross-zone).  

5. Interpolate between crossing fixes for the time and place where a track tags

a zone with [`ft-tag-zone`](lang-haskell/flare-timing/prod-apps/tag-zone).  

6. Unpack the `*.igc` or `*.kml` tracklogs with

[`ft-unpack-track`](lang-haskell/flare-timing/prod-apps/unpack-track).  

7. Peg the timing window to a reference frame with

[`ft-peg-frame`](lang-haskell/flare-timing/prod-apps/peg-frame).  

8. Index fixes from the time of first crossing with

[`ft-align-time`](lang-haskell/flare-timing/prod-apps/align-time).  

9. Discard fixes that get further from goal and note leading area with

[`ft-discard-further`](lang-haskell/flare-timing/prod-apps/discard-further).  

10. Draw out leading areas 

[`ft-lead-area`](lang-haskell/flare-timing/prod-apps/lead-area).  

11. Mask a task over its tracklogs with the following, run in any order:

    * [`ft-mask-arrival`](lang-haskell/flare-timing/prod-apps/mask-arrival).  

    * [`ft-mask-bonus`](lang-haskell/flare-timing/prod-apps/mask-bonus).  

    * [`ft-mask-effort`](lang-haskell/flare-timing/prod-apps/mask-effort).  

    * [`ft-mask-lead`](lang-haskell/flare-timing/prod-apps/mask-lead).  

    * [`ft-mask-reach`](lang-haskell/flare-timing/prod-apps/mask-reach).  

12. Group and count land outs with

[`ft-land-out`](lang-haskell/flare-timing/prod-apps/land-out).  

13. Group and count far outs with

[`ft-far-out`](lang-haskell/flare-timing/prod-apps/far-out).  

14. Score the competition with [`ft-gap-point`](lang-haskell/flare-timing/prod-apps/gap-point).  



To get the backend server for hosting the comp data running locally:



Start the server with

[`ft-comp-serve`](lang-haskell/app-serve).  



To host the frontend web app for the comp locally:



1. Change directory:

    `> cd lang-haskell`

2. Open a try-reflex shell with:

    `> reflex-platform/try-reflex`

3. Build the frontend and start its webpack dev server with:

    `> ../stack-shake-build.sh view-start-ghcjs`

4. Open a browser at the hosted URL, usually http://localhost:9000/app.html.



Documentation is available online at

[flare-timing.readthedocs.io](http://flare-timing.readthedocs.io/) and there's

a [worked example](lang-haskell/EXAMPLE.md) too.



## What's Included



The GAP rules have changed over the years. Here are the features that

flare-timing includes or not.



* Scoring Method

    - [x] GAP

        - [ ] GAP2000

        - [ ] GAP2002

        - [ ] OzGAP2005

        - [ ] GAP2007

        - [ ] GAP2008

        - [x] GAP2011 tested with:    

            Forbes [2012](http://2012-forbes.flaretiming.com)

            , Forbes [2014](http://2014-forbes.flaretiming.com)

            , Forbes [2015](http://2015-forbes.flaretiming.com)            

        - [x] GAP2013 tested with:    

            Forbes [2017](http://2017-forbes.flaretiming.com)

        - [ ] GAP2014

        - [x] GAP2015 tested with:    

            Big Spring [2016](http://2016-big-spring.flaretiming.com)

            , Green Swamp [2016](http://2016-greenswamp.flaretiming.com)

            , Green Swamp Sport [2016](http://2016-greenswamp-sport.flaretiming.com)

            , Forbes [2016](http://2016-forbes.flaretiming.com)

            , Quest [2016](http://2016-quest.flaretiming.com)

        - [x] GAP2016 tested with:    

            Dalmatian [2018](http://2018-dalmatian.flaretiming.com)

            , Dalby [2017](http://2017-dalby.flaretiming.com)

            , Forbes [2018](http://2018-forbes.flaretiming.com)

            , Forbes [2019](http://2018-forbes.flaretiming.com)

        - [x] GAP2018 tested with:    

            Dalmatian [2019](http://2019-dalmatian.flaretiming.com)

            , Italy [2019](http://2019-italy.flaretiming.com)

        - [ ] GAP2020

    - [ ] PWC (GAP variant)

        - [ ] PWC2007

        - [ ] PWC2008

        - [ ] PWC2009

        - [ ] PWC2011

        - [ ] PWC2012

        - [ ] PWC2013

        - [ ] PWC2014

        - [ ] PWC2015

        - [ ] PWC2016

        - [ ] PWC2017

        - [ ] PWC2019

    - [ ] Linear distance

    - [ ] Time-based scoring (TBS)

* Earth Model

    - [x] FAI sphere

    - [x] WGS84 ellipsoid

* Distance Method

    - [x] Pythagorus on a UTM plane

    - [x] Haversines on the sphere

    - [x] Vincenty on the ellipsoid

    - [x] Andoyer on the ellipsoid

* Type of Task

    - [x] Race

    - [x] Elapsed time

    - [ ] Open distance (can be declared but not yet scored)

* Shape of Zone

    - [x] Cylinder

    - [ ] Inverted cone (can be defined but treated as a cylinder)

* Shape of Goal

    - [x] Circle

    - [x] Line

* Final Glide Decelerator

    - [ ] Conical end of speed section (CESS)

    - [ ] Arrival altitude time bonus (AATB)

* Source of Altitude

    - [x] GPS

    - [ ] Pressure (QNH)

* Validities

    - [x] Task (day quality)

    - [x] Launch

    - [x] Distance

    - [x] Time

    - [x] Stop

* Points

    - [x] Linear distance (reach)

    - [x] Distance difficulty (effort)

    - [x] Arrival position

    - [x] Arrival time

    - [x] Time (speed)

    - [x] Leading

    - [ ] Departure

* Leading Area as a Function of Time and Distance Tweaks

    - [x] Use distance; a = t * d

    - [x] Use distance squared; a = t * d^2

    - [ ] Use PWCA weighting; a = w(t, d)

* Parameter Tweaks

    - [ ] Day quality override

    - [ ] 1000 points for winner if no pilot made goal

    - [ ] 1000 points for winner before day quality applied

    - [x] Double leading points weight

    - [ ] Proportional leading points weight if no pilot made goal

    - [x] Adjustable stopped task bonus glide ratio (fixed at 4:1 for PG and 5:1 for HG)

* Special Cases

    - [x] End of the speed section but not goal

    - [x] Early start

    - [x] Stopped tasks

* Stopped Tasks

    - [x] Stopped task time as announcement minus score back

    - [ ] Requirements checking, goal or duration

    - [x] Score time window

    - [ ] Time points for pilots at or after the end of the speed section

    - [x] Distance points with altitude bonus

* Penalties

    - [x] Absolute

    - [x] Fractional

    - [x] Jump-the-gun factor

    - [x] Jump-the-gun maximum

    - [x] Made ESS but not goal

* Task Ranking

    - [x] Overall

    - [ ] Female

    - [ ] Country

* Competition Ranking

    - [ ] Overall

    - [ ] Female

    - [ ] Country

    - [ ] Ties

    - [ ] Fixed Total Validity



## License



```

Copyright © Phil de Joux 2017-2020

Copyright © Block Scope Limited 2017-2020

```



This software is subject to the terms of the Mozilla Public License, v2.0. If

a copy of the MPL was not distributed with this file, you can obtain one at

http://mozilla.org/MPL/2.0/.