Graphics Plus/Graphics Plus.iso/general/msdl/example.lha/example-scenes/lecture-theatre.lha/lecture1.1.msdl

Text File | 1993-11-30 | 16.4 KB | 1,169 lines

                     /*           theatre.dat            */

        /*   THIS IS A SCENE WHICH DESCRIBES LECTURE THEATRE 1.1 IN THE*/
                        /* COMPUTER SCIENCE BUILDING */


    /*   anything enclosed by forward slash and stars requires setting  */

        view
             from       100  30   170
             towards    500  1821 450
             up         0    0    1
         window 0 0 0 0
        end

/*        view
             from       200  300   200
             towards    267 455 400
             up         0    0    1
         window 0 0 0 0
        end*/


defprops
        antique_white
           src 0 0 0
           drc     0.97  0.99  0.945
           /*texture file tile*/
end

defprops
    cold_grey
           src 0 0 0
           drc     0.576  0.588  0.588
           phexp  20
end

defprops
        ghost_white
           src 0 0 0
           drc       0.949 1.0 0.875
           /*texture file breeze_block*/
end

defprops
        gold
           drc     0.996  0.859  0.102
           src     0.2  0.2   0.2
           phexp  40
           /*texture file wood*/
end



defprops
        midnight_blue
           drc     0.098 0.098 0.4392
       src 0.5 0.5 0.5
           phexp  40
end


defprops
  darkwood
         drc 0.6745 0.5373 0.3882
           src 0 0 0
end


defprops
        lamp_black
           drc   0.05  0.05  0.05
       src  0.1 0.1 0.1
           phexp  10
end



defprops
        mahogany
           drc 0.7725 0.6863 0.4353
           src 0 0 0
       phexp  40
           /*texture file wood*/
end



defprops
        oak
           drc     0.7725 0.6863 0.4353
           src     0.1  0.08  0.05
           phexp  30
           /*texture file wood*/
end





defobj unit_box_light

/*  this light is such that it has no top but just sides */
polygon
4
0 0 0
1 0 0
1 0 1
0 0 1
props emission 1.0 1.0 1.0 end
end

polygon
4
0 0 0
1 0 0
1 1 0
0 1 0
props emission 1.0 1.0 1.0 end
end

polygon
4
1 1 1
0 1 1
0 1 0
1 1 0
props emission 1.0 1.0 1.0 end
end

end

defobj unit_cube
   box
      0 0 0
      1 1 1
   end
end



defobj floor_front
                 polygon
                        8
                        1403 732 0
                        0    732 0
                        0    0   0
                        183  0   0
                        183  30  0
                        1220 30  0
                        1220 0   0
                        1403 0   0
                        instprops cold_grey
                 end
end



defobj floor_tier1
                 polygon                 /*         for tier 1 only        */
                        4
                        1403 99 0
                        0    99 0
                        0    0  0
                        1403 0  0
                        instprops cold_grey
                 end
end



defobj floor_tier2
                  polygon                /*  for tiers 2 to 11 inclusive   */
                         8
                         1403 69 0
                         1281 69 0
                         1281 99 0
                         122  99 0
                         122  69 0
                         0    69 0
                         0    0  0
                         1403 0  0
                         instprops cold_grey
                  end
end



defobj floor_step
                 polygon
                        4
                        122 30 0
                        0   30 0
                        0   0  0
                        122 0  0
                        instprops cold_grey
                 end
end



defobj tier_edge
               polygon
                      4
                      1403 0 3
                      0    0 3
                      0    0 0
                      1403 0 0
                      instprops lamp_black
               end
end



defobj tier_front1                      /*  vertical front of tier 1 and  */
                                         /*            and tier 2          */
   instobj tier_edge
      shift 0 0 13
   end

   polygon
           4
           1403 0 13
           0    0 13
           0    0 0
           1403 0 0
           instprops cold_grey
   end

end



