!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! @ l-old-wedge
!
! Plot the color wedge.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Do we skip the wedge?
if ((.not.do%wedge).or.(.not.do%bit)) then
   return
endif
!
set\panel /default /position wedge
define character place*8
if (cubeset%panel%true%frame%landscape) then
   if (true%leg%pos.eq."header") then
      let place "top"
   else
      let place "bottom"
   endif
else
   let place "right"
endif
!
! Plot wedge
greg1\set expand 0.6
if (do%contour) then
  greg2\wedge 'place' /scaling 'true%scaling' true%scale[1] true%scale[2] /level
else
  greg2\wedge 'place' /scaling 'true%scaling' true%scale[1] true%scale[2]
endif
greg1\set expand 1.0
!
! Reinitialize the window position
set\panel /default
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
