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

add a glowing light to the hexapoles

Browse Source
This commit is contained in:
Tonton Th
2026-04-29 09:27:45 +02:00
parent 5bd0af1ad2
commit 751c02321b
1 changed files with 16 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
gadgets.inc
View File

@@ -208,17 +208,27 @@ prism {
#macro HexaPole_abatjour (Quux)
union {
#local Raj = 0.333;
torus { Raj, 0.014 translate -y*Quux }
torus { Raj, 0.013 translate -y*Quux }
#for (Foo, 0, 359, 18)
#local DX = Raj * sin(radians(Foo));
#local DZ = Raj * cos(radians(Foo));
cylinder { -y*Quux, y*Quux, 0.010 translate <DX, 0, DZ> }
cylinder { -y*Quux, y*Quux, 0.009 translate <DX, 0, DZ> }
#end // for
torus { Raj, 0.02 translate y*Quux }
rotate y*(clock*0.90*(rand(Rng1)-0.59))
}
#end // macro
#macro HexaPole_ampoule (V)
sphere {
0, 0.080
texture {
pigment { color rgb <1, 1, 1> }
finish { emission 0.8 diffuse 0.6 }
}
}
#end // macro
#macro HexaPole_mat_lampe (Height)
union {
union {
@@ -229,17 +239,18 @@ union {
texture { LeGris }
}
#local P = y*(Height+0.097);
#local Pos = y*(Height+0.097);
#if (rand(Rng1) < 0.30)
#local Val = 0.25 + 0.5*rand(Rng1);
light_source {
P rgb <0.80, 0.25+(0.5*rand(Rng1)), 0.99>
Pos rgb <0.86, 0.25+(0.5*rand(Rng1)), 0.99>
fade_distance 3.30
fade_power 1.55
looks_like { HexaPole_ampoule (0) }
}
#else
sphere {
P, 0.080
Pos, 0.080
texture { C_Texture }
}
#end // if