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