-- An image of the size specified by Width and Height. typeImage_Record(Width, Height : Positive) is abstracttaggedrecord
Zoom : Real;
Aspect_Ratio : Real; endrecord;
-- Access type for Image and all inherited types. typeImageis access all Image_Record;