矩阵旋转导致路径范围异常的原因及修复方案咨询

使用Cairo Graphics及RichClient6封装库时，遇到路径范围（Path Extents）获取异常的问题：矩阵未旋转时结果正常，但旋转后输出的范围不符合预期。需要可靠获取矩阵旋转后的路径范围。

不同旋转角度下的路径范围输出 #

Angle: 1, Path Extents:    -2,8         -6     343,8         169 
Angle: 2, Path Extents:    -5,7         -11,9   346,7        174,9 
Angle: 3, Path Extents:    -8,5         -17,8   349,5        180,8 
Angle: 4, Path Extents:    -11,3         -23,7  352,3        186,7 
Angle: 5, Path Extents:    -14,2         -29,6  355,2        192,6 
Angle: 6, Path Extents:    -16,9         -35,4  357,9        198,4 
Angle: 7, Path Extents:    -19,7         -41,2  360,7        204,2 
Angle: 8, Path Extents:    -22,5         -47    363,5        210 
Angle: 9, Path Extents:    -25,2         -52,7  366,2        215,7 
Angle: 10, Path Extents:   -27,9         -58,3  368,9       221,3 
Angle: 11, Path Extents:   -30,5         -63,9  371,5       226,9 
Angle: 12, Path Extents:   -33,2         -69,4  374,1       232,3 
Angle: 13, Path Extents:   -35,7         -74,7  376,7       237,7 
Angle: 14, Path Extents:   -38,3         -80    379,3        243 
Angle: 15, Path Extents:   -40,7         -85,2  381,7       248,3 
Angle: 16, Path Extents:   -43,2         -90,4  384,2       253,4 
Angle: 17, Path Extents:   -45,6         -95,3  386,6       258,3 
Angle: 18, Path Extents:   -47,9         -100,2           388,9  263,2 
Angle: 19, Path Extents:   -50,2         -105  391,2        268 
Angle: 20, Path Extents:   -52,4         -109,6           393,4  272,6 
Angle: 21, Path Extents:   -54,5         -114,1           395,5  277,1 
Angle: 22, Path Extents:   -56,6         -118,4           397,6  281,4 
Angle: 23, Path Extents:   -58,6         -122,6           399,6  285,6 
Angle: 24, Path Extents:   -60,6         -126,7           401,6  289,7 
Angle: 25, Path Extents:   -62,4         -130,6           403,4  293,6 
Angle: 26, Path Extents:   -64,2         -134,4           405,2  297,4 
Angle: 27, Path Extents:   -65,9         -137,9           406,9  300,9 
Angle: 28, Path Extents:   -67,6         -141,4           408,6  304,4 
Angle: 29, Path Extents:   -69,1         -144,6           410,1  307,6 
Angle: 30, Path Extents:   -70,6         -147,7           411,6  310,7 
Angle: 31, Path Extents:   -72          -150,5  413        313,5 
Angle: 32, Path Extents:   -73,3         -153,2           414,3  316,2 
Angle: 33, Path Extents:   -74,5         -155,8           415,5  318,8 
Angle: 34, Path Extents:   -75,6         -158,1           416,6  321,1 
Angle: 35, Path Extents:   -76,6         -160,2           417,6  323,2 
Angle: 36, Path Extents:   -77,5         -162,2           418,5  325,2 
Angle: 37, Path Extents:   -78,3         -163,9           419,3  326,9 
Angle: 38, Path Extents:   -79,1         -165,4           420,1  328,4 
Angle: 39, Path Extents:   -79,7         -166,8           420,7  329,8 
Angle: 40, Path Extents:   -80,3         -167,9           421,3  330,9 
Angle: 41, Path Extents:   -80,7         -168,8           421,7  331,8 
Angle: 42, Path Extents:   -81,1         -169,6           422,1  332,6 
Angle: 43, Path Extents:   -81,3         -170,1           422,3  333,1 
Angle: 44, Path Extents:   -81,5         -170,4           422,5  333,4 
Angle: 45, Path Extents:   -81,5         -170,5           422,5  333,5 
Angle: 46, Path Extents:   -81,5         -170,4           422,5  333,4 
Angle: 47, Path Extents:   -81,3         -170,1           422,3  333,1 
Angle: 48, Path Extents:   -81,1         -169,6           422,1  332,6 
Angle: 49, Path Extents:   -80,7         -168,8           421,7  331,8 
Angle: 50, Path Extents:   -80,3         -167,9           421,3  330,9 
Angle: 51, Path Extents:   -79,7         -166,8           420,7  329,8 
Angle: 52, Path Extents:   -79,1         -165,4           420,1  328,4 
Angle: 53, Path Extents:   -78,3         -163,9           419,3  326,9 
Angle: 54, Path Extents:   -77,5         -162,2           418,5  325,2 
Angle: 55, Path Extents:   -76,6         -160,2           417,6  323,2 

相关代码 #

