Belle Nuit Montage - Bar Chart with PS

Javascript Editor

rpnPostScriptEditor(`
10 dict begin /raw 0 def /canvas 1 def /transparent 0 def currentdict setpagedevice end
/data [ [(1992) 4790 3980][(1993) 5900 5500][(1994) 4900 5100][(1995) 5180 5000]] def
/title (Income and expenses per year) def
/colors [ [ 0 0 1 ] [ 0 1 0 ] [ 1 0 0 ] [ 0.7 0.7 0] [ 0 0.7 0.7] [0.5 0.5 0.5] ] def
/width 550 def
/height 290 def
20 20 translate
% autosize
/xcount data length def
/series data 0 get length 1 sub def

/ymax data 0 get 1 get def
/ymin data 0 get 1 get def
1 1 series { /s exch def
1 1 xcount { /i exch def /y data i 1 sub get s get def
/ymax ymax y max def /ymin ymin y min def } for } for

/round1 { log 0.5 sub round 10 exch exp } def
/ystep ymax ymin sub round1 def
/yoffset ymin ystep div 0.5 sub round ystep mul def
/ycount ymax ymin sub ystep div 1.5 add round def
/xaxish 30 def
/yscale height ycount 2 add ystep mul xaxish add div def
/CMUTypewriter-Regular findfont 18 scalefont setfont 
/yaxisw yoffset cvs stringwidth pop 5 add def 
/width2 width yaxisw sub def
/barwidth width2 xcount div series div 3 div round def
/xoffset width2 xcount div round def

/setcolor { colors length 1 sub min /c exch def colors c get 0 get colors c get 1 get colors c get 2 get setrgbcolor } def

% set origin
% frame
% 0 0 moveto width 0 lineto width height lineto 0 height lineto closepath stroke

yaxisw xaxish translate

% y axis
0 1 ycount { /y exch def 
0.7 setgray
y ystep mul yscale mul 0 exch moveto width2 0 rlineto stroke 
0 setgray
/label y ystep mul yoffset add cvs def
label stringwidth pop neg 2 sub y ystep mul yscale mul moveto label show} for

% bars and xlabels
1 1 xcount { /x exch def x gsave 0.5 sub xoffset mul barwidth 2 div sub 0 translate
1 1 series { /s exch def
/y data x 1 sub get s get yoffset sub yscale mul def
s 1 sub setcolor
barwidth s 1 sub mul 0 moveto barwidth 0 rlineto 0 y rlineto barwidth neg 0 rlineto closepath fill } for
/label data x 1 sub get 0 get def 
0 setgray
barwidth series mul 2 div label stringwidth pop 2 div sub -20 moveto label show
grestore} for
0 setgray

% x axis
0 0 moveto width2 0 lineto stroke
% title
yaxisw neg ycount 1 add ystep mul yscale mul moveto title show

showpage

`)

Javascript Editor

