| Speed Improvement [message #74588] |
Tue, 25 January 2011 01:24  |
Rony K Varghese
Messages: 3
Registered: January 2011
|
Junior Member |
|
|
Dear All,
How can i improve the speed of below IDL source through code
optimizing..Now the performance is not satisfactory..
;Processing a picture
for sCount = 0, 9 do begin
for sRow = UpperRow, LowerRow do begin
for sCol = sLeftCol, sRightCol do begin
; Check whether high pixels.
if E_F_ATTNMAP_HIGH_PIXEL eq PixelArr[sCol, sRow] then
begin
sXCol = sCol
sYRow = sRow
endif
; from the center to the left
for sIndex = 0, sHalfWid do begin
if HIGH_PIXEL eq vTemp[sXCol - sIndex, sYRow] then
begin
PixelArr[sXCol - sIndex, sYRow] = HIGH_PIXEL
endif else begin
break ; break from for sIndex
endelse
endfor
; from the center to the right
for sIndex = 0, sHalfWid do begin
if HIGH_PIXEL eq vTemp[sXCol + sIndex, sYRow] then
begin
PixelArr[sXCol + sIndex, sYRow] = HIGH_PIXEL
endif else begin
break ; break from for sIndex
endelse
endfor
; from the center to down
for sIndex = 0, sHalfHght do begin
if HIGH_PIXEL eq vTemp[sXCol, sYRow+ sIndex] then
begin
PixelArr[sXCol, sYRow+ sIndex] = HIGH_PIXEL
endif else begin
break ; break from for sIndex
endelse
endfor
; from the center to up
for sIndex = 0, sHalfHght do begin
if HIGH_PIXEL eq vTemp[sXCol, sYRow - sIndex] then
begin
PixelArr[sXCol, sYRow - sIndex] = HIGH_PIXEL
endif else begin
break ; break from for sIndex
endelse
endfor
endfor; end for sCol
endfor; end for sRow
endfor;end for sCount
Thanks in advance..
Rony
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
