    % kludge to move and scale the fig on the page without
    % modification to the code
    % 0.7 0.7 scale
    % 130 320 translate
    (Times-Roman) 12 Font
    /Data [ 15 10 20 20 50 50 75 25 12 18 ] def
    /Width 250 def
    /Height 250 def
    /Bottom 60 def
    /Left 50 def
    /Xshift { Width 10 add } def
    /Yshift { Height 10 add } def
    % same values for all windows
    [ 0 100 0 100 ] Axe2
    /gr [(20)(40)(60)(80)] def
    gr (Titre X_1) GradX
    gr (Y_1 axis title) GradY
    /W1 Win % save user window 1
    %
    /Left Left Xshift add def
    [ 0 100 0 100 ] Axe2
    (Titre X_2) gr GradX
    gr false GradY
    /W2 Win % save user window 2
    %
    /Left Left Xshift sub def % order
    /Bottom Bottom Yshift add def       % is
    [ 0 100 0 100 ] Axe2
    gr false GradX
    (Y_3 axis title) gr GradY
    /W3 Win % save user window 3
    %
    /Left Left Xshift add def
    [ 0 100 0 100 ] Axe2
    gr false GradX
    gr false GradY
    /W4 Win % save user window 4
    %
    W1 Win %=== recall W1 user window
    Data Filled Red Circles
    %
    W2 Win % now in the 2d window and so on...
    Data Empty Blue Circles
    ?
    W3 Win
    Data Filled Green Circles
    ?
    W4 Win
    Data Filled Black Squares
    ?
    W1 Win
    [-5 -10 120 110 ] 1 Dash 0.5 setgray Lines
    gsave
    Fobj Clip % Clip plot in current window
    [-5 -10 120 110 ] Red Lines
    grestore % revert to unclipped plot mode