# link graphics

class SH118b(world) 

# SH 118b       50.60*  0.00  15.00*   61.50    0.00    23.90  # x,y,z,w,h,l


method build()
   cooridoor := Room("cooridoor",50.60, 0.00, 28.90, 15.00, 2.75, 
                     4.99, , world) 
              
   cooridoor.floor.settexture( world.find_texture("floor2.gif") )



   SH118b        := Room("SH 118b", 50.60, 0.00, 23.90, 11.90, 2.75, 8.90, , world)
   
   SH118b.floor.settexture( world.find_texture("floor2.gif" ))
 


#                 x,    y,     z,   w, h, thick                        
 
  # front wall when you face north from the corridor 

   d1 := Door(52.00, 0.00, 23.90)
     #write( " Door d1 step 1 ")
     #d1.print_door()
   SH118b.add_opening(d1)
     #write( " Door d1 step 2 ")
     #d1.print_door()
   cooridoor.add_opening(d1) 
     #write("  Door d1 step 3 " )
     #d1.print_door()
   
   d2 := Opening( 56.00, 0.00, 23.90 )
     # d2.hinge_left := 1
   SH118b.add_opening(d2)
   cooridoor.add_opening(d2)
   
   d3 := Door( 59.00, 0.00, 23.90 )
   SH118b.add_opening(d3)
   cooridoor.add_opening(d3)
  
  # left wall
   d4 := Door( 50.60, 0.00, 16.00 )
   d4.hinge_left := 1
   SH118b.add_opening(d4)
   
   d5 := Door( 50.60, 0.00, 19.00 )
   SH118b.add_opening(d5)
    
  # back wall  
   d6 := Door( 56.00, 0.00, 15.00 )
   d6.hinge_left := 1
   SH118b.add_opening(d6)
  
   d61 := Door( 59.00, 0.00, 15.00 )
   SH118b.add_opening(d61)
  
  # right wall
   d7 := Door( 62.50, 0.00, 16.00 )
   d7.hinge_left := 1
   SH118b.add_opening(d7)
  
   d71 := Door( 62.50, 0.00, 19.00 )
   SH118b.add_opening(d71)
   
 #  whiteboard1 := Wall( world.texture_dir||"whiteboard.gif",
 #       50.61, 1.00, 23.00 ,
 #       50.61, 1.00, 23.00 ,   # zero height to test rendering
 #       50.61, 1.00, 16.00 ,
 #       50.61, 1.00, 16.00  )


# must reverse order of points for texture to orient to the front
 #  whiteboard2 := Wall( world.texture_dir||"whiteboard.gif",
 #       62.49, 1.00, 18.00 ,
 #       62.49, 2.50, 18.00 ,
 #       62.49, 2.50, 23.00 ,
 #       62.49, 1.00, 23.00  )     
       
         
 
    
#   SH118b.add_decoration(whiteboard1)
 #  SH118b.add_decoration(whiteboard2)
 

   put(world.Rooms, cooridoor)
   put(world.Rooms, SH118b)
   return SH118b    # this becomes curr_room
end

initially(worl) 
   world := worl
 

end #  class SH118b(world)

# ====== end of active code - anything below is for reference ================= 
#
# **************
   # PILLAR -- should redo as a single (cube) object
 #  pillar := Box()
 #   pillar.mkwall(4,0,-6,4,5,-6, 4,5,-5.5,4,0,-5.5)
 #  pillar.mkwall(4,0,-5.5,3.5,0,-5.5,3.5,5,-5.5,4,5,-5.5)
 #  pillar.mkwall(3.5,0,-5.5,3.5,5,-5.5,3.5,5,-6,3.5,0,-6)
 #  SH118b.add_obstacle(pillar)

 #  pleasewindow :=
 #     Wall("wall2.gif", -5,1.5,-6.2,-5,5,-6.2,5,5,-6.2,5,1.5,-6.2)
 #  SH118b.add_decoration(pleasewindow)
 #  whiteboard := Wall("whiteboard.gif",
 #    -4.95,1.5,-.5,-4.95,4,-.5,-4.95,4,-5.5,-4.95,1.5,-5.5)
 #  SH118b.add_decoration(whiteboard)
#procedure make_cooridoor()
# **************
#   cooridoor := Room("cooridoor",50.60, 0.00, 28.90, 15.00, 2.75, 4.8, "wall2.gif")
 #  put(Rooms, cooridoor)
#   return cooridoor
#end

#                                     , 50.60, 0.00, 23.90,  
#                                       50.60, 0.00, 15.00, 
#                                       61.50, 0.00, 15.00,
#                                       61.50, 0.00, 23.90   )


# ============== end of file ======================================================