File: makebigf.c

package info (click to toggle)
grass 8.4.2-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 277,040 kB
  • sloc: ansic: 460,798; python: 227,732; cpp: 42,026; sh: 11,262; makefile: 7,007; xml: 3,637; sql: 968; lex: 520; javascript: 484; yacc: 450; asm: 387; perl: 157; sed: 25; objc: 6; ruby: 4
file content (40 lines) | stat: -rw-r--r-- 1,039 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
/* makebigf.c                                                           */
#include "ransurf.h"
#include "local_proto.h"

void MakeBigF(void)
{
    int R, C;
    double Dist, RDist, CDist;

    G_debug(2, "MakeBigF");

    for (R = 0; R < BigF.NumR; R++) {
        BigF.LowBF[R] = BigF.HihBF[R] = -1;
        RDist = (R - BigF.RowPlus) * NS;
        RDist *= RDist;

        for (C = 0; C < BigF.NumC; C++) {
            G_debug(3, "(R):%d", R);
            G_debug(3, "(C):%d", C);
            CDist = (C - BigF.ColPlus) * EW;
            CDist *= CDist;
            Dist = sqrt(CDist + RDist);

            if (Dist >= Filter.MaxDist) {
                BigF.F[R][C] = 0.0;
                if (BigF.HihBF[R] == -1)
                    BigF.LowBF[R] = C;
            }
            else {
                BigF.F[R][C] = DD(Dist);
                BigF.HihBF[R] = C;
            }

            G_debug(3, "(BigF.F[R][C]):%.12lf", BigF.F[R][C]);
        }

        BigF.LowBF[R] -= BigF.ColPlus;
        BigF.HihBF[R] -= BigF.ColPlus;
    }
}