// POV-Ray 3.6 / 3.7 include file "RT_Track_Switch_3Ways_A_00.inc" // PoVRay 3.6 include File "wheel_000.inc" // author: Friedrich A, Lohmueller, Nov-2010 // homepage: www.f-lohmueller.de/ //------------------------------------------------------------------------ #ifndef( RT_Track_Switch_3Ways_A_00_Inc_Temp) #declare RT_Track_Switch_3Ways_A_00_Inc_Temp = version; #version 3.6; //--------------------------------------------------------------------------------------- //--------------------------------------------------------------------------------------- #ifndef( Colors_Inc_Temp) #include "colors.inc" #end #ifndef( Textures_Inc_Temp) #include "textures.inc" #end #ifndef( Shapes3_Inc_Temp) #include "shapes3.inc" #end //------------------------------------------------------------------------------ ///////// //------------------------------------------------------------------------------ ///////// //------------------------------------------------------------------------------ ///////// //------------------------------------------------------------------------------ ///////// //------------------------------------------------------------------------------ ///////// #macro RT_Track_Switch_3Ways_A_00( Switch_Direction_, //-1=left, 0=straight, 1=right, Switch_Length__, Switch_Angle__, Ties_Per_Meter__ // ~1.5 ) //--------------------------------------------------------- #if (Switch_Direction_<-1) #declare Switch_Direction_ =-1; #end #if (Switch_Direction_> 1) #declare Switch_Direction_ = 1; #end //------------------------------------------------------------- //----------------------------------------------------------------- default textures #ifndef( RailToptex ) #declare RailToptex = texture{ Polished_Chrome pigment{quick_color White} } #end #ifndef( Railtex1 ) #declare Railtex1 = texture{ //Rust scale 0.02 pigment{quick_color Tan} pigment{color Tan*0.5}} #end #ifndef( Railtex2 ) #declare Railtex2 = texture{ //Rust scale 0.02 pigment{quick_color Tan} pigment{color Tan*0.4}} #end #ifndef( Railtex3 ) #declare Railtex3 = texture{ //Rust scale 0.02 pigment{quick_color Tan} pigment{color Tan*0.2}} #end #ifndef( Tietex1 ) #declare Tietex1 = texture{ pigment{ color DarkWood*0.95 quick_color Tan} normal { bumps 0.5 scale 0.005 scale<1,10,30>} finish { diffuse 0.85}} #end #ifndef( Tietex2 ) #declare Tietex2 = texture{ pigment{ color DarkWood quick_color Tan} normal { bumps 0.55 scale 0.005 scale<1,1,10>} finish { diffuse 0.88}} #end #ifndef( Tietex3 ) #declare Tietex3 = texture{ pigment{ color DarkWood*0.9 quick_color DarkTan} normal { bumps 0.65 scale 0.005 scale<1,1,5>}} #end //---------------------------------------------------------------------------------------- //------------------------------------------------------------------------ Gauche & Heigth #ifndef ( RT_System_Sizes_00_Inc_Temp ) #include "RT_System/RT_System_Sizes_00.inc" #end //---------------------------------------------------------------------------------------- //---------------------------------------------------------------------------------------- #local D = 0.00001; #macro Half_3Way (Straight_Point_Move, Round_Point_Move, Switch_Length_, Switch_Angle_, Ties_Per_Meter_) //--------------------------------------------------------------------------------------- #ifndef ( Rail_Spikes_On ) #declare Rail_Spikes_On = 0; #end //---------------------------------------------------------------------------------- #if( Rail_Spikes_On = 1 ) #local Spike_Big = union{ //pigment{Cyan}}// object{ Hexagon scale <0.5,1,1> translate<0.5,0,0> rotate<0,0,90> scale<1,1,1>*0.05 translate<0,0.020,0> texture{Railtex1}} cone{<0,0.020,>,0.06,<0,0.01,0>,0.085 texture{Railtex1} } cylinder{<0,0.01,0>,<0,0,0.00>,0.085 texture{Railtex2} } cylinder{<0,0.085,0>,<0,-0.035,0>,0.02 texture{Railtex2} } // pigment{Cyan} scale <1,1,1>*0.60 } // end uni ----------------------------------------------- #local Spike_Small = union{ // in y+ !!! box{<-1,0,-1>,<1,1.5,1> scale<1,1,1>*0.030 texture{Railtex1} translate<0,0.020,0> } box{<-1+D,0,-1+D>,<1-D,1.5+D,1-D> scale<1,1,1>*0.030 texture{Railtex2} translate<0,0.020,0> } cone{<0,0.020,>,0.06,<0,0.01,0>,0.085 texture{Railtex1} } cylinder{<0,0.01,0>,<0,0,0.00>,0.085 texture{Railtex2} } scale <1,1,1>*0.40 } // end uni ----------------------------------------------- #local Rail_Spike = union{ box{<-0.10, 0,-RBaT-0.02 >,<0.10,RBaH+0.002,-RBaT-0.15> texture{Railtex2} } box{<-0.06,RBaH+0.002,-RBaT+0.05 >,<0.06,RBaH+0.022,-RBaT-0.08> texture{Railtex2} } object{ Spike_Big translate<0,RBaH+0.023,-RBaT-0.035> } object{ Spike_Small rotate<0, 14,0> translate< 0.05,RBaH+0.0025,-RBaT-0.12> } object{ Spike_Small rotate<0,-40,0> translate<-0.05,RBaH+0.0025,-RBaT-0.12> } } // end uni #end // of #if( Rail_Spikes_On = 1 ) //--------------------------------------------------------------------------------------- //---------------------------------------------------------------------------------------- #declare Switch_Radius_ = Switch_Length_ / ( sin(radians(Switch_Angle_))); #declare Rail_Distance_ =2*Switch_Radius_ *(1-cos(radians(Switch_Angle_))); // Y_Heart: // RB = (Switch_Radius_ + RB) *(1-cos(Gamma)) // ( 1 - cos(Gamma)) = RB/(Switch_Radius_ +RB ) // -1 + cos(Gamma) = -RB/(Switch_Radius_ + RB) // cos(Gamma) = 1 - RB/(Switch_Radius_ + RB) // Gamma = acos(1 - RB/(Switch_Radius_ + RB) ) // // Heart_Distance = (R + RB) * ( sin( Gamma) ); // Y Heart: #local Heart_Angle = degrees( acos( 1 - RB/( Switch_Radius_ + RB ) ) ); #local Heart_Distance = (Switch_Radius_+RB) * sin (radians(Heart_Angle)); // Second_Heart:: // 2*RB = (Switch_Radius_ + RB) *(1-cos(Delta)) // ( 1 - cos(Delta)) = 2*RB/(Switch_Radius_ +RB ) // -1 + cos(Delta) = -2*RB/(Switch_Radius_ + RB) // cos(Delta) = 1 - 2*RB/(Switch_Radius_ + RB) // Delta = acos(1 - 2*RB/(Switch_Radius_ + RB) ) // // Heart_Distance = (R + RB) * ( sin( Delta) ); // Second_Heart: #local Second_Heart_Angle = degrees( acos( 1 - 2*RB/( Switch_Radius_ + RB ) ) ); #local Second_Heart_Distance = (Switch_Radius_ ) * sin (radians(Second_Heart_Angle)); #local Linear_Ties_Start = (Switch_Radius_+RB+0.75*SB) * sin (radians(Second_Heart_Angle+2.25)); //---------------------------------------- #local Rail___Length_ = Switch_Length_; #local RailRadius = Switch_Radius_; #local BowAngle = Switch_Angle_; //--------------------------------------------------------------------------------------- #local Ties_Rail_Radius = (pow(Switch_Length_,2)+pow(Rail_Distance_/2,2))/(2*Rail_Distance_/2); #local Ties_Angle_ = degrees( asin( Switch_Length_/Ties_Rail_Radius )); // declared for extern applications !!! //--------------------------------------------------------------------------------------- // Anzahlen und Abstand der Schwellen: // round #local Ties_Round_Number_ = int( Ties_Rail_Radius*pi*Ties_Angle_/180*Ties_Per_Meter_) ; #local Ties_Angle = Ties_Angle_/Ties_Round_Number_; // Ties between angel (center to center) // -------------------------------------------------------------------------------------- //--------------------------------------------------------------------------------------- // Anzahlen und Abstand der Schwellen: // linear #local Ties_Linear_Number_ = int((Rail___Length_-Linear_Ties_Start+1*SD)*Ties_Per_Meter_); #local Ties_New_Per_Meter_ = Ties_Linear_Number_/(Rail___Length_-Linear_Ties_Start); #if ( Ties_New_Per_Meter_ != 0) #local Ties_Distance = 1/(Ties_New_Per_Meter_); // Verteilt Schwellen gleichmäßig über Länge!!! #else #local Ties_Distance = 0; #end // -------------------------------------------------------------------------------------- //--------------------------------------------------------------------------------------- //--------------------------------------------------------------- Round Ties - Schwellen für rundes Gleis #local Tie_Round = union{ box {<-SD/2+D,0 ,-1*SB+D>,< SD/2-D,SH ,1.75*SB-D> texture{Tietex1}} box {<-SD/2 ,0+D,-1*SB+D>,< SD/2 ,SH-D,1.75*SB-D> texture{Tietex2}} box {<-SD/2+D,0+D,-1*SB >,< SD/2-D,SH-D,1.75*SB > texture{Tietex3}} #if ( Rail_Spikes_On = 1 ) object{ Rail_Spike translate<0,SH,-RB>} // object{ Rail_Spike scale<1,1,-1> translate<0,SH,-RB>} // object{ Rail_Spike translate<0,SH, RB>} object{ Rail_Spike scale<1,1,-1> translate<0,SH, RB>} #end } // end of union //--------------------------------------------------------------- //--------------------------------------------------------------- Ties - Schwellen #local Tie = union{ box {<-SD/2+D,0 ,-1*SB+D>,< SD/2-D,SH ,1.0*SB-D> texture{Tietex1}} box {<-SD/2 ,0+D,-1*SB+D>,< SD/2 ,SH-D,1.0*SB-D> texture{Tietex2}} box {<-SD/2+D,0+D,-1*SB >,< SD/2-D,SH-D,1.0*SB > texture{Tietex3}} #if ( Rail_Spikes_On = 1 ) object{ Rail_Spike translate<0,SH,-RB>} object{ Rail_Spike scale<1,1,-1> translate<0,SH,-RB>} object{ Rail_Spike translate<0,SH, RB>} object{ Rail_Spike scale<1,1,-1> translate<0,SH, RB>} #end } // end of union //--------------------------------------------------------------- Round Rails submacros //---------------------------- macro symmetrisches Cylinder-Segment_Y: "C_Seg(Ra,Ri,H,W)"----<< #macro C_Segment (Radius_aussen, Radius_innen, Hoehe, Segment_Winkel) #local D = 0.001; //#include "shapes_lo.inc" //#macro Segment_of_CylinderRing ( R_out, R_in, Height, Segment_Angle) object{ Segment_of_CylinderRing ( Radius_aussen, Radius_innen, Hoehe, Segment_Winkel) rotate<0,-90,0> rotate<0,0,0> translate<0,0,0> } #end //----------------------------<<<<<<<< //-------------------------------------- macro symmetrisches Torus-Segment_Y: "T_Seg(Ra,Ri,YScale,W)"----<< #macro T_Segment (Radius_major, Radius_minor, YScale, Segment_Winkel) #local D = 0.001; // #include "shapes_lo.inc" // #macro Segment_of_Torus( R_major, R_minor, Segment_Angle) object{ Segment_of_Torus( Radius_major, Radius_minor, Segment_Winkel) scale <1,YScale,1> rotate<0,-90,0> rotate<0,0,0> }#end //----------------------------<<<<<<<< //------------------------------------------------------------------------------------------------------------- //------------------------------------------------------------------------------------------------------------- #macro Rail_Round ( Rail___R, Rail___Angle ) union{ // 2 //inner union{ // 3 object{ T_Segment (Rail___R, RToR, RToS, Rail___Angle) texture {RailToptex }} // verical part of head - senkrechter Teil des Kopfes object{C_Segment (Rail___R+RToR, Rail___R-RToR, 0.02, Rail___Angle) translate<0,-0.02,0> texture {RailToptex}} // lower round part of head - unterer runder Kopfteil object{ T_Segment (Rail___R, RToR, RToS, Rail___Angle) translate<0,-0.02,0> texture {Railtex2}} translate<0,RBoH,0>} // 3 // vertical parts object{C_Segment (Rail___R+RBoT, Rail___R-RBoT, RBoH, Rail___Angle) texture {Railtex1}} object{C_Segment (Rail___R+RBaT, Rail___R-RBaT, RBaH, Rail___Angle) texture {Railtex2}} } // 2 union without ties #end // ----------------------------- end of submacro //--------------------------------------------------------------- Schiene linear #macro Rail_line_X(Rail_Len) //-------------------------------- #local D = 0.0001; union{ cylinder {< 0,0,0>,,RToR scale <1,RToS,1> translate<0,RBoH,0> texture{RailToptex}} //head cylinder {<-D,0,0>,,RToR scale <1,RToS,1> translate<0,RBoH-D,0> texture{Railtex2}} //below head cylinder {<-D,0,0>,,RToR scale <1,RToS,1> translate<0,RBoH-0.02,0> texture{Railtex2}} //below head box {<0,RBoH-0.02,-RToR>, texture{Railtex2}} // box {<0,0.00,-RBoT>, texture{Railtex1}} // steg box {<0,0.00,-RBaT>, texture{Railtex2}} // Fuß }#end // end union + macro //--------------------------------------------------------------- #local Height_Top_Edge_Rail = Height_Rail_Top; #local Rail_H = Height_Top_Edge_Rail-SH; #local Tween = 2*RToR; // Lücke dazwischen #local Switch_Move_Angle = 6.5*10/Switch_Length_; #local Bend_End_Len = 0.30; #local Bend_End_Angle = Bend_End_Len/(2*pi*RailRadius+RB)*360; #local Bend_Angle = 18; //--------------------------------------------------------------- #local Cut_3Way = // von oben object{ Segment_of_CylinderRing ( RailRadius+RB-RToR+D, RailRadius+RB-3*RToR, 0.15, -BowAngle ) texture{Railtex1} scale < 1,1,1> rotate<0, 90,0> translate<0,0.01,2*RailRadius> }//---------------------------------------------------------- #local Cut_2Way = // von unten object{ Segment_of_CylinderRing ( RailRadius+RB-RToR+D, RailRadius+RB-3*RToR, 0.25, -BowAngle ) texture{Railtex1} scale < 1,1,1> rotate<0, 90,0> translate<0,0.01, 0> scale<1,1,-1> }//---------------------------------------------------------- #local Cut_linear = box{ , texture{Railtex1} } //object{ Cut_2Way } //object{ Cut_3Way} //object{ Cut_linear } //--------------------------------------------------------------------------------------- //------------------------------------------------------------------------------------ union{ // 1 // 3Ways: the -z part union{ // 2 // round inner rail object{ Rail_Round ( RailRadius-RB , BowAngle ) translate <0,0,0> } // Round_Inner // linear outer rail // difference{ object{ Rail_line_X( Rail___Length_ *2/3) translate} object{ Cut_3Way} }// end diff // linear point - gerade Zunge difference{ object{ Rail_line_X( Rail___Length_ *3/12-0.005) translate} object{ Rail_Round ( RailRadius-RB , BowAngle ) scale<1,1.05,-1> translate <-D,-0.01,2*(RailRadius)+D> } // Round_Inner other side object{ Segment_of_CylinderRing ( RailRadius-RB+RToR*1.5+D, RailRadius-RB-5*RToR, 0.15, -BowAngle ) scale<-1,1,1> rotate<0 ,-90,0> texture{RailToptex} // pigment{Cyan} scale<1,1.05,-1> rotate<0,180,0> translate <-D,-0.01,2*(RailRadius)+D> } // round inner outer side #if (Straight_Point_Move>0) translate<-Rail___Length_ *4/12,0,-(RailRadius+RB)> rotate<0,-Switch_Move_Angle*0.8*(Straight_Point_Move),0> translate< Rail___Length_ *4/12,0, (RailRadius+RB)> #end } // end linear point // fix outer rail round at heart difference { object{ Rail_Round ( RailRadius+RB , BowAngle*2/3 ) rotate <0, BowAngle*1/3,0> } //Round_Outer object{ Cut_linear } object{ Cut_3Way} object{ Cut_2Way} } // round point outside - gebogene Zunge außen difference{ object{ Rail_Round ( RailRadius+RB , BowAngle*(1/3-1/10) ) rotate <0,BowAngle*1/10,0> } //Round_Outer object{ Rail_line_X( Rail___Length_ ) scale<1,1.1,1.1> translate<0,0,RailRadius+RB>} box{ <-D,-D, RailRadius+RB-RToR-D>, texture {Railtex2} } rotate<0,-BowAngle*1/3,0> translate<0,0,-(RailRadius+RB)> rotate<0,-Switch_Move_Angle*(Round_Point_Move),0> translate<0,0, (RailRadius+RB)> rotate<0,BowAngle*1/3,0> } // // round inner guider difference{ // outer heart // Zunge gebogener Teil außen object{ Rail_Round ( RailRadius+RB-Tween-2*RToR , (Second_Heart_Angle-Heart_Angle)*2.5-2*Bend_End_Angle ) rotate <0,Heart_Angle*0.60,0> } //Round_Outer object{ Cut_linear } object{ Cut_3Way } } // // End bended right object{ Rail_Round ( RailRadius+RB-Tween-2*RToR , Bend_End_Angle ) translate<0,0,-(RailRadius+RB-Tween-2*RToR)-RToR> rotate<0,Bend_Angle,0> translate<0,0,(RailRadius+RB-Tween-2*RToR)+RToR> //rotate <0,BowAngle-2*Bend_End_Angle,0> } //Round_Outer rotate <0,Heart_Angle*0.60+(Second_Heart_Angle-Heart_Angle)*2.5-2*Bend_End_Angle,0> } //Round_Outer // End bended at start object{ Rail_Round ( RailRadius+RB-Tween-2*RToR , Bend_End_Angle ) translate<0,0,-(RailRadius+RB-Tween-2*RToR)-RToR> rotate<0,Bend_Angle,0> translate<0,0,(RailRadius+RB-Tween-2*RToR)+RToR> scale<-1,1,1> rotate <0,Heart_Angle*0.60,0> } //Round_Outer //----- //----- union{ // round outer wheel_guider (thin inside rail) object{ C_Segment (RailRadius-RB+RToR+Tween,RailRadius-RB+RToR+Tween+0.015, Rail_H, BowAngle*1/3-3*Bend_End_Angle) rotate<0,BowAngle*2/3+1.5*Bend_End_Angle,0> texture {Railtex1} } // left end object{ C_Segment (RailRadius-RB+RToR+Tween,RailRadius-RB+RToR+Tween+0.015, Rail_H, Bend_End_Angle) rotate<0,-Bend_End_Angle,0> translate<0,0,-(RailRadius-RB+RToR+Tween)> rotate<0, Bend_Angle,0> translate<0,0,(RailRadius-RB+RToR+Tween)> rotate<0,BowAngle*2/3+1.5*Bend_End_Angle,0> texture {Railtex1} } // right end object{ C_Segment (RailRadius-RB+RToR+Tween,RailRadius-RB+RToR+Tween+0.015, Rail_H, Bend_End_Angle) translate<0,0,-(RailRadius-RB+RToR+Tween)> rotate<0,-Bend_Angle,0> translate<0,0,(RailRadius-RB+RToR+Tween)> rotate<0,BowAngle-1.5*Bend_End_Angle,0> texture {Railtex1} } // base below object{ C_Segment (RailRadius-RB+Tween,RailRadius-RB+RToR+Tween+0.10,RBaH, BowAngle*1/3-Bend_End_Angle) rotate<0,BowAngle*2/3+0.5*Bend_End_Angle,0> texture {Railtex2} } rotate<0,-BowAngle*1/5,0> } // inner_guider //----- //rail linear inner parts vor Zunge difference{ // fix linear inner at heart object{ Rail_line_X( Rail___Length_*2/3 ) translate} // inner object{ Cut_2Way} } // /* // Connect the mobile parts union{ cylinder{<0,0,-1.85*RB>,<0,0,0>, 0.02 texture{Railtex2} } object { Round_Cylinder(<0,0,-1.25*RB>,<0,0,-0.60*RB>, 0.035, 0.025, 0) texture{Railtex3} } translate // position relativ to left end translate<-Rail___Length_*1/3,0,-(RB)> rotate<0, (Switchy_Round_)*Switch_Move_Angle,0> translate }// end mobile connection */ // linear inner wheel_guider difference{ // object{ Rail_line_X( (Second_Heart_Distance-Heart_Distance)*1.5 -0.30) translate} // inner linar guider object{ Cut_2Way} } // end diff // outer end object{ Rail_line_X( 0.30 ) translate<0,0,RToR> rotate<0,-Bend_Angle,0> translate} // inner end object{ Rail_line_X( 0.30 ) translate<0,0,RToR> rotate<0,-Bend_Angle,0> scale<-1,1,1> translate} // inner //----------- translate <0,SH,0> } // 2 // ties for switch intersection{ union{ // Schwellen #local Nr = 0; // start #while (Nr< Ties_Round_Number_) object{ Tie_Round translate<0,0,Ties_Rail_Radius> rotate<0,(Nr+0.5) * Ties_Angle,0> translate<0,0,-(Ties_Rail_Radius-RailRadius)>} #local Nr = Nr + 1; #end // --------------- end of loop }// uni // limitations // Begrenzungen object{ C_Segment (RailRadius+Rail_Distance_+SB, RailRadius-SB, 2*SH, BowAngle ) translate<0,-3*D,0> texture{Tietex3} } box{ <-D,-2*D, RailRadius-RB-Rail_Distance_>, texture{Tietex3}} //pigment{Green} } // round end cut object{ C_Segment (RailRadius+3*SB, RailRadius+SB, SH+6*D, BowAngle-(Second_Heart_Angle+2.30) ) rotate<0,Second_Heart_Angle+2.35,0> translate<0,-3*D,0> inverse texture{Tietex3} } } // end intersection // ad linear ties/sleepers: #if (Ties_Linear_Number_ > 0) union{ // #local Nr = 0; // start #while (Nr< Ties_Linear_Number_ ) object{ Tie translate } #local Nr = Nr + 1; #end // --------------- end of loop }// uni linear ties/sleepers #end // end of "#if (Ties_Linear_Number_ > 0)" #if( Rail_Spikes_On = 1 ) union{ #local Nr = 0; // start #while (Nr< Ties_Round_Number_) #local DT_A = (Nr+0.5)*Ties_Angle; #local DT_Xi = (-1.00*RB + Ties_Rail_Radius)*tan(radians(DT_A)); #if ( DT_A < Heart_Angle*0.2 | ( (DT_A >Heart_Angle/2 & DT_A Heart_Angle*0.85 & DT_A ,0.1 pigment { Yellow } object{ Rail_Spike scale<1,1,1> translate<0,0,Ties_Rail_Radius+RB -( (DT_A >Heart_Angle*0.6 & DT_A Heart_Angle*0.85 & DT_A rotate<0,(Nr+0.5)*Ties_Angle,0> translate<0,SH,-(Ties_Rail_Radius-RailRadius) >} #end #if ( DT_A >Heart_Angle/2 ) // sphere{ <0,0,-0.1>,0.1 pigment { Orange } object{ Rail_Spike scale<1,1,-1> translate<0,0,Ties_Rail_Radius-RB> rotate<0,(Nr+0.5)*Ties_Angle,0> translate<0,SH,-(Ties_Rail_Radius-RailRadius) >} #end #if (DT_A > Heart_Angle/2 & DT_A < Heart_Angle *0.999 ) // sphere{ <0,0,-0.1>,0.1 pigment { Green } object{ Rail_Spike scale<1,1,-1> translate<0,0,Ties_Rail_Radius+RB> rotate<0,(Nr+0.5)*Ties_Angle,0> translate<0,SH,-(Ties_Rail_Radius-RailRadius) >} #end #if (DT_Xi > Heart_Distance/2 & DT_Xi < Second_Heart_Distance ) // sphere{ <0,0,-0.1>,0.1 pigment { Cyan } object{ Rail_Spike scale<1,1,1> translate} #end #if (DT_Xi > Heart_Distance/2+0.30 & DT_Xi < Heart_Distance-0.10 ) // sphere{ <0,0,-0.1>,0.1 pigment { Red } object{ Rail_Spike scale<1,1,-1> translate} #end #if (DT_Xi > Second_Heart_Distance-0.70 & DT_Xi < Linear_Ties_Start) // sphere{ <0,0,-0.1>,0.1 pigment {color rgb<0.4,1,0> } object{ Rail_Spike scale<1,1,-1> translateLinear_Ties_Start -0.5)*DT_Xi*0.01 ,SH, (Ties_Rail_Radius-RB*1.00)+( DT_Xi} #end //------ #local Nr = Nr + 1; #end // --------------- end of loop }// uni #end // of '#if( Rail_Spikes_On = 1 )' translate<0,0,-RailRadius> //Switch_Radius_ } // 3 end of union #end // ----- end of sub macro Half_3Way #if(Switch_Direction_ >= 0) // straight to right #local L_Straight_Point_Move = Switch_Direction_; #local L_Round_Point_Move =1 ; //??? right points #local R_Straight_Point_Move = 0; #local R_Round_Point_Move =1-Switch_Direction_ ; // left points #end #if(Switch_Direction_ < 0) //// straight to left #local L_Straight_Point_Move = 0; #local L_Round_Point_Move = 1- abs(Switch_Direction_); #local R_Straight_Point_Move = abs(Switch_Direction_); #local R_Round_Point_Move = 1 ; #end // #else // Switch_Direction_= 0 or not 1 and not 2 see above union{ //--------------------------------------------------------final union object{ Half_3Way ( R_Straight_Point_Move, R_Round_Point_Move, Switch_Length__, Switch_Angle__, Ties_Per_Meter__) } // right half of the switch object{ Half_3Way ( L_Straight_Point_Move, L_Round_Point_Move, Switch_Length__, Switch_Angle__, Ties_Per_Meter__) scale<1,1,-1>} } // end final union //--------------------------------------------------------------- //----------------------------------------------------------------------------<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< //--------------------------------------------------------------- // -------------------------------------------------------------------------------------- #end// of macro ------------------------------------------------------// end of macro //--------------------------------------------------------------------------------------- //--------------------------------------------------------------------------------------- //--------------------------------------------------------------------------------------- //--------------------------------------------------------------------------------------- // sample: /* //-------------------------------------------------------------------------- //-------------------------------------------------------------------------- #local Rail_Distance = 4.00; // standard minimal distance of two rails #local Switch_Length = 20; // #declare Switch_Direction= 1; // 0 straight, 1 = right , 2 = left #declare Latern_Light_On = 0; // 0~ 1 //-------------------------------------------------------------------------- #include "RT_System/RT_Track_Switch_3Ways_A_00.inc" // returns: "Switch_Angle_" and "Switch_Radius_" !!! //-------------------------------------------------------------------------- //#declare Rail_Spikes_On = 1; object{ RT_Track_Switch_3Ways_A_00( Switch_Direction, // 0 straight, 1 = right , 2 = left Switch_Length___, Switch_Angle_, 1.5 // Ties_Per_Meter_ // ~1.5 ) //------------------------------------------------------- rotate<0,0,0> translate<0,0,0 > } //-------------------------------------------------------------------------- //--------------------------------------------------------------------------------------- */ #version RT_Track_Switch_3Ways_A_00_Inc_Temp; #end //------------------------------------- end of include file