vertex_format_begin();
vertex_format_add_position();

var format = vertex_format_end();
vbuff = vertex_create_buffer();
tex = sprite_get_texture(spr_test, 0);

var uv_left = 2;
var uv_top = 20;
var uv_right = 30;
var uv_bottom = 40;

var left = x;
var top = y;
var right = x + sprite_get_width(spr_test);
var bottom = y + sprite_get_height(spr_test);

vertex_begin(vbuff, format);

vertex_position(vbuff, left, top);
vertex_texcoord(vbuff, uv_left, uv_top);

vertex_position(vbuff, right, top);
vertex_texcoord(vbuff, uv_right, uv_top);

vertex_position(vbuff, left, bottom);
vertex_texcoord(vbuff, uv_left, uv_bottom);

vertex_position(vbuff, right, top);
vertex_texcoord(vbuff, uv_right, uv_top);

vertex_position(vbuff, right, bottom);
vertex_texcoord(vbuff, uv_right, uv_bottom);

vertex_position(vbuff, left, bottom);
vertex_texcoord(vbuff, uv_left, uv_bottom);

//////////////
//Vertex
//////////////
attribute vec3 in_Position;                  // (x,y,z)
varying vec2 pos;

void main()
{
    vec4 object_space_pos = vec4( in_Position.x, in_Position.y, in_Position.z, 1.0);
    gl_Position = gm_Matrices[MATRIX_WORLD_VIEW_PROJECTION] * object_space_pos;
    pos = in_Position.xy;
    
}
///////////////////////
//Fragment
//////////////////////
varying vec2 pos;

uniform vec2 u_pos;

void main()
{
   // gl_FragColor = v_vColour * texture2D( gm_BaseTexture, v_vTexcoord );
     vec2 dis = pos - u_pos;
    float str = 1./sqrt(dis.x*dis.x + dis.y*dis.y);
    gl_FragColor = vec4(vec3(str),1.);
}

u_pos = shader_get_uniform(shd_light,"u_pos");

var _u_pos = u_pos;
with(obj_light){
  shader_set(shd_light);
  shader_set_uniform_f(_u_pos,x,y)
  draw_rectangle(0,0,320,180,0);
  shader_reset();
}

Animation Anim-Head {
  
  { Head }

  AnimationKey {
   4;
   26;
   0;16;1.000000,0.000000,0.000000,0.000000,0.000000,0.906308,-0.422618,
0.000000,
0.000000,0.422618,0.906308,0.000000,0.000002,-4.104767,0.026448,1.000000;;,
   160;16;1.000000,-0.000000,0.000000,0.000000,0.000000,0.906308,-0.422618,0.000000,
-0.000000,0.422618,0.906308,0.000000,0.000002,-4.104767,0.026447,1.000000;;,
   
..........

arr = [0,2,0,4,0,0,0,0,0,4,5,6,7,0,9,1,2,0,7,8,0,0,0,0,0,0,0,0,0,0,5,0,7,0,0,0,0,0,7,8,9,0,2,0,4,0,0,0,2,3,4,0,6,7,3,0,0,0,0,0,0,0,0,6,0,0,0,1,2,0,0,5,0,0,0,0,4,0,6,0,0];