Testing Waters

Searchâ€¦

Projects

Patterns

Geometry

Lists

Spherical Transformations

Transforming with equations

SphereTransformations.zip

3KB

Binary

1

//Spherical Transformations

2

â€‹

3

n = 11;

4

x = Math.Sin(0..180..#n)<1>*Math.Cos(0..360..#n);

5

y = Math.Sin(0..180..#n)<1>*Math.Sin(0..360..#n);

6

z = Math.Cos(0..180..#n);

7

â€‹

8

//Sphere

9

p1 = Point.ByCoordinates(x<1>,y<1>,z<1><2>);

10

â€‹

11

//Sphere Translated and Scaled along Z-Axis

12

p2 = Point.ByCoordinates(x<1>,y<1>,((0.75+z)/(1.75..2..#n))<1><2>);

13

â€‹

14

//Sphere Translated and Scaled along X-Axis

15

p3 = Point.ByCoordinates(((x+0.75)*(1..3..#n))<1>,y<1>,z<1><2>);

Copied!

Dome Transformations

1

//Dome Transformations

2

â€‹

3

n = 11;

4

x = Math.Sin(0..90..#n)<1>*Math.Cos(0..360..#n);

5

y = Math.Sin(0..90..#n)<1>*Math.Sin(0..360..#n);

6

z = Math.Cos(0..90..#n);

7

â€‹

8

//Dome

9

p1 = Point.ByCoordinates((x*(mnx..(mnx+mxs)..#n))<1>,

10

y<1>,(z/(mnz..(mnz+mxz)..#n))<1><2>);

Copied!

Asymmetric Vertical Scaling

1

u = 0..360..#50;

2

v = 0..180..#50;

3

x = (Math.Cos(u) * Math.Sin(v)<1>) * 1.25;

4

y = (Math.Sin(u) * Math.Sin(v)<1>) * 1.65;

5

z = Math.Pow(Math.Cos(0..55..#50),8)*-2+2;

6

â€‹

7

NurbsSurface.ByPoints(Point.ByCoordinates(x,y,z));

Copied!

Last modified 1yr ago

Copy link