GetAspectRatio |
Demande le ratio de l'aspect |
|---|---|
| HighSpeed Pascal | Graph |
Syntaxe
| Procedure GetAspectRatio(var Xasp, Yasp:Word); |
Paramètres
| Nom | Description |
|---|---|
| Xasp | Ce paramètre permet le numérateur de ratio. |
| Yasp | Ce paramètre permet le dénominateur de ratio. |
Description
Cette procédure permet de déterminer l'aspect des cercles pour produire un cercle en accord avec le fait que les écrans ne soit pas carré.
Remarque
- La procédure GetAspectRatio renvoie les valeurs X et Y utilisées pour calculer le rapport d'aspect.
- Le rapport de hauteur et largeur est utilisé par Arc, Circle et PieSlice pour garantir que les figures circulaires apparaîtront à l'écran comme étant rondes et non en forme d'oeuf.
- Les proportions dépendent du mode d'écran utilisé. La valeur par défaut pour Yasp est 10000; pour un écran PAL non entrelacé standard, la valeur par défaut pour Xasp est 18750.
Exemple
L'exemple suivant permet de montrer la différence d'un cercle entre l'aspect avec une ratio ou un en oeuf :
- Program GetAspectRatioSamples;
- Uses Graph,Crt;
- Var
- Driver,Mode:Integer;
- C:Char;
- Xasp,Yasp:Word;
- BEGIN
- Driver:=DETECT;
- InitGraph(Driver,Mode,'');
- SetTextJustify(CenterText,CenterText);
- OutTextXY(100,100,'Cercle') ;
- Circle(100,100,45);
- GetAspectRatio(Xasp,Yasp);
- Dec(Yasp,5000);
- SetAspectRatio(Xasp,Yasp);
- OutTextXY(200,100,' Oeuf ');
- Circle(200,100,45);
- C:=ReadKey;
- CloseGraph;
- END.
Dernière mise à jour : Lundi, le 20 avril 2020