Conv-Color RGB-16 to range 0-1

From Vectorlab

Converts each RGB longint value to the range 0-1. Useful for NCS color conversion (if you ever need such an exotic thing). By My display name

{ Orso *********************************************** }
{ converts rgb in values between 0-1 }
PROCEDURE C_RGB_01(r, g, b: LONGINT; VAR r1, g1, b1: REAL);
    BEGIN
        r1 := r/65535;
        g1 := g/65535;
        b1 := b/65535;
    END;