reset
set macros
NOXTICS = "set xtics font 'Helvetica, 22'; \
          unset xlabel"
XTICS = "set xtics font 'Helvetica, 22';\
          set xlabel '';\

NOYTICS = "set y2tics font 'Helvetica, 22'; \
          unset y2label"
YTICS = "set y2tics font 'Helvetica, 22';\
          set y2label ''"
TMARGIN = "set tmargin at screen 0.95; set bmargin at screen 0.55"
BMARGIN = "set tmargin at screen 0.55; set bmargin at screen 0.05"
LMARGIN = "set lmargin at screen 0.05; set rmargin at screen 0.95"
RMARGIN = "set lmargin at screen 0.55; set rmargin at screen 0.95"


set term postscript enhanced eps color size 11.69in,8.27in linewidth 3
set term postscript portrait
set output 'histo_new.eps'
set multiplot layout 2,1 rowsfirst title "" font "Helvetica, 28"

set size 1,1
set title font "Helvetica, 28"
set key font "Helvetica, 24" at 1000,10000 
#set y2label '' font "Helvetica, 26" offset -2,0
#set xlabel '' font "Helvetica, 26" 

#graph a
@NOXTICS
@NOYTICS

#set label 1 '' at screen 0.02,0.9 font ',8' rotate by 90
#set key font "Helvetica, 18" at 32750,900 horizontal
unset xtics
unset ytics
set label 2 "-" tc rgb "green" font "Helvetica, 30" at screen 0.2, 0.91 rotate by 90
set label 3 "-" tc rgb "red" font "Helvetica, 30" at screen 0.24, 0.91 rotate by 90
set label 4 "original numbers" tc rgb "black" font "Helvetica, 24" at screen 0.2, 0.65 rotate by 90
set label 5 "extracted numbers" tc rgb "black" font "Helvetica, 24" at screen 0.24, 0.623 rotate by 90
set y2tics rotate by 90 
set xrange[-40000:40000]
set yrange[0:700]
set y2tics (0,200,400,600) offset 1,-1
@TMARGIN
@LMARGIN
set y2label 'counts' font "Helvetica, 26" 
set boxwidth 0.5 relative
set style fill transparent solid 0.5
plot "scrambledhisto.txt" u 1:2 w boxes lc rgb"red" title "extracted numbers", "unscrambledhisto.txt" u 1:2 w boxes lc rgb"green" title "raw numbers"

#graph b
@XTICS
@NOYTICS
unset ytics
set xtics (-32767,0,32768) offset 0,-5 rotate by 90
set y2tics (0,50,100,150,200)
set y2tics rotate by 90 offset 1,-1 font "Helvetica,22"
set label 1 '' at screen 0.02,0.4 font ',8'
unset key
set xrange[-40000:40000]
set yrange[0:250]
@BMARGIN
@LMARGIN
set y2label "time ({/Symbol m}s)" font "Helvetica, 26" 
set label 1 'output digits' font "Helvetica, 26" at screen 0.62,0
set label 1 rotate by 180
plot 'scrambled.txt' using 2:($1*0.05) w p pt 1 ps 0.1 lc rgb 'red' title 'extracted numbers', 'unscrambled.txt' using 2:($1*0.05) w p ps 0.1 lc rgb 'green' title 'raw numbers'
#