Vulkan/projects/utils/uvkuTypes.pas

unit uvkuTypes;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,
  Vulkan;

type
  TvkuFloatArr                        = array of VkFloat;
  TvkuUint32Arr                       = array of VkUint32;
  TvkuImageArr                        = array of VkImage;
  TvkuPhysicalDeviceArr               = array of VkPhysicalDevice;
  TvkuQueueFamilyPropertiesArr        = array of TVkQueueFamilyProperties;
  TvkuSparseImageFormatPropertiesArr  = array of TVkSparseImageFormatProperties;
  TvkuSurfaceFormatArr                = array of TVkSurfaceFormatKHR;
  TvkuPresentModeArr                  = array of TVkPresentModeKHR;
  TvkuDisplayPropertiesArr            = array of TVkDisplayPropertiesKHR;
  TvkuDisplayPlanePropertiesArr       = array of TVkDisplayPlanePropertiesKHR;
  TvkuDisplayArr                      = array of VkDisplayKHR;
  TvkuDisplayModePropertiesArr        = array of TVkDisplayModePropertiesKHR;
  TvkuCommandBufferArr                = array of VkCommandBuffer;
  TvkuAttachmentDescriptionArr        = array of TVkAttachmentDescription;
  TvkuSubpassDescriptionArr           = array of TVkSubpassDescription;
  TvkuSubpassDependencyArr            = array of TVkSubpassDependency;
  TvkuImageViewArr                    = array of VkImageView;

  TvkuApplicationInfo = packed record
    AppName:        String;
    AppVersion:     VkVersion;
    EngineName:     String;
    EngineVersion:  VkVersion;
    ApiVersion:     VkVersion;
  end;

  TvkuQueueCreateInfo = packed record
    Flags:        VkDeviceQueueCreateFlags;
    FamilyIndex:  VkUint32;
    Priorities:   TvkuFloatArr;
  end;
  TvkuQueueCreateInfoArr = array of TvkuQueueCreateInfo;

implementation

end.