% 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