rpnPostScriptEditor(`
10 dict begin /raw 0 def /canvas 1 def /transparent 0 def currentdict setpagedevice end
/data [ [(1992) 4790 3980][(1993) 5900 5500][(1994) 4900 5100][(1995) 5180 5000]] def
/title (Income and expenses per year) def
/colors [ [ 0 0 1 ] [ 0 1 0 ] [ 1 0 0 ] [ 0.7 0.7 0] [ 0 0.7 0.7] [0.5 0.5 0.5] ] def
/width 550 def
/height 290 def
20 20 translate

% autosize
/xcount data length def
/series data 0 get length 1 sub def

/ymax data 0 get 1 get def
/ymin data 0 get 1 get def
1 1 series { /s exch def
1 1 xcount { /i exch def /y data i 1 sub get s get def
/ymax ymax y max def /ymin ymin y min def } for } for

/round1 { log 0.5 sub round 10 exch exp } def
/ystep ymax ymin sub round1 def
/yoffset ymin ystep div 0.5 sub round ystep mul def
/ycount ymax ymin sub ystep div 1.5 add round def
/xaxish 30 def
/yscale height ycount 2 add ystep mul xaxish add div def
/CMUTypewriter-Regular findfont 18 scalefont setfont 
/yaxisw yoffset cvs stringwidth pop 5 add def 
/width2 width yaxisw sub def
/barwidth width2 xcount div series div 3 div round def
/xoffset width2 xcount div round def

/setcolor { colors length 1 sub min /c exch def colors c get 0 get colors c get 1 get colors c get 2 get setrgbcolor } def

% set origin
% frame
% 0 0 moveto width 0 lineto width height lineto 0 height lineto closepath stroke

yaxisw xaxish translate

% y axis
0 1 ycount { /y exch def 
0.7 setgray
y ystep mul yscale mul 0 exch moveto width2 0 rlineto stroke 
0 setgray
/label y ystep mul yoffset add cvs def
label stringwidth pop neg 2 sub y ystep mul yscale mul moveto label show} for

% bars and xlabels
1 1 xcount { /x exch def x gsave 0.5 sub xoffset mul barwidth 2 div sub 0 translate
/label data x 1 sub get 0 get def 
0 setgray
barwidth series mul 2 div label stringwidth pop 2 div sub -20 moveto label show
grestore} for
4 setlinewidth
1 1 series { /s exch def 
s 1 sub setcolor
0.5 xoffset mul data 0 get s get yoffset sub yscale mul moveto
2 1 xcount { /x exch def
x 0.5 sub xoffset mul data x 1 sub get s get yoffset sub yscale mul lineto 
} for stroke
} for

% x axis
0 setgray
1 setlinewidth
0 0 moveto width2 0 lineto stroke
% title
yaxisw neg ycount 1 add ystep mul yscale mul moveto title show

showpage

`)

Javascript Editor

rpnPostScriptEditor(`

10 dict begin /raw 0 def /canvas 1 def /transparent 0 def currentdict setpagedevice end
/data [ [(1992) 4790 3980 4000][(93) 5900 5500 5000][(94) 4900 5100 6000][(95) 5180 4500 7000] [(1996) 5320 4500 8000]] def
/title (Income and expenses per year) def
/colors [ [ 0 0 1 ] [ 0 1 0 ] [ 1 0 0 ] [ 0.7 0.7 0] [ 0 0.7 0.7] [0.5 0.5 0.5] ] def

/width 550 def
/height 290 def
20 20 translate

% autosize
/xcount data length def
/series data 0 get length 1 sub def

/ymax data 0 get 1 get def
/ymin data 0 get 1 get def
1 1 series { /s exch def
1 1 xcount { /i exch def /y data i 1 sub get s get def
/ymax ymax y max def /ymin ymin y min def } for } for

/round1 { log 0.5 sub round 10 exch exp } def
/ystep ymax ymin sub round1 def
/yoffset ymin ystep div 0.5 sub round ystep mul def
/ycount ymax ymin sub ystep div 1.5 add round def
/xaxish 30 def
/yscale height ycount 2 add ystep mul xaxish add div def
/CMUTypewriter-Regular findfont 18 scalefont setfont 
/yaxisw yoffset cvs stringwidth pop 5 add def 
/width2 width yaxisw sub def
/barwidth width2 xcount div series div 3 div round def
/xoffset width2 xcount div round def

/setcolor { colors length 1 sub min /c exch def colors c get 0 get colors c get 1 get colors c get 2 get setrgbcolor } def

% set origin
% frame
% 0 0 moveto width 0 lineto width height lineto 0 height lineto closepath stroke

yaxisw xaxish translate

% y axis
0 1 ycount { /y exch def 
0.7 setgray
y ystep mul yscale mul 0 exch moveto width2 0 rlineto stroke 
0 setgray
/label y ystep mul yoffset add cvs def
label stringwidth pop neg 2 sub y ystep mul yscale mul moveto label show} for

% bars and xlabels
1 1 xcount { /x exch def x gsave 0.5 sub xoffset mul barwidth 2 div sub 0 translate
/label data x 1 sub get 0 get def 
0 setgray
0 label stringwidth pop 2 div sub -20 moveto label show
grestore} for
4 setlinewidth
1 1 series { /s exch def 
s 1 sub setcolor
/y data 0 get s get def
/after data 1 get s get def
0.5 xoffset mul y yoffset sub yscale mul moveto
/c1 after y sub 3 div y add def
1 1 xcount 2 sub { /x exch def
/before data x 1 sub get s get def
/y data x get s get def
/after data x 1 add get s get def
/c2 before after sub 6 div y add def
0.5 x add 0.66 sub xoffset mul c1 yoffset sub yscale mul  
0.5 x add 0.33 sub xoffset mul c2 yoffset sub yscale mul  
0.5 x add xoffset mul y yoffset sub yscale mul curveto
/c1 y y c2 sub add def
} for 
/y data xcount 1 sub get s get def
/before data xcount 2 sub get s get def
/c2 before y sub 3 div y add def
0.5 xcount 1 sub add 0.66 sub xoffset mul c1 yoffset sub yscale mul  
0.5 xcount 1 sub add 0.33 sub xoffset mul c2 yoffset sub yscale mul  
0.5 xcount 1 sub add xoffset mul y yoffset sub yscale mul curveto
stroke
} for

% x axis
0 setgray
1 setlinewidth
0 0 moveto width2 0 lineto stroke
% title
yaxisw neg ycount 1 add ystep mul yscale mul moveto title show

showpage

`)

