summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.sci
blob: 9dacd30c4ef976501b710c719dac64df24cd8285 (plain)
1
2
3
4
5
6
7
8
9
10
11
function Rx=InWindow(PA)
  global XMIN XMAX YMIN YMAX
  Eps=10.0^(-6);
  X=PA(1); Y=PA(2);
  if X>XMIN-Eps & X<XMAX+Eps & Y>YMIN-Eps & Y<YMAX+Eps
    Rx='i'
  else
    Rx='o'
  end
endfunction