'DrgTransparent.ave    Gerry Daumiller  9/15/2000
'
'Makes the white color in every DRG in the View transparent.
'
'Actually it does this to the second color (index number 1,
'the first color is index number 0) of each single band image
'in the view.  In DRGs, white is always the second color.
'
'To use this program, save it with a ".ave" extension, open a
'new Script in your ArcView project, and load the ".ave" file.
'Then push the Compile button (check box icon), click on your
'View, click on the script again, and click the Run button.

theView = av.getActiveDoc
for each thm in theView.getThemes
  lgnd = thm.getlegend
  if (lgnd.Is(SingleBandLegend)) then
    colMap = lgnd.GetColorMap
    color2 = colMap.Get(1)
    color2.SetTransparent(true)
  end
end

'Redraw the map to make the change takes effect.
theView.GetDisplay.ZoomIn(100)