I want to create a new subclass of the mesh3d S3 object class, and a corresponding method for rgl::shade3d. The new method will be closely modelled on the existing shade3d function but with different defaults. This is what I tried initially: