int BresenHam(punto A, punto B){

    //En SDL la coordenada Y est? invertida, esto es, el punto (0.0)
    //est? en la esquina superior izquierda de la superficie de la pantalla.
    
      
    //Declaramos la funci?n que dibujar? el pixel en la pantalla
    void putpixel(SDL_Surface *surface, int x, int y, Uint32 pixel);
    
    //Variables /////////////////////////////////////////////////////////////
    int W, H;           //diferencia entre las componentes x e y de cada punto y su valor
    int W2, H2;         //valores anteriores multiplicados por 2
    int temp;           //para ahorramos multiplicaciones en casa paso
    int x,y;            //punto de partida
    int F;              //funci?n punto medio
    int inc_x, inc_y;   //Valores que utilizaremos para incrementar la variable
    
    
    //puntero a la pantalla de video
    SDL_Surface* pantalla;
    //pixel a dibujar (color))
    Uint32 pixel;
    
    //obtenemos la pantalla
    pantalla = SDL_GetVideoSurface();
    
    //Seleccionamos color blanco para los pixels
    pixel = SDL_MapRGB (pantalla->format, 0xff,0xff,0xff);
    
    //comenzamos el algoritmo
  
    W = B.x - A.x;
    H = B.y - A.y;  
  
    x = A.x;
    y = A.y;
    
    if (W < 0) {        //l?nea a la derecha
        inc_x = -1;
        //usamos el valor absoluto
        W = -W;
    }
    else inc_x = 1;     //l?nea a la izquierda
    
    if (H < 0){         //l?nea hacia arriba
        inc_y = -1;
        //usamos el valor absoluto
        H = -H;    
    }      
    else inc_y = 1;     //l?nea hacia abajo

    W2 = W << 1;
    H2 = H << 1;

    
    if (SDL_MUSTLOCK (pantalla) )
        SDL_LockSurface (pantalla);  
        
        
    if (W == 0){             //Recta vertical
        while (y!= B.y){
            putpixel(pantalla, A.x, y, pixel);
            y += inc_y;
        }    
            
    }//Fin recta vertical
        
    else if (H == 0){        //Recta horizontal
        while(x != B.x){
            putpixel(pantalla, x, A.y, pixel);
            x+=inc_x;
        }    
    }//fin recta horizontal
    
    
   else if (  W > H ){      
      
        F = H2 - W;
        temp = (W-H)<<1;
        
        while (x != B.x){
            putpixel(pantalla, x, y, pixel);
            
            if (F<0)
                F += H2;
            else{
                y += inc_y;
                F -= temp;
            }    
            x += inc_x;
        }
}

else{  //H > W
    
        F = W2 - H;
     temp =(H-W)<<1
    
     while (y != B.y){
            putpixel(pantalla, x, y, pixel);
            if (F<0)
                F += W2;
            else{
                x += inc_x;
                F -= temp;
            }    
            y += inc_y;
     }    
    
}    

    if (SDL_MUSTLOCK (pantalla) )
        SDL_UnlockSurface (pantalla);
        
    SDL_UpdateRect(pantalla, 0,0,0,0);
  
    return 1;
}

Dim As Integer Cont, dx, dy, dz, Adx, Ady, Adz, x_inc, y_inc, z_inc,_
               err_1, err_2, dx2, dy2, dz2, xxx, yyy, zzz, Xold, Yold, Zold,_
               Xnew, Ynew, Znew
               
Screen 12
                           
While 1

   Input "X: ",  Xnew
   Input "Y: ",  Ynew
   Input "Z: ",  Znew

   xxx=Xold
   yyy=Yold
   zzz=Zold
 
   dx = xnew - Xold
   dy = ynew - Yold
   dz = znew - Zold
   
   If (dx < 0) Then
     x_inc = -1
   Else
     x_inc =  1
   EndIf
   
   If (dy < 0) Then
     y_inc = -1
   Else
     y_inc =  1
   EndIf
   
   If (dz < 0) Then
     z_inc = -1
   Else
     z_inc =  1
   EndIf
   
   Adx = Abs(dx)
   Ady = Abs(dy)
   Adz = Abs(dz)
   
   dx2 = Adx*2
   dy2 = Ady*2
   dz2 = Adz*2
   
   If ((Adx>= Ady) And (Adx>= Adz)) Then
   
      err_1 = dy2 - Adx
      err_2 = dz2 - Adx
     
      For Cont = 0 To Adx-1
       
         If (err_1 > 0) Then
             yyy+= y_inc
             err_1 -= dx2
         EndIf
         
         If (err_2 > 0) Then
             zzz+= z_inc
             err_2 -= dx2
         EndIf
         
         err_1 += dy2
         err_2 += dz2
         xxx+= x_inc
         
         print xxx, yyy, zzz
         
      Next
     
   EndIf
   
  If ((Ady> Adx) And (Ady>= Adz)) Then
   
     err_1 = dx2 - Ady
     err_2 = dz2 - Ady
     
     For Cont = 0 To  Ady-1
       
       If (err_1 > 0) Then
            xxx+= x_inc
            err_1 -= dy2
        EndIf
         
        If (err_2 > 0) Then
            zzz+= z_inc
            err_2 -= dy2
        EndIf
       
        err_1 += dx2
        err_2 += dz2
        yyy+= y_inc
   
        print xxx, yyy, zzz
       
     Next

   EndIf
   
   If ((Adz> Adx) And (Adz> Ady)) Then
   
      err_1 = dy2 - Adz
      err_2 = dx2 - Adz
     
      For Cont = 0 To Adz-1
         
         If (err_1 > 0) Then
             yyy+= y_inc
             err_1 -= dz2
         EndIf
         
         If (err_2 > 0) Then
             xxx+= x_inc
             err_2 -= dz2
         EndIf
         
         err_1 += dy2
         err_2 += dx2
         zzz+= z_inc
       
         print xxx, yyy, zzz
       
    Next
   
   EndIf
   
   Xold=xnew
   Yold=ynew
   Zold=znew
Wend

End