File: path_finder.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 (46 lines) | stat: -rw-r--r-- 1,421 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
41
42
43
44
45
46
/****** path_finder.c ***********************************************

        This recursive function traces the least cost path backwards
        to cells from which the cumulative cost was determined

*********************************************************************/

#include <grass/segment.h>
#include "local_proto.h"

void path_finder(int row, int col, int backrow, int backcol)
{
    int data, new_backrow, new_backcol;
    extern char *value;
    extern int nrows, ncols;
    extern SEGMENT in_row_seg, in_col_seg, out_seg;

    if (row < 0 || row >= nrows || col < 0 || col >= ncols)
        return; /* outside the window */

    /* if the pt has already been traversed, return */
    value = (char *)&data;
    Segment_get(&out_seg, value, row, col);
    if (data == 1)
        return; /* already traversed */

    /* otherwise, draw a line on output */
    drawline(row, col, backrow, backcol);
    /*DEBUG
       printf("\nrow=%d, col=%d, backrow=%d, backcol=%d", row, col, backrow,
       backcol);
     */
    /* update path position */
    if (row == backrow && col == backcol) {
        printf("\n");
        return;
    } /* reach an origin */

    value = (char *)&new_backrow;
    Segment_get(&in_row_seg, value, backrow, backcol);
    value = (char *)&new_backcol;
    Segment_get(&in_col_seg, value, backrow, backcol);

    path_finder(backrow, backcol, new_backrow, new_backcol);
    return;
}