Javascript Editor

rpnPostScriptEditor(`

10 dict begin /raw 0 def /canvas 1 def /transparent 0 def currentdict setpagedevice end
/data [ [(1992) 4790 3980 4000 0][(93) 5900 5500 5000 0][(94) 4900 5100 0 0][(95) 5180 4500 0 7000] [(1996) 5320 4000 0 8000]] def
/datastarts [ 0 0 0 0 3 ] def
/dataends [ 5 5 5 2 5 ] def
/title (Income and expenses per year) def
/colors [ [ 0 0 1 ] [ 0 1 0 ] [ 1 0 0 ] [ 0.7 0.7 0] [ 0 0.7 0.7] [0.5 0.5 0.5] ] def

/width 550 def
/height 290 def
20 20 translate

% autosize
/xcount data length def
/series data 0 get length 1 sub def

/ymax data 0 get 1 get def
/ymin data 0 get 1 get def
1 1 series { /s exch def
1 1 xcount { /i exch def /y data i 1 sub get s get def
/ymax ymax y max def /ymin ymin y min def } for } for

/round1 { log 0.5 sub round 10 exch exp } def
/ystep ymax ymin sub round1 def
/yoffset ymin ystep div 0.5 sub round ystep mul def
/ycount ymax ymin sub ystep div 1.5 add round def
/xaxish 30 def
/yscale height ycount 2 add ystep mul xaxish add div def
/CMUTypewriter-Regular findfont 18 scalefont setfont 
/yaxisw yoffset cvs stringwidth pop 5 add def 
/width2 width yaxisw sub def
/barwidth width2 xcount div series div 3 div round def
/xoffset width2 xcount div round def

/setcolor { colors length 1 sub min /c exch def colors c get 0 get colors c get 1 get colors c get 2 get setrgbcolor } def

% set origin
% frame
% 0 0 moveto width 0 lineto width height lineto 0 height lineto closepath stroke

yaxisw xaxish translate

% y axis
0 1 ycount { /y exch def 
0.7 setgray
y ystep mul yscale mul 0 exch moveto width2 0 rlineto stroke 
0 setgray
/label y ystep mul yoffset add cvs def
label stringwidth pop neg 2 sub y ystep mul yscale mul moveto label show} for

% bars and xlabels
1 1 xcount { /x exch def x gsave 0.5 sub xoffset mul barwidth 2 div sub 0 translate
/label data x 1 sub get 0 get def 
0 setgray
0 label stringwidth pop 2 div sub -20 moveto label show
grestore} for
4 setlinewidth
1 1 series { /s exch def 
s 1 sub setcolor
/y data datastarts s get get s get def
/after data datastarts s get 1 add get s get def
0.5 datastarts s get add xoffset mul y yoffset sub yscale mul moveto
/c1 after y sub 3 div y add def
datastarts s get 1 add 1 dataends s get 2 sub { /x exch def
/before data x 1 sub get s get def
/y data x get s get def
/after data x 1 add get s get def
/c2 before after sub 6 div y add def
0.5 x add 0.66 sub xoffset mul c1 yoffset sub yscale mul  
0.5 x add 0.33 sub xoffset mul c2 yoffset sub yscale mul  
0.5 x add xoffset mul y yoffset sub yscale mul curveto
/c1 y y c2 sub add def
} for 
/y data dataends s get 1 sub get s get def
/before data dataends s get 2 sub get s get def
/c2 before y sub 3 div y add def
0.5 dataends s get 1 sub add 0.66 sub xoffset mul c1 yoffset sub yscale mul  
0.5 dataends s get 1 sub add 0.33 sub xoffset mul c2 yoffset sub yscale mul  
0.5 dataends s get 1 sub add xoffset mul y yoffset sub yscale mul curveto
stroke
} for

% x axis
0 setgray
1 setlinewidth
0 0 moveto width2 0 lineto stroke
% title
yaxisw neg ycount 1 add ystep mul yscale mul moveto title show

showpage
`)

