grid <- long_grid(seq(1, 10, length.out = 1000), seq(1, 10, length.out = 1000))
grid$simplex <- fracture(gen_simplex, billow, octaves = 8, x = grid$x,
y = grid$y)
plot(grid, simplex)
Run the code above in your browser using DataLab