tTh/HexaCone
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

commit du dimanche soir de la flemme

Browse Source
This commit is contained in:
Tonton Th
2025-03-16 21:32:23 +01:00
parent 095dfbdd39
commit c03f402b4c
16 changed files with 215 additions and 111 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
contexte.inc
View File

@@ -8,8 +8,34 @@
#include "groundbase.inc"
/* ======================================================= */
/*
* essai du 12 mars 2025
*/
#declare RedB_0_X = 18;
#declare RedB_0_Z = 28;
#declare RedB_1_X = -24;
#declare RedB_1_Z = 4;
#declare Pos_RedB_0 = <RedB_0_X, 0, RedB_0_Z>;
#declare Pos_RedB_1 = <RedB_1_X, 0, RedB_1_Z>;
#macro RedBase_0 ( T )
difference {
#local R = 2.46;
cylinder { 0, y*0.40, R }
cone { y*0.37, R*0.78, y*0.42, R*0.83 }
#for (Foo, 20, 339, 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> }
#end
}
// pigment { color Red*0.8 }
texture { T }
#end // macro
/* ======================================================= */
@@ -34,7 +60,7 @@ union {
difference {
cylinder { 0, y*H_gylampe, R_gyro }
cylinder { y*0.01, y*(H_gylampe-0.01), R_gyro*0.97 }
#local WB = 0.015;
#local WB = 0.017;
box { <-1, 0.03, -WB>, <1, (H_gylampe-0.03), WB> }
box { <-WB, 0.03, -1>, <WB, (H_gylampe-0.03), 1> }
#undef WB
@@ -65,15 +91,13 @@ union {
#macro Les_GyroPhares ()
union {
#local E = SzSol * 0.488;
object { GyroPhare () translate <-E, 0, -E> }
object { GyroPhare () translate < E, 0, -E> }
object { GyroPhare () translate <-E, 0, E> }
object { GyroPhare () translate < E, 0, E> }
object { GyroPhare () translate <-E, 0, 0> }
object { GyroPhare () translate < E, 0, 0> }
object { GyroPhare () translate < 0, 0, -E> }
object { GyroPhare () translate < 0, 0, E> }
#local E = SzSol * 0.431;
#for (Idx, 0, 360, 60)
#local Ang = radians(Idx+7.33);
#local Dx = E * sin(Ang);
#local Dz = E * cos(Ang);
object { GyroPhare () translate <Dx, H_sol, Dz> }
#end
#undef E
}
#end
@@ -136,16 +160,15 @@ blob {
/* ======================================================= */
/* ======================================================= */
#declare UnderHoles = array[6]
#fopen Holes "WS/holes.log" write
#for (Idx, 0, 5)
#local Angle = Idx* 1.07825;
#local Angle = Idx* 1.090;
#local Px = sin(Angle) * (SzSol * 1.21);
#local Pz = cos(Angle) * (SzSol * 1.21);
#local Pz = cos(Angle) * (SzSol * 1.23);
#declare UnderHoles[Idx] = <Px, 0, Pz>;
#write (Holes, Idx, " ", Angle, " ", UnderHoles[Idx], "\n")
#end
@@ -156,15 +179,15 @@ blob {
difference {
// plane { y, 0 }
#local Big = 300;
box { <-Big, -0.10, -Big>, < Big, 0.01, Big> }
box { <-Big, -0.15, -Big>, < Big, 0.0000, Big> }
#undef Big
#for (Foo, 0, 5)
cylinder { -y*5, y*5, 4 translate UnderHoles[Foo] }
cylinder { -y*5, y*5, 3.4 translate UnderHoles[Foo] }
#end
}
texture {
pigment { color Gray20 }
normal { bumps 0.38 scale 3 }
normal { bumps 0.38 scale 2.6 }
finish { phong 0.125 }
}
// translate -y*1.55
@@ -292,7 +315,7 @@ sky_sphere {
[ 1.0 color Gray10 ]
}
turbulence 3.14159 + 0.74 * Cos_010(NormClock)
scale 1.620
scale 1.600
// translate -1
}
#local Kem = 0.09;
@@ -318,7 +341,8 @@ sky_sphere {
union {
object { Underground }
object { La_GroundBase }
// object { Les_Bibelots }
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 () }