Le portail francophone de la géomatique

bonjour monsieur maurice  je crois que le mapinfo 9.0 est capable de faire pivoter le raster à different angle  contrairement à celui de mapinfo7.5 concu uniquement à faire pivoter le vecteur seulement .merci de votre comprehension

Bonjour

Oui il est possible de faire pivoter un raster mais seulement à partir de la version 9.  Il faut cependant activer la fonction suivante : Carte - Options - Traitement d'image et cliquer sur TOUJOURS.  Cette option doit être activée aussi dans Options - Préférences - Traitement d'image.  Il y a déjà eu un post sur ce sujet et la réponse venait de Marc-André, je crois.  Pour la version 7.5, je crois que ce n'est pas possible et la solution de Maurice est la meilleure.  Cependant, à en comprendre le post de Maurice, bonne chance.....

Daniel

Bonjour,

Concernant le logiciel de traitement d'image permettant de faire tourner un raster je vous conseille vivement xnview . L'angle de rotation est à indiquer en degrés.
Concernant le "recalage", donc traitement du fichier de géoref je vous post un petit bout de code VB a adapter à vos "mbx".

Il permet d'obtenir le rectangle résultant de la rotation d'un rectangle (objet realregion défini par ses valeurs mLeft, mtop, mright et mbottom), il faut noter que comme tout bon topographe je travaille en grades.

'fonction rotate de l'objet realregion
Public Function rotate(x As Double, y As Double, deltagis As Double)
Dim p(3) As Classpoint
Dim i&
Dim Xmax As Double
Dim Xmin As Double
Dim Ymax As Double
Dim Ymin As Double

For i& = 0 To 3
Set p(i&) = New Classpoint
    Select Case i&
        Case 0
        p(i&).x = mLeft
        p(i&).y = mBottom
        Case 1
        p(i&).x = mLeft
        p(i&).y = mTop
        Case 2
        p(i&).x = mRight
        p(i&).y = mTop
        Case 3
        p(i&).x = mRight
        p(i&).y = mBottom
    End Select
p(i&).rotate x, y, deltagis

Next i&

Xmin = p(0).x
Ymin = p(0).y
Xmax = p(2).x
Ymax = p(2).y

For i& = 0 To 3

    If p(i&).x < Xmin Then
    Xmin = p(i&).x
    End If
    If p(i&).y < Ymin Then
    Ymin = p(i&).y
    End If
    
    If p(i&).x > Xmax Then
    Xmax = p(i&).x
    End If
    If p(i&).y > Ymax Then
    Ymax = p(i&).y
    End If
    
Next i&

mBottom = Ymin
mTop = Ymax
mLeft = Xmin
mRight = Xmax

End Function


'fonction rotate de l'objet classpoint
Public Sub rotate(x As Double, y As Double, deltagis As Double)
Dim p1 As POINTGEO
Dim centre As POINTGEO
Dim anglerd As Double

centre.x = x
centre.y = y

anglerd = deltagis
If anglerd < 0 Then anglerd = anglerd + 400
anglerd = (pi / 200 * anglerd) + 2 * pi
anglerd = (anglerd - (anglerd \ (2 * pi)) * 2 * pi)

'on ramene au centre
p1.x = mX - centre.x
p1.y = mY - centre.y

'on tourne
mX = p1.x * Cos(anglerd) + p1.y * Sin(anglerd) + centre.x
mY = -p1.x * Sin(anglerd) + p1.y * Cos(anglerd) + centre.y

End Sub

Bonjour,
Je suis moi aussi confrontée à ce probleme de rotation de raster, n'ayant que MapInfo 7.0 !
J'ai installé XnView, mais je n'arrive pas à faire des rotations autrement que selon un angle de 90, 180, 270°. A aucun moment, il ne me propose d'indiquer un angle...Christophe, es tu sûr qu'on peut le faire avec un angle donné...si oui, comment ?
Merci d'avance !

Bonsoir,
Merci à jmh...ça marche !! En fait c'est Image/rotation/libre.