% 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
