;procedure to take an image with the ir camera on fast
;it really should be made more general by reading the ccd_status command
pro image,a
;reply=call_external('idlfast.so','debug',255)
reply=call_external('idlfast.so','xmit','ccd_status seq=Frame',/S_VALUE)
;print,reply
reply=call_external('idlfast.so','xmit','ccd time=1 nbytes=131072 ',/S_VALUE)
print,reply
a=fltarr(256,256)
b=call_external('idlfast.so','array',a,size(a))
tvscl,a
end
The procedure does the following: