{ -*- buffer-read-only: t -*- }

{ Unit automatically generated by image_to_pas tool,
  to embed images in Pascal source code.
  @exclude (Exclude this unit from PasDoc documentation.) }
unit ToolEmbeddedImages;

interface

uses CastleImages;

var
  DefaultIcon: TRGBAlphaImage;

implementation

uses SysUtils;

{ Actual image data is included from another file, with a deliberately
  non-Pascal file extension ".image_data". This way ohloh.net will
  not recognize this source code as (uncommented) Pascal source code. }
{$I toolembeddedimages.image_data}

initialization
  DefaultIcon := TRGBAlphaImage.Create(DefaultIconWidth, DefaultIconHeight, DefaultIconDepth);
  Move(DefaultIconPixels, DefaultIcon.RawPixels^, SizeOf(DefaultIconPixels));
finalization
  FreeAndNil(DefaultIcon);
end.