PRO dump_jpeg, draw_id, draw_cm_id, un_sensitive_id, suggest_title

filename = pickfile(get_path = path, TITLE = 'select name of jpg file. Use .jp2 ending for a jpeg2000 format.', FILTER = ['*.jpg','*.jp2'])

if filename eq '' then return
;widget_control, un_sensitive_id, sensitive =0 
WIDGET_CONTROL, /HOURGLASS
WIDGET_CONTROL, draw_id, GET_VALUE=win
WSET, win   
backing = tvrd(TRUE=1)
tvlct, r, g, b, /get
WIDGET_CONTROL, draw_cm_id, GET_VALUE=win2
WSET, win2
cm_backing = tvrd(TRUE=1)
wset, win

back_s    =  size(backing)   
cm_back_s =  size(cm_backing)   
bs1 = back_s(2)
bs2 = back_s(3)
cs1 = cm_back_s(2)
cs2 = cm_back_s(3)
;print, bs1, bs2, cs1, cs2
comb_im   = bytarr(3, bs1, bs2+cs2)
comb_im(*, 0:bs1-1, cs2:(bs2+cs2-1)) = backing[*,*,*]
comb_im(*, 0:bs1-1,       0:(cs2-1)) = cm_backing[*,*,*]
comb_im_s = size(comb_im)

print, comb_im_s

if strmatch(filename, '.jp2') then begin
    j2k = OBJ_NEW('IDLffJPEG2000', filename, /WRITE, N_components=3)
    j2k->SetData, comb_im
    OBJ_Destroy, j2k
    print, 'wrote jpeg2000 image:', filename
endif else begin
    write_jpeg, filename, comb_im, TRUE=1, QUALITY=100
    print, 'wrote jpeg file', filename
endelse

RETURN
END