Документ взят из кэша поисковой машины. Адрес оригинального документа : http://lnfm1.sai.msu.ru/~kupry/SOFTWARE/foto1.pro Дата изменения: Fri Jan 16 22:51:04 2004 Дата индексирования: Mon Oct 1 22:39:03 2012 Кодировка:

pro kont_event,event
COMMON co,aktual,xpos,ypos
COMMON kontrola,kont1,kont2,kontbase2,kontbase
;COMMON innerkont,slid,kontline
widget_control,event.id,get_uvalue=uvalue
case uvalue of
'SHOW':begin
widget_control,kont1,get_value=ips1 & ips1=ips1(0)
widget_control,kont2,get_value=ips2 & ips2=ips2(0)
widget_control,kontbase2,/destroy
kontdraw=widget_draw(kontbase,xsize=600,ysize=400)
;kontline=widget_slider(kontbase,title='Line',uvalue='LINE', $
; value=0,min=0,max=500)
;slid=0
widget_control,kontdraw,get_value=okno & wset,okno
plot,smooth(aktual(*,ips1),4)
oplot,smooth(aktual(*,ips2),4),color=250
end
;'LINE':begin
; device,set_graphics=6
; arrow,slid,0,slid,300,hsize=0,color=!D.N_colors-1
; widget_control,kontline,get_value=slid
; arrow,slid,0,slid,300,hsize=0,color=!D.N_colors-1
; device,set_graphics=3
; end
endcase
end

pro save_event,event
widget_control,event.id,get_uvalue=uvalue
COMMON grafika,draw
COMMON uloz,savefield
COMMON co,aktual,xpos,ypos
case uvalue of
'OK':begin
; widget_control,draw,get_value=okno & wset,okno
; s2=size(aktual)
; device,set_graphics=6
; arrow,0,ypos,s2(1),ypos,hsize=0,color=!D.N_colors-1
; device,set_graphics=3
; device,set_graphics=6
; arrow,xpos,0,xpos,s2(2),hsize=0,color=!D.N_colors-1
; device,set_graphics=3

widget_control,savefield,get_value=nazev & nazev=nazev(0)+'.fts'
writefits,nazev,aktual ;tvrd()
widget_control,event.top,/destroy
end
endcase
end

pro foto1_event,event
COMMON grafika,draw
COMMON co,aktual,xpos,ypos
COMMON blok,base,ibase
COMMON inner,slider1,obrazek,drawbase,base1
COMMON uloz,savefield
COMMON slid,slider,slidlab
COMMON lines,hline,vline
COMMON kontrola,kont1,kont2,kontbase2,kontbase
COMMON pozice,ukazpozici,poslabel
widget_control,event.id,get_uvalue=uvalue
case uvalue of
'LOAD':begin
ukazpozici=0
widget_control,ibase,/destroy
ibase=widget_base(base,/row,xsize=800,ysize=600)
drawbase=widget_base(ibase,xsize=550,ysize=550)
cesta=pickfile()
pripona=strmid(cesta,strlen(cesta)-3,3)
if pripona eq 'fts' then obrazek=readfits(cesta)
if pripona eq 'tif' then obrazek=read_tiff(cesta,/unsigned)
;obrazek=read_tiff(pickfile(filter='*.tif'),/unsigned)
aktual=obrazek
s=size(obrazek)
draw=widget_draw(drawbase,xsize=s(1),ysize=s(2),x_scroll_size=500,y_scroll_size=500,$
/motion_events,uvalue='OBR')
widget_control,draw,get_value=okno
wset,okno
tvscl,obrazek

base1=widget_base(ibase,/column)

drop=widget_button(base1,value='CHANGE SIZE',/menu)
dr1=widget_button(drop,value='100%',uvalue='DR1')
dr2=widget_button(drop,value='75%',uvalue='DR2')
dr3=widget_button(drop,value='50%',uvalue='DR3')
dr4=widget_button(drop,value='30%',uvalue='DR4')
dr5=widget_button(drop,value='25%',uvalue='DR5')
dr6=widget_button(drop,value='20%',uvalue='DR6')
dr7=widget_button(drop,value='15%',uvalue='DR7')
dr8=widget_button(drop,value='10%',uvalue='DR8')
dalsi=widget_button(base1,value='NEXT',uvalue='NEXT')

end

'NEXT':begin
obrazek=aktual

widget_control,base1,/destroy
base1=widget_base(ibase,/column)
drop1=widget_button(base1,value='ROTATE',/menu)
d0=widget_button(drop1,value='0°',uvalue='D0')
d1=widget_button(drop1,value='90°',uvalue='D1')
d2=widget_button(drop1,value='180°',uvalue='D2')
d3=widget_button(drop1,value='270°',uvalue='D3')
dalsi=widget_button(base1,value='NEXT',uvalue='NEXT2')

