SGR Generate PolarGraph

SGR Generate PolarGraph

Exemple de code

---

 // Nom utilisateur (OS) : Paul Kuhn - BlueCompany
 // ----------------------------------------------------
 // Méthode : Exemple_DiagrammePolaire
 // Description
 // 
 //
 // Paramètres
 // ----------------------------------------------------


 // Définition des paramètre de dessin génériques du graphe
TABLEAU TEXTE($DataGraphe;0)
AJOUTER A TABLEAU($DataGraphe;"Répartition des ressources autour de chez vous")  // 1 - titre du graphe
AJOUTER A TABLEAU($DataGraphe;"30")  // 2 - taille du libellé
AJOUTER A TABLEAU($DataGraphe;"White")  // 3 - couleur du fond
AJOUTER A TABLEAU($DataGraphe;"oui")  // 4 - Echelle
AJOUTER A TABLEAU($DataGraphe;"oui")  // 5 - Affichage des axes
AJOUTER A TABLEAU($DataGraphe;"oui")  // 6 - Affichage des graguations périmétriques
AJOUTER A TABLEAU($DataGraphe;"Blue")  // 7 - couleur du périmetre du cercle
AJOUTER A TABLEAU($DataGraphe;"blue:10")  // 8 - couleur du fond du cercle
AJOUTER A TABLEAU($DataGraphe;"purple:5")  // 9 - couleur des cercles concentriques d'échelle
AJOUTER A TABLEAU($DataGraphe;"oui")  // 10 - graduation radiale de 10 en 10
AJOUTER A TABLEAU($DataGraphe;"rose des vents")  // 11 - graduation radiale en rose des vents

TABLEAU TEXTE(DataSerie;3;3)
DataSerie{1}{1}:="Cinema"
DataSerie{1}{2}:="Purple"
DataSerie{1}{3}:="rond"  // marque : carré/rond/triangle

DataSerie{2}{1}:="Station essence"
DataSerie{2}{2}:="blue"
DataSerie{2}{3}:="triangle"  // marque : carré/rond/triangle

DataSerie{3}{1}:="Services de secours"
DataSerie{3}{2}:="red"
DataSerie{3}{3}:="carré"  // marque : carré/rond/triangle

 // définition du tableau à 2 dimensions des distances
TABLEAU REEL(Distance;0;0)
TABLEAU REEL(Distance;3;5)
Distance{1}{1}:=5
Distance{1}{2}:=30
Distance{1}{3}:=70

Distance{2}{1}:=20
Distance{2}{2}:=47
Distance{2}{3}:=20
Distance{2}{4}:=40
Distance{2}{5}:=60

Distance{3}{1}:=40
Distance{3}{2}:=65

 // définition du tableau à 2 dimensions des angles
TABLEAU REEL(angles;0;0)
TABLEAU REEL(angles;3;5)
angles{1}{1}:=405
angles{1}{2}:=220
angles{1}{3}:=330

angles{2}{1}:=290
angles{2}{2}:=30
angles{2}{3}:=150
angles{2}{4}:=65
angles{2}{5}:=180

angles{3}{1}:=335
angles{3}{2}:=60

TheGraphe:=SGR_Generate_PolarGraph (->$DataGraphe;->DataSerie;->Distance;->angles)

• 

  Image correspondant à l'exemple de code ci-dessus