type Painted_Point
  (Foo : Fooooooooooooooo := Foo_Bar;
   Baar : Baaaaaaaaaar;
   Baaaz : Baaaaaaaaaaaaaaz := Baz_Baz)
is abstract limited new Poooooooooooooiiiiiiiiiint1
  and Poooooooooooooooooiiiiint2
  and Point3
with record
   Paint_1 : Color := White;
   Paint_222 : Color_X := White;
end record;
