Color components and fixed point numbers

[patkwee@web.de (Pat)]

Hi,

I would like to declare two records representing a RGB Color with two
different percisions. The Small one with color components from 0..255
and the Wide one with components from 0..65535. Could I use fixed
point numbers to hide the different precision: e.g.

type Small_Component is delta 1/255 range 0.0 .. 1.0
type Wide_Component is delta 1/65535 range 0.0 .. 1.0

type Small_RGB is record
  r,g,b:Small_Component
end record

type Wide_RGB is record
  r,g,b:Wide_Component
end record

Then later I could use something like this to convert between the
different precisions:

w : Wide_RGB
s : Small_RGB


w.r = Wide_Component(s.r);

I tried to implement this but suprisingly Wide_Component(
Small_Component(1.0)) < 1.0 ? Does somebody know a workaround?

Thanks, Pat