UB_ColorRoutines

[shadowrecon]

So ive been working on some color routines, still in progress be here they are.

[scar]

{===============================================================================

RS2

UB Color Routines

--------------------------------------------------------------------------------

* Procedure: ColorsToRGB(Var ColorInfo: TColorInfoArray);

By: ShadowRecon.

* Procedure: RGBsToColors(Var ColorInfo: TColorInfoArray);

By: ShadowRecon.

* Procedure: ModRGBs(ModR, ModG, ModB: Integer; Var ColorInfo: TColorInfoArray);

By: ShadowRecon.

* Function: GetBMPColors(BMP, Remove: Integer; ClearSame: Boolean): TColorInfoArray;

By: ShadowRecon.

* Function: GetColorArrayInfo(C: array of Integer; var BestColors, Tolerances: TIntArray; var Speed2Mods: TExtendedArray; var rRGB: T2DIntArray; var rHSL, rXYZ: T2DExtendedArray): T3DExtendedArray;

By: Nava2, ShadowRecon.

* Function: GetBestColor(Colors: TIntegerArray; CTS: Integer; var Tol: Integer; var Speed2Modifiers: TExtendedArray): Integer;

By: Nava2, ShadowRecon.

* Function: CreateAutoColorInfo(Colors: TIntArray): TAutoColorInfo;

By: Nava2, ShadowRecon.

===============================================================================}

[/scar]

 

My goal with these was to have the ability to get colors while the script is running and be able to make a ACA generated record that you could then use with FindObjColorRecordEx which is a function i ported over for the use with ACA color records.