hjp
/
3d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Povray 3.5 compatibility.

This commit is contained in:
hjp 2002-03-18 20:08:59 +00:00
parent 15c1f3407e
commit 7c3e80b9c3
4 changed files with 218 additions and 210 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
pr/manoever/HGSJ200.GIF
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 575 B

After

Width:  |  Height:  |  Size: 583 B

293
pr/manoever/KR200.INC
View File

@ -11,25 +11,25 @@
// //
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
#declare _MAT_gif = "krpl200.gif" #declare _MAT_gif = "KRPL200.GIF"
#declare _M_ANGL = 0.0 #declare _M_ANGL = 0.0;
#declare _FENSTER_R = 100 #declare _FENSTER_R = 100;
//#declare _STUETZE = 1 // wenn deklariert dann sind //#declare _STUETZE = 1; // wenn deklariert dann sind
// die Landstützen ausgefahren // die Landstützen ausgefahren
//#declare _NO_F_LIGHT = 1 // wenn deklariert dann sind //#declare _NO_F_LIGHT = 1; // wenn deklariert dann sind
// die Fenster dunkel // die Fenster dunkel
//#declare _NO_K_LIGHT = 1 // wenn deklariert dann sind //#declare _NO_K_LIGHT = 1; // wenn deklariert dann sind
// Beobachtungskuppel dunkel // Beobachtungskuppel dunkel
#include "KRMat.inc" #include "KRMAT.INC"
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
// Kugelraumer 200 Meter // Kugelraumer 200 Meter
#declare R = 100.0 // Kugelradius #declare R = 100.0; // Kugelradius
#declare wr = 15.0 // Wulstradius #declare wr = 15.0; // Wulstradius
// Fenster // Fenster
#declare F_O1 = #declare F_O1 =
@ -45,7 +45,7 @@ union {
texture { TERKONIT } texture { TERKONIT }
} }
#declare Count = 0 #declare Count = 0;
#declare F_OR = #declare F_OR =
union { union {
// OBEN 1 // OBEN 1
@ -61,10 +61,10 @@ union {
} }
translate < 0, 70, 0 > // oben 1 translate < 0, 70, 0 > // oben 1
} }
#declare Count=Count+20 //18 #declare Count=Count+20; //18
#end #end
// OBEN 2 // OBEN 2
#declare Count = 0 #declare Count = 0;
#while (Count < 180) #while (Count < 180)
union { union {
object { object {
@ -77,10 +77,10 @@ union {
} }
translate < 0, 52, 0 > // oben 2 translate < 0, 52, 0 > // oben 2
} }
#declare Count=Count+18 //15 #declare Count=Count+18; //15
#end #end
// OBEN 3 // OBEN 3
#declare Count = 36 #declare Count = 36;
#while (Count < 325) #while (Count < 325)
union { union {
object { object {
@ -97,11 +97,11 @@ union {
} }
translate < 0, 35, 0 > //oben 3 translate < 0, 35, 0 > //oben 3
} }
#declare Count=Count+12 #declare Count=Count+12;
#end #end
// UNTEN 1 // UNTEN 1
#declare Count = 0 #declare Count = 0;
#while (Count < 180) #while (Count < 180)
union { union {
object { object {
@ -114,11 +114,11 @@ union {
} }
translate < 0, -54, 0 > // unten 1 translate < 0, -54, 0 > // unten 1
} }
#declare Count=Count+18 //15 #declare Count=Count+18; //15
#end #end
// UNTEN 2 // UNTEN 2
#declare Count = 0 #declare Count = 0;
#while (Count < 180) #while (Count < 180)
union { union {
object { object {
@ -131,7 +131,7 @@ union {
} }
translate < 0, -72, 0 > // unten 2 translate < 0, -72, 0 > // unten 2
} }
#declare Count=Count+20 //18 #declare Count=Count+20; //18
#end #end
} // end union } // end union
@ -152,7 +152,7 @@ difference {
texture { texture {
pigment { pigment {
image_map { image_map {
gif "manns.gif" gif "MANNS.GIF"
interpolate 4 // 4=normalized distance interpolate 4 // 4=normalized distance
filter 5 1.0 filter 5 1.0
once once
@ -167,7 +167,7 @@ texture {
texture { texture {
pigment { pigment {
image_map { image_map {
gif "HB200.gif" gif "HB200.GIF"
interpolate 4 // 4=normalized distance interpolate 4 // 4=normalized distance
filter 5 1.0 filter 5 1.0
once once
@ -182,7 +182,7 @@ texture {
texture { texture {
pigment { pigment {
image_map { image_map {
gif "hgro200.gif" gif "HGRO200.GIF"
interpolate 4 // 4=normalized distance interpolate 4 // 4=normalized distance
filter 5 1.0 filter 5 1.0
once once
@ -197,7 +197,7 @@ texture {
texture { texture {
pigment { pigment {
image_map { image_map {
gif "hgru200.gif" gif "HGRU200.GIF"
interpolate 4 // 4=normalized distance interpolate 4 // 4=normalized distance
filter 5 1.0 filter 5 1.0
once once
@ -212,9 +212,8 @@ texture {
texture { texture {
pigment { pigment {
image_map { image_map {
gif "hgsj200.gif" png "HGSJ200.png"
interpolate 4 // 4=normalized distance interpolate 4 // 4=normalized distance
filter 5 1.0
once once
} }
translate < -0.5, -0.5, 0 > translate < -0.5, -0.5, 0 >
@ -224,14 +223,14 @@ texture {
} // end texture } // end texture
//----- Hangar Tore //----- Hangar Tore
#declare norm_msl_h = 16.25 // Höhe Mannschl normal #declare norm_msl_h = 16.25; // Höhe Mannschl normal
#declare zus_msl_h = 45 // Höhe Mannschl zusätzlich #declare zus_msl_h = 45; // Höhe Mannschl zusätzlich
#declare sjh_h = 28 // Höhe SJ-Hangar #declare sjh_h = 28; // Höhe SJ-Hangar
#declare hgkr_ob = 60 // Höhe Hangarkreis oben #declare hgkr_ob = 60; // Höhe Hangarkreis oben
#declare hgkr_ut = -35 // Höhe Hangarkreis unten #declare hgkr_ut = -35; // Höhe Hangarkreis unten
#declare hgb_h = -85 // Höhe Bodenhangar #declare hgb_h = -85; // Höhe Bodenhangar
#declare Count = 45 #declare Count = 45;
#declare MANNSCHL = #declare MANNSCHL =
union { union {
#while (Count < 360) #while (Count < 360)
@ -248,7 +247,7 @@ union {
} }
rotate < 0, Count ,0 > rotate < 0, Count ,0 >
} // end intersection } // end intersection
#declare Count=Count+45 #declare Count=Count+45;
#end #end
intersection { intersection {
sphere { <0, 0, 0>, R-0.5 } sphere { <0, 0, 0>, R-0.5 }
@ -264,7 +263,7 @@ union {
} // end intersection } // end intersection
} // end Union } // end Union
#declare Count = 0 #declare Count = 0;
#declare HANGAR_B = #declare HANGAR_B =
union { union {
#while (Count < 360) #while (Count < 360)
@ -281,11 +280,11 @@ union {
} // end texture } // end texture
rotate < 0, Count ,0 > rotate < 0, Count ,0 >
} // end intersection } // end intersection
#declare Count=Count+180 #declare Count=Count+180;
#end #end
} // end union } // end union
#declare Count = 0 #declare Count = 0;
#declare HANGARKR_OB = #declare HANGARKR_OB =
union { union {
#while (Count < 360) #while (Count < 360)
@ -302,11 +301,11 @@ union {
} // end texture } // end texture
rotate < 0, Count ,0 > rotate < 0, Count ,0 >
} // end intersection } // end intersection
#declare Count=Count+60 #declare Count=Count+60;
#end #end
} // end union } // end union
#declare Count = 0 #declare Count = 0;
#declare HANGARKR_UT = #declare HANGARKR_UT =
union { union {
#while (Count < 360) #while (Count < 360)
@ -323,7 +322,7 @@ union {
} // end texture } // end texture
rotate < 0, Count ,0 > rotate < 0, Count ,0 >
} // end intersection } // end intersection
#declare Count=Count+45 #declare Count=Count+45;
#end #end
} // end union } // end union
@ -342,7 +341,7 @@ intersection {
} // end intersection } // end intersection
//----- Hangar Ausschnitte //----- Hangar Ausschnitte
#declare Count = 45 #declare Count = 45;
#declare _MANNSCHL = #declare _MANNSCHL =
union { union {
#while (Count < 360) #while (Count < 360)
@ -352,7 +351,7 @@ union {
rotate < 0, Count ,0 > rotate < 0, Count ,0 >
translate < 0, norm_msl_h, 0 > translate < 0, norm_msl_h, 0 >
} }
#declare Count=Count+45 #declare Count=Count+45;
#end #end
superellipsoid { < 0.2, 0.2 > superellipsoid { < 0.2, 0.2 >
scale < R/2+5, 1.25, 2.5 > scale < R/2+5, 1.25, 2.5 >
@ -373,7 +372,7 @@ object {
} // end object } // end object
// oberer Hangarkreis // oberer Hangarkreis
#declare Count = 0 #declare Count = 0;
#declare _HANGARKR_OB = #declare _HANGARKR_OB =
union { union {
#while (Count < 180) #while (Count < 180)
@ -382,13 +381,13 @@ union {
rotate < 0, Count ,0 > rotate < 0, Count ,0 >
translate < 0, hgkr_ob, 0 > translate < 0, hgkr_ob, 0 >
} }
#declare Count=Count+60 #declare Count=Count+60;
#end #end
texture { TERKONIT } texture { TERKONIT }
} // end union } // end union
// unterer Hangarkreis // unterer Hangarkreis
#declare Count = 0 #declare Count = 0;
#declare _HANGARKR_UT = #declare _HANGARKR_UT =
union { union {
#while (Count < 180) #while (Count < 180)
@ -397,7 +396,7 @@ union {
rotate < 0, Count ,0 > rotate < 0, Count ,0 >
translate < 0, hgkr_ut, 0 > translate < 0, hgkr_ut, 0 >
} }
#declare Count=Count+45 #declare Count=Count+45;
#end #end
texture { TERKONIT } texture { TERKONIT }
} // end union } // end union
@ -452,8 +451,8 @@ object {
} }
} // end obj } // end obj
#declare r1 = 7.25 // Düsenentfernung #declare r1 = 7.25; // Düsenentfernung
#declare dsk = 45 // Düsenwinkel #declare dsk = 45; // Düsenwinkel
#declare WULST = #declare WULST =
object { object {
@ -462,31 +461,31 @@ object {
torus { R, wr } torus { R, wr }
cylinder { -wr*y , wr*y, R } cylinder { -wr*y , wr*y, R }
} }
#declare Count = 10 #declare Count = 10;
#while (Count < 360) #while (Count < 360)
#declare X=(r1*cos(radians( dsk ))+R)*sin(radians( Count )) #declare X=(r1*cos(radians( dsk ))+R)*sin(radians( Count ));
#declare Z=(r1*cos(radians( dsk ))+R)*cos(radians( Count )) #declare Z=(r1*cos(radians( dsk ))+R)*cos(radians( Count ));
#declare Y=r1*sin(radians( dsk )) #declare Y=r1*sin(radians( dsk ));
object { object {
DUESE DUESE
rotate < dsk, 0, 0 > rotate < dsk, 0, 0 >
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z, > translate < X, Y, Z, >
} }
#declare Count=Count+20 #declare Count=Count+20;
#end #end
#declare Count = 10 #declare Count = 10;
#while (Count < 360) #while (Count < 360)
#declare X=(r1*cos(radians( -dsk ))+R)*sin(radians( Count )) #declare X=(r1*cos(radians( -dsk ))+R)*sin(radians( Count ));
#declare Z=(r1*cos(radians( -dsk ))+R)*cos(radians( Count )) #declare Z=(r1*cos(radians( -dsk ))+R)*cos(radians( Count ));
#declare Y=r1*sin(radians( -dsk )) #declare Y=r1*sin(radians( -dsk ));
object { object {
DUESE DUESE
rotate <180-dsk, 0, 0 > rotate <180-dsk, 0, 0 >
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z, > translate < X, Y, Z, >
} }
#declare Count=Count+20 #declare Count=Count+20;
#end #end
} }
} // end object } // end object
@ -577,7 +576,7 @@ object {
scale 5 scale 5
} // end obj } // end obj
#declare rgs = R - 1.5 // Radius Polgeschütz #declare rgs = R - 1.5; // Radius Polgeschütz
#declare GSKP = #declare GSKP =
union { union {
sphere { < 0, 0, 0 >, 1 sphere { < 0, 0, 0 >, 1
@ -600,112 +599,112 @@ union {
rotate < 0, 20, 0> rotate < 0, 20, 0>
} }
#declare rgs = R - 1.0 // Radius Geschütz #declare rgs = R - 1.0; // Radius Geschütz
#declare Count = 0 #declare Count = 0;
#declare wgsk = 50 // Gesützkreiswinkel #declare wgsk = 50; // Gesützkreiswinkel
#declare GSKR1 = #declare GSKR1 =
union{ union{
#while (Count < 360) #while (Count < 360)
#declare X=rgs*sin(radians( Count ))*cos(radians( wgsk )) #declare X=rgs*sin(radians( Count ))*cos(radians( wgsk ));
#declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk )) #declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk ));
#declare Y=rgs*sin(radians( wgsk )) #declare Y=rgs*sin(radians( wgsk ));
object { object {
GSKUPPEL_1 GSKUPPEL_1
rotate < 90-wgsk, 0, 0 > rotate < 90-wgsk, 0, 0 >
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z > translate < X, Y, Z >
} }
#declare Count=Count+45 #declare Count=Count+45;
#end #end
} }
#declare Count = 15 #declare Count = 15;
#declare wgsk = 27 // Gesützkreiswinkel #declare wgsk = 27; // Gesützkreiswinkel
#declare GSKR2 = #declare GSKR2 =
union{ union{
#declare Y=rgs*sin(radians( wgsk )) #declare Y=rgs*sin(radians( wgsk ));
#while (Count < 360) #while (Count < 360)
#declare X=rgs*sin(radians( Count ))*cos(radians( wgsk )) #declare X=rgs*sin(radians( Count ))*cos(radians( wgsk ));
#declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk )) #declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk ));
object { object {
GSKUPPEL_3 GSKUPPEL_3
rotate < 90-wgsk, 0, 0 > rotate < 90-wgsk, 0, 0 >
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z > translate < X, Y, Z >
} }
#declare Count=Count+30 #declare Count=Count+30;
#declare X=rgs*sin(radians( Count ))*cos(radians( wgsk )) #declare X=rgs*sin(radians( Count ))*cos(radians( wgsk ));
#declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk )) #declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk ));
object { object {
GSKUPPEL_2 GSKUPPEL_2
rotate < 90-wgsk, 0, 0 > rotate < 90-wgsk, 0, 0 >
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z > translate < X, Y, Z >
} }
#declare Count=Count+30 #declare Count=Count+30;
#declare X=rgs*sin(radians( Count ))*cos(radians( wgsk )) #declare X=rgs*sin(radians( Count ))*cos(radians( wgsk ));
#declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk )) #declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk ));
object { object {
GSKUPPEL_2 GSKUPPEL_2
rotate < 90-wgsk, 0, 0 > rotate < 90-wgsk, 0, 0 >
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z > translate < X, Y, Z >
} }
#declare Count=Count+30 #declare Count=Count+30;
#end #end
} }
#declare Count = 15 #declare Count = 15;
#declare wgsk = -27 // Gesützkreiswinkel #declare wgsk = -27; // Gesützkreiswinkel
#declare GSKR3 = #declare GSKR3 =
union{ union{
#declare Y=rgs*sin(radians( wgsk )) #declare Y=rgs*sin(radians( wgsk ));
#while (Count < 360) #while (Count < 360)
#declare X=rgs*sin(radians( Count ))*cos(radians( wgsk )) #declare X=rgs*sin(radians( Count ))*cos(radians( wgsk ));
#declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk )) #declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk ));
object { object {
GSKUPPEL_3 GSKUPPEL_3
rotate < 90-wgsk, 0, 0 > rotate < 90-wgsk, 0, 0 >
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z > translate < X, Y, Z >
} }
#declare Count=Count+30 #declare Count=Count+30;
#declare X=rgs*sin(radians( Count ))*cos(radians( wgsk )) #declare X=rgs*sin(radians( Count ))*cos(radians( wgsk ));
#declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk )) #declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk ));
object { object {
GSKUPPEL_2 GSKUPPEL_2
rotate < 90-wgsk, 0, 0 > rotate < 90-wgsk, 0, 0 >
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z > translate < X, Y, Z >
} }
#declare Count=Count+30 #declare Count=Count+30;
#declare X=rgs*sin(radians( Count ))*cos(radians( wgsk )) #declare X=rgs*sin(radians( Count ))*cos(radians( wgsk ));
#declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk )) #declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk ));
object { object {
GSKUPPEL_2 GSKUPPEL_2
rotate < 90-wgsk, 0, 0 > rotate < 90-wgsk, 0, 0 >
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z > translate < X, Y, Z >
} }
#declare Count=Count+30 #declare Count=Count+30;
#end #end
} }
#declare Count = 0 #declare Count = 0;
#declare wgsk = -50 // Gesützkreiswinkel #declare wgsk = -50; // Gesützkreiswinkel
#declare GSKR4 = #declare GSKR4 =
union{ union{
#while (Count < 360) #while (Count < 360)
#declare X=rgs*sin(radians( Count ))*cos(radians( wgsk )) #declare X=rgs*sin(radians( Count ))*cos(radians( wgsk ));
#declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk )) #declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk ));
#declare Y=rgs*sin(radians( wgsk )) #declare Y=rgs*sin(radians( wgsk ));
object { object {
GSKUPPEL_1 GSKUPPEL_1
rotate < 90-wgsk, 0, 0 > rotate < 90-wgsk, 0, 0 >
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z > translate < X, Y, Z >
} }
#declare Count=Count+45 #declare Count=Count+45;
#end #end
} }
@ -736,15 +735,15 @@ union {
texture { TERKONIT } texture { TERKONIT }
} }
#declare rgs = R - 1 // Radius Schutzschirmprojektor #declare rgs = R - 1; // Radius Schutzschirmprojektor
#declare Count = 22.5 #declare Count = 22.5;
#declare wgsk = 50 // Winkel SSprojektorkreis #declare wgsk = 50; // Winkel SSprojektorkreis
#declare SSKR1 = #declare SSKR1 =
union{ union{
#while (Count < 360) #while (Count < 360)
#declare X=rgs*sin(radians( Count ))*cos(radians( wgsk )) #declare X=rgs*sin(radians( Count ))*cos(radians( wgsk ));
#declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk )) #declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk ));
#declare Y=rgs*sin(radians( wgsk )) #declare Y=rgs*sin(radians( wgsk ));
object { object {
SSPROJ SSPROJ
scale 6 scale 6
@ -752,18 +751,18 @@ union{
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z > translate < X, Y, Z >
} }
#declare Count=Count+45 #declare Count=Count+45;
#end #end
} }
#declare Count = 22.5 #declare Count = 22.5;
#declare wgsk = -50 // Winkel SSprojektorkreis #declare wgsk = -50; // Winkel SSprojektorkreis
#declare SSKR2 = #declare SSKR2 =
union{ union{
#while (Count < 360) #while (Count < 360)
#declare X=rgs*sin(radians( Count ))*cos(radians( wgsk )) #declare X=rgs*sin(radians( Count ))*cos(radians( wgsk ));
#declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk )) #declare Z=rgs*cos(radians( Count ))*cos(radians( wgsk ));
#declare Y=rgs*sin(radians( wgsk )) #declare Y=rgs*sin(radians( wgsk ));
object { object {
SSPROJ SSPROJ
scale 6 scale 6
@ -771,14 +770,14 @@ union{
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z > translate < X, Y, Z >
} }
#declare Count=Count+45 #declare Count=Count+45;
#end #end
} }
//--------------------------------------------------- //---------------------------------------------------
// Landeteller und Landestützen // Landeteller und Landestützen
#declare wldst = 15 #declare wldst = 15;
#declare LDST = #declare LDST =
union{ union{
@ -808,24 +807,24 @@ union{
rotate < 0, 0, wldst > rotate < 0, 0, wldst >
} }
#declare Count = 15 #declare Count = 15;
#declare wltk = -40 #declare wltk = -40;
#declare rlt = R - 1 #declare rlt = R - 1;
#ifdef (_STUETZE) #ifdef (_STUETZE)
#declare LTKR = #declare LTKR =
union{ union{
#while (Count < 360) #while (Count < 360)
#declare X=rlt*sin(radians( Count ))*cos(radians( wltk )) #declare X=rlt*sin(radians( Count ))*cos(radians( wltk ));
#declare Z=rlt*cos(radians( Count ))*cos(radians( wltk )) #declare Z=rlt*cos(radians( Count ))*cos(radians( wltk ));
#declare Y=rlt*sin(radians( wltk )) #declare Y=rlt*sin(radians( wltk ));
object { object {
LDST LDST
rotate < 0, -90, 0 > rotate < 0, -90, 0 >
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z > translate < X, Y, Z >
} }
#declare Count=Count+30 #declare Count=Count+30;
#end #end
texture { TERKONIT } texture { TERKONIT }
} }
@ -833,9 +832,9 @@ union{
#declare LTKR = #declare LTKR =
union{ union{
#while (Count < 360) #while (Count < 360)
#declare X=rlt*sin(radians( Count ))*cos(radians( wltk )) #declare X=rlt*sin(radians( Count ))*cos(radians( wltk ));
#declare Z=rlt*cos(radians( Count ))*cos(radians( wltk )) #declare Z=rlt*cos(radians( Count ))*cos(radians( wltk ));
#declare Y=rlt*sin(radians( wltk )) #declare Y=rlt*sin(radians( wltk ));
cylinder { cylinder {
< 0, 1.0, 0 > < 0, 1.0, 0 >
< 0, 0, 0 >, 6 < 0, 0, 0 >, 6
@ -843,7 +842,7 @@ union{
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z > translate < X, Y, Z >
} }
#declare Count=Count+30 #declare Count=Count+30;
#end #end
texture { TERKONIT } texture { TERKONIT }
} }
@ -943,29 +942,29 @@ union {
texture { TERKONIT } texture { TERKONIT }
} }
#declare wank = 69 #declare wank = 69;
#declare rank = R-0.4 #declare rank = R-0.4;
#declare Y=rank*sin(radians( wank )) #declare Y=rank*sin(radians( wank ));
#declare ORTER = #declare ORTER =
union { union {
#declare X=rank*sin(radians( 0 ))*cos(radians( wank )) #declare X=rank*sin(radians( 0 ))*cos(radians( wank ));
#declare Z=rank*cos(radians( 0 ))*cos(radians( wank )) #declare Z=rank*cos(radians( 0 ))*cos(radians( wank ));
object { object {
_ORTER_2 _ORTER_2
scale 2 scale 2
//rotate < 0, 0, 0 > //rotate < 0, 0, 0 >
translate < X, Y-0.5, Z > translate < X, Y-0.5, Z >
} }
#declare X=rank*sin(radians( 180 ))*cos(radians( wank )) #declare X=rank*sin(radians( 180 ))*cos(radians( wank ));
#declare Z=rank*cos(radians( 180 ))*cos(radians( wank )) #declare Z=rank*cos(radians( 180 ))*cos(radians( wank ));
object { object {
_ORTER_2 _ORTER_2
scale 2 scale 2
rotate < 0, 180, 0 > rotate < 0, 180, 0 >
translate < X, Y-0.5, Z > translate < X, Y-0.5, Z >
} }
#declare X=rank*sin(radians( 90 ))*cos(radians( wank )) #declare X=rank*sin(radians( 90 ))*cos(radians( wank ));
#declare Z=rank*cos(radians( 90 ))*cos(radians( wank )) #declare Z=rank*cos(radians( 90 ))*cos(radians( wank ));
object { object {
_ORTER_1 _ORTER_1
scale 2 scale 2
@ -973,8 +972,8 @@ union {
rotate < 0, 90, 0 > rotate < 0, 90, 0 >
translate < X, Y, Z > translate < X, Y, Z >
} }
#declare X=rank*sin(radians( 270 ))*cos(radians( wank )) #declare X=rank*sin(radians( 270 ))*cos(radians( wank ));
#declare Z=rank*cos(radians( 270 ))*cos(radians( wank )) #declare Z=rank*cos(radians( 270 ))*cos(radians( wank ));
object { object {
_ORTER_1 _ORTER_1
scale 2 scale 2
@ -1100,32 +1099,32 @@ union {
texture { TERKONIT } texture { TERKONIT }
} }
#declare Y=rank*sin(radians( wank )) #declare Y=rank*sin(radians( wank ));
#declare ANTENNE = #declare ANTENNE =
union { union {
#declare X=rank*sin(radians( 45 ))*cos(radians( wank )) #declare X=rank*sin(radians( 45 ))*cos(radians( wank ));
#declare Z=rank*cos(radians( 45 ))*cos(radians( wank )) #declare Z=rank*cos(radians( 45 ))*cos(radians( wank ));
object { object {
_ANTENNE_1 _ANTENNE_1
scale 2 scale 2
translate < X, Y-0.5, Z > translate < X, Y-0.5, Z >
} }
#declare X=rank*sin(radians( 225 ))*cos(radians( wank )) #declare X=rank*sin(radians( 225 ))*cos(radians( wank ));
#declare Z=rank*cos(radians( 225 ))*cos(radians( wank )) #declare Z=rank*cos(radians( 225 ))*cos(radians( wank ));
object { object {
_ANTENNE_1 _ANTENNE_1
scale 2 scale 2
translate < X, Y-0.5, Z > translate < X, Y-0.5, Z >
} }
#declare X=rank*sin(radians( 135 ))*cos(radians( wank )) #declare X=rank*sin(radians( 135 ))*cos(radians( wank ));
#declare Z=rank*cos(radians( 135 ))*cos(radians( wank )) #declare Z=rank*cos(radians( 135 ))*cos(radians( wank ));
object { object {
_ANTENNE_3 _ANTENNE_3
scale 1.5 scale 1.5
translate < X, Y-0.3, Z > translate < X, Y-0.3, Z >
} }
#declare X=rank*sin(radians( 315 ))*cos(radians( wank )) #declare X=rank*sin(radians( 315 ))*cos(radians( wank ));
#declare Z=rank*cos(radians( 315 ))*cos(radians( wank )) #declare Z=rank*cos(radians( 315 ))*cos(radians( wank ));
object { object {
_ANTENNE_2 _ANTENNE_2
scale 1.5 scale 1.5
@ -1137,15 +1136,15 @@ union {
//--------------------------------------------------- //---------------------------------------------------
// Beobachtungskuppel // Beobachtungskuppel
#declare wbk = 63 // Winkel Beobachtungskuppel #declare wbk = 63; // Winkel Beobachtungskuppel
#declare rbk = R - 0.5 // Radius Beobachtungskuppel #declare rbk = R - 0.5; // Radius Beobachtungskuppel
#declare Y=rbk*sin(radians( wbk )) #declare Y=rbk*sin(radians( wbk ));
#declare Count = 67.5 #declare Count = 67.5;
#declare BKPL = #declare BKPL =
union { union {
#while (Count < 360) #while (Count < 360)
#declare X=rbk*sin(radians( Count ))*cos(radians( wbk )) #declare X=rbk*sin(radians( Count ))*cos(radians( wbk ));
#declare Z=rbk*cos(radians( Count ))*cos(radians( wbk )) #declare Z=rbk*cos(radians( Count ))*cos(radians( wbk ));
sphere { sphere {
< 0, 0, 0 >, 1 < 0, 0, 0 >, 1
hollow hollow
@ -1156,7 +1155,7 @@ union {
rotate < 0, Count, 0 > rotate < 0, Count, 0 >
translate < X, Y, Z > translate < X, Y, Z >
} // end sphere } // end sphere
#declare Count=Count+180 #declare Count=Count+180;
#end #end
} // end union } // end union

21
pr/manoever/KR200.POV
View File

@ -17,15 +17,24 @@
#include "textures.inc" // Standard Texture definitions #include "textures.inc" // Standard Texture definitions
// ==== Additional Includes ==== // ==== Additional Includes ====
#include "CONSTS.INC" #include "consts.inc"
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
//camera {
// orthographic
// location < -300.0, 0.0, -300.0>
// direction 1.3*z
// up y
// right 4/3*x
// look_at < 0.0, 0.0, 0.0>
//}
camera { camera {
orthographic
location < 0.0, 0.0, -300.0> location < 0.0, 0.0, -300.0>
direction 1.3*z direction 1.3*z
up y up <0, 200, 0>
right 4/3*x right <200*4/3, 0, 0>
look_at < 0.0, 0.0, 0.0> look_at < 0.0, 0.0, 0.0>
} }
@ -46,7 +55,7 @@ light_source {
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
#declare _STARS = 1 #declare _STARS = 0;
#ifdef (_STARS) #ifdef (_STARS)
#declare Starfield= #declare Starfield=
@ -90,6 +99,6 @@ object {
object { object {
KR200 KR200
rotate < 0, -45, 0 > rotate < 0, -90, 0 >
rotate < -10, 0, 0 > // rotate < -10, 0, 0 >
} }

114
pr/manoever/KRMAT.INC
View File

@ -31,8 +31,8 @@ texture {
//--------------------------------------------------- //---------------------------------------------------
// Terkonit Kugelraumer Schale // Terkonit Kugelraumer Schale
#declare _d = 0.70 #declare _d = 0.70;
#declare _r = 100 #declare _r = 100;
#declare _T_S_1 = #declare _T_S_1 =
texture { texture {
TERKONIT TERKONIT
@ -40,8 +40,8 @@ texture {
roughness 1/_r } roughness 1/_r }
} // end text 1 } // end text 1
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_2 = #declare _T_S_2 =
texture { texture {
TERKONIT TERKONIT
@ -50,8 +50,8 @@ texture {
} // end text 2 } // end text 2
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_3 = #declare _T_S_3 =
texture { texture {
TERKONIT TERKONIT
@ -59,8 +59,8 @@ texture {
roughness 1/_r } roughness 1/_r }
} // end text 3 } // end text 3
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_4 = #declare _T_S_4 =
texture { texture {
TERKONIT TERKONIT
@ -68,8 +68,8 @@ texture {
roughness 1/_r } roughness 1/_r }
} // end text 4 } // end text 4
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_5 = #declare _T_S_5 =
texture { texture {
TERKONIT TERKONIT
@ -77,8 +77,8 @@ texture {
roughness 1/_r } roughness 1/_r }
} // end text 5 } // end text 5
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_6 = #declare _T_S_6 =
texture { texture {
TERKONIT TERKONIT
@ -86,8 +86,8 @@ texture {
roughness 1/_r } roughness 1/_r }
} // end text 6 } // end text 6
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_7 = #declare _T_S_7 =
texture { texture {
TERKONIT TERKONIT
@ -95,8 +95,8 @@ texture {
roughness 1/_r } roughness 1/_r }
} // end text 7 } // end text 7
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_8 = #declare _T_S_8 =
texture { texture {
TERKONIT TERKONIT
@ -104,8 +104,8 @@ texture {
roughness 1/_r } roughness 1/_r }
} // end text 8 } // end text 8
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_9 = #declare _T_S_9 =
texture { texture {
TERKONIT TERKONIT
@ -113,8 +113,8 @@ texture {
roughness 1/_r } roughness 1/_r }
} // end text 9 } // end text 9
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_10 = #declare _T_S_10 =
texture { texture {
TERKONIT TERKONIT
@ -122,8 +122,8 @@ texture {
roughness 1/_r } roughness 1/_r }
} // end text 10 } // end text 10
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_11 = #declare _T_S_11 =
texture { texture {
TERKONIT TERKONIT
@ -131,8 +131,8 @@ texture {
roughness 1/_r } roughness 1/_r }
} // end text 11 } // end text 11
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_12 = #declare _T_S_12 =
texture { texture {
TERKONIT TERKONIT
@ -140,8 +140,8 @@ texture {
roughness 1/_r } roughness 1/_r }
} // end text 12 } // end text 12
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_13 = #declare _T_S_13 =
texture { texture {
TERKONIT TERKONIT
@ -149,8 +149,8 @@ texture {
roughness 1/_r } roughness 1/_r }
} // end text 13 } // end text 13
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_14 = #declare _T_S_14 =
texture { texture {
TERKONIT TERKONIT
@ -158,8 +158,8 @@ texture {
roughness 1/_r } roughness 1/_r }
} // end text 14 } // end text 14
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_15 = #declare _T_S_15 =
texture { texture {
TERKONIT TERKONIT
@ -167,8 +167,8 @@ texture {
roughness 1/_r } roughness 1/_r }
} // end text 15 } // end text 15
#declare _d = _d-0.01 #declare _d = _d-0.01;
#declare _r = _r-5 #declare _r = _r-5;
#declare _T_S_16 = #declare _T_S_16 =
texture { texture {
TERKONIT TERKONIT
@ -230,19 +230,19 @@ texture {
texture { texture {
pigment {colour rgbft <0.4, 0.4, 0.4, 0.7, 1.0>} pigment {colour rgbft <0.4, 0.4, 0.4, 0.7, 1.0>}
finish { _T_F_finish } finish { _T_F_finish }
halo { // halo {
emitting // emitting
constant // constant
max_value 1 // max_value 1
spherical_mapping // spherical_mapping
colour_map { // colour_map {
[0 color rgbt <1.0, 1.0, 1.0, 0>] // [0 color rgbt <1.0, 1.0, 1.0, 0>]
[1 color rgbt <0.9, 1.0, 0.8, -1>] // [1 color rgbt <0.9, 1.0, 0.8, -1>]
} // }
// turbulence 0.5 // // turbulence 0.5
scale _FENSTER_R // scale _FENSTER_R
samples 10 // samples 10
} // end halo // } // end halo
} // end text } // end text
#end #end
@ -270,18 +270,18 @@ texture { _T_K_text
#else #else
#declare _T_GSK = #declare _T_GSK =
texture { _T_K_text texture { _T_K_text
halo { // halo {
emitting // emitting
cubic // cubic
max_value 1 // max_value 1
spherical_mapping // spherical_mapping
colour_map { // colour_map {
[0 color rgbt <1.0, 0.0, 0.0, 0.6>] // [0 color rgbt <1.0, 0.0, 0.0, 0.6>]
[0.2 color rgbt <1.0, 0.2, 0.1, 0.4>] // [0.2 color rgbt <1.0, 0.2, 0.1, 0.4>]
[1 color rgbt <1.0, 0.4, 0.2, 0.0>] // [1 color rgbt <1.0, 0.4, 0.2, 0.0>]
} // }
samples 10 // samples 10
} // end halo // } // end halo
} // end text } // end text
#end #end