vector_angle_to_rigid

        vector_angle_to_rigid (Row, Column, 0, Row3[0], Column3[0], Angle[0], HomMat2D1)
        vector_angle_to_rigid (Row, Column, 0, Row3[1], Column3[1], Angle[1], HomMat2D2)
        affine_trans_point_2d (HomMat2D1, Row1, Column1, Qx1, Qy1)
        affine_trans_point_2d (HomMat2D2, Row1, Column1, Qx2, Qy2)

    for i := 0 to |Num|-1 by 1
        vector_angle_to_rigid (Row, Column, 0, Row3[i], Column3[i], Angle[i], HomMat2D)
        affine_trans_point_2d (HomMat2D, Row1, Column1, Qx1, Qy1)
    endfor
        vector_angle_to_rigid (Row, Column, 0, Row3, Column3, Angle, HomMat2D)
        affine_trans_point_2d (HomMat2D1, Row1, Column1, Qx1, Qy1)
        affine_trans_point_2d (HomMat2D1, Row1, Column1, Qx1, Qy1)
        affine_trans_point_2d (HomMat2D1, Row1, Column1, Qx1, Qy1)

                 dev_set_color ('red')
                 disp_cross (WindowHandle, Row[I], Column[I], 10, Angle[I])
                 vector_angle_to_rigid (0, 0, 0, Row[I], Column[I], Angle[I], HomMat2D)
                 affine_trans_contour_xld (ModelContours, ContoursAffineTrans, HomMat2D)
                 dev_display (ContoursAffineTrans)