end
'NEXT2':begin

obrazek=aktual
s2=size(obrazek)

widget_control,base1,/destroy
base1=widget_base(ibase,/column)

slider=widget_slider(base1,title='ROTATE',uvalue='ROTATE', $
value=0,min=-20,max=20,/suppress_value)
slidlab=widget_label(base1,value='0')
hline=widget_slider(base1,title='Horizontal line',uvalue='HLINE', $
value=0,min=0,max=s2(2))
vline=widget_slider(base1,title='Vertical line',uvalue='VLINE', $
value=0,min=0,max=s2(1))
poslabel=widget_label(base1,value=' ',xsize=150)
kontrola=widget_button(base1,value='CONTROL',uvalue='KONTROLA') ;pozice
dalsi=widget_button(base1,value='SAVE',uvalue='SAVE')
xpos=0
ypos=0
ukazpozici=1
end

'OBR':begin
if ukazpozici eq 1 then begin
position=strcompress('('+string(event.x)+','+string(event.y)+')',/remove_all)
widget_control,poslabel,set_value=position
endif
end

'KONTROLA':begin
kontbase=widget_base()
kontbase2=widget_base(kontbase,/column)
kont1=cw_field(kontbase2,title='y position of 1st profile')
kont2=cw_field(kontbase2,title='y position of 2nd profile')
kontbut=widget_button(kontbase2,value='SHOW PROFILES',uvalue='SHOW')
widget_control,kontbase,/realize
xmanager,'kont',kontbase
end

'HLINE':begin
widget_control,draw,get_value=okno & wset,okno
s2=size(aktual)
device,set_graphics=6
arrow,0,ypos,s2(1),ypos,hsize=0,color=!D.N_colors-1
widget_control,hline,get_value=hodnota
arrow,0,hodnota,s2(1),hodnota,hsize=0,color=!D.N_colors-1
device,set_graphics=3
ypos=hodnota
end

'VLINE':begin
widget_control,draw,get_value=okno & wset,okno
s2=size(aktual)
device,set_graphics=6
arrow,xpos,0,xpos,s2(2),hsize=0,color=!D.N_colors-1
widget_control,vline,get_value=hodnota
arrow,hodnota,0,hodnota,s2(2),hsize=0,color=!D.N_colors-1
device,set_graphics=3
xpos=hodnota
end

