defin integer jf jl nnn ndn nmn 
vector\transpose 'name'.lmv-cct 'name'.lmv-tcc 213 
define image cct 'name'.lmv-tcc read 
let ndn cct%ndim 
let nnn cct%dim[1] 
let nmn cct%dim[3] 
image 'name'.lmv-clean 
define real ii[nnn] 
let ii[i] i 
set blank 0 0 
if (ndn.gt.2) then 
  if (first.eq.0) then 
    let jf = 1 
  else 
    let jf = first 
  endif 
  if (last.eq.0) then 
    let jl = nmn 
  else 
    let jl = last 
  endif 
  for i jf to jl 
    clear plot 
    lim -10 nnn+10 * * /var ii cct[1,i] 
    set box 3 14 3 14 
    box 
    connect ii cct[1,i] 
    limi g_dim[1]|4 (3*g_dim[1])|4 g_dim[2]|4 (3*g_dim[2])|4 
    set box match 15 3 
    values cct[2,i] cct[3,i] ii 
    box 
    set box 3 25 3 18 
    label "Plane # "'i' /x 
    clear alpha 
    pause 
  next 
else 
  clear plot 
  lim -10 nnn+10 * * /var ii cct[1] 
  set box 3 14 3 14 
  box 
  connect ii cct[1] 
  limi g_dim[1]|4 (3*g_dim[1])|4 g_dim[2]|4 (3*g_dim[2])|4 
  set box match 15 3 
  values cct[2] cct[3] ii 
  box 
  set box 3 25 3 18 
  clear alpha 
endif