rsspice 0.1.0

Pure Rust port of the SPICE Toolkit for space geometry
Documentation 
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103

//
// GENERATED FILE
//

use super::*;
use f2rust_std::*;

//$Procedure  ZZVOXCVO ( Voxel to coarse voxel offset )
pub fn ZZVOXCVO(
    VIXYZ: &[i32],
    NVOX: &[i32],
    CGRSCL: i32,
    CGXYZ: &mut [i32],
    CGOFF: &mut [i32],
    CGOF1D: &mut i32,
    ctx: &mut Context,
) -> f2rust_std::Result<()> {
    let VIXYZ = DummyArray::new(VIXYZ, 1..=3);
    let NVOX = DummyArray::new(NVOX, 1..=3);
    let mut CGXYZ = DummyArrayMut::new(CGXYZ, 1..=3);
    let mut CGOFF = DummyArrayMut::new(CGOFF, 1..=3);

    //
    // SPICELIB functions
    //

    //
    // Local variables
    //

    if RETURN(ctx) {
        return Ok(());
    }

    for I in 1..=3 {
        if (NVOX[I] < 1) {
            CHKIN(b"ZZVOXCVO", ctx)?;

            SETMSG(
                b"Voxel grid dimensions must be positive but were # # #.",
                ctx,
            );
            ERRINT(b"#", NVOX[1], ctx);
            ERRINT(b"#", NVOX[2], ctx);
            ERRINT(b"#", NVOX[3], ctx);
            SIGERR(b"SPICE(VALUEOUTOFRANGE)", ctx)?;

            CHKOUT(b"ZZVOXCVO", ctx)?;
            return Ok(());
        }
    }

    for I in 1..=3 {
        if ((VIXYZ[I] < 1) || (VIXYZ[I] > NVOX[I])) {
            CHKIN(b"ZZVOXCVO", ctx)?;

            SETMSG(b"Voxel grid coordinates must be inside grid having dimensions # x # x # but were # # #.", ctx);
            ERRINT(b"#", NVOX[1], ctx);
            ERRINT(b"#", NVOX[2], ctx);
            ERRINT(b"#", NVOX[3], ctx);
            ERRINT(b"#", VIXYZ[1], ctx);
            ERRINT(b"#", VIXYZ[2], ctx);
            ERRINT(b"#", VIXYZ[3], ctx);
            SIGERR(b"SPICE(VALUEOUTOFRANGE)", ctx)?;

            CHKOUT(b"ZZVOXCVO", ctx)?;
            return Ok(());
        }
    }

    if (CGRSCL < 1) {
        CHKIN(b"ZZVOXCVO", ctx)?;

        SETMSG(b"Coarse voxel grid scale must be positive but was #.", ctx);
        ERRINT(b"#", NVOX[1], ctx);
        SIGERR(b"SPICE(VALUEOUTOFRANGE)", ctx)?;

        CHKOUT(b"ZZVOXCVO", ctx)?;
        return Ok(());
    }

    for I in 1..=3 {
        //
        // Set the Ith coarse grid coordinate. Recall these coordinates
        // are 1-based.
        //
        CGXYZ[I] = (((VIXYZ[I] - 1) / CGRSCL) + 1);

        //
        // Set the Ith coarse grid coordinate offset. These offsets
        // are 1-based as well.
        //
        CGOFF[I] = (VIXYZ[I] - (CGRSCL * (CGXYZ[I] - 1)));
    }

    //
    // Convert the coarse grid-relative offset to a relative
    // ID. The ID is a one-dimensional offset.
    //
    *CGOF1D = (((((CGOFF[3] - 1) * CGRSCL) * CGRSCL) + ((CGOFF[2] - 1) * CGRSCL)) + CGOFF[1]);

    Ok(())
}