16 lines
382 B
Haskell
16 lines
382 B
Haskell
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
|