apply_material Subroutine

private subroutine apply_material(self)

The material, with the diffuse color times the body's color (without a texture), and the twilight, on every mesh built.

Arguments

Type IntentOptional Attributes Name
type(Sphere), intent(inout) :: self

Calls

proc~~apply_material~~CallsGraph proc~apply_material apply_material proc~apply_material_to apply_material_to proc~apply_material->proc~apply_material_to interface~vkf_mesh_set_twilight vkf_mesh_set_twilight proc~apply_material_to->interface~vkf_mesh_set_twilight proc~color~2 ReferenceFrame%color proc~apply_material_to->proc~color~2 proc~mesh_set_material mesh_set_material proc~apply_material_to->proc~mesh_set_material proc~name ReferenceFrame%name proc~apply_material_to->proc~name interface~vkf_mesh_material vkf_mesh_material proc~mesh_set_material->interface~vkf_mesh_material interface~vkf_mesh_material_changed vkf_mesh_material_changed proc~mesh_set_material->interface~vkf_mesh_material_changed

Called by

proc~~apply_material~~CalledByGraph proc~apply_material apply_material proc~set_material Sphere%set_material proc~set_material->proc~apply_material proc~set_opacity Sphere%set_opacity proc~set_opacity->proc~apply_material proc~set_twilight Sphere%set_twilight proc~set_twilight->proc~apply_material proc~sphere_build_contents Sphere%sphere_build_contents proc~sphere_build_contents->proc~apply_material proc~sphere_set_color Sphere%sphere_set_color proc~sphere_set_color->proc~apply_material

Source Code

    subroutine apply_material(self)
        type(Sphere), intent(inout) :: self
        integer :: k
        call apply_material_to(self, self%mesh)
        do k = 1, size(self%lod_mesh)
            call apply_material_to(self, self%lod_mesh(k))
        end do
    end subroutine apply_material