nasty bug added

This commit is contained in:
tth
2022-02-08 02:53:49 +01:00
parent a693302969
commit d84c6d969c
10 changed files with 152 additions and 39 deletions

View File

@@ -4,16 +4,15 @@ module povstuff
! ----------------------------------------------------------------
type t_boundb
!
real :: BBminX, BBmaxX, BBminY, BBmaxY, BBminZ, BBmaxZ
integer :: id
!
end type
contains ! -----------------------------------------
subroutine show_bbox( bbox )
type (t_boundb), intent(in) :: bbox
print *, bbox%bbminx, bbox%bbminy, bbox%bbminz
@@ -22,6 +21,10 @@ module povstuff
end subroutine
! ----------------------------------------------------------------
! we need some primitives for the gestion of colors.
! may be a small database indexed by name ?
! XXX
! ----------------------------------------------------------------
end module