le commit en chocolat

This commit is contained in:
Tonton Th
2025-04-22 00:49:18 +02:00
parent a9ec016184
commit c82f6f4de5
18 changed files with 176 additions and 132 deletions

View File

@@ -8,16 +8,18 @@
#include "groundbase.inc"
#include "gadgets.inc"
/* ======================================================= */
/*
* essai du 12 mars 2025
*/
#declare RedB_0_X = 18;
#declare RedB_0_Z = 28;
#declare RedB_0_X = 19;
#declare RedB_0_Z = 29;
#declare RedB_1_X = -24;
#declare RedB_1_Z = 4;
#declare RedB_1_Z = 7;
#declare Pos_RedB_0 = <RedB_0_X, 0, RedB_0_Z>;
#declare Pos_RedB_1 = <RedB_1_X, 0, RedB_1_Z>;
@@ -26,9 +28,9 @@
difference {
#local R = 2.46;
cylinder { 0, y*0.40, R }
cylinder { 0, y*0.36, R*0.98 }
cone { y*0.37, R*0.80, y*0.42, R*0.83 }
#for (Foo, 20, 339, 10)
cylinder { 0, y*0.36, R*0.99 }
cone { y*0.37, R*0.80, y*0.425, R*0.83 }
#for (Foo, 0, 359, 10)
#local Dx = R * sin(radians(Foo));
#local Dz = R * cos(radians(Foo));
cone { 0, 0.01, y*0.41, 0.10 translate <Dx, 0, Dz> }
@@ -48,11 +50,15 @@ union {
box { <-1, 0, -1>, <1, 1.94, 1> }
translate y*(H_gyro+H_gylampe+0.04)
}
#if (rand(Rng1) < 0.5)
#local R = rand(Rng1);
#if (R < 0.33333)
texture { T_Stone25 scale 1+rand(Rng1) }
#elseif (R < 0.66666)
texture { T_Stone15 scale 1+rand(Rng1) }
#else
texture { T_Stone6 }
#end
#undef R
}
#end // macro
@@ -105,7 +111,22 @@ union {
}
#end
/* ======================================================= */
/* 11 avril 2025, je pose un grand cercle d'hexapoles
*/
#declare Les_HexaPoles = object
{
union {
#for (Ang, 0, 359, 15)
#local E = (SzSol * 1.40) + (6*rand(Rng1));
#local Ra = radians(Ang);
#local Xp = E * cos(Ra);
#local Zp = E * sin(Ra);
object { HexaPole () translate <Xp, 0, Zp> }
#end
}
}
/* ======================================================= */
#declare Rhxba = 0.30;
#declare R2hxba = Rhxba * 0.48;
@@ -172,9 +193,9 @@ blob {
*/
#fopen Holes "WS/holes.log" write
#for (Idx, 0, 5)
#local Angle = (Idx + 0.17) * 1.090;
#local Px = sin(Angle) * (SzSol * 1.21);
#local Pz = cos(Angle) * (SzSol * 1.23);
#local Angle = (Idx + 0.19) * 1.090;
#local Px = sin(Angle) * (SzSol * 0.97);
#local Pz = cos(Angle) * (SzSol * 1.04);
#declare UnderHoles[Idx] = <Px, 0, Pz>;
#write (Holes, Idx, " ", Angle, " ", UnderHoles[Idx], "\n")
#end
@@ -191,7 +212,7 @@ difference {
cylinder { -y*5, y*5, 3.4 translate UnderHoles[Foo] }
#end
}
texture { T_Planete_A scale 0.3333 }
texture { T_Planete_A scale 0.42 }
/*
texture {
pigment { color Gray20 }
@@ -215,31 +236,6 @@ union {
/* ======================================================= */
#declare OpenBox = object
{
union {
#local R = 0.010;
/* les verticales */
cylinder { <-1, -1, -1>, <-1, 1, -1>, R }
cylinder { < 1, -1, -1>, < 1, 1, -1>, R }
cylinder { <-1, -1, 1>, <-1, 1, 1>, R }
cylinder { < 1, -1, 1>, < 1, 1, 1>, R }
/* en bas */
cylinder { < 1, -1, 1>, <-1, -1, 1>, R }
cylinder { < 1, -1, -1>, <-1, -1, -1>, R }
cylinder { <-1, -1, 1>, <-1, -1, -1>, R }
cylinder { < 1, -1, 1>, < 1, -1, -1>, R }
/* en haut */
cylinder { < 1, 1, 1>, <-1, 1, 1>, R }
cylinder { < 1, 1, -1>, <-1, 1, -1>, R }
cylinder { <-1, 1, 1>, <-1, 1, -1>, R }
cylinder { < 1, 1, 1>, < 1, 1, -1>, R }
#undef R
texture { WIP_color }
}
}
/* ======================================================= */
/*
@@ -267,7 +263,7 @@ union {
object { Quad_lampe translate <-T, H, T> }
object { Quad_lampe translate < T, H, T> }
}
rotate -12 * y
rotate -19 * y
}
/* ======================================================= */
@@ -349,11 +345,14 @@ sky_sphere {
union {
object { Underground }
object { La_GroundBase }
object { RedBase_0 (T_Beton_1) translate <RedB_0_X, 0, RedB_0_Z> }
object { RedBase_0 (T_Beton_2) translate <RedB_1_X, 0, RedB_1_Z> }
object { RedBase_0 (T_Beton_1)
translate <RedB_0_X, 0, RedB_0_Z> }
object { RedBase_0 (T_Beton_2)
translate <RedB_1_X, 0, RedB_1_Z> }
// object { Les_Lumieres }
object { QuadriLight }
object { Les_GyroPhares () }
object { Les_HexaPoles }
}
}
/* ------------------------------------------------------------ */