123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104 |
- pro makemovie_gaze
- default, filename, "$HOME/prog/objsim/data/movies/gazemovie.idlmov"
- retw=50
- reth=1
- modw=50
- modh=1
- a = obj_new('movieinput', /create, filename=filename)
- a->generatefile, owarray=[retw,modw], oharray=[reth,modh], nfilters=2
- pic = fltarr(retw,reth)
- pic2 = fltarr(modw,modh)
- nretneurons=retw*reth
- nmodneurons=modw*modh
- nkombi=nretneurons*nmodneurons
- g=indgen(7)-3
- b=fltarr(7)
- for i=0,6 do begin
- b(i)=exp(-g(i)*g(i)/5.)
- endfor
- h=indgen(11)-5
- c=fltarr(11)
- for i=0,10 do begin
- c(i)=exp(-h(i)*h(i)/10.)
- endfor
-
- objposition=intarr(3)
- objposition(0)=0
- objposition(1)=20
- objposition(2)=40
- for objpos=0,2 do begin
- for modpos=0,nmodneurons-9 do begin
- ; for retpos=0,nretneurons-9 do begin
- rettemppos=35
- modtemppos=40
- pic(*)=0
- pic2(*)=0
- ;if (modpos-retpos eq objposition(objpos)) then begin
- for j=0,6 do begin
- pic(objposition(objpos)+j)=1*b(j)
- endfor
- for j=0,6 do begin
- pic2(modpos+j)=1*b(j)
- endfor
- a->WriteFrame, pic
- a->WriteFrame, pic2
- ;endif else begin
- ; pic(retpos)=0
- ; pic2(modpos)=0
- ;endelse
- tvscl, rebin(pic, 10*retw, reth*10, /sample)
- ; endfor
- endfor
- wait, 0.15
-
- endfor
-
- ;for u=0,nmodneurons-5 do begin
- ; for i=0, nretneurons-5 do begin
- ; frame = pic
- ; frame2 = pic2
- ; for j=0,4 do begin
- ; frame(i+j)=1*b(j)
- ; frame2(u+j)=1*b(j)
- ; ;;frame2(i+j)=1+b(j)
- ; endfor
- ; ;frame2(u)=1
- ; ;wait, 0.15
- ; tvscl, rebin(frame, 10*retw, reth*10, /sample)
- ; ;tvscl, 0, 0.3, /norm, rebin(frame2, 10*modw, modh*10, /sample)
- ; a->WriteFrame, frame
- ; a->WriteFrame, frame2
- ; endfor
- ;endfor
- ;endfor
- obj_destroy, a
- end
|