setup_logo Function

    function setup_logo() result(array)
    !! setup uni crest geometry
    
        use sdfs,         only : sdf, box, segment
        use sdfModifiers, only : extrude
        use opticalProperties
        use vector_class

        type(sdf), allocatable :: array(:)
        type(segment), allocatable, save :: seg(:)

        type(opticalProp_t) :: opt(2)

        type(vector)  :: a, b
        real(kind=wp) :: hgg, mus, mua, n
        integer       :: layer
        logical       :: fexists

        allocate(array(726), seg(725))

        mus = 10._wp
        mua = .1_wp
        hgg = 0.9_wp
        n = 1.5_wp
        layer = 1

        opt(1) = mono(0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp)
        opt(2) = mono(mus, mua, hgg, n)

        inquire(file="res/svg.f90", exist=fexists)
        if(.not. fexists)error stop "need to generate svg.f90 and place in res/"
        error stop "need to uncomment inlcude line!"
        ! include "../res/svg.f90"
        array(726) = box(vector(10._wp, 10._wp, 2.001_wp), opt(1), 2) 

    end function setup_logo