475
@verb #602:"glColor" this none this rxdo #55
@program #602:"glColor" this none this
{s, c, @color} = args
t = typeof(color[1])
l = length(color)
if (t == $FLOAT)
  red = this:float_to_bin(color[1])
  blue = this:float_to_bin(color[2])
  green = this:float_to_bin(color[3])
  alpha = l == 3 ? {} | this:float_to_bin(color[4])
  op = l == 3 ? 7 | 15
else
  red = {color[1] / 2 ^ 24 % 256, color[1] / 2 ^ 16 % 256, color[1] / 2 ^ 8 % 256, color[1] % 256}
  blue = {color[2] / 2 ^ 24 % 256, color[2] / 2 ^ 16 % 256, color[2] / 2 ^ 8 % 256, color[2] % 256}
  green = {color[3] / 2 ^ 24 % 256, color[3] / 2 ^ 16 % 256, color[3] / 2 ^ 8 % 256, color[3] % 256}
  alpha = l == 3 ? {} | {color[4] / 2 ^ 24 % 256, color[4] / 2 ^ 16 % 256, color[4] / 2 ^ 8 % 256, color[4] % 256}
  op = l == 3 ? 9 | 17
endif
this:send_glx_render_request(s, c, op, {@red, @blue, @green, @alpha})
"Last modified by manta (#7165) on Sat Apr 15 18:46:39 2000 EDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
"Last modified by Dax (#789) on Tue May  3 13:34:48 2005 MDT."
.

0