#declare passage=  union{
//alcove part ---                 
//outer left
object {cuberock scale <.3,.7,.5>  translate y*0 rotate y*45 translate <-6,0,0> 
texture {walltex}  }
//inner left                                                                4.8
object {cuberock scale <.5,.7,.5> 
rotate -z*0                      translate y*0 rotate y*70 translate <-5.0,0,4.4>
texture {walltex}  }                                                             
//inner right                                                                4.2
object {cuberock scale <.3,1,.5> 
rotate z*35                        translate y*0 rotate -y*65 translate <8.4,2.,4.7>
 texture {walltex}  }
//outer right
object {cuberock scale <.3,.7,.5>  translate y*0 rotate -y*85 translate <11,0,0>
texture {walltex}  }               

//in the passage ----
object {cuberock scale <.3,.8,1>   translate y*0 rotate y*0 translate <-3,0,13> 
texture {walltex}  }
object {cuberock scale <.3,.7,1> translate y*1 rotate y*0 translate <4.6,0,13> 
texture {walltex}  }
object {cuberock scale <.3,.7,1> translate y*1 rotate y*0 translate <4.9,0,21> 
texture {walltex}   }                                                                               
                                                                               
}