    #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