Made a Turner's cube
On 2011-03-21, Lloyd E. Sponenburgh lloydspinsidemindspring.com wrote:
Rich Grise fired this volley in news:im6728
:
Is the defining attribute to qualify as a "Turner's cube" simply the
fact that it's cubes within cubes with thru-holes?
No, it's that the multiple cubes within cubes be free from one-another,
and that their peripheries (inside and out) be square and not round.
That was why I asked Ig why he had not completed it...
Now I know what you meant. I was wondering.
Or is it primarily an exercise in CNC programming, as opposed to doing
it "by hand," as it were?
The ultimate skill is to do it by hand. CAD and CAM make projects like
this overly simple. It only takes an hour or so to design one in a decent
CAM system, even if you don't have any CAD software available.
I did it in straight G code subroutines.
Here it is .
(Makes a turner's cube. See projects.txt for formulas).
Oturners_cube sub
#xc = #1 (X Center)
#yc = #2 (Y Center)
#z = #3 (Current Z)
#size = #4 (Side)
#milld = #5 (Mill Diameter)
#k1 = #6
#k2 = #7
#R = [#k1 * #size/2]
Oif if [ #R gt #milld]
G0 X#xc Y#yc
Owithdraw call [#z + 0.01]
#d = [ [#size/2 - #R] + #k2*#R*[1 - 1/sqrt[ 2 ]]]
Odeepcylindricalpocket call [#xc] [#yc] [#z + 0.01] [#z - #d] [#R] [#milld]
#X1 = [#size - 2*#d]
Oturners_cube call [#xc] [#yc] [#z - #d] [#X1] [#milld] [#k1] [#k2]
Oif endif
G0 X#xc Y#yc
Owithdraw call [#z + 0.01]
Oturners_cube endsub
M2
|