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 const
dimx = 1024; // dimension west - east dimx = 1024; // dimension west - east
dimy = 1024; // dimenstion north west dimy = 1024; // dimenstion north west
dimh = 10; // dimension for contour levels dimh = 20; // dimension for contour levels
var var
Mat:TMatrix; // 2D - Datafield Mat:TMatrix; // 2D - Datafield
scx:TVector; // scaling vector west - east scx:TVector; // scaling vector west - east
@ -151,7 +151,7 @@ begin
begin begin
x:=i-dimx/2; x:=i-dimx/2;
y:=j-dimy/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*4*pi) * cos(y/dimy*4*pi)) +
(sin(x/dimx*2*pi) * cos(y/dimy*2*pi)) + (sin(x/dimx*2*pi) * cos(y/dimy*2*pi)) +
(sin(x/dimx*1*pi) * cos(y/dimy*1*pi)) + (sin(x/dimx*1*pi) * cos(y/dimy*1*pi)) +