!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
define character family*128
let family "&1"
!
go\load 'family'":histo1d" /axis X abs /into xhisto
go\load 'family'":histo1d" /first image /into yhisto
!
gtvl\clear
set\panel 1 /position plot /aspect 1
greg1\limits /var xhisto%coord yhisto
greg1\histogram xhisto%coord yhisto
greg1\set axis expo   y
greg1\box
greg1\set axis noexpo y
greg1\label 'xhisto%name'" ["'xhisto%unit'"]" /x
go\load 'family'":histo1d" /unit /into unit
greg1\label "Number of pixels ["'unit'"]" /y
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
