#include Axe3
% TODO ? change Xa Ya -> Gauche Bas or Left Bottom
% and Cote should be Largeur / Width...

/Width 70 mm def
8 Font
0.5 Pen
2 Size

/Xa 30 def
/Ya 30 def
(Na_2O) (SiO_2) (K_2O) Axe3
/T1 Win

/Ya Yc 30 add def
(K_2O) (SiO_2) (K_2O) Axe3
/T2 Win

/Ya Yc 30 add def
(Al_2O_3) (SiO_2) (FeO) Axe3
/T3 Win

/Xa Xb 50 add def
/Ya 30 def
(Na_2O) (SiO_2) (K_2O) Axe3
/T4 Win

/Ya Yc 30 add def
(K_2O) (SiO_2) (K_2O) Axe3
/T5 Win

/Ya Yc 30 add def
(Al_2O_3) (SiO_2) (FeO) Axe3
/T6 Win

% the data table
/Tbl [
  20.0  25.0
  35.0  15.0
  50.0  16.5
  60.0  5.33
] def

Filled % all symbols filled

T1 Win
[ Tbl { 100 div } forall ] Blue Circles

T5 Win
[ Tbl { 100 div } forall ] Red Squares

T2 Win
4 Size
[ 0.3 0.2  0.154 0.233 ] Olive WithLines Squares
