!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! @ l-old-box
!
! &1: aaa
!
! Define legend position and draw legend when asked
! l-old-box-setup must have been called before to ensure that this
! procedure works
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Check whether user really wants a legend
if (do%leg%pos.ne."none") then
   ! Define legend position
   if (true%leg%pos.eq."plot") then
      ! On the bottom, right corner
      set\panel 1 1 /nxy 'true%nxybox[1]' 'true%nxybox[2]'
   else if (true%leg%pos.eq."header") then
      ! Inside the header
      greg1\set expand 0.6
      set\panel 1 /nxy 1 1 /aspect 0 /position wedge
   endif
   ! Draw legend
   @ l-old-box.cube label &1
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
