Forme par dessus un champ camera

CAM_MaWebcam..Altitude=1

nAltCam est entier //Altitude du champ de la Webcam
nAltRect est entier // Altitude du champ rectangle rouge

nAltCam=CAM_Webcam..Altitude
nAltRect=FRM_RectangleRouge..Altitude

SI EnModeTest() ALORS
	Trace ("Avant échange"+CRLF)
	Trace ("Altitude de la Webcam :"+nAltCam+CRLF)
	Trace ("Altitude du rectangle :"+nAltRect+CRLF)
FIN

SI nAltRect<nAltCam ALORS //On va échanger les altitudes
	SI EnModeTest() ALORS
		Trace("Le rectangle est sous la Webcam")
	FIN
	
	CAM_Webcam..Altitude=nAltRect
	FRM_RectangleRouge..Altitude=nAltCam
	
	SI EnModeTest()
		Trace("On a changé les altitudes")
	FIN
FIN

PROCEDURE PlaceDessus(sNomChampBas est chaine, sNomChampHaut est chaine)
	//sNomChampBas : Nom du champ qui est en bas et qui doit être placé devant
	//sNomChampHaut: Nom du champ à placer en arrière plan par rapport au champ bas
	
	//Ces deux variables sont là pour faciliter la lecture du code
	nAltBas est entier //Altitude du champ qui doit être au prmier plan
	nAltHaut est entier //Altitude du champ qui doit être en arrière plan
	
	nAltBas={sNomChampBas}..Altitude
	nAltHaut={sNomChampHaut}..Altitude
	
	SI nAltBas<nAltHaut ALORS //On doit faire l'échange
		PermuterAltitude(sNomChampBas,sNomChampHaut)
	FIN
	
PROCEDURE PermuterAltitude(sChamp1 est chaine,sChamp2 est chaine)
	//Un swap classique
	//L'ordre des champs n'a pas d'importance
	
	nAltBuff est entier //Buffer d'altitude pour l'échange
	
	nAltBuff={sChamp1}..Altitude
	
	{sChamp1}..Altitude={sChamp2}..Altitude
	{sChamp2}..Altitude=nAltBuff