{ *************************************************************

    "BUILDING.QRT"  - two modern high-rise office buildings,
                      with a road between them.

      Rendered by QRT 1.5 on an HP 9000/370
      Steve Koren, 14 Mar 89

      Image requires version 1.5 or later due to TRIANGLE()
      bug in 1.1 -> 1.4.

  ************************************************************* }

FILE_NAME = Building.RAW


{ *********   Some pattern definitions ********** }

PATTERN ( x_size = 60,                 { ** Checkered pattern ** }
          y_size = 60,
          name   = CHECK,
          RECTANGLE (
            start_x = 0,
            start_y = 0,
            end_x   = 30,
            end_y   = 30,
            diff    = (.1,1.0,.1),
          )
          RECTANGLE (
            start_x = 30,
            start_y = 30,
            end_x   = 60,
            end_y   = 60,
            diff    = (.1,1.0,.1),
          )
        )

PATTERN ( x_size = 10,
          y_size = 15,
          name   = BUILDING_SIDE,
          RECTANGLE (
            start_x = 1,  start_y = 1,
            end_x   = 9,  end_y   = 14

            diff    = (.2, .2, .2),
            mirror  = (.75, .75, .75)
          )
        )
   
PATTERN ( x_size = 10,
          y_size = 15,
          name = BUILDING_STRIPE
          RECTANGLE (
            start_x = 0,  start_y = 3,
            end_x   = 10, end_y = 12;

            diff    = (.2, .2, .2),
            mirror  = (.65, .65, .65)
          )
        )


   { **************** SIDE ONE ******************* }
   
BEGIN_BBOX

   BEGIN_BBOX
   
      PARALLELOGRAM ( loc    = (100, 0, 0),
                      v1     = (0, 0, 70),
                      v2     = (0, 60, 0)
                      diff   = (.4, .4, .4)
                      pattern= BUILDING_SIDE
                    )
   
      TRIANGLE      ( loc    = (100, 60, 0),
                      v1     = (0, 0, 70),
                      v2     = (62, 0, 35)
                      diff   = (.2, .2, .7)
                    )
   
      PARALLELOGRAM ( loc    = (100, 60, 0),
                      v1     = (62, 0, 35),
                      v2     = (0, 60, 0)
                      diff   = (.4, .4, .4)
                      pattern= BUILDING_SIDE
                    )
   
   { **************** SIDE TWO ******************* }
   
      PARALLELOGRAM ( loc    = (100, 0, 0),
                      v1     = (62, 0, -35),
                      v2     = (0, 120, 0)
                      diff   = (.4, .4, .4)
                      pattern= BUILDING_SIDE
                    )
   
      TRIANGLE      ( loc    = (100, 120, 0),
                      v1     = (62, 0, 35),
                      v2     = (62, 0, -35)
                      diff   = (.2, .2, .7)
                    )
   
   END_BBOX
   
   BEGIN_BBOX
      PARALLELOGRAM ( loc    = (162, 120, -35)
                      v1     = (0, 0, 70),
                      v2     = (0, 60, 0),
                      diff   = (.4, .4, .4)
                      pattern= BUILDING_SIDE
                    )
   
   { **************** SIDE THREE ******************* }
   
      PARALLELOGRAM ( loc    = (162, 0, -35),
                      v1     = (62, 0, 35),
                      v2     = (0, 180, 0)
                      diff   = (.4, .4, .4)
                      pattern= BUILDING_SIDE
                    )
   
      TRIANGLE      ( loc    = (162, 180, -35),
                      v1     = (0, 0, 70),
                      v2     = (62, 0, 35)
                      diff   = (.2, .2, .7)
                    )
      
      PARALLELOGRAM ( loc    = (224, 180, 0)
                      v1     = (-62, 0, 35),
                      v2     = (0, 60, 0),
                      diff   = (.4, .4, .4)
                      pattern= BUILDING_SIDE
                    )
   
   END_BBOX
   
   { **************** SIDE FOUR ******************* }
   
   BEGIN_BBOX
   
      PARALLELOGRAM ( loc    = (224, 0, 0),
                      v1     = (0, 0, 70),
                      v2     = (0, 240, 0) 
                      diff   = (.4, .4, .4)
                      pattern= BUILDING_SIDE
                    )
      
      TRIANGLE      ( loc    = (224, 240, 0)
                      v1     = (0,0, 70),
                      v2     = (-62, 0, 35)
                      diff   = (.2, .2, .7)
                    )
   
      PARALLELOGRAM ( loc    = (224, 240, 70)
                      v1     = (-62, 0, -35),
                      v2     = (0, 60, 0),
                      diff   = (.4, .4, .4)
                      pattern= BUILDING_SIDE
                    )
   
   { **************** SIDE FIVE ******************* }
   
      PARALLELOGRAM ( loc    = (224, 0, 70),
                      v1     = (-62, 0, 35),
                      v2     = (0, 300, 0)
                      diff   = (.4, .4, .4)
                      pattern= BUILDING_SIDE
                    )
   
      TRIANGLE      ( loc    = (224, 300, 70),
                      v1     = (-62, 0, 35),
                      v2     = (-62, 0, -35)
                      diff   = (.2, .2, .7)
                    )
   
   END_BBOX
   
   BEGIN_BBOX
   
   PARALLELOGRAM ( loc    = (162, 300, 105)
                   v1     = (0, 0, -70),
                   v2     = (0, 60, 0),
                   diff   = (.4, .4, .4)
                   pattern= BUILDING_SIDE
                 )
   
   { **************** SIDE SIX ******************* }
   
      PARALLELOGRAM ( loc    = (100, 0, 70),
                      v1     = (62, 0, 35),
                      v2     = (0, 360, 0)
                      diff   = (.4, .4, .4)
                      pattern= BUILDING_SIDE
                    )
      
      TRIANGLE      ( loc    = (100, 360, 70),
                      v1     = (62, 0, 35),
                      v2     = (62, 0, -35)
                      diff   = (.2, .2, .7)
                    )
      
      PARALLELOGRAM ( loc    = (100, 60, 70)
                      v1     = (62, 0, -35),
                      v2     = (0, 300, 0),
                      diff   = (.4, .4, .4)
                      pattern= BUILDING_SIDE
                    )

   END_BBOX

