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%py = 0.0
blb%seq = blb%seq + 1 blb%seq = blb%seq + 1
endif endif
if (3.0 .lt. blb%py) then if (5.0 .lt. blb%py) then
blb%vy = -1.0 * blb%vy blb%vy = -1.0 * blb%vy
blb%seq = blb%seq + 1 blb%seq = blb%seq + 1
blb%py = 3.0 blb%py = 5.0
endif endif
if (5.0 .lt. blb%pz) then if (5.0 .lt. blb%pz) then
@ -109,7 +109,7 @@ module bloubspace
! ---------------------------------------------------------------- ! ----------------------------------------------------------------
subroutine green_soylent (blb) subroutine green_soylent (blb)
type(t_bloubs), intent (inout) :: blb type(t_bloubs), intent (inout) :: blb
if (blb%seq .gt. 4) then if (blb%seq .gt. 5) then
blb%alive = .FALSE. blb%alive = .FALSE.
endif endif
end subroutine end subroutine

8
BloubWorld/scene.pov
View File

@ -38,14 +38,14 @@ plane {
// ---------------------------------------------------------- // ----------------------------------------------------------
#declare BH = 5; #declare BH = 5;
#declare BV = 3; #declare BV = 5;
#declare BR = 0.025; #declare BR = 0.025;
#declare Une_Borne = object #declare Une_Borne = object
{ {
union { union {
cylinder { <0, 0, 0>, <0, BV, 0>, BR } 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 { <4, 12, -11> color Gray80 }
light_source { <7, 19, 9> color Gray60 } light_source { <7, 19, 9> color Gray60 }
#declare HCAM = 5 + (7 * NormClock); #declare HCAM = 5 + (9 * NormClock);
camera { camera {
location <6, HCAM, -16> location <6, HCAM, -16>
look_at <0, 0, 0> look_at <0, 0, 0>
right x*image_width/image_height right x*image_width/image_height
angle 48 angle 49
} }