diff --git a/BloubWorld/bloubspace.f90 b/BloubWorld/bloubspace.f90 index 230dbae..8eb72e0 100644 --- a/BloubWorld/bloubspace.f90 +++ b/BloubWorld/bloubspace.f90 @@ -87,10 +87,10 @@ module bloubspace blb%py = 0.0 blb%seq = blb%seq + 1 endif - if (3.0 .lt. blb%py) then + if (5.0 .lt. blb%py) then blb%vy = -1.0 * blb%vy blb%seq = blb%seq + 1 - blb%py = 3.0 + blb%py = 5.0 endif if (5.0 .lt. blb%pz) then @@ -109,7 +109,7 @@ module bloubspace ! ---------------------------------------------------------------- subroutine green_soylent (blb) type(t_bloubs), intent (inout) :: blb - if (blb%seq .gt. 4) then + if (blb%seq .gt. 5) then blb%alive = .FALSE. endif end subroutine diff --git a/BloubWorld/scene.pov b/BloubWorld/scene.pov index 32997bc..1dd6b02 100644 --- a/BloubWorld/scene.pov +++ b/BloubWorld/scene.pov @@ -38,14 +38,14 @@ plane { // ---------------------------------------------------------- #declare BH = 5; -#declare BV = 3; +#declare BV = 5; #declare BR = 0.025; #declare Une_Borne = object { union { cylinder { <0, 0, 0>, <0, BV, 0>, BR } - cylinder { <0, 0, 0>, <0, 0.02, 0>, BR*7 } + cylinder { <0, 0, 0>, <0, 0.02, 0>, BR*6 } } } @@ -66,11 +66,11 @@ object { Les_Bornes } light_source { <4, 12, -11> color Gray80 } light_source { <7, 19, 9> color Gray60 } -#declare HCAM = 5 + (7 * NormClock); +#declare HCAM = 5 + (9 * NormClock); camera { location <6, HCAM, -16> look_at <0, 0, 0> right x*image_width/image_height - angle 48 + angle 49 }