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

//
// GENERATED FILE
//

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

//$Procedure ZZDSKSGX ( DSK, ray-segment intercept )
pub fn ZZDSKSGX(
    HANDLE: i32,
    DLADSC: &[i32],
    DTYPE: i32,
    ET: f64,
    VERTEX: &[f64],
    RAYDIR: &[f64],
    XPT: &mut [f64],
    DC: &mut [f64],
    IC: &mut [i32],
    FOUND: &mut bool,
    ctx: &mut Context,
) -> f2rust_std::Result<()> {
    let DLADSC = DummyArray::new(DLADSC, 1..);
    let VERTEX = DummyArray::new(VERTEX, 1..=3);
    let RAYDIR = DummyArray::new(RAYDIR, 1..=3);
    let mut XPT = DummyArrayMut::new(XPT, 1..=3);
    let mut DC = DummyArrayMut::new(DC, 1..);
    let mut IC = DummyArrayMut::new(IC, 1..);
    let mut RETVAL: f64 = 0.0;
    let mut PLID: i32 = 0;

    //
    // SPICELIB functions
    //

    //
    // Local variables
    //

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

    CHKIN(b"ZZDSKSGX", ctx)?;

    //
    // Note: input argument ET is provided to support time-dependent
    // data types.
    //
    RETVAL = TOUCHD(ET);
    DC[1] = TOUCHD(*DC.first());

    if (DTYPE == 2) {
        //
        // The intercept plate ID is returned in element 1 of
        // IC, if an intercept is found.
        //
        DSKX02(
            HANDLE,
            DLADSC.as_slice(),
            VERTEX.as_slice(),
            RAYDIR.as_slice(),
            &mut PLID,
            XPT.as_slice_mut(),
            FOUND,
            ctx,
        )?;

        if *FOUND {
            IC[1] = PLID;
        }
    } else {
        SETMSG(
            b"DSK ray-surface intercepts are not supported for DSK data type #.",
            ctx,
        );
        ERRINT(b"#", DTYPE, ctx);
        SIGERR(b"SPICE(TYPENOTSUPPORTED)", ctx)?;
        CHKOUT(b"ZZDSKSGX", ctx)?;
        return Ok(());
    }

    CHKOUT(b"ZZDSKSGX", ctx)?;
    Ok(())
}