[MapGuide] - Tentative de gestion des coords MC

Pour Norback. C'est ma fonction de conversion des coords d'image en coords MC. MCOrigine correspond à 0,64,0. sFactor doit être adapté pour que ça corresponde.

Code:

    Function GetMCCoordinates(ByRef oPixPoint As Point) As Point
        ' Constantes
        Dim oMCOrigine As New Point(4745, 2072) '(moOrigine.X, moOrigine.Y)
        Dim sFactor As Single = 1

        ' Remove scaling and transalation
        Dim oPtPix0 As New Point((oPixPoint.X - oMCOrigine.X) * miScale, (oPixPoint.Y - oMCOrigine.Y) * miScale)

        ' remove homothetie and Inclinaison
        Dim oPtScaled As New Point(oPtPix0.X / sFactor, 2 * oPtPix0.Y / sFactor)

        ' Remove rotation
        Dim oPtRotated As New Point((oPtScaled.X - oPtScaled.Y) / -2, (oPtScaled.X + oPtScaled.Y) / -2)

        ' Z is in Y
        Return oPtRotated
    End Function

OK pour info, avec le 0,64,0 correctement placé, j'arrive bien à avoir les coordonnées MC à partir de celles de l'image cliquée (à 10 blocs près environ)

La variable sFactor est entre 1.95 et 2, je pense.

Je vais pouvoir implémenter la fonction inverse afin de placer les signets à partir des coordonnées MC.