'          'DEFINE CLASS
'  
class rgbacolor
  red   as byte
  green as byte
  blue  as byte
  alpha as byte
  '
  method in(sys r, sys g, sys b, sys a)
    red=r : green=g : blue=b : alpha=a
  end method
  '
end class