12 lines
270 B
Haskell
12 lines
270 B
Haskell
module Dodge.MagnetBuBu
|
|
where
|
|
import Dodge.Magnet
|
|
import Dodge.Data.Bullet
|
|
import Dodge.Data.Magnet
|
|
|
|
doMagnetBuBu :: Magnet -> Bullet -> Bullet
|
|
doMagnetBuBu mg = case _mgField mg of
|
|
MagnetBuId -> id
|
|
MagnetBuBuCurveAroundField x y -> curveAroundField x y mg
|
|
|