defobj tier_front2                      /*    vertical front of tiers     */
                                         /*       3 to 11 inclusive        */
   instobj tier_edge
      shift 0 0 20
   end

     polygon
           4
           1403 0 20
           1403 0 0
           0    0 0
           0    0 20
           instprops cold_grey
   end

end



defobj step_front

   polygon
           4
           122 0 13
           0   0 13
           0   0 10
           122 0 0
           instprops lamp_black
   end

   polygon
           4
           122 0 61
           0   0 61
           0   0 0
           122 0 0
           instprops cold_grey
   end

end



defobj step_side_left

   polygon
           4
           0 0  13
           0 30 13
           0 30 10
           0 0  10
           instprops lamp_black
   end

   polygon
           4
           0 0  10
           0 30 10
           0 30 0
           0 0  0
           instprops cold_grey
   end

end



defobj step_side_right

   instobj step_side_left
      rotate z 90
   end

end



defobj bottom_tier                      /*           tier 1               */

   instobj floor_tier1
      shift 0 0 16
   end

end



defobj tier2                            /*            tier 2              */

   instobj floor_tier2
      shift 0 0 16
   end

   instobj tier_front1
   end

end

defobj tier
/* Martins hacked step! */
  instobj unit_cube
    scale 1500 100.0 22.0
    shift -200 0 0
    instprops cold_grey
  end
end

defobj tier_old                             /*    tiers 3 to 10 inclusive     */


   instobj floor_tier2
     scale 5.0 1.0 1.0
      shift 0 0 23
   end


   instobj step_front
     scale 5.0 1.0 1.0
      shift 1281 -29 0
   end

   instobj step_side_right
     scale 5.0 1.0 1.0
   end

   instobj floor_step
     scale 5.0 1.0 1.0
      shift 1281 -30 13
   end


end



defobj top_tier                    /*           tier 11                   */

   instobj floor_tier1
      shift 0 0 23
   end

   instobj floor_step
      shift 0 -30 13
   end

   instobj step_front
      shift 0 -30 0
   end

   instobj step_side_right
   end

   instobj floor_step
      shift 1281 -30 13
   end

   instobj step_front
      shift 1281 -30 0
   end

   instobj step_side_left
       shift 1281 -30 0
   end

end



defobj lower_ceiling

   polygon
           4
           300 1401 0
           300 0    0
           0   0    0
           0   1401 0
           instprops antique_white
   end

   polygon
           4
           300 1581 62
           300 1401 0
           0   1401 0
           0   1581 62
           instprops antique_white
   end

   polygon
           4
           300 1821 62
           300 1581 62
           0   1581 62
           0   1821 62
           instprops antique_white
   end

end



defobj higher_ceiling

   polygon
           4
           803 1821 0
           803 0    0
           0   0    0
           0   1821 0
           instprops antique_white
  end

end



defobj lower_ceiling_side_left

   polygon
           6
           0 1821 92
           0 0    92
           0 0    0
           0 1401 0
           0 1581 62
           0 1821 62
           instprops antique_white
   end

end



defobj lower_ceiling_side_right

   polygon
           6
           0 0    92
           0 1821 92
           0 1821 62
           0 1581 62
           0 1401 0
           0 0    0
           instprops antique_white
   end

end



defobj ceiling

   instobj lower_ceiling
      instprops antique_white
   end

   instobj lower_ceiling_side_left
      shift 300 0 0
      instprops mahogany
   end

   instobj higher_ceiling
      shift 300 0 92
      instprops antique_white
   end

   instobj lower_ceiling_side_right
      shift 1103 0 0
      instprops mahogany
   end

   instobj lower_ceiling
      shift 1103 0 0
      instprops antique_white
   end

end



defobj desk_top

   instobj unit_cube
      instprops oak
      scale 165 43 2
   end

end



defobj seat

   instobj unit_cube
      instprops lamp_black
      scale 54 38 6
   end

end



defobj seat_back

   instobj unit_cube
      instprops lamp_black
      scale 54 6 31
   end

