extrude Derived Type

type, public, extends(sdf_base) :: extrude

Extrude a 2D SDF into 3D


Components

Type Visibility Attributes Name Initial
real(kind=wp), public :: h
integer, public :: layer

Layer ID of SDF
type(opticalProp_t), public :: optProps

Optical property of the SDF
class(sdf_base), public, pointer :: prim
real(kind=wp), public :: transform(4,4)

Transform to apply to SDF.

Constructor

public interface extrude

  • private function extrude_init(prim, h) result(out)

    Initialise the extrude modifier for a SDF.

    Arguments

    Type IntentOptional Attributes Name
    class(sdf_base), target :: prim

    SDF to modify
    real(kind=wp), intent(in) :: h

    Distance to extrude by.

    Return Value type(extrude)


Type-Bound Procedures

procedure, public :: evaluate => eval_extrude

  • private pure elemental function eval_extrude(this, pos) result(res)

    Evaluation function for Extrude modifier.

    Arguments

    Type IntentOptional Attributes Name
    class(extrude), intent(in) :: this
    type(vector), intent(in) :: pos

    Position to evaluate the modifier at

    Return Value real(kind=wp)

Source Code

    type, extends(sdf_base) :: extrude
        real(kind=wp) :: h
        class(sdf_base), pointer :: prim
        contains
        procedure :: evaluate => eval_extrude
    end type extrude