Cherche moteur lumière et ombre avec cycle jour / nuit

// MUST HAVE: Create a surface for drawing all the lights
sur = surface_create(view_wview, view_hview);

m = instance_create(0, 0, obj_lightlow);
with (m) {
  light_change_scale(3, 3);
  // Update the light, so it's surface is drawn correctly
  light_update();
}

red = 235 //A SAVE
green = 235 //A SAVE
blue = 235 //A SAVE

// MUST HAVE: Draw all the lights to the surface
surface_set_target(sur);

//NUIT TOMBE
if global.sl_time > 18  {
if red > 1 {
red -= 0.05
green -= 0.05
}else{

}
if blue > 1 {
blue -= 0.05
}
}
//REMONTER DU JOUR
if global.sl_time < 12{
if red < 235 {
red += 0.05
green += 0.05
}else{

}
if blue < 235 {
blue += 0.05
}
}
  colorfond = make_color_rgb(red, green, blue);
  

if global.interieur = 1 {
draw_clear(c_black);//couleur du fond

}else{
draw_clear(colorfond);//couleur du fond
}



if surface_exists(sur){
draw_set_blend_mode(bm_add);
with (obj_lightlow) {
if torch = 1 {
  draw_surface_ext(sur, x - view_xview - sprite_width / 2, y - view_yview - sprite_height / 2, 1, 1, 0, image_blend, 1);
 }else{
   draw_surface_ext(sur, x - view_xview - sprite_width / 2, y - view_yview - sprite_height / 2, 1, 1, 0, image_blend, 1);
}}
draw_set_blend_mode(bm_normal);




surface_reset_target();

}

// MUST HAVE: Draw the surface to the screen
if surface_exists(sur){
draw_set_blend_mode_ext(bm_dest_color, bm_zero);
//draw_surface_ext(sur, 0, 0, 1, 1, 0, c_white, 1);// 0 0
draw_surface(sur,view_xview,view_yview)
draw_set_blend_mode(bm_normal);

// Draw info
draw_set_color(c_white);



draw_set_font(fnt_cool);
    draw_set_color(c_white);
    draw_set_halign(fa_center);
    draw_set_alpha(1);
     yy=20
    draw_text(view_xview[view_current]+1250,view_yview[view_current]+yy,string(global.sl_time-frac(global.sl_time))+"h "+string(floor(60*frac(global.sl_time))));
    draw_set_alpha(1);
    draw_set_color(c_black);




draw_text(0, 0, string(fps) + "fps#" + string(instance_number(obj_lightlow)) + " lights#" + string(instance_number(obj_wall)) + " casters");
draw_set_color(c_black);


//draw_background(neige7, 0, 0);



}

var xp, yp, lw, lh, imin, imax, i, pdmin, pdmax, minx, miny, maxx, maxy, a_min, a_max, a_test;

lw = sprite_width;
lh = sprite_height;

surface_set_target(sur);
draw_clear(c_black);
draw_sprite_ext(sprite_index, image_index, lw / 2, lh / 2, image_xscale, image_yscale, image_angle, c_white, 1);  

with (obj_wall) {
  minx = px[0];
  miny = py[0];
  maxx = px[0];
  maxy = py[0];
  
  imin = -1;
  imax = -1;
  a_test = point_direction(other.x, other.y, x, y);
  a_min = -1;
  a_max = -1;
  
  for (i = 0; i < points; i++) {
    if (px[i] < minx)
      minx = px[i];
    if (px[i] > maxx)
      maxx = px[i];
    if (py[i] < miny)
      miny = py[i];
    if (py[i] > maxy)
      maxy = py[i];
      
    pdmin = (point_direction(other.x, other.y, x + px[i], y + py[i]) - a_test + 360) mod 360;
    pdmax = (a_test - point_direction(other.x, other.y, x + px[i], y + py[i]) + 360) mod 360;
    if (pdmin > a_min && pdmin <= 180) {
      a_min = pdmin;
      imin = i;
    }
    if (pdmax > a_max && pdmax <= 180) {
      a_max = pdmax;
      imax = i;
    }
  }
  
  if (rectangle_in_rectangle(x + minx, y + miny, x + maxx, y + maxy, other.x - lw / 2, other.y - lh / 2, other.x + lw / 2, other.y + lw / 2)) {  
    i = imin;
    draw_primitive_begin(pr_trianglestrip);
    do {
      pd = point_direction(other.x, other.y, x + px[i], y + py[i]);
      draw_vertex_color(x + px[i] - other.x + other.sprite_width / 2, y + py[i] - other.y + other.sprite_height / 2, c_black, 1);
      draw_vertex_color(x + px[i] + lengthdir_x(height, pd) - other.x + other.sprite_width / 2, y + py[i] + lengthdir_y(height, pd) - other.y + other.sprite_height / 2, c_black, 1 - fade);
      i += 1;
      i = i mod points;
    } until (i == (imax + 1) mod points)
    draw_primitive_end();
  }
}

surface_reset_target();

if surface_exists(sur) {

    surface_set_target( sur );
        draw_clear_alpha( c_white, 0);
    surface_reset_target();
    surface_free(sur);

}

//ça c'est pour le moteur graphique de bases (lumières ,nuit ,ect)
draw_set_blend_mode_ext(bm_dest_color, bm_zero);
draw_surface_ext(sur, view_xview, view_yview, 1, 1, 0, c_white, 1);// 0 0
draw_set_blend_mode(bm_normal);


//ça c'est pour mettre mon blur sur la surface du moteur
draw_set_blend_mode_ext(bm_dest_color, bm_zero);
shader_set(shader);
draw_surface_ext(sur, view_xview, view_yview, 1, 1, 0, c_white, 1);
shader_reset();
draw_set_blend_mode(bm_normal);

uniform vec3 size;//width,height,radius

const int Quality = 16;//8
const int Directions = 16;
const float Pi = 6.28318530718;//pi * 2

void main()
{
    vec2 radius = size.z/size.xy;
    vec4 Color = texture2D( gm_BaseTexture, v_vTexcoord);
    for( float d=0.0;d<Pi;d+=Pi/float(Directions) )
    {
        for( float i=1.0/float(Quality);i<=1.0;i+=1.0/float(Quality) )
        {
                Color += texture2D( gm_BaseTexture, v_vTexcoord+vec2(cos(d),sin(d))*radius*i);
        }
    }
    Color /= float(Quality)*float(Directions)+1.0;
    gl_FragColor =  Color *  v_vColour;
}