|
|
|
|
|
|
|
|
|
version 1
ch_Tableau vers polygone (zone; tableauH; tableauV) 
Entier long
| Paramètre | Type | Description | |
| zone | Entier long | | Zone 4D Chart |
| tableauH | Tableau num | | Tableau de valeurs horizontales pour les sommets |
| tableauV | Tableau num | | Tableau de valeurs verticales pour les sommets |
| Résultat | Entier long |  | Numéro d'ID du nouvel objet |
Description
La commande ch_Tableau vers polygone crée un nouveau polygone dans zone, d'après les tableaux tableauH et tableauV et renvoie l'identifiant du nouvel objet.
tableauH et tableauV donnent la position de chaque sommet du polygone. Les deux tableaux peuvent être de type Numérique (Réel), Entier long, ou Entier, et sont spécifiés en points. Pour obtenir un polygone correct, chaque tableau doit contenir au moins trois éléments. Si les tableaux ne sont pas de même taille, les éléments excédentaires dans le tableau le plus grand sont ignorés. Pour créer un polygone fermé, la dernière valeur dans chaque tableau doit correspondre à la première.
Exemple
L'exemple suivant remplit deux tableaux et crée un polygone à partir d'eux. Ensuite, il déplace et redimensionne le polygone.
$Sommets:=Num(Demander("Saisissez le nombre de sommets :"))
Si (OK=1)
`Déclarer les tableaux
TABLEAU REEL(TabSommetH;$Sommets)
TABLEAU REEL(TabSommetV;$Sommets)
`Remplir les tableaux
Boucle ($i;1;$Sommets)
TabSommetH{$i}:=Sin($i)
TabSommetV{$i}:=Cos($i)
Fin de boucle
`Dessiner le polygone
$Poly:=ch_Tableau vers polygone (Zone;TabSommetH;TabSommetV)
`Déplacer le polygone vers les coordonnées de zone (10,10)
ch_DEPLACER (Zone;$Poly;10;10)
`Redimensionner le polygone à 200x200
ch_MODIFIER TAILLE (Zone;$Poly;200;200)
Fin de si
|
|
|
|
|
|
|
|
|