!   TITLE:  ellipse.mac (TBD)
!
mod_assemb_prep
!
d_major=0.51
d_minor=0.1295
!
r=d_minor/d_major
!
local,11,1,0,0,0,0,0,0,r
!
lcount=0        ! initialize counter
!
*do,i,0,270,90
    k,,d_major/2,i,0
    lcount=lcount+1
*enddo
!
*get,km,kp,,num,max
!
*do,j,lcount-(lcount-1),lcount,1
    *if,j,lt,lcount,then
        l,j,j+1
    *else
        l,lcount,lcount-(lcount-1)
    *endif
*enddo
!
*do,k,lcount-(lcount-1),lcount,1
    *get,path_len,line,k,leng
    circumf=circumf+path_len
*enddo
!
lplot