63 lines
1.5 KiB
PHP
63 lines
1.5 KiB
PHP
/*
|
|
*/
|
|
|
|
object { Les_Bibelots rotate y*clock translate <28, -1, -27> }
|
|
|
|
/*
|
|
* on fait passer un hexatruc dans le ciel
|
|
*/
|
|
#declare A = <-SzSol, 22, -10>;
|
|
#declare B = < SzSol+4, 18, -11>;
|
|
#declare P = Interpolate(A, B, NormClock);
|
|
object { HexaCone () rotate y*((12*NormClock)+80) translate P }
|
|
|
|
|
|
/*
|
|
* le vaisseau "trident" passe a travers les
|
|
* trous de l'underground
|
|
*/
|
|
|
|
#declare Truc = object
|
|
{
|
|
cylinder { -y, y, 0.8 }
|
|
pigment { color Red }
|
|
}
|
|
|
|
#fopen Trid "WS/tridents.log" write
|
|
#for (Foo, 0, 5)
|
|
#declare Dy = -3+(11*NormClock);
|
|
#declare Tr = UnderHoles[Foo] + <0, Dy, 0>;
|
|
#write (Trid, Foo, " ", NormClock, " ", Dy, " ",
|
|
UnderHoles[Foo], " ", Tr, "\n")
|
|
object { Trident_A () translate Tr }
|
|
#end
|
|
#fclose Trid
|
|
|
|
/*
|
|
* echange hexacone et hexabenz
|
|
*/
|
|
#declare HC_A = <0.03, 2.18, 0.17>;
|
|
#declare HC_B = <3.00, 11.07, 11.09>;
|
|
#declare HC_P = Interpolate(HC_A, HC_B, Cos_01(NormClock));
|
|
#declare RX = -9+(NormClock*11);
|
|
#declare RY = 122 * (exp(NormClock) - 1.0);
|
|
object { HexaCone ()
|
|
rotate <RX, RY, -4>
|
|
translate HC_P
|
|
}
|
|
#declare HB_A = <-5.00, 10.0, 6.33>;
|
|
#declare HB_B = < 0.03, 2.32, -0.37>;
|
|
#declare HB_P = Interpolate(HB_A, HB_B, Cos_01(NormClock));
|
|
#declare RY = -75 * (exp(NormClock*1.8) - 1.0);
|
|
#declare RZ = -7+(7*NormClock);
|
|
object { HexaBenz ()
|
|
rotate <6, RY, RZ> translate HB_P }
|
|
|
|
/*
|
|
* passage d'un hexawood près de la base
|
|
*/
|
|
#declare A = <-21, 1.7, (SzSol/2)+8>;
|
|
#declare B = < 24, 1.6, (SzSol/2)+5>;
|
|
#declare P = Interpolate(A, B, NormClock);
|
|
object { HexaWood translate P }
|