pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Increases the fpvviewer number of contour level

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2367 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2012-03-29 09:23:59 +00:00
parent ac4762265b
commit e751b4f19f
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
applications/fpvviewer/fpvv_mainform.pas
View File

@ -111,7 +111,7 @@ procedure TfrmFPVViewer.btnContourLinesClick(Sender: TObject);
const
dimx = 1024; // dimension west - east
dimy = 1024; // dimenstion north west
dimh = 10; // dimension for contour levels
dimh = 20; // dimension for contour levels
var
Mat:TMatrix; // 2D - Datafield
scx:TVector; // scaling vector west - east
@ -151,7 +151,7 @@ begin
begin
x:=i-dimx/2;
y:=j-dimy/2;
mat[i,j]:= Round(lRasterImage.RasterImage.Colors[i, j].red * 10 / $FFFF);
mat[i,j]:= Round(lRasterImage.RasterImage.Colors[i, j].red * dimh / $FFFF);
{ (sin(x/dimx*4*pi) * cos(y/dimy*4*pi)) +
(sin(x/dimx*2*pi) * cos(y/dimy*2*pi)) +
(sin(x/dimx*1*pi) * cos(y/dimy*1*pi)) +