END_BBOX


{ ******** PYRAMID shaped building ********** }

BEGIN_BBOX

   TRIANGLE ( loc    = (120, 0,   200),
              v1     = (0,   0,   100),
              v2     = (43,  250, 50),
              diff   = (.6, .2,   .2),
              pattern= BUILDING_STRIPE
            )

   TRIANGLE ( loc    = (120, 0,   200),
              v1     = (86,  0,   50),
              v2     = (43,  250, 50),
              diff   = (.6, .2,   .2),
              pattern= BUILDING_STRIPE
            )

   TRIANGLE ( loc    = (120, 0,   300),
              v1     = (86,  0,   -50),
              v2     = (43,  250, -50),
              diff   = (.6, .2, .2),
              pattern= BUILDING_STRIPE
            )
END_BBOX

{ **** THE GROUND AND SOME ROADS *** }

BEGIN_BBOX

    PARALLELOGRAM ( loc   = (60, .01, -500)
                    v1    = (20, 0, 0)
                    v2    = (0, 0, 1000)
                    diff  = (.4, .4, .4)
                  )

    PARALLELOGRAM ( loc   = (-150, .01, 150)
                    v1    = (500, 0, 0)
                    v2    = (0, 0, 20)
                    diff  = (.4, .4, .4)
                  )


END_BBOX


{ ** Ground - try a big spherical one for effect ** }

SPHERE  ( loc    = (100, -5000, 0),
          radius = 5000,
          diff   = (.8, .8, 0),
          pattern= CHECK,
          xmult  = 2.5,
          ymult  = 2.5
        )

{
   PARALLELOGRAM ( loc  = (  -3000, 0,  -3000),  { ** big! ** }
                   v1   = (6000,    0,      0),
                   v2   = (  0,     0,   6000),

                   diff = (  .8, .8, 0),
                   pattern = CHECK
                   xmult = 2
                   ymult = 2
                 )
}


{ ** An observer ** }

OBSERVER ( loc    = (-200, 400, -80)
           lookat = (150, 150, 90)
         )

{ ** Lights (but not Bud lights) ** }

LAMP ( loc = (30, 540, 60),
       radius = 5,
       dist = 300
     )

LAMP ( loc = (240, 400, -5),
       radius = 5,
       dist = 200
     )

SKY  ( horiz  = (.3, .3, .75),
       zenith = (.1, .1, .60),
       dither = 4
     )

DEFAULT ( x_res = 320
          y_res = 400
          aspect= .56
        )

FOC_LENGTH = 65