List:

Not listing, straight up: right?

While surfing the apt stuff this morning I found a program called
cone.apt.

I looked appropriate to GH's problem. Edited version is listed below. 
For some reason the loop limit doesn't kick in so it goes on past the
desired depth. Other than that it appears to work at least under sim. 


partno cone from spiral
$$      This program profiles a cone by spiralling around
$$      the surface.  It uses a parametric equation for a
$$      helix, and decreases the spiral's radius as it 
$$      generates the spiral.
clprnt
machin/emc
$$machin/pmill
cutter/0.125, .0625  $$ 1/8" ball nose
d1=4 $$included angle of cone
d2=.75 $$start dia
d3=.52 $$end dia
d4=.0i $$spiral feed per rev
d5=5 $$degree increments 


endz=(d2-d3)/2/tanf(d1/2)$$depth of cone
goto/0,0,0
theta=0
tanAng=tanf(d1/2)

loopst
agn)    z=-(d4/360)*theta
        x=(d2/2+z*tanAng)*cosf(theta)
        y=(d2/2+z*tanAng)*sinf(theta)
        goto/x,y,z
        theta=theta+d5
if(endz+z)quit,quit,agn,quit)
loopnd


fini

It does need a few edits to work, etc Fn, G5n, M2 | M30 and truncating
the code at the desired depth. 

Dave

------------------------------------------------------------------------------
Try before you buy = See our experts in action!
The most comprehensive online learning library for Microsoft developers
is just $99.99! Visual Studio, SharePoint, SQL - plus HTML5, CSS3, MVC3,
Metro Style Apps, more. Free future releases when you subscribe now!
http://p.sf.net/sfu/learndevnow-dev2
_______________________________________________
Emc-users mailing list
Emc-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/emc-users

Reply via email to