end



defobj upper_seat_back

   instobj unit_cube
      instprops lamp_black
      scale 54 6 6
   end

end



defobj seat_support

   instobj unit_cube
      instprops lamp_black
      scale 1 1 51
   end

end



defobj desk_support

   instobj unit_cube
      instprops lamp_black
      scale 1 1 70
   end

end



defobj std_desk_and_seats_unit      /* unit consists of three seats */
                                     /*       and one long desk      */
   instobj desk_top
      shift 0 0 70                   /*  only units on tier one are  */
   end                               /*          standard            */

   instobj seat_back
      shift 1 93 54
      instprops lamp_black
   end

   instobj seat_back
      shift 56 93 54
      instprops lamp_black
   end

   instobj seat_back
      shift 111 93 54
      instprops lamp_black
   end

   instobj seat
      shift 1 55 45
      instprops lamp_black
   end

   instobj seat
      shift 56 55 45
      instprops lamp_black
   end

   instobj seat
      shift 111 55 45
      instprops lamp_black
   end

   instobj seat_support
      shift 0 80 0
      instprops lamp_black
   end

   instobj seat_support
      shift 55 80 0
      instprops lamp_black
   end

   instobj seat_support
      shift 110 80 0
      instprops lamp_black
   end

   instobj seat_support
      shift 164 80 0
      instprops lamp_black
   end

   instobj desk_support
   end

   instobj desk_support
      shift 164 0 0
   end

end



defobj front_unit                   /*  same as std desk and seats  */
                                     /*   plus front plastic panel   */
   instobj std_desk_and_seats_unit
   end                               /*   This unit is for the front */
                                     /*           row only           */
   instobj unit_cube
      instprops oak
      scale 165 6 40
      shift 0 -6 28
   end

end



defobj upper_unit

   instobj std_desk_and_seats_unit
   end                               /* This unit is for the tiers   */
                                     /*    two through to eleven     */
   instobj upper_seat_back          /* and consists of the std unit */
      shift 1 93 87                  /*   plus an extra upper back.  */
   end                               /* This is needed because of the*/
                                     /*  greater height of the step  */
   instobj upper_seat_back          /*   of tiers three to eleven   */
      shift 1 93 87
   end

   instobj upper_seat_back
      shift 56 93 87
   end

   instobj upper_seat_back
      shift 111 93 87
   end

end


defobj front_desks

   instobj front_unit
   end

   instobj front_unit
      shift 165 0 0
   end

   instobj front_unit
      shift 330 0 0
   end

   instobj front_unit
      shift 495 0 0
   end

   instobj front_unit
      shift 660 0 0
   end

   instobj front_unit
      shift 825 0 0
   end

   instobj front_unit
      shift 990 0 0
   end

end



defobj tier1_desks

   instobj std_desk_and_seats_unit
   end

   instobj std_desk_and_seats_unit
      shift 165 0 0
   end

   instobj std_desk_and_seats_unit
      shift 330 0 0
   end

   instobj std_desk_and_seats_unit
      shift 495 0 0
   end

   instobj std_desk_and_seats_unit
      shift 660 0 0
   end

   instobj std_desk_and_seats_unit
      shift 825 0 0
   end

   instobj std_desk_and_seats_unit
      shift 990 0 0
   end

end


defobj door_handle
   instobj unit_cube
/*      instprops silver */
      scale 10 1 3
   end
end


defobj uppertier_desks

   instobj tier
     instprops cold_grey
   end

   instobj upper_unit
   end

   instobj upper_unit
      shift 165 0 0
   end

   instobj upper_unit
      shift 330 0 0
   end

   instobj upper_unit
      shift 495 0 0
   end

   instobj upper_unit
      shift 660 0 0
   end

   instobj upper_unit
      shift 825 0 0
   end

   instobj upper_unit
      shift 990 0 0
   end

end


defobj door_knob

   cylinder
             0 0 3   capped
             0 5 3
             3
             instprops gold
   end

