MACRO hotspot start=1 stop=30 steps=200000
  if ($hexist([start]).eq.0) then
    call hotspot.f77(3e-6)
    call initialize
    2dhist [start] 'cold start' 30 -.25 .25 30 -.25 .25
    put/cont [start] tgrid
  else
    get/cont [start] tgrid
  endif
  i0=[start]+1
  do i=[i0],[stop]
    call diffuse([steps],$rsigma(1/[steps]))
    time=[i]-1
    title=[time] seconds
    h/copy [start] [i] [title]
    put/cont [i] tgrid
    h/pl [i] lego
  enddo
RETURN

MACRO tmax start=1 stop=30 id=1000
  steps=[stop]-[start]
  v/cre tmp([stop])
  do i=[start],[stop]
    bin=[i]-[start]+1
    v/inp tmp([bin]) $hinfo([i],max)
  enddo
  1dhist [id] '' [steps] [start] [stop]
  put/c [id] tmp
  h/pl [id]
  v/del tmp
RETURN