    (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