From 96834f5f218b049013079960573a288263f17831 Mon Sep 17 00:00:00 2001
From: tth <tth@konrad.lan>
Date: Fri, 18 Mar 2022 23:38:23 +0100
Subject: [PATCH] cubic version in progress, again

---
 Fraktalism/pick3d.pov   | 16 +++++++++++++---
 Fraktalism/pickover.f90 |  5 ++---
 2 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/Fraktalism/pick3d.pov b/Fraktalism/pick3d.pov
index 47cf19e..e85ef90 100644
--- a/Fraktalism/pick3d.pov
+++ b/Fraktalism/pick3d.pov
@@ -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
         }
 //  ----------------------------------------------------------
 
diff --git a/Fraktalism/pickover.f90 b/Fraktalism/pickover.f90
index 5094102..18b9f2f 100644
--- a/Fraktalism/pickover.f90
+++ b/Fraktalism/pickover.f90
@@ -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