'D0':begin
obrazek2=obrazek
s2=size(obrazek2)
widget_control,draw,/destroy
draw=widget_draw(drawbase,xsize=s2(1),ysize=s2(2),x_scroll_size=500,y_scroll_size=500,$
/motion_events,uvalue='OBR')
widget_control,draw,get_value=okno & wset,okno
tvscl,obrazek2
aktual=obrazek2
end
'D1':begin
obrazek2=rotate(obrazek,1)
s2=size(obrazek2)
widget_control,draw,/destroy
draw=widget_draw(drawbase,xsize=s2(1),ysize=s2(2),x_scroll_size=500,y_scroll_size=500,$
/motion_events,uvalue='OBR')
widget_control,draw,get_value=okno & wset,okno
tvscl,obrazek2
aktual=obrazek2
end
'D2':begin
obrazek2=rotate(obrazek,2)
s2=size(obrazek2)
widget_control,draw,/destroy
draw=widget_draw(drawbase,xsize=s2(1),ysize=s2(2),x_scroll_size=500,y_scroll_size=500,$
/motion_events,uvalue='OBR')
widget_control,draw,get_value=okno & wset,okno
tvscl,obrazek2
aktual=obrazek2
end
'D3':begin
obrazek2=rotate(obrazek,3)
s2=size(obrazek2)
widget_control,draw,/destroy
draw=widget_draw(drawbase,xsize=s2(1),ysize=s2(2),x_scroll_size=500,y_scroll_size=500,$
/motion_events,uvalue='OBR')
widget_control,draw,get_value=okno & wset,okno
tvscl,obrazek2
aktual=obrazek2
end
'DR1':begin
widget_control,draw,/destroy
s2=size(obrazek)
draw=widget_draw(drawbase,xsize=s2(1),ysize=s2(2),x_scroll_size=500,y_scroll_size=500,$
/motion_events,uvalue='OBR')
widget_control,draw,get_value=okno & wset,okno
tvscl,obrazek
aktual=obrazek
end
'DR2':begin
s=size(obrazek)
obrazek2=congrid(obrazek,s(1)*0.75,s(2)*0.75)
s2=size(obrazek2)
widget_control,draw,/destroy
draw=widget_draw(drawbase,xsize=s2(1),ysize=s2(2),x_scroll_size=500,y_scroll_size=500,$
/motion_events,uvalue='OBR')
widget_control,draw,get_value=okno & wset,okno
tvscl,obrazek2
aktual=obrazek2
end
'DR3':begin
s=size(obrazek)
obrazek2=congrid(obrazek,s(1)*0.5,s(2)*0.5)
s2=size(obrazek2)
widget_control,draw,/destroy
draw=widget_draw(drawbase,xsize=s2(1),ysize=s2(2),x_scroll_size=500,y_scroll_size=500,$
/motion_events,uvalue='OBR')
widget_control,draw,get_value=okno & wset,okno
tvscl,obrazek2
aktual=obrazek2
end
'DR4':begin
s=size(obrazek)
obrazek2=congrid(obrazek,s(1)*0.3,s(2)*0.3)
s2=size(obrazek2)
widget_control,draw,/destroy
draw=widget_draw(drawbase,xsize=s2(1),ysize=s2(2),x_scroll_size=500,y_scroll_size=500,$
/motion_events,uvalue='OBR')
widget_control,draw,get_value=okno & wset,okno
tvscl,obrazek2
aktual=obrazek2
end
'DR5':begin
s=size(obrazek)
obrazek2=congrid(obrazek,s(1)*0.25,s(2)*0.25)
s2=size(obrazek2)
widget_control,draw,/destroy
draw=widget_draw(drawbase,xsize=s2(1),ysize=s2(2),x_scroll_size=500,y_scroll_size=500,$
/motion_events,uvalue='OBR')
widget_control,draw,get_value=okno & wset,okno
tvscl,obrazek2
aktual=obrazek2
end
'DR6':begin
s=size(obrazek)
obrazek2=congrid(obrazek,s(1)*0.2,s(2)*0.2)
s2=size(obrazek2)
widget_control,draw,/destroy
draw=widget_draw(drawbase,xsize=s2(1),ysize=s2(2),x_scroll_size=500,y_scroll_size=500,$
/motion_events,uvalue='OBR')
widget_control,draw,get_value=okno & wset,okno
tvscl,obrazek2
aktual=obrazek2
end
'DR7':begin
s=size(obrazek)
obrazek2=congrid(obrazek,s(1)*0.15,s(2)*0.15)
s2=size(obrazek2)
widget_control,draw,/destroy
draw=widget_draw(drawbase,xsize=s2(1),ysize=s2(2),x_scroll_size=500,y_scroll_size=500,$
/motion_events,uvalue='OBR')
widget_control,draw,get_value=okno & wset,okno
tvscl,obrazek2
aktual=obrazek2
end
'DR8':begin
s=size(obrazek)
obrazek2=congrid(obrazek,s(1)*0.1,s(2)*0.1)
s2=size(obrazek2)
widget_control,draw,/destroy
draw=widget_draw(drawbase,xsize=s2(1),ysize=s2(2),x_scroll_size=500,y_scroll_size=500,$
/motion_events,uvalue='OBR')
widget_control,draw,get_value=okno & wset,okno
tvscl,obrazek2
aktual=obrazek2
end

'ROTATE':begin
widget_control,slider,get_value=hodnota & hodnota=fix(hodnota(0))/10.0
if hodnota lt 0 then strhodnota=strmid(strcompress(string(hodnota),/remove_all),0,4) $
else strhodnota=strmid(strcompress(string(hodnota),/remove_all),0,3)
widget_control,slidlab,set_value=strhodnota
obrazek2=rot(obrazek,hodnota,/interp)
s2=size(obrazek2)
widget_control,draw,/destroy
draw=widget_draw(drawbase,xsize=s2(1),ysize=s2(2),x_scroll_size=500,y_scroll_size=500,$
/motion_events,uvalue='OBR')
widget_control,draw,get_value=okno & wset,okno
tvscl,obrazek2
aktual=obrazek2

s2=size(aktual)
device,set_graphics=6
arrow,0,ypos,s2(1),ypos,hsize=0,color=!D.N_colors-1
device,set_graphics=3
device,set_graphics=6
arrow,xpos,0,xpos,s2(2),hsize=0,color=!D.N_colors-1
device,set_graphics=3
end
'SAVE':begin
savebase=widget_base(/column)
savelabel=widget_label(savebase,value='The image will be saved as name.fts')
savefield=cw_field(savebase,title='name')
savebutton=widget_button(savebase,value='SAVE',uvalue='OK')
widget_control,savebase,/realize
xmanager,'save',savebase

end
'QUIT':begin
widget_control,event.top,/destroy
end
endcase
end

pro foto1
COMMON blok,base,ibase
base=widget_base(mbar=bar)
ibase=widget_base(base,/row,xsize=800,ysize=600)
fmenu=widget_button(bar,value='FILE',/menu)
f1=widget_button(fmenu,value='LOAD IMAGE',uvalue='LOAD')
f3=widget_button(fmenu,value='QUIT',uvalue='QUIT')
widget_control,base,/realize
xmanager,'foto1',base
end