[Ressources] Banque d'exemples Game Maker

/*
draw_perlin_noise(x, y, size, octaves, step, persistance, type, ...
s
type :
1 = marble cos
2 = marble line -> ... lines, perturbation)
3 = wood -> ...seuil)
default = clouds / basic
*/

width = argument2+1
height= argument2+1
step  = argument4
nbr_octaves = argument3

max_width = ceil( width*power(2, nbr_octaves-1)/step )
max_height= ceil(height*power(2, nbr_octaves-1)/step )

for(i=0; i<max_width*max_height; i+=1)
    value[i] = random(1)

for(yy=0; yy<height-1; yy+=1) {
  for(xx=0; xx<width-1; xx+=1)
  {
    //Calcul du bruit
    perlin = 0
    p = 1
    f = 1
    repeat(nbr_octaves)
    {   
      i = floor(f*xx/step)
      j = floor(f*yy/step)
      t = (1-cos(((f*xx/step) mod 1)*pi))/2
      y1 = value[i*max_width + j]*(1-t) + value[(i+1)*max_width + j]*t
      y2 = value[i*max_width + j+1]*(1-t) + value[(i+1)*max_width + j+1]*t
      t = (1-cos(((f*yy/step) mod 1)*pi))/2
      perlin += p * (y1*(1-t) + y2*t)
      p *= argument5
      f *= 2
    }
    perlin *= (1-argument5)/(1-p)
   
    if(argument6 == 1) {
    //Génération de la texture, ici marbre
    v = 1-sqrt(abs(sin(2*pi*perlin)))
    c = min( round ((0.7 * (1-v) + 0.1*v)*255) , 255)
    color = make_color(c,c,c)
    }
    else if(argument6 == 2) {
    //marbre 2
    v = (1-cos(argument7*2*pi*(xx/argument2 + argument8*perlin)))/2
    c = min( round ((0.1 * (1-v) + 0.7*v)*255) , 255)
    color = make_color(c,c,c)
    }
    else if(argument6 == 3) {
    //bois
    v = perlin mod argument7
    if(v>argument7/2) v = argument7 - v
    f = (1-cos(2*pi*v/argument7))/2
    g = 0.6*(1-f) + 0.2*f
    b = 0.6*(1-f) + 0.3*f
    color = min( round(g*255) , 255)<<8|min( round(b*255) , 255)
    }
    else {
    //nuages
    c = min( round(perlin*255) , 255)
    color = make_color(c,c,c)
    }
    draw_point_color(argument0+xx, argument1+yy, color)
  }
}