!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
define real bidon
gtvl\destroy all
gtvl\clear alpha
greg3\image 'qckimg%name'
if (g_extrema.eq.0) then        ! means no extrema section
  vector\header 'qckimg%name' /extrema
  greg3\image 'qckimg%name'
endif
greg1\limits /rg
greg1\set box m
if (qckimg%useopt) then
  continue
else
  let qckimg%min 'g_min'
  let qckimg%max 'g_max'
  let qckimg%scal LIN
  let bidon 3
end if
greg2\plot /scaling 'qckimg%scal' 'qckimg%min' 'qckimg%max'
!
let size__x abs(user_xmax-user_xmin) /new real
let size__y abs(user_ymax-user_ymin) /new real
if (g_ptyp.gt.0) then
  if (size__x.lt.0.2.and.size__y.lt.0.2) then
    greg1\axis xu /u m /lab p
    greg1\axis yr /u m /lab p
    greg1\axis xl /lab p /abso
    greg1\axis yl /lab p /abso
  else
    greg1\box
  end if
else
  greg1\box
end if
if (g_coord.eq."GALACTIC") then
  greg1\label "L\\dII" /x
  greg1\label "B\\dII" /y
else if (g_coord.eq."GALACTIC") then
  greg1\label "R.A. ("'g_epoch'")" /x
  greg1\label "Dec. ("'g_epoch'")" /y
end if
greg2\wedge
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
