View source for Modify op path2

{|
|args opnum, dist
|-
|local numfeat, ifeat, itype
|-
|local xs, ys, zs, xe, ye, ze, xc, yc, zc, rad, idir
|-
|local x1, y1, z1, x2, y2, z2, ang1, ang2, ang3
|-
|&nbsp;
|-
|&nbsp;
|-
|!  get a copy of the current op path
|-
|!  ---------------------------------
|-
|&nbsp;
|-
|get_op_num_feat opnum, numfeat ||! get the number of features
|-
|if numfeat<1 then goto done ||! make sure there is at least 1
|-
|&nbsp;
|-
|define_path_list 1   ||! create path list
|-
|&nbsp;
|-
|select_op_path_type main       ||! select the main path
|-
|get_op_path opnum get a copy of the op path
|-
|! this will be path zero
|-
|&nbsp;
|-
|<nowiki>get_op_path_start opnum, xs, ys, zs</nowiki>
|-
|<nowiki>create_path 1, xs, ys, zs</nowiki>      ||! start a new path
|-
|&nbsp;
|-
|&nbsp;
|-
|!  divide it up
|-
|!  ------------
|-
|&nbsp;
|-
|for ifeat=1 to numfeat
|-
|&nbsp;
|}
:get_op_feat_type opnum, ifeat, itype

:progress_set (ifeat / numfeat)
{|
|&nbsp;
|}
:if itype = feat_type_line then goto edit_line

:if itype = feat_type_arc  then goto edit_arc
{|
|&nbsp;
|-
|&nbsp;||!  not a line or arc, just use this feature as it is
|-
|&nbsp;
|}
:add_path_feat 1, 0, ifeat &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;! copy this feat to the new path
{|
|&nbsp;
|}
:continue
{|
|&nbsp;
|-
|<nowiki>:</nowiki>edit_line
|}
:get_op_feat_start    opnum, ifeat, xs, ys, zs

:get_op_feat_end      opnum, ifeat, xe, ye, ze

:get_op_feat_angles   opnum, ifeat, ang1, ang2, ang3
{|
|&nbsp;
|}
:x1 = xs + ((xe - xs) / 2)

:y1 = ys + ((ye - ys) / 2)

:z1 = zs + ((ze - zs) / 2)
{|
|&nbsp;
|}
:ang2 = ang1 + 90
{|
|&nbsp;
|}
:x2 = x1 + dist * cos(ang2)

:y2 = y1 + dist * sin(ang2)

:z2 = z1
{|
|&nbsp;
|}
:add_path_line 1, x1, y1, z1 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;! mid way along the feature

:add_path_line 1, x2, y2, z2 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;! out by the given distance

:add_path_line 1, x1, y1, z1 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;! back to mid point

:add_path_line 1, xe, ye, ze &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;! end of original features
{|
|&nbsp;
|}
:continue
{|
|&nbsp;
|-
|<nowiki>:</nowiki>edit_arc
|-
|&nbsp;
|}
:get_op_feat_start    opnum, ifeat, xs, ys, zs

:get_op_feat_end      opnum, ifeat, xe, ye, ze

:get_op_feat_angles   opnum, ifeat, ang1, ang2, ang3

:get_op_feat_arc_data opnum, ifeat, rad, idir, xc, yc, zc

:if idir=1 then ang3 = -ang3
{|
|&nbsp;
|}
:ang1 = ang1 + (ang3 / 2)  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   ! angle mid way around arc

:if ang1>360 then ang1 = ang1 - 360

:if ang1<0   then ang1 = ang1 + 360
{|
|&nbsp;
|}
:ang2 = ang1

:if idir=0 then ang2 = ang1 + 180

:if ang2 > 360 then ang2 = ang2 - 360
{|
|&nbsp;
|}
:x1 = xc + rad * cos(ang1)

:y1 = yc + rad * sin(ang1)

:z1 = zs + ((ze - zs) / 2)
{|
|&nbsp;
|}
:x2 = x1 + dist * cos(ang2)

:y2 = y1 + dist * sin(ang2)

:z2 = z1
{|
|&nbsp;
|}
:if idir=1 then add_path_arc 1, x1, y1, z1, xc, yc, zc, rad, cw

:if idir#1 then add_path_arc 1, x1, y1, z1, xc, yc, zc, rad, ccw
{|
|&nbsp;
|}
:add_path_line 1, x2, y2, z2  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;! out by the given distance

:add_path_line 1, x1, y1, z1  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;! back to mid point
{|
|&nbsp;
|}
:if idir=1 then add_path_arc 1, xe, ye, ze, xc, yc, zc, rad, cw

:if idir#1 then add_path_arc 1, xe, ye, ze, xc, yc, zc, rad, ccw
{|
|&nbsp;
|-
|next ifeat
|-
|&nbsp;
|-
|&nbsp;
|-
|!  end of path
|-
|!  -----------
|-
|&nbsp;
|-
|copy_path 1, 0      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;! copy the new path to path zero
|-
|set_op_path opnum &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;! set the op path to use path zero
|-
|delete_path_list &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;! delete the list of paths
|-
|&nbsp;
|-
|<nowiki>:</nowiki>done
|-
|}