;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; Name: ; print_l_cb.pro ; ; Purpose: ; This program displays the colorbar corresponding to a chosen image and color table ; which has been created by means of the left_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_l_cb, im, cb24, POSITION = position, CB_TITLE = cb_title ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; pro print_l_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], $ yrange = [minim, maxim], $ /nodata, /noerase, $ POSITION = position, $ xticks = 1, xtickformat = '(A1)', xstyle = 1, $ yticks = 6, ytickformat = '(f7.2)', ystyle = 1, ytitle = CB_TITLE end ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;