UpsGng.Rectangle

Définition


/***************************************************************/

Type Rectangle Defaut TailleSegment 4 ConserverObjets

/* Objet : Definition d'un rectangle.                 			  */

/***************************************************************/

/*-------------------------------------------------------------*/

/* Heritage des proprietes d'Objet.  */

/*-------------------------------------------------------------*/

Prive :

	
	EstInstanceDe : Type Lecture Public;

/*-------------------------------------------------------------*/

/* Proprietes propres.                     					      */

/*-------------------------------------------------------------*/

Public :

	
   X : Reel Trace;
	

   Y : Reel Trace;
	

   Largeur : Reel Trace;
	

   Hauteur : Reel Trace;

/*-------------------------------------------------------------*/

/* Heritage des methodes d'Objet.    					      */

/*-------------------------------------------------------------*/

Public :

	
	Fonction Optimiser(Invariant) Identique(O : Nul Ou Objet) Retourner Nul Ou Booleen;
	

	Procedure Convertir(O : Nul Ou Objet);
	

	Fonction Optimiser(Invariant) CreeParLeServeur() Retourner Entier;
	

	Fonction Optimiser(Invariant) CreeParLeProcessus() Retourner Entier;
	

	Fonction Optimiser(Invariant) CreeDansLEntrepot() Retourner Entrepot;
	

	Fonction Cloner(EntrepotCible : Nul Ou Entrepot=Nul, Profondeur : ModeClonage = ClonageObjetSeul) Retourner Nul Ou Objet;
	

	Fonction LirePropriete(NomPropriete : Caractere) Retourner Nul Ou Objet;
	

	Procedure EcrirePropriete(NomPropriete : Caractere, Valeur : Nul Ou Objet);
	

	Fonction IncrementerDecrementerPropriete(NomPropriete : Nul Ou Caractere, Incrementer : Booleen, Prefixe : Booleen) Retourner Nul Ou Objet;
	

	Procedure SupprimerPropriete(NomPropriete : Caractere);
	

	Fonction Optimiser(Invariant) EnumererProprietes(NumeroPropriete : Entier, TypePropriete : Nul Ou Type=? Sortie, PeutEtreNul : Booleen=? Sortie, Aide : Nul Ou Caractere=? Sortie, NomEnumere : Nul Ou Caractere=? Sortie) Retourner Nul Ou Caractere;
	

	Fonction Optimiser(Invariant) Adresse() Retourner Nul Ou Caractere;

Prive :

	
	Fonction Exporter(E : Nul Ou IEchangeElementaire) Retourner Boolean;
	

	Fonction Importer(E : Nul Ou IEchangeElementaire, EntrepotCible : Nul Ou Entrepot=Nul, EstFiltre : Booleen=Faux, V : Entier=0, R : Entier=0, C : Entier=0) Retourner Nul Ou Objet;

/*-------------------------------------------------------------*/

/* Methodes propres.                                           */

/*-------------------------------------------------------------*/

Public :


	
   Constructeur();
	

   Constructeur(XX : Reel, YY : Reel, LL : Reel, HH : Reel);
	

   Constructeur(P1 : Nul Ou Point, P2 : Nul Ou Point);
	

   Operateur Optimiser(Invariant, NulAbsorbant) ==(R : Nul Ou Rectangle) Retourner Nul Ou Booleen;
	

   Operateur Optimiser(Invariant, NulAbsorbant) !=(R : Nul Ou Rectangle) Retourner Nul Ou Booleen;

Prive :

	
   Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;

Fin Type

Le type Rectangle modélise un rectangle d'une figure géométrique.

Le type Rectangle possède trois constructeurs :

Un implicite l'initialisant à (0, 0, 0, 0).
Un explicite l'initialisant au point de coordonnées (XX, YY), large de LL et haut de HH.
Un explicite l'étendant du point P1 au point P2.

Pour le style de cadre StyleCadreOmbre de SorteStyleCadre, la convention est la suivante :

Si la largeur du rectangle est positive alors le bord haut est en trait simple et le bord bas est en trait double.
Si la largeur du rectangle est négative alors le bord haut est en trait double et le bord bas est en trait simple.
Si la hauteur du rectangle est positive alors le bord gauche est en trait simple et le bord droit est en trait double.
Si la hauteur du rectangle est négative alors le bord gauche est en trait double et le bord droit est en trait simple.

Opérateurs

Le type Rectangle possède les opérateurs standards suivants :

== pour l'égalité entre deux rectangles. Le résultat est un booléen.
!= pour l'inégalité entre deux rectangles. Le résultat est un booléen.
= pour l'affectation d'un rectangle dans un autre.

Exemple


Principal

/*******/

Variable

/******/


	R1 : Nul Ou Rectangle;

	R2 : Nul Ou Rectangle;



Debut

...

Si R1==R2 Alors

/* Egalité entre deux rectangles. */


	...

Fin Si

Si R1!=R2 Alors

/* Inégalité entre deux rectangles. */


	...

Fin Si

...

Fin Principal

Traduction


-	-	-	-	-	-	-	-	-