TUTO TILE 7 : PASSAGE À L'ISOMÉTRIQUE

Ici je vous donne simplement la fonction de transformation, dans le zip vous disposez d'un exemple complet.


Private Const CosAngleRad As Double = 0.707106781114032
Private Const SinAngleRad As Double = 0.707106781259063

Public Function AxoToIso(SSrc As DirectDrawSurface7, ddsdSrc As DDSURFACEDESC2, SDest As DirectDrawSurface7, ddsdDest As DDSURFACEDESC2)
    
    Dim Pixel As Long           'Couleur d'un pixel
    Dim x As Long, y As Long    'Coordonnées source
    Dim x2 As Long, y2 As Long  'Nouvelle coordonnées
    Dim SrcHeightDiv1 As Double
    Dim YSinAngle As Double, YCosAngle As Double
    Dim SrcHeight As Long
    Dim SrcWidth As Long
    
    With SDest
    
        'On bloque les surfaces en mémoire pour qu'elle ne soit plus modifiable
        'les surfaces sont bloqués entierement (ddrect(0,0,0,0)), et ne sont accessible que en lecture
        SSrc.Lock ddRect(0, 0, 0, 0), ddsdSrc, DDLOCK_READONLY Or DDLOCK_WAIT, 0
        .Lock ddRect(0, 0, 0, 0), ddsdDest, DDLOCK_READONLY Or DDLOCK_WAIT, 0
            
        SrcHeight = ddsdSrc.lHeight - 1
        SrcWidth = ddsdSrc.lWidth - 1
        'Optimisation
        SrcHeightDiv1 = ((SrcHeight + 1) *0.666666666666667) + 1
        
        'Pour tous les pixel du tile
        For y = 0 To SrcWidth
            
            'Optimisation
            YSinAngle = y * SinAngleRad
            YCosAngle = y * CosAngleRad
            
            For x = 0 To SrcHeight
                
                'On récupere la couleur du pixel
                Pixel = SSrc.GetLockedPixel(x, y)
                'On calcul les nouvelle coordonnée suivant les formules trigonométrique
                x2 = ((x * CosAngleRad) - YSinAngle) + SrcHeightDiv1
                y2 = ((x * SinAngleRad) + YCosAngle) * 0.5
                
                'Cette condition n'est pas du tout necessaire, c'est juste pour obtenir un tile isométrique plus jolie
                If x2 = 36 And y2 = 15 Then
                    
                    'Si la condition est vrai on copie deux fois le pixel avec un pixel de difference à droite
                    .SetLockedPixel x2, y2, Pixel
                    .SetLockedPixel x2 + 1, y2, Pixel
                    
                Else
                    
                    'Autrement on copie normalement le pixel
                    .SetLockedPixel x2, y2, Pixel
                    
                End If
                
            Next
            
        Next
        
        'On debloque les surfaces
        SSrc.Unlock ddRect(0, 0, 0, 0)
        .Unlock ddRect(0, 0, 0, 0)
        
    End With
End Function

Télécharger le zip

03 mai 2007 15:29:54 :

Face au bonne remarque de Renfield j'ai apporté une petite mise à jour, du code et du zip, pour que celui ci soit optimisé au mieu.

03 mai 2007 15:40:14 :

Une petite erreur ^^.