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

cubic version in progress, again

Browse Source
This commit is contained in:
tth 2022-03-18 23:38:23 +01:00
parent 8b14eaca25
commit 96834f5f21
2 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Fraktalism/pick3d.pov
View File

@ -6,11 +6,11 @@ global_settings {
}
#include "colors.inc"
#include "WS/pickover.inc"
#declare Tiers = NBPASS * 0.3333333;
#declare CK = (clock/Tiers)*180;
// --------------------------------------------------------------
#declare Rep = object
{
union {
@ -20,9 +20,19 @@ union {
cylinder { 0, <0, 0, 2>, RB pigment { color Blue } }
}
}
// object { Rep translate <-1, 0.10, -1> }
// --------------------------------------------------------------
#declare TS = 0.017;
#declare Truc = object
{
box { <-TS, -TS, -TS>, <TS, TS, TS> }
}
#include "WS/pickover.inc"
object {
object {
Pickover
@ -66,7 +76,7 @@ camera {
location <XCAM, YCAM, ZCAM>
look_at <0, 2.09, 0>
right x*image_width/image_height
angle 86
angle 92
}
// ----------------------------------------------------------

5
Fraktalism/pickover.f90
View File

@ -11,7 +11,7 @@ program pickover
implicit none
integer, dimension(800, 600) :: picz
integer, dimension(1024, 768) :: picz
integer :: argc
character(200) :: filename
double precision, dimension(4) :: coefs
@ -36,9 +36,8 @@ program pickover
coefs(1) = 2.24 ; coefs(2) = 0.43
coefs(3) = -0.65 ; coefs(4) = -2.43
call compute_pickover(points, coefs)
call list_points3d(points, 2, 32000)
call list_points3d(points, 2, 42000)
end program