#!/usr/bin/env instantfpc

{ Convert color in hexadecimal notation to Pascal. }

uses SysUtils, CastleVectors, CastleParameters, CastleColors;

var
  ColorStr: String;
  Color: TVector4;
begin
  Parameters.CheckHigh(1);
  ColorStr := Parameters[1];
  Color := HexToColor(ColorStr);
  Writeln(Format('Color: TCastleColor = (Data: (%f, %f, %f, %f)); // hex: %s', [
    Color[0],
    Color[1],
    Color[2],
    Color[3],
    ColorStr
  ]));
end.