Public Sub DrawTo(ByRef uDestCC As cCairoContext, ByVal uLeft As Long, ByVal uTop As Long)

    Dim dblOffx As Double: Dim dblOffy As Double

    ' Calculate offsets based on alignment and scaling
    dblOffx = Me.AlignmentFactorX * ((m_Img.width * Me.ScaleFactorW) / 2)
    dblOffy = Me.AlignmentFactorY * ((m_Img.height * Me.ScaleFactorH) / 2)

    Dim dblNewX1 As Double :  Dim dblNewY1 As Double
    dblNewX1 = (uLeft + dblOffx)
    dblNewY1 = (uTop + dblOffy)
    
    Dim dblNewX2 As Double : Dim dblNewY2 As Double
    dblNewX2 = -(m_Img.width / 2) - (Me.CenterOffsetX / 2)
    dblNewY2 = -(m_Img.height / 2) - (Me.CenterOffsetY / 2)

    m_Matrix.TranslateCoords dblNewX1, dblNewY1
    m_Matrix.RotateCoordsDeg m_sngAngleDeg
    m_Matrix.ScaleCoords Me.ScaleFactorW, Me.ScaleFactorH
    m_Matrix.TranslateCoords dblNewX2, dblNewY2
    
    ' Set the final transformation
    Set uDestCC.Matrix = m_Matrix
    
    ' Now draw the image with the same transformations
    uDestCC.RenderSurfaceContent m_Img, 0, 0

    ' Define a rectangle path representing the image area after rotation is set
    uDestCC.Rectangle 0, 0, m_Img.width, m_Img.height

    ' Get the extents now, with rotation already applied
    uDestCC.GetPathExtents m_dblTopX, m_dblTopY, m_dblBottomRightX, m_dblBottomRightY

    ' Clear the path
    uDestCC.ClearPath False
    
    m_Matrix.ResetToIdentity
    
    Debug.Print "Angle: " & m_sngAngleDeg & ", Path Extents:", Round(m_dblTopX, 1), Round(m_dblTopY, 1), Round(m_dblBottomRightX, 1), Round(m_dblBottomRightY, 1)
    
End Sub

可用的CopyPath方法及cCairoPath成员 #

CopyPath方法定义 #

Function CopyPath([AsFlatPath As Boolean], [FlatPrecision As Double = 0,1]) As cCairoPath
    Member of RC6.cCairoContext

cCairoPath类成员 #

Function CalculateDistances(Distances() As Double) As Double
Property EntriesCount As Long
Function GetPathEntry(IndexZeroBased As Long, EntryType As cairo_path_data_type_enm, [X0 As Double], [Y0 As Double], [X1 As Double], [Y1 As Double], [X2 As Double], [Y2 As Double])
Sub ProjectPathData_Using(FlattenedBasePath As cCairoPath, [ScaleX As Double], [ScaleY As Double])
Sub ProjectPathData_Using(FlattenedBasePath As cCairoPath, [ScaleX As Double], [ScaleY As Double])

解决方案 #

1. 修正矩阵变换顺序（核心问题） #

Cairo的变换矩阵采用后乘规则，代码中当前的变换顺序会导致旋转中心偏离图像中心，进而造成路径范围计算异常。正确的绕图像中心旋转的变换顺序应为：

1. 先将图像平移至原点（负中心偏移，对应dblNewX2, dblNewY2）
2. 进行缩放变换
3. 进行旋转变换
4. 最后平移至目标位置（对应dblNewX1, dblNewY1）

修正后的变换代码：

' 重置矩阵
m_Matrix.ResetToIdentity
' 正确顺序：平移到原点 → 缩放 → 旋转 → 平移到目标位置
m_Matrix.TranslateCoords dblNewX2, dblNewY2
m_Matrix.ScaleCoords Me.ScaleFactorW, Me.ScaleFactorH
m_Matrix.RotateCoordsDeg m_sngAngleDeg
m_Matrix.TranslateCoords dblNewX1, dblNewY1

2. 使用CopyPath手动计算路径范围 #

如果需要更精确的路径包围盒（尤其是包含曲线的路径），可以通过CopyPath扁平化路径后，遍历所有路径点计算最小/最大坐标：

' 在设置完上下文矩阵后
uDestCC.Rectangle 0, 0, m_Img.width, m_Img.height
' 复制并扁平化路径
Dim path As cCairoPath
Set path = uDestCC.CopyPath(True, 0.1)

Dim minX As Double, maxX As Double
Dim minY As Double, maxY As Double
Dim i As Long
Dim entryType As cairo_path_data_type_enm
Dim x0 As Double, y0 As Double

' 初始化极值
minX = 1E18: maxX = -1E18
minY = 1E18: maxY = -1E18

For i = 0 To path.EntriesCount - 1
    entryType = path.GetPathEntry(i, entryType, x0, y0)
    ' 更新极值（只关心路径上的点）
    If entryType = CAIRO_PATH_MOVE_TO Or entryType = CAIRO_PATH_LINE_TO Then
        If x0 < minX Then minX = x0
        If x0 > maxX Then maxX = x0
        If y0 < minY Then minY = y0
        If y0 > maxY Then maxY = y0
    End If
Next i

' 输出结果
Debug.Print "手动计算范围:", Round(minX,1), Round(minY,1), Round(maxX,1), Round(maxY,1)

内容的提问来源于stack exchange，提问作者tmighty