Rectangle/rectangular cuboid shape.
Public Member Functions | |
procedure | initialize (shape) |
Initialize the shape. | |
procedure | copy (shape, copy) |
Copy the shape. | |
procedure | is_inside (shape, point) |
Check if a point lies inside the shape. | |
procedure | get_samples_inside (shape, i, j, k, n, n_samples, samples) |
Check if a given number of point lies in a shape. | |
procedure | get_distance (shape, point, distance, direction) |
Compute the distance and the direction from a point to the shape. | |
procedure | ray_trace (shape, ray, has_normal, intersection_list) |
Compute the intersection between the rectangle and a ray. | |
Public Member Functions inherited from type_shape::t_shape | |
procedure(abs_initialize_shape), deferred | initialize (shape) |
Initialize the shape. | |
procedure(abs_copy_shape), deferred | copy (shape, copy) |
Copy the shape. | |
procedure(abs_shape_is_inside), deferred | is_inside (shape, point) |
Check if a point lies inside the shape. | |
procedure(abs_shape_get_samples_inside), deferred | get_samples_inside (shape, i, j, k, n, n_samples, samples) |
Check if a given number of point lies in a shape. | |
procedure(abs_shape_get_distance), deferred | get_distance (shape, point, distance, direction) |
Compute the distance and the direction from a point to the shape. | |
procedure(abs_shape_ray_trace), deferred | ray_trace (shape, ray, has_normal, intersection_list) |
Compute the intersection between the shape and a ray. | |
Public Attributes | |
double precision, dimension(3) | corner_min = 0d0 |
Minimal coordinates of the the rectangle shape. | |
double precision, dimension(3) | corner_max = 0d0 |
Maximal coordinates of the the rectangle shape. | |
Public Attributes inherited from type_shape::t_shape | |
integer | dimension = 2 |
Dimension of the shape. | |
type(t_cg_transformation) | transformation |
Transformation matrix. | |
logical | is_reversed = .false. |
Swap interior/exterior sides of the shape. | |
procedure mod_shape_basic::t_shape_rectangle::copy | ( | class(t_shape_rectangle), intent(in) | shape, |
class(t_shape), allocatable | copy ) |
[in] | shape | rectangle shape |
[out] | copy | copied rectangle |
procedure mod_shape_basic::t_shape_rectangle::get_distance | ( | class(t_shape_rectangle), intent(in) | shape, |
double precision, dimension(3), intent(in) | point, | ||
double precision, intent(out) | distance, | ||
double precision, dimension(3), intent(out) | direction ) |
If the point lies inside the rectangle/rectangular cuboid, the distance is negative and the direction points to the closest point on the rectangle/rectangular cuboid. If the point lies outside the rectangle/rectangular cuboid, the distance is positive and the direction points in the opposite direction to the closest point on the rectangle/rectangular cuboid.
[in] | shape | rectangle/rectangular cuboid shape |
[in] | point | any point |
[out] | distance | signed closest distance from the point to the rectangle/rectangular cuboid |
[out] | direction | signed direction from the point to the closest point on the rectangle/rectangular cuboid |
procedure mod_shape_basic::t_shape_rectangle::get_samples_inside | ( | class(t_shape_rectangle), intent(inout) | shape, |
integer, intent(in) | i, | ||
integer, intent(in) | j, | ||
integer, intent(in) | k, | ||
integer, intent(in) | n, | ||
integer, intent(in) | n_samples, | ||
integer, dimension(:,:,:), intent(inout) | samples ) |
Sample a cell of coordinates (i
,j
,k
) with (2*n_samples+1)^d samples, where d denotes the dimension of the cell. Return a integer array samples
containing the value n
where the sample is inside the shape.
n_samples
is called the sampling level and can take its value in range [0,∞].
Example of sampling for various sampling level:
!! n_samples = 0 n_samples = 1 n_samples = 2 !! ┏━━━━━━━┓ ×━━━×━━━× ×━×━×━×━× !! ┃ ┃ ┃ ┃ × × × × × !! ┃ × ┃ × × × × × × × × ... !! ┃ ┃ ┃ ┃ × × × × × !! ┗━━━━━━━┛ ×━━━×━━━× ×━×━×━×━× !!
[in,out] | shape | rectangle/rectangular cuboid shape |
[in] | i,j,k | coordinates of the cell |
[in] | n | value to put where the sample is inside the rectangle/rectangular cuboid |
[in] | n_samples | sampling level (see description) |
[in,out] | samples | array of the (2*n_samples+1)^d samples |
procedure mod_shape_basic::t_shape_rectangle::initialize | ( | class(t_shape_rectangle), intent(inout) | shape | ) |
[in,out] | shape | rectangle shape |
procedure mod_shape_basic::t_shape_rectangle::is_inside | ( | class(t_shape_rectangle), intent(in) | shape, |
double precision, dimension(3), intent(in) | point ) |
[in] | shape | rectangle/rectangular cuboid shape |
[in] | point | any point |
procedure mod_shape_basic::t_shape_rectangle::ray_trace | ( | class(t_shape_rectangle), intent(in) | shape, |
type(t_ray), intent(in) | ray, | ||
logical, intent(in) | has_normal, | ||
type(t_intersection_list), intent(inout) | intersection_list ) |
[in] | shape | rectangle shape |
[in] | ray | ray to intersect the rectangle |
[in] | has_normal | list of intersections between the ray and the rectangle |
[in,out] | intersection_list | list of intersections between the ray and the rectangle |