# Generate a complex bevel profile and plot it
complex_coords = generate_complex_bevel(
bevel_type = c("circular", "bump", "step", "block", "angled"),
bevel_start = c(0, 0.2, 0.6, 0.7, 0.9),
bevel_end = c(0.2, 0.5, 0.7, 0.8, 1.0),
segment_height = c(0.1, 0.2, 0.2, 0.2, 0.4),
angle = 45,
curve_points = c(50, 50, 50, 1, 1),
reverse = c(FALSE, TRUE, FALSE, FALSE, FALSE),
plot_bevel = TRUE
)
# Create a step function with reverses to generate a square wave pattern
complex_coords = generate_complex_bevel(
bevel_type = "step",
bevel_start = head(seq(0,1,by=0.05),-1),
bevel_end = 1,
segment_height = 0.1,
angle = 45,
reverse = c(FALSE, TRUE),
plot_bevel = TRUE
)
#Generate an increasing sawtooth pattern with angles
complex_coords = generate_complex_bevel(
bevel_type = "angled",
bevel_start = head(seq(0,1,by=0.05),-1),
bevel_end = tail(seq(0,1,by=0.05),-1),
segment_height = 0.1,
angle = c(45,30),
reverse = c(FALSE, TRUE),
plot_bevel = TRUE
)
# Create a step function to turn polygons into a ziggurat (note bevel_end is ignored)
complex_coords = generate_complex_bevel(
bevel_type = "step",
bevel_start = head(seq(0,1,by=0.05),-1),
bevel_end = 1,
segment_height = 0.1,
reverse = FALSE,
plot_bevel = TRUE
)
Run the code above in your browser using DataLab