#declare WaterWay =       
        union{
                #declare n=17500;
                #while(n>-16975)
                        #declare Norm1 = <0, 0, 0>; 
                        #declare Start1 = <n, 1, 0>;
                        #declare Inter1 =trace ( Hull, Start1, <0, 0, -1>, Norm1 );
                        #declare Norm2 = <0, 0, 0>; 
                        #declare Start2 = <n, 99.9999, 0>;
                        #declare Inter2 =trace ( Hull, Start2, <0, 0, -1>, Norm2 );
                
                        #declare A1 =<n,Inter1.y-10,Inter1.z+200>;
                        #declare B1 =<n,Inter1.y-10,Inter1.z-10>;
                        #declare C1 =<n,Inter2.y+.0001,Inter2.z+200>;
                        #declare D1 =<n,Inter2.y,Inter2.z-10>;
                
                        
                        #if (vlength(Norm)!=0)//n<15500)
                                union{
                                        #if(n<17500)
                                                cylinder{<C1.x,C1.y-10,C1.z>,<C2.x,C2.y-10,C2.z>,10 }
                
                                                triangle{<A1.x,A1.y,A1.z+10>,<A2.x,A2.y,A2.z+10>,<C1.x,C1.y,C1.z+10>}
                                                triangle{<C2.x,C2.y,C2.z+10>,<A2.x,A2.y,A2.z+10>,<C1.x,C1.y,C1.z+10>}
                

                                                triangle{<C1.x,C1.y,C1.z>,<C2.x,C2.y,C2.z>,<D1.x,D1.y,D1.z>}
                                                triangle{<D2.x,D2.y,D2.z>,<C2.x,C2.y,C2.z>,<D1.x,D1.y,D1.z>}
                
                
                                        #end
                                        
                                }
                
                        #end
                        
                        #declare A2 = A1;                
                        #declare B2 = B1;                
                        #declare C2 = C1;                
                        #declare D2 = D1;                
                        
                        #declare Norm1 = <0, 0, 0>; 
                        #declare Start1 = <n, 1, 0>;
                        #declare Inter1 =trace ( Hull, Start1, <0, 0, 1>, Norm1 );
                        #declare Norm2 = <0, 0, 0>; 
                        #declare Start2 = <n, 99.9999, 0>;
                        #declare Inter2 =trace ( Hull, Start2, <0, 0, 1>, Norm2 );
                
                        #declare A3 =<n,Inter1.y-10,Inter1.z-200>;
                        #declare B3 =<n,Inter1.y-10,Inter1.z+10>;
                        #declare C3 =<n,Inter2.y+.0001,Inter2.z-200>;
                        #declare D3 =<n,Inter2.y,Inter2.z+10>;
                
                        
                        #if (vlength(Norm)!=0)//n<15500)
                                union{
                                        #if(n<17500)
                                                cylinder{<C3.x,C3.y-10,C3.z>,<C4.x,C4.y-10,C4.z>,10 }
                
                                                triangle{<A3.x,A3.y,A3.z-10>,<A4.x,A4.y,A4.z-10>,<C3.x,C3.y,C3.z-10>}
                                                triangle{<C4.x,C4.y,C4.z-10>,<A4.x,A4.y,A4.z-10>,<C3.x,C3.y,C3.z-10>}
                

                                                triangle{<C3.x,C3.y,C3.z>,<C4.x,C4.y,C4.z>,<D3.x,D3.y,D3.z>}
                                                triangle{<D4.x,D4.y,D4.z>,<C4.x,C4.y,C4.z>,<D3.x,D3.y,D3.z>}
                
                
                                        #end
                                        
                                }
                                        

                        #end
                        
                        #declare A4 = A3;                
                        #declare B4 = B3;                
                        #declare C4 = C3;                
                        #declare D4 = D3;                
                        
                        #if(n>15000)
                                #declare Delta = 100;
                        #else
                                #declare Delta = 500;
                        #end                
                                
                
                        #declare n=n-Delta;
                #end
                box{<-16650,-10,-2900>,<-16450,100,2900>}
                cylinder{<-16450,90,-2900>,<-16450,90,2900>,10}
                box{<-16650,-10,-2900>,<-16440,90,2900>}
                 
                WornWoodS(ShipRed,0.20,0.20,0.35,<0,-1,0>,<0,90,0>,Inter1,<1,1,1>)
        }


object{WaterWay}