module Dodge.Laser.Draw where

import Dodge.Data.Laser
import Picture

drawLaser :: Laser -> Picture
drawLaser pt =
    setLayer BloomNoZWrite $
        pictures
            [ setDepth 19.5 . color (brightX 10 1 col) $ thickLine 3 ps
            ]
  where
    col = _lzColor pt
    ps = _lzPoints pt