;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