vb color = alloc (&_, T_STRUCT, xycolor, &xy_color),         
{
  get_pixel (&xy_color.color, image, &xy_color.point),
  {
    xycolor _ = {
                  point : {
                            x : cursor->x,
                            y : cursor->y
                          },
                  color : {
                            % : 0
                          }
                }
  }
};