diff --git a/icon/material/apple.png b/icon/material/apple.png new file mode 100644 index 0000000..8d8f3dc Binary files /dev/null and b/icon/material/apple.png differ diff --git a/icon/material/banana.png b/icon/material/banana.png new file mode 100644 index 0000000..0f64034 Binary files /dev/null and b/icon/material/banana.png differ diff --git a/icon/material/cherry.png b/icon/material/cherry.png new file mode 100644 index 0000000..b792558 Binary files /dev/null and b/icon/material/cherry.png differ diff --git a/icon/material/lemon.png b/icon/material/lemon.png new file mode 100644 index 0000000..e4a1cff Binary files /dev/null and b/icon/material/lemon.png differ diff --git a/icon/material/orange.png b/icon/material/orange.png new file mode 100644 index 0000000..f1f32a0 Binary files /dev/null and b/icon/material/orange.png differ diff --git a/icon/material/peach.png b/icon/material/peach.png new file mode 100644 index 0000000..dd6da4d Binary files /dev/null and b/icon/material/peach.png differ diff --git a/icon/material/pear.png b/icon/material/pear.png new file mode 100644 index 0000000..ee2fc4e Binary files /dev/null and b/icon/material/pear.png differ diff --git a/icon/material/plum.png b/icon/material/plum.png new file mode 100644 index 0000000..456c5c1 Binary files /dev/null and b/icon/material/plum.png differ diff --git a/source/material.ads b/source/material.ads index 3532f75..7144f41 100644 --- a/source/material.ads +++ b/source/material.ads @@ -9,7 +9,11 @@ package material is ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ type enumeration is ( - sulphur, mercury, mint, cinnamon + sulphur, mercury, mint, cinnamon, apple, peach, + pear, banana, orange, plum, cherry, lemon, + potato, wheat, carrot, cucumber, onion, garlic, + eggplant, tomato, meat, fish_meat, skull, animal_skull, + bone, rib_cage, animal_skin, animal_fur ); ------------------------------------------------------------------------------------------ @@ -24,10 +28,34 @@ package material is count : constant natural := enumeration'pos (enumeration'last) + 1; trait : constant array (enumeration) of information := ( - sulphur => ("Sulphur ", 7), - mercury => ("Mercury ", 13), - mint => ("Mint ", 3), - cinnamon => ("Cinnamon ", 5) + sulphur => ("Sulphur ", 7), + mercury => ("Mercury ", 13), + mint => ("Mint ", 3), + cinnamon => ("Cinnamon ", 5), + apple => ("Apple ", 2) + peach => ("Peach ", 2), + pear => ("Pear ", 2), + banana => ("Banana ", 3), + orange => ("Orange ", 3), + plum => ("Plum ", 3), + cherry => ("Cherry ", 3), + lemon => ("Lemon ", 2), + potato => ("Potato ", 1), + wheat => ("Wheat ", 1), + carrot => ("Carrot ", 2), + cucumber => ("Cucumber ", 3), + onion => ("Onion ", 2), + garlic => ("Garlic ", 2), + eggplant => ("Eggplant ", 3), + tomato => ("Tomato ", 2), + meat => ("Meat ", 3), + fish_meat => ("Fish Meat ", 2), + skull => ("Skull ", 1), + animal_skull => ("Animal Skull ", 1), + bone => ("Bone ", 1), + rib_cage => ("Rib Cage ", 1), + animal_skin => ("Animal Skin ", 5), + animal_fur => ("Animal Fur ", 7) ); ------------------------------------------------------------------------------------------