module Dodge.Tesla.Arc.Draw where

import Dodge.Data.TeslaArc
import Geometry
import Picture

drawTeslaArc :: TeslaArc -> Picture
drawTeslaArc pt =
    setLayer BloomNoZWrite $
        fold
            [ setDepth 20.5 $ color (brightX 2 1 $ _taColor pt) $ thickLine 3 ps
            , setDepth 20 $ color (V4 0 0 0 0.5) $ thickLine 10 ps
            ]
  where
    ps = _taPoints pt