View Single Post
  #31   Report Post  
Posted to rec.crafts.metalworking
Ignoramus28184 Ignoramus28184 is offline
external usenet poster
 
Posts: 7
Default 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