end


defobj wood_door

   polygon
           4
           62 0 230
           0  0 230
           0  0 0
           62 0 0
           instprops darkwood
   end

end



defobj left_door

   instobj wood_door
   end

   instobj door_handle
      shift 48 -5 130
   end

end



defobj right_door

   instobj wood_door
   end

   instobj door_handle
      shift 14 -5 130
   end

end



defobj double_doors

   instobj left_door
    instprops oak
   end

   instobj right_door
      shift 62 0 0
      instprops oak
   end

end



defobj left_wall

   polygon
          4
          0 1821 499
          0 0    499
          0 0    0
          0 1821 0
          instprops ghost_white
   end

end



defobj floor

   polygon
          4
          0 0    0
          1200 0 0
          1200 1821 0
          0 1821 0
          instprops ghost_white
   end
end


defobj right_wall

   polygon
          4
          0 0    499
          0 1821 499
          0 1821 0
          0 0    0
          instprops ghost_white
   end

end



defobj back_wall

   polygon
          4
          1279 1830    499
          0    1830    499
          0    1830    0
          1279 1830    0
          instprops ghost_white
   end

end

defobj front_wall

   polygon
          4
          1155 0    260
          0    0    260
          0    0    0
          1155 0    0
          instprops ghost_white
   end

end

defobj lower_ceiling_lights

instobj unit_box_light
scale 30 1401 5
end

instobj unit_box_light
scale 30 190.37 5
shift -15 -95.185 -2.5
rotate x 78.88
shift 15 95.185 2.5
shift 0 1401 31
end


instobj unit_box_light
scale 30 240 5
shift 0 1581 62
end

end

defobj whole_scene

   instobj lower_ceiling_lights
   shift 30 0 402
   end

   instobj lower_ceiling_lights
   shift 239 0 402
   end

   instobj lower_ceiling_lights
   shift 1373 0 402
   end

   instobj lower_ceiling_lights
   shift 1164 0 402
   end

   instobj floor_front
     instprops cold_grey
   end

   instobj front_desks
      shift 124 633 0
   end
/*
   instobj tier
   end

   instobj top_tier
   end

   instobj tier2
   end

   instobj bottom_tier
      shift 124 732 16
   end

*/
   instobj tier
      shift 124 732 16
    instprops cold_grey
   end

   instobj tier
      shift 124 633 0
        instprops cold_grey
   end


   instobj tier1_desks
      shift 124 732 16
   end

   instobj uppertier_desks                /*  tier 2                   */
      shift 124 831 32
   end

   instobj uppertier_desks                /*  tier 3                   */
      shift 124 930 55
   end

   instobj uppertier_desks                /*  tier 4                   */
      shift 124 1029 78
   end

   instobj uppertier_desks                /*  tier 5                   */
      shift 124 1128 101
   end

   instobj uppertier_desks                /*  tier 6                   */
      shift 124 1227 124
   end

   instobj uppertier_desks                /*  tier 7                   */
      shift 124 1326 147
   end

   instobj uppertier_desks                /*  tier 8                   */
      shift 124 1425 170
   end

   instobj uppertier_desks                /*  tier 9                   */
      shift 124 1524 193
   end

   instobj uppertier_desks                /*  tier 10                   */
      shift 124 1623 216
   end

   instobj uppertier_desks                /*  tier 11                  */
      shift 124 1722 239
   end

   instobj floor
    instprops cold_grey
   end

   instobj ceiling
      shift 0 0 407
      instprops cold_grey
   end

   instobj left_wall
    instprops ghost_white
   end

/*   instobj front_wall
   end*/

   instobj right_wall
      shift 1403 0 0
    instprops ghost_white
   end

   instobj back_wall
      instprops ghost_white
   end

   instobj double_doors
      shift 0 1821 239
      instprops oak
   end

   instobj double_doors
      shift 1279 1821 239
      instprops oak
   end

end

instobj whole_scene
end