(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