cubic version in progress

Fraktalism/fraktals.f90

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

Fraktalism/pick2pov.awk

@@ -1,7 +1,5 @@
 #!/usr/bin/awk
 
-
-
 BEGIN	{
 	print "// generated file, don't touch it bastard !"
 	print "#declare Pickover = object {"
@@ -10,11 +8,11 @@ BEGIN	{
 
 #		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	{
 	print "} }"
-	print "// done"
+	print "// done", NR
 	}

Fraktalism/pick3d.sh

@@ -3,8 +3,12 @@
 POVOPT=" -d +q9 +a +W1920 +H1080 -v +WT4"
 PASS=600
 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
 
 	dstname=$(printf "frames/pick3d/%05d.png" $pass)