home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / graphic / qrt / room4.qrt < prev    next >
Text File  |  1990-02-08  |  6KB  |  190 lines
  1.            {**********************************
  2.  
  3.               Room - brick walls and a
  4.               mirrored sphere in the middle.
  5.  
  6.             **********************************}
  7.  
  8.  
  9.            FILE_NAME = ROOM4.RAW
  10.  
  11.  
  12.            { *********   Some pattern definitions ********** }
  13.  
  14.            PATTERN ( x_size = 16,  { ** A checkered pattern ** }
  15.                      y_size = 16,
  16.                      name   = CHECK,
  17.  
  18.                      RECTANGLE (
  19.                        start_x = 0, start_y = 0,
  20.                        end_x   = 8, end_y   = 8,
  21.  
  22.                        diff    = (1, .20, .20);
  23.                      )
  24.                      RECTANGLE (
  25.                        start_x = 8, start_y = 8,
  26.                        end_x   = 16, end_y   = 16,
  27.  
  28.                        diff    = (1.00, .20, .20);
  29.                      )
  30.                    )
  31.  
  32.            PATTERN ( x_size = 80,        { ** brick pattern ** }
  33.                      y_size = 50,
  34.                      name   = BRICK,
  35.                      RECTANGLE (
  36.                        start_x = 0, start_y = 2,
  37.                        end_x   = 18, end_y   = 23,
  38.                        diff    = (1.00, .20, .20);
  39.                      )
  40.                      RECTANGLE (
  41.                        start_x = 62, start_y = 2,
  42.                        end_x   = 80, end_y   = 23,
  43.                        diff    = (1.00, .20, .20);
  44.                      )
  45.                      RECTANGLE (
  46.                        start_x = 22, start_y = 2,
  47.                        end_x   = 58, end_y   = 23,
  48.                        diff    = (.80, .20, .20);
  49.                      )
  50.                      RECTANGLE (
  51.                        start_x = 2, start_y = 27,
  52.                        end_x   = 38, end_y   = 48,
  53.                        diff    = (.85, .35, .10);
  54.                      )
  55.                      RECTANGLE (
  56.                        start_x = 42, start_y = 27,
  57.                        end_x   = 78, end_y   = 48,
  58.                        diff    = (.70, .25, .20);
  59.                      )
  60.                    )
  61.  
  62.  
  63.            { *******   Now for the room itself  ******** }
  64.  
  65.                { ** four walls ** }
  66.  
  67.                PARALLELOGRAM ( loc  = (  0,  0, -100),
  68.                                v1   = (100,  0,    0),
  69.                                v2   = (  0, 50,    0),
  70.                                pattern = BRICK,
  71.  
  72.                                xmult = .2,
  73.                                ymult = .2
  74.                              )
  75.  
  76.                PARALLELOGRAM ( loc  = (  0,  0,  100),
  77.                                v1   = (100,  0,    0),
  78.                                v2   = (  0, 50,    0),
  79.                                pattern = BRICK,
  80.                                xmult = .2,
  81.                                ymult = .2
  82.                              )
  83.  
  84.                PARALLELOGRAM ( loc  = (100,  0, -100),
  85.                                v1   = (  0,  0,  200),
  86.                                v2   = (  0, 50,    0),
  87.                                pattern = BRICK
  88.                                xmult = .2,
  89.                                ymult = .2
  90.                              )
  91.  
  92.                PARALLELOGRAM ( loc  = (  0,  0, -100),
  93.                                v1   = (  0,  0,  200),
  94.                                v2   = (  0, 50,    0),
  95.                                pattern = BRICK,
  96.                                xmult = .2,
  97.                                ymult = .2,
  98.                              )
  99.  
  100.                { ** a floor ** }
  101.  
  102.                PARALLELOGRAM ( loc  = (  0, 0,  100),
  103.                                v1   = (100, 0,    0),
  104.                                v2   = (  0, 0, -200),
  105.  
  106.                                diff = (  0, 1, 0),
  107.                                pattern = CHECK
  108.                              )
  109.  
  110.                { ** several mirrored spheres ** }
  111.  
  112.                BEGIN_BBOX
  113.  
  114.                    SPHERE    ( loc = (-100, 50, -50),
  115.                                radius = 30,
  116.  
  117.                                diff   = (0, 0, 0),
  118.                                mirror = (.6, .9, .9),
  119.                                dither = 0
  120.                              )
  121.                END_BBOX
  122.  
  123.                BEGIN_BBOX
  124.  
  125.                    SPHERE    ( loc = (40,  0, -100),
  126.                                radius = 30,
  127.  
  128.                                diff   = (0, 0, 0),
  129.                                mirror = (.9, .6, .9),
  130.                                dither = 0
  131.                              )
  132.                END_BBOX
  133.  
  134.                BEGIN_BBOX
  135.  
  136.                    SPHERE    ( loc = (50, 50, -50),
  137.                                radius = 30,
  138.  
  139.                                diff   = (0, 0, 0),
  140.                                mirror = (.9, .6, .9),
  141.                                dither = 0
  142.                              )
  143.                END_BBOX
  144.  
  145.                BEGIN_BBOX
  146.  
  147.                    SPHERE    ( loc = (50, 50, -100),
  148.                                radius = 30,
  149.  
  150.                                diff   = (0, 0, 0),
  151.                                mirror = (.9, .6, .9),
  152.                                dither = 0
  153.                              )
  154.                END_BBOX
  155.  
  156.                BEGIN_BBOX
  157.  
  158.                    SPHERE    ( loc = (0, 0, 0),
  159.                                radius = 30,
  160.  
  161.                                diff   = (0, 0, 0),
  162.                                mirror = (.9, .9, .6),
  163.                                dither = 0
  164.                              )
  165.                END_BBOX
  166.  
  167.            { ** An observer ** }
  168.  
  169.            OBSERVER ( loc    = (40, 25, 30),
  170.                       lookat = (50, 0, -100)
  171.                     )
  172.  
  173.            { ** Two lamps ** }
  174.  
  175.            LAMP ( loc = (65, 70, 20),
  176.                   radius = 5,
  177.                   dist = 45
  178.                 )
  179.  
  180.            LAMP ( loc = (30, 55, -10),
  181.                   radius = 5,
  182.                   dist = 25
  183.                 )
  184.  
  185.            SKY  ( horiz  = (0, 0, .55),
  186.                   zenith = (0, 0, .25),
  187.                   dither = 4
  188.                 )
  189.  
  190.