(Times-Roman) 15 Font
0.35 mm Pen
[70 570 70 570][ 0 100 0 100 ] Axe2
[(25)(50)(75)] GradX
[(25)(50)(75)] GradY
25 Font
(Axe X) GradX
(Axe Y) GradY
% Here we define the data vectors to plot
/X [ 5 15 30 45 50 70 80 ] def
/Y1 [60 50 40 30 20  10 0 ] def
/Y2 [ 30 35 40 43 25 22 12 ] def
% we can do some simple calculation on data
/Y3 [ Y2 { 1.2 mul } forall ] def
/XY [ 30 35 60 65 80 85 ] def
% then use them in plot function call
0 10 Y1 NoLines Violet Filled Circles
X Y1 NoLines Orange Filled Squares
X Y2 NoLines Red Cross
X Y3 WithLines Blue Empty Diamonds
gsave XY Red 1 Dash Lines grestore % local dash
% write some labels for the various plots
Black 15 Font
10 90 s2o  % paper location to start writing labels
% s2o convert from user coordinate to paper coordinats
% these 2 numbers are used by the first Label call
% subsequent calls just skip to the next line
(NoLines Violet Filled Circles) ( 0 10 Y1 ) Label
(NoLines Orange Filled Squares) ( X Y1 ) Label
(NoLines Red Cross) ( X Y2 ) Label
(WithLines Blue Empty Diamonds) ( X Y3 ) Label
gsave
(Red 1 Dash Lines) ( XY ) Label
grestore
% some more drawing on the graph in user coord
0.1 mm Pen
[ 0 20 100 20 ] Black Lines
