# Create a set of example coordinates
grid <- create_test_grid(range = c(-1, 1), spacing = 0.1)
# Apply FGC fisheye with expansion and compression
transformed <- fisheye_fgc(grid, r_in = 0.34, r_out = 0.5, zoom_factor = 1.3, squeeze_factor = 0.5)
# Plot original vs transformed
plot_fisheye_fgc(grid, transformed, r_in = 0.34, r_out = 0.5)
Run the code above in your browser using DataLab