Документ взят из кэша поисковой машины. Адрес оригинального документа : http://lnfm1.sai.msu.ru/~kupry/SOFTWARE/sit.pro Дата изменения: Thu Aug 14 12:59:22 2003 Дата индексирования: Mon Oct 1 22:31:23 2012 Кодировка: Поисковые слова: п п п п п п п п п п п п п п п п п п п п р п р п р п р п р п р п р п р п р п р п р п р п р п р п р п р п р п р п

;zkusebni procedura na zjisteni parametru site, ktere zadavame v programu korel
;zadajte cestu na zkusebni obrazek a parametry site


pro rectangle,xx,yy,sirka,vyska
;device,set_graphics=6
px=[xx,xx+sirka,xx+sirka,xx,xx]
py=[yy,yy,yy+vyska,yy+vyska,yy]
plots,px,py,/dev,color=255
;empty
end

pro sit

o=readfits(pickfile(title='Load an instrumental fts image',filter='*.fts'))
s=size(o)
window,xsize=s(1),ysize=s(2)
tvscl,o

print,'Start point (x,y):'
s='' & read,s
pozice=strpos(s,',') & delka=strlen(s)
xpocatek=fix(strmid(s,0,pozice)) & ypocatek=fix(strmid(s,pozice+1,delka-pozice))

print,'Number of regions (x,y):'
s='' & read,s
pozice=strpos(s,',') & delka=strlen(s)
xpocet=fix(strmid(s,0,pozice)) & ypocet=fix(strmid(s,pozice+1,delka-pozice))

print,'Step (x,y):'
krok=5 & read,krok

for i=0,xpocet-1 do begin
for j=0,ypocet-1 do rectangle,xpocatek+i*krok,ypocatek+j*krok,krok,krok
endfor



end