Create Contour.mac

!
! create a contour
!

message "This macro will create a simple contour"

! start a new part
! ----------------

new_part "Example.vnc"
set_part_data mdd_name, "VMill3a"	! 3 axis vertical mill
set_part_data units, 1	! inches

dialog "CreateContour.dlg"

! l1 = long length
! l2 = short length
! h1 = long height
! h2 = short height
! r1 = large fillet
! r2 = small fillet

! set the stock size to 25% larger than part all around
! -----------------------------------------------------

set_part_data stock_x1, -l1*0.25
set_part_data stock_y1, -h1*0.25
set_part_data stock_z1, 0
set_part_data stock_x2, l1*1.25
set_part_data stock_y2, h1*1.25
set_part_data stock_z2, 1

set_view top
zoom_view 0  ! unzoom
redraw

contour [
start r1, 0
line l1-r1, 0
arc l1-r1, r1, l1, r1, ccw
line l1, h2-r2
arc l1-r2, h2-r2, l1-r2, h2, ccw
line l2+r2, h2
arc l2+r2, h2+r2, l2, h2+r2, cw
line l2, h1-r2
arc l2-r2, h1-r2, l2-r2, h1, ccw
line r1, h1
arc r1, h1-r1, 0, h1-r1, ccw
line 0, r1
arc r1, r1, r1, 0, ccw
]

clear_select

redraw

message "Shrinkwrap"

shrink_wrap

message "Finished"