Javascript Editor

rpnPostScriptEditor(`

10 dict begin /raw 0 def /canvas 1 def /transparent 0 def currentdict setpagedevice end
/data [ [0.2 0.3 0.6 0.8][0.3 0.4 0.7 0.9][0.9 0.1][0.4 0.3][0.7][0.5]] def
/title (Income and expenses per year) def
/colors [ [ 0 0 1 ] [ 0 1 0 ] [ 1 0 0 ] [ 0.7 0.7 0] [ 0 0.7 0.7] [0.5 0.5 0.5] ] def
/width 290 def
/height 290 def
20 20 translate

% autosize
/series data length 2 div def

/xmax data 0 get 0 get def
/xmin data 0 get 0 get def
/ymax data 0 get 1 get def
/ymin data 0 get 1 get def
0 1 series 1 sub { /s exch def 
/d data s 2 mul get def
0 1 d length 1 sub { d exch get /x exch def
/xmax xmax x max def /xmin xmin x min def } for
/d data s 2 mul 1 add get def
0 1 d length 1 sub { d exch get /y exch def
/ymax ymax y max def /ymin ymin y min def } for
} for

/round1 { log 0.5 sub round 10 exch exp } def
/ystep ymax ymin sub round1 def
/yoffset ymin ystep div 0.5 sub round ystep mul def
/ycount ymax ymin sub ystep div 1.5 add round def

/xaxish 30 def
/yscale height xaxish sub ycount 2 add ystep mul div def
/CMUTypewriter-Regular findfont 18 scalefont setfont 
/yaxisw yoffset cvs stringwidth pop 5 add def 
/width2 width yaxisw sub def
/xstep xmax xmin sub round1 def
/xoffset xmin xstep div round xstep mul def
/xcount xmax xmin sub xstep div round def
/xscale width2 xcount xstep mul div def

/setcolor { colors length 1 sub min /c exch def colors c get 0 get colors c get 1 get colors c get 2 get setrgbcolor } def

% set origin
% frame
% 0 0 moveto width 0 lineto width height lineto 0 height lineto closepath stroke

yaxisw xaxish translate

% y axis
0 1 ycount { /y exch def 
0.7 setgray
0 y ystep mul yscale mul moveto width2 0 rlineto stroke 
0 setgray
/label y ystep mul yoffset add cvs def
label stringwidth pop neg 2 sub y ystep mul yscale mul moveto label show} for
0 setgray
1 setlinewidth
0 0 moveto 0 ycount ystep mul yscale mul lineto stroke

% x axis
0 1 xcount { /x exch def 
0.7 setgray
x xstep mul xscale mul 0 moveto 0 ycount ystep mul yscale mul rlineto stroke 
0 setgray
/label x xstep mul xoffset add cvs def
x xstep mul xscale mul label stringwidth pop 2 div sub -20 moveto label show} for
0 setgray
1 setlinewidth
0 setgray
1 setlinewidth
0 0 moveto width2 0 lineto stroke
% title
yaxisw neg ycount 1 add ystep mul yscale mul moveto title show

%values
/dot { 4 0 360 arc fill } def
0 1 series 1 sub { /s exch def
s setcolor
/dx data s 2 mul get def
/dy data s 2 mul 1 add get def
0 1 dx length dy length min 1 sub { /i exch def
dx i get xoffset sub xscale mul dy i get yoffset sub yscale mul dot
} for

} for

showpage

`)