Create Stand-Alone Color Calibrator Scale Bar

Function make_CalibrationBar(cscale, bitdepth, wcm, hcm, [imin, imax])
    variable cscale, bitdepth, wcm, hcm, imin, imax
   
    variable iwpixels, ihpixels
    string theColorScale = StringFromList(cscale,CTabList())
   
    // min / max of calibration scale
   
    if (ParamIsDefault(imin))
        imin = 0
    endif
    if (ParamIsDefault(imax))
        imax = 2^bitdepth - 1
    endif
   
    // calibator scale size
   
    iwpixels = ceil(2.54*wcm*72)
    ihpixels = ceil(2.54*hcm*72)
   
    // make the image
   
    make/O/N=(iwpixels,ihpixels) calibratorimage
   
    switch(bitdepth)
        case 16:
            Redimension/W/U calibratorimage
            break
        default:
            Redimension/B/U calibratorimage
            break
    endswitch
   
    calibratorimage = imin
    calibratorimage[iwpixels/2][ihpixels/2] = imax
   
    // display it
   
    NewImage/N=CImage calibratorimage
    ModifyGraph/W=CImage width=iwpixels, height=ihpixels
    ModifyGraph/W=CImage nticks=0,axThick=0
   
    // add the color bar
   
    ColorScale/C/N=textCS/F=0/B=1/D={0.1,1,0}/A=MC/X=0.00/Y=0.00 side=2,widthPct=100,heightPct=100,frame=0.00,nticks=0
    ColorScale/C/N=textCS ctab={imin,imax,$theColorScale,0}

    return 0
end