PRO colorbarn,xpo, ypo, length, height, mindat, maxdat, leveling,nlevels,levels,colors, format, cs
; does a colorbar
; v1.0 by Ralph Timmermann, UCL-ASTR, 2002
; tag v2.0, Martin Vancoppenolle, June 2nd, 2009
;------------------------------------------------------------------------------

; diese procedure zeichnet einen farbbalken
; folgende parameter muessen gesetzt werden
;
; xpo,ypo  position der linken unteren ecke in Normalkoordinaten
; length, height   laenge und Hoehe  des balkens
; mindat,maxdat  wertegrenzen des balkens
;
;------------------------------------------------------------------------------

; create the bar
ncol=nlevels-1 ; ok
bar=INTARR(ncol,2)
bar(*,0)=REFORM(colors(0:ncol-1))
bar(*,1)=bar(*,0)

; plot the bar (congrid just expands an array
TV, CONGRID(bar,ncol*20,10),xpo,ypo,xsize=length,ysize=height,/normal

; add the black lines and the caption
PLOT,[0,nlevels],[0,height],xsty=1,ysty=1,/nodata,/noerase,$
yticks=1,yticklen=0,ytickv=[0,height],ytickname=[' ',' '],$
xticks=nlevels-1,xtickn=string(levels,format=format),$
position=[xpo,ypo,xpo+length,ypo+height],$
/normal,xticklen=0.5,color=000, charsize=cs

END