define real bidon
cl pl 
cl al 
image 'qckimg$name' 
if (g_extrema.eq.0) then        ! means no extrema section 
  header /extrema 
endif
lim /rg 
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 
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 
    axis xu /u m /lab p 
    axis yr /u m /lab p 
    axis xl /lab p /abso 
    axis yl /lab p /abso 
  else 
    box 
  end if 
else 
  box 
end if 
if (g_coord.eq."GALACTIC") then 
  label "L\\dII" /x 
  label "B\\dII" /y 
else if (g_coord.eq."GALACTIC") then 
  label "R.A. ("'g_epoch'")" /x 
  label "Dec. ("'g_epoch'")" /y 
end if 
wedge