; File: shade_surf.pro
; Author: Erik Brisson


a = findgen(35)
b = 45 - findgen(45)
c = a # b
window, 0, retain=2, title='surf_wire', xsize=500, ysize=500
shade_surf, c

end