CUSIL義歯のADAコードの概要と使い方

概要

以下は、CUSIL義歯の属性を定義した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 is float range 0.0 .. 1.0;  -- ミリメートル

   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;

各要素の説明

• material – 陶器、金属、プラスチックのいずれか。
• teeth – フル（全歯）またはパーシャル（部分）義歯。
• color – 白、オフホワイト、黄色の色調。
• clasp_type – 内部、外部、プラスチック製のクラスプ。
• base_width – ベースの幅（0.0〜1.0 mm）。

このレコード型 cusil_denture を用いることで、義歯の構成情報を一つのオブジェクトとして管理できます。