Ada Code for Denture Design: Cusil Denture Structure

```ada

package cusil_denture is

type material is (ceramic, metal, plastic);

type teeth is (full, partial);

type color is (white, off_white, yellow);

type clasp_type is (internal, external, plastic);

subtype base_width range float := 0.0 .. 1.0; -- millimeters

type cusil_denture is record

material : material;

teeth : teeth := full;

color : color := off_white;

clasp_type : clasp_type := internal;

base_width : base_width := 1.0;

end record;

end cusil_denture;

```