Discussion :

[Setsuna_00]

Mon projet doit charger une carte de geographie avec pour chaque zone de couleur un relief et la traiter
je desire désigner une grille avec des diagonales sur l'image.
voici ma fonction qui trace mes diagos:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
let draw_diag surface (x1, y1) (x2, y2) h =
  begin
	  let i = ref 0 and dx = (x2 - x1) and dy= (y2 - y1) and rest = ref 0  
	  and x = ref 0 and y = ref 0 in
	  	(*Sdlvideo.put_pixel_color surface x1 y1 Sdlvideo.black;*)
	    	while(!i < dx) do
	    	  begin
	    		x := !x + 1;
	    		rest := !rest + dy;
	    		if (!rest >= dx) then
	    		  begin
	    		  rest := !rest - dx;
	    		  y := !y + 1;
	    		  end;
	    		  Sdlvideo.put_pixel_color surface !x ((h-1)-(!y)) Sdlvideo.black;
	    	  i := !i +1;	  
	    	  end	  			      
		done;
  end

Je me sert des coodonées des précèdentes droites et colonnes tracées pour la grilles pour definir mes extrémités de diagonales.
Mon probème est que mes diagonales ne s'affiche jamais la ou je le souhaite!

[gasche]

Recode tout ça avec des boucles `for`, ça a plus de chance d'être lisibles, et tu verras donc mieux où sont les erreurs.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
for i = truc to bidule do
   print_int i;
   print_string "\t"
done;
print_newline ()

[Cacophrene]

Bonjour,

Tu peux aussi enlever le begin...end qui délimite le corps de la fonction, car il est inutile (restes de Pascal ? ), essayer d'utiliser moins de références et utiliser des noms de variables un peu plus explicites. Les erreurs seront alors sans doute plus reconnaissables.

En l'état le code est assez difficile à lire (même pour des caméliens pratiquants).

Cordialement,