module Dodge.Particle.Draw where

import Dodge.Data.Laser
import Picture

drawTargetLaser :: Laser -> Picture
drawTargetLaser pt =
    setLayer BloomNoZWrite $
        pictures
            [ setDepth 19 . color (brightX 0 0.5 col) $ thickLine 5 (sp : ps)
            , setDepth 19.5 . color (brightX 5 1 col) $ thickLine 1 (sp : ps)
            ]
  where
    col = _lzColor pt
    (sp : ps) = _lzPoints pt