;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Name:
;       print_r_cb.pro
;
; Purpose:
;       This program displays the colorbar corresponding to a chosen image and color table
;       which has been created by means of the right_colorbar.pro.
;       The minimum end maximum values of the colorbar are set according to those of the image. An
;       optional parameter can be given to specify where the colorbar (which is vertical) should be
;       placed in the opened window.
;       This program is especially used to save as .eps file the colorbars of the images displayed
;       using the disp_sav.pro.
;
;
; Author:
;       Vito Alberga
;       (An auxiliary program by David Fanning has been also used).
;
; Date:
;       February 2000
;
; Calling sequence:
;       print_r_cb, im, cb24, POSITION = position, CB_TITLE = cb_title
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
pro print_r_cb, im, cb24, POSITION = position, CB_TITLE = cb_title



; Display the colorbar.

tvimage, cb24, true = 3, POSITION = position

minim = min(im)
maxim = max(im)

plot, [minim, maxim], $
/nodata, /noerase, $
POSITION = position, $
xticks = 1, xtickformat = '(A1)', xstyle = 1,$
yticks = 1, ystyle = 4

axis, yaxis = 1, /save, $
yrange = [minim, maxim], $
;yticks = 6, ytickformat = '(f7.2)', ystyle = 1, ytitle = CB_TITLE
yticks = 6, ystyle = 1, ytitle = CB_TITLE ;ytickformat = '(f7.0)',

oplot, [0,0], [minim, maxim]




end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;