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