ajust parameters of the bubble-cuting sphere

bubblecut.pov

@@ -21,19 +21,23 @@
 
 #local TY = 1.55;
 
-#declare Pos = <0.50, -0.70, 0.75>;
-#declare Rad = 0.40 + (1.*NormClock);
+#declare Position = <0.50, -0.70, 0.75>;
+#declare Rayon = 0.70 + 1.50 * NormClock;	// rayon de la sphere
+						// de découpe
+#debug concat("Rayon decoupe = ", str(Rayon, 8, 3), "\n\n")
+
 difference {
 	object { HexaBenz () }
-	sphere { Pos, Rad }
+	sphere { Position, Rayon }
 	translate y*TY + POS_Cutoff
 	} 
 
-sphere { Pos, 0.025 translate y*TY + POS_Cutoff texture { T_WIP_alert } }
-// object { Repere  translate y*2.8 + POS_Cutoff }
+sphere { Position, 0.020 translate y*TY + POS_Cutoff
+			texture { T_WIP_alert } }
 
 /* this one is for debugging */
 object { OpenBox translate y*TY + POS_Cutoff  }
+// object { Repere  translate y*2.8 + POS_Cutoff }
 
 // =======================================================
 light_source {