setColor :: Style V3 Double -> Model3d -> Model3d
setColor sty m = case sty ^. _sc of
    Nothing -> m
    Just c -> O.color c m
setColor :: Style V3 Double -> Model3d -> Model3d
setColor sty m = case sty ^. _sc of
    Nothing -> m
    Just c -> O.color c m
setColor sty m = case sty ^. _sc of
    Nothing -> m
    Just c -> O.color c m