!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! p_box.ima 
!   S.Guilloteau
!
! Define the type of box axis, labels and legends
!
! &1: action (label or nothing)
! &2: Image Header
!
! Legend is now displayed separately by p_legend.ima
!
! (very loosely) derived from @ p_box.greg (J.Pety)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
define character action*8 label*1
let action "&1" /lower
!
greg2\rgdata &2 /variable ! Make sure the projection is defined
!
! x axis
!
! Label definition
let label "n"
if ((action.eq."label").and.(do_label)) let label "p"
!
! Box drawing
if (box%kindx.eq."o") then
  greg1\axis xu /label n
  greg1\axis xl /label 'label'
else if (box%kindx.eq."A") then
  greg1\axis xu /abs /label n
  greg1\axis xl /abs /label 'label'
else 
  greg1\axis xu /unit 'box%kindx' /label n
  greg1\axis xl /unit 'box%kindx' /label 'label'
endif
!
! Y axis
if ((action.eq."label").and.(do_label)) let label "o"
!
! Box drawing
if (box%kindy.eq."o") then
  greg1\axis yr /label n
  greg1\axis yl /label 'label'
else if (box%kindy.eq."A") then
  greg1\axis yr /abs /label n
  greg1\axis yl /abs /label 'label'
else 
  greg1\axis yr /unit 'box%kindy' /label n
  greg1\axis yl /unit 'box%kindy' /label 'label'
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
