PL=PLshaftrad([r,d,b])
r : | [r1 r2 r3 ....] radius | |
d : | distances between steps | |
b : | [radius breakrule] breaking the edges; default is [0.5 -1] |
PL : | Point list of a shaft |
PLshaftrad([1 2 1],[0 2 2],'',true); PL=ans; % RAMP
PLshaftrad([6 3 6],[10 2 10],[.5 -1]); PL=ans; % only concave
PLshaftrad([6 3 6],[10 2 10],[.5 +1]); PL=ans; % only convex
PLshaftrad([6 3 6],[10 2 10],[.5 0 ]); PL=ans; % both edges
PLshaftrad([6 3 6],[10 2 10],[0 0 ]); PL=ans; % no radial edges
PLshaftrad([6 3 6],[10 2 10],[.5 0]); PL=ans; pause(1); SGofCPLrot(PL) % create the solid