Discussion :

[Palca]

Bonjour,
dans le cadre d'un projet je dois reproduire les dessins suivants dans la fenêtre graphique de Caml Light :

A partir du code suivant pour générer les images :

Code :

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

1
2
3
4
5
6
type Point == float * float;;
type 'a Image == Point -> 'a;;
type Region == bool Image;;
 
let (vstrip : Region) = function (x,y) -> abs_float x <= 0.5;;
let (checker : Region) = function (x,y) -> mod_float (floor x +. floor y) 2. = 0.;;

L'image vstrip étant celle de gauche et checker celle de droite.
Mon code d'affichage est le suivant :

Code :

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

1
2
3
4
5
6
7
8
let afficheRegion region width = let x=size_x() and y=size_y() in 
for j=y downto 0 do
	for i=0 to x do
		if region ((float_of_int i) *. width /. (float_of_int x), (float_of_int j) *. width /. (float_of_int y)) == true then set_color (rgb 0 0 0)
		else set_color (rgb 255 255 255);
		plot i j;
	done;
done;;

Mon problème est que Caml considère l'origine dans l'angle inférieur gauche de l'écran tandis que les fonctions vstrip et checker nécessitent qu'il soit au centre de l'écran.
Ma question est donc de savoir comment adapter ma fonction d'affichage à cette contrainte ? Car au lieu d'avoir une barre verticale centrée pour mon vstrip, elle se trouve totalement à gauche de l'écran.

Merci d'avance.

[Garulfo]

Bonjour,
[...]
Mon problème est que Caml considère l'origine dans l'angle inférieur gauche de l'écran tandis que les fonctions vstrip et checker nécessitent qu'il soit au centre de l'écran.
Ma question est donc de savoir comment adapter ma fonction d'affichage à cette contrainte ? Car au lieu d'avoir une barre verticale centrée pour mon vstrip, elle se trouve totalement à gauche de l'écran.

Merci d'avance.

Tu effectues une translation. C'est-à-dire que tu calcules la position du centre de l'écran (MAX_X/2, MAX_Y/2) puis tu changes les équations pour qu'elles tiennent compte de la translation. Pour une équation y=x^2 tu aurais (y-y_0) = (x-x_0)^2. Tu as oublié tes cours de géométrie ?
À toi de calculer quel est exactement x_0 ou y_0. Et attention, ils peuvent être négatifs.

[Palca]

J'avais pensé à la translation le problème c'est que je n'en faisais qu'une alors que deux sont nécessaires, du coup ce code fonctionne.

Code :

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

1
2
3
4
5
6
7
8
let afficheRegion region width = let x=size_x() and y=size_y() in 
for j=y/2 downto (-1)*y/2 do
	for i=(-1)*x/2 to x/2 do
		if region ((float_of_int i) *. width /. (float_of_int x), (float_of_int j) *. width /. (float_of_int y)) then set_color (rgb 0 0 0)
		else set_color (rgb 255 255 255);
		plot (i+x/2) (j+y/2);
	done;
done;;

[Garulfo]

C'est donc ?