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

cubic version in progress

Browse Source
This commit is contained in:
tth 2022-03-18 23:36:56 +01:00
parent 6d51ad3947
commit 8b14eaca25
3 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Fraktalism/fraktals.f90
View File

@ -98,7 +98,7 @@ end subroutine
! d'après les pages 91/92 du livre de Roger T Stevens ! d'après les pages 91/92 du livre de Roger T Stevens
! "Fractal programming in C" ! "Fractal programming in C"
! !
subroutine pickover_0(pic, count) subroutine plot_pickover(pic, count)
implicit none implicit none
integer, intent(inout), dimension (:,:) :: pic integer, intent(inout), dimension (:,:) :: pic
integer, intent(in) :: count integer, intent(in) :: count
@ -131,7 +131,7 @@ subroutine pickover_0(pic, count)
deallocate(points) deallocate(points)
end subroutine pickover_0 end subroutine plot_pickover
!----------------------------------------------------- !-----------------------------------------------------
! !

6
Fraktalism/pick2pov.awk
View File

@ -1,7 +1,5 @@
#!/usr/bin/awk #!/usr/bin/awk
BEGIN { BEGIN {
print "// generated file, don't touch it bastard !" print "// generated file, don't touch it bastard !"
print "#declare Pickover = object {" print "#declare Pickover = object {"
@ -10,11 +8,11 @@ BEGIN {
# for every line # for every line
{ {
printf "sphere { <%f, %f, %f> 0.015 }\n", $1, $2, $3 printf "object { Truc translate <%f, %f, %f> }\n", $1, $2, $3
} }
END { END {
print "} }" print "} }"
print "// done" print "// done", NR
} }

6
Fraktalism/pick3d.sh
View File

@ -3,8 +3,12 @@
POVOPT=" -d +q9 +a +W1920 +H1080 -v +WT4" POVOPT=" -d +q9 +a +W1920 +H1080 -v +WT4"
PASS=600 PASS=600
ERR="/tmp/pov.error" ERR="/tmp/pov.error"
POVINC="WS/pickover.inc"
for pass in $(seq 0 $PASS) ./pickover foo.pgm | awk -f pick2pov.awk > $POVINC
head $POVINC
for pass in $(seq 0 $(( PASS-1 )) )
do do
dstname=$(printf "frames/pick3d/%05d.png" $pass) dstname=$(printf "frames/pick3d/%05d.png" $pass)