tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

frobnicates the knobs

Browse Source
This commit is contained in:
tth 2022-02-09 19:36:27 +01:00
parent 0934b49bc6
commit 5444956a72
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
BloubWorld/bloubspace.f90
View File

@ -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

8
BloubWorld/scene.pov
View File

@ -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
}