openscad/dotSCAD
1
0
Fork 0
mirror of https://github.com/JustinSDK/dotSCAD.git synced 2025-08-10 16:54:23 +02:00
Code Issues Releases Wiki Activity

add simple doc

Browse Source
This commit is contained in:
Justin Lin
2020-02-09 17:55:19 +08:00
parent 4d7acb3734
commit cc47f81dc1
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/experimental/pt_to_sphere.scad
View File

@@ -1,16 +1,22 @@
use <rotate_p.scad>; use <rotate_p.scad>;
function pt_to_sphere(p, size, r, angle = [180, 360]) = /*
size: The size of the rectangle mapping to a sphere.
p: A point in the rectangle.
r: sphere radius.
angle: [za, xa] mapping angles.
*/
function pt_to_sphere(size, p, r, angle = [180, 360]) =
let( let(
x = p[0], x = p[0],
y = p[1], y = p[1],
za = angle[0], za = angle[0],
xa = angle[1], xa = angle[1],
xlen = size[0], xlen = size[0],
ylen = size[1], ylen = size[1],
za_step = za / ylen, za_step = za / ylen,
rza = za_step * y, rza = za_step * y,
rzpt = [r * cos(rza), r * sin(rza), 0], rzpt = [r * cos(rza), r * sin(rza), 0],
rxpt = rotate_p(rzpt, [xa / xlen * x, 0, 0]) rxpt = rotate_p(rzpt, [xa / xlen * x, 0, 0])
) )
rxpt; rxpt;