openscad/dotSCAD
1
0
Fork 0
mirror of https://github.com/JustinSDK/dotSCAD.git synced 2025-08-19 04:51:26 +02:00
Code Issues Releases Wiki Activity

add parameters

Browse Source
This commit is contained in:
Justin Lin
2021-05-08 12:00:29 +08:00
parent 512c1b9c7d
commit 4e0d3e8d28
1 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
examples/distorted_vase.scad
View File

@@ -7,23 +7,25 @@ use <util/rand.scad>;
use <noise/nz_perlin2s.scad>;
use <noise/nz_perlin3s.scad>;
beginning_radius = 20;
beginning_radius = 15;
thickness = 2;
fn = 180;
amplitude = 15;
amplitude = 10;
curve_step = 0.02;
smoothness = 15;
// Perlin noise 2D or 3D
perlin = 2; // [2, 3]
bottom = "NO"; // ["YES", "NO"]
epsilon = 0.000001;
distorted_vase(beginning_radius, thickness, fn, amplitude, smoothness, perlin, epsilon);
distorted_vase(beginning_radius, thickness, fn, amplitude, curve_step, smoothness, perlin, epsilon);
module distorted_vase(beginning_radius, thickness, fn, amplitude, smoothness, perlin, epsilon) {
module distorted_vase(beginning_radius, thickness, fn, amplitude,curve_step, smoothness, perlin, epsilon) {
seed = rand() * 1000;
section = shape_circle(radius = beginning_radius, $fn = fn);
pt = [beginning_radius, 0, 0];
edge_path = bezier_curve(0.02, [
edge_path = bezier_curve(curve_step, [
pt,
pt + [15, 0, 20],
pt + [45, 0, 50],
@@ -74,6 +76,8 @@ module distorted_vase(beginning_radius, thickness, fn, amplitude, smoothness, pe
sweep(all, triangles = "HOLLOW");
if(bottom == "YES") {
linear_extrude(thickness)
polygon([for(p = offset_noisy[len(offset_noisy) - 1]) [p[0], p[1]]]);
}
}