Home » Personal collection » Acorn hard disk » apps » QRT » Images/WallSphere/QRT

Images/WallSphere/QRT

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn hard disk » apps » QRT
Filename: Images/WallSphere/QRT
Read OK:
File size: 17C1 bytes
Load address: 0000
Exec address: 0000
File contents
{**************************************************

    Walls with sphere - demonstrates pattern
    mapping to sphere surfaces.

    Rendered with QRT ray tracer on Amiga 1000

    - Steve Koren   8 Jun 88

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


FILE_NAME = WallSphere.RAW

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

PATTERN ( x_size = 16,                 { ** A stripe pattern ** }
          y_size = 8,                  { ** for the sphere ** }
          name   = MIRROR_STRIPE,

          RECTANGLE (
            start_x = 0, start_y = 0,
            end_x   = 16, end_y   = 4,

            diff    = (.1, .1, .1),
            mirror  = (.8, .8, .8),
          )
        )

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 = 40,                 { ** Checkered pattern ** }
          y_size = 40,
          name   = CHECK_BLUE,
          RECTANGLE (
            start_x = 0,
            start_y = 0,
            end_x   = 20,
            end_y   = 20,
            diff    = (.7,.2,.7)
            amb     = (.32, .32, .32),
            reflect = .55
            sreflect= 20
          )
          RECTANGLE (
            start_x = 20,
            start_y = 20,
            end_x   = 40,
            end_y   = 40,
            diff    = (.7,.5,.7),
            amb     = (.32, .32, .32),
            reflect = .55
            sreflect= 20
          )
        )
PATTERN ( x_size = 80,                    { ** brick pattern ** }
          y_size = 50,
          name   = BRICK,
          RECTANGLE (                     { 1st half brick 1 }
            start_x = 0, start_y = 2,
            end_x   = 18, end_y   = 23,
            diff    = (1.00, .20, .20);
          )
          RECTANGLE (                     { 2nd hald brick 1 }
            start_x = 62, start_y = 2,
            end_x   = 80, end_y   = 23,
            diff    = (1.00, .20, .20);
          )
          RECTANGLE (                     { brick 2 }
            start_x = 22, start_y = 2,
            end_x   = 58, end_y   = 23,
            diff    = (.80, .20, .20);
          )
          RECTANGLE (                     { brick 3 }
            start_x = 2, start_y = 27,
            end_x   = 38, end_y   = 48,
            diff    = (.85, .35, .10);
          )
          RECTANGLE (                     { brick 4 }
            start_x = 42, start_y = 27,
            end_x   = 78, end_y   = 48,
            diff    = (.70, .25, .20);
          )
        )

{ *********************  OBJECTS  ********************* }

{ ** ground ** }

PARALLELOGRAM ( loc  = (  -10000, 0,  -10000),
                v1   = (20000, 0,    0),
                v2   = (  0, 0, 20000),

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


BEGIN_BBOX

    BEGIN_BBOX

        SPHERE ( loc = (200, 50, -80),
                 radius = 35,
                 diff = (.7, .3, .5),

                 pattern = MIRROR_STRIPE,
                 xmult   = 1.5,
                 ymult   = 1.5
               )

        QUADRATIC ( loc = (200, 0, -80),

                    a    = 1,
                    b    = 0,
                    c    = 1,
                    d    = 150,
                    xmin = -13,
                    xmax = 13,
                    ymin = 0,
                    ymax = 50,
                    zmin = -13,
                    zmax = 13,

                    diff = (.1, .1, .1),
                    mirror = (.8, .8, .8)
                  )

    END_BBOX


    BEGIN_BBOX

        SPHERE ( loc      = (200, 90, 80),
                 radius   = 35,
                 diff     = (.3, .3, .8),
                 amb      = (.32, .32, .32),
                 reflect  = .40
                 sreflect = 20

                 pattern = CHECK_BLUE,
                 xmult   = 1.0,
                 ymult   = 1.0
               )

        QUADRATIC ( loc = (200, 0, 80),

                    a    = 1,
                    b    = 0,
                    c    = 1,
                    d    = 150,
                    xmin = -13,
                    xmax = 13,
                    ymin = 0,
                    ymax = 90,
                    zmin = -13,
                    zmax = 13,

                    diff = (.1, .1, .1),
                    mirror = (.8, .8, .8)
                  )

    END_BBOX

END_BBOX


BEGIN_BBOX

    { ** a small brick wall ** }

    PARALLELOGRAM ( loc = (150, 00, -15),
                    v1  = (0, 0, 30),
                    v2  = (0, 100, 0)

                    diff = (1, 1, 1),
                    pattern = BRICK

                    xmult = .5,
                    ymult = .5
                  )

    PARALLELOGRAM ( loc = (150, 00, -15),
                    v1  = (100, 0, 0),
                    v2  = (0, 100, 0)

                    diff = (1, 1, 1),
                    pattern = BRICK

                    xmult = .5,
                    ymult = .5
                  )

    PARALLELOGRAM ( loc = (150, 00, 15),
                    v1  = (100, 0, 0),
                    v2  = (0, 100, 0)

                    diff = (1, 1, 1),
                    pattern = BRICK

                    xmult = .5,
                    ymult = .5
                  )

END_BBOX


{ ** An observer ** }

OBSERVER ( loc    = (-20 , 70, -40),
           lookat = (200, 50, 0)
         )

{ ** A lamp ** }

LAMP ( loc = (120, 120, -50),
       radius = 5,
       dist = 80
     )

LAMP ( loc = (120, 150, 80),
       radius = 5,
       dist = 70
     )

SKY  ( horiz  = (.2, .2, .55),
       zenith = (.1, .1, .25),
       dither = 4
     )

FOC_LENGTH = 50



00000000  7b 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |{***************|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000030  2a 2a 2a 0a 0a 20 20 20  20 57 61 6c 6c 73 20 77  |***..    Walls w|
00000040  69 74 68 20 73 70 68 65  72 65 20 2d 20 64 65 6d  |ith sphere - dem|
00000050  6f 6e 73 74 72 61 74 65  73 20 70 61 74 74 65 72  |onstrates patter|
00000060  6e 0a 20 20 20 20 6d 61  70 70 69 6e 67 20 74 6f  |n.    mapping to|
00000070  20 73 70 68 65 72 65 20  73 75 72 66 61 63 65 73  | sphere surfaces|
00000080  2e 0a 0a 20 20 20 20 52  65 6e 64 65 72 65 64 20  |...    Rendered |
00000090  77 69 74 68 20 51 52 54  20 72 61 79 20 74 72 61  |with QRT ray tra|
000000a0  63 65 72 20 6f 6e 20 41  6d 69 67 61 20 31 30 30  |cer on Amiga 100|
000000b0  30 0a 0a 20 20 20 20 2d  20 53 74 65 76 65 20 4b  |0..    - Steve K|
000000c0  6f 72 65 6e 20 20 20 38  20 4a 75 6e 20 38 38 0a  |oren   8 Jun 88.|
000000d0  0a 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |. **************|
000000e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000100  2a 2a 2a 2a 7d 0a 0a 0a  46 49 4c 45 5f 4e 41 4d  |****}...FILE_NAM|
00000110  45 20 3d 20 57 61 6c 6c  53 70 68 65 72 65 2e 52  |E = WallSphere.R|
00000120  41 57 0a 0a 7b 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 20  |AW..{ ********* |
00000130  20 20 53 6f 6d 65 20 70  61 74 74 65 72 6e 20 64  |  Some pattern d|
00000140  65 66 69 6e 69 74 69 6f  6e 73 20 2a 2a 2a 2a 2a  |efinitions *****|
00000150  2a 2a 2a 2a 2a 20 7d 0a  0a 50 41 54 54 45 52 4e  |***** }..PATTERN|
00000160  20 28 20 78 5f 73 69 7a  65 20 3d 20 31 36 2c 20  | ( x_size = 16, |
00000170  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000180  7b 20 2a 2a 20 41 20 73  74 72 69 70 65 20 70 61  |{ ** A stripe pa|
00000190  74 74 65 72 6e 20 2a 2a  20 7d 0a 20 20 20 20 20  |ttern ** }.     |
000001a0  20 20 20 20 20 79 5f 73  69 7a 65 20 3d 20 38 2c  |     y_size = 8,|
000001b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001c0  20 20 7b 20 2a 2a 20 66  6f 72 20 74 68 65 20 73  |  { ** for the s|
000001d0  70 68 65 72 65 20 2a 2a  20 7d 0a 20 20 20 20 20  |phere ** }.     |
000001e0  20 20 20 20 20 6e 61 6d  65 20 20 20 3d 20 4d 49  |     name   = MI|
000001f0  52 52 4f 52 5f 53 54 52  49 50 45 2c 0a 0a 20 20  |RROR_STRIPE,..  |
00000200  20 20 20 20 20 20 20 20  52 45 43 54 41 4e 47 4c  |        RECTANGL|
00000210  45 20 28 0a 20 20 20 20  20 20 20 20 20 20 20 20  |E (.            |
00000220  73 74 61 72 74 5f 78 20  3d 20 30 2c 20 73 74 61  |start_x = 0, sta|
00000230  72 74 5f 79 20 3d 20 30  2c 0a 20 20 20 20 20 20  |rt_y = 0,.      |
00000240  20 20 20 20 20 20 65 6e  64 5f 78 20 20 20 3d 20  |      end_x   = |
00000250  31 36 2c 20 65 6e 64 5f  79 20 20 20 3d 20 34 2c  |16, end_y   = 4,|
00000260  0a 0a 20 20 20 20 20 20  20 20 20 20 20 20 64 69  |..            di|
00000270  66 66 20 20 20 20 3d 20  28 2e 31 2c 20 2e 31 2c  |ff    = (.1, .1,|
00000280  20 2e 31 29 2c 0a 20 20  20 20 20 20 20 20 20 20  | .1),.          |
00000290  20 20 6d 69 72 72 6f 72  20 20 3d 20 28 2e 38 2c  |  mirror  = (.8,|
000002a0  20 2e 38 2c 20 2e 38 29  2c 0a 20 20 20 20 20 20  | .8, .8),.      |
000002b0  20 20 20 20 29 0a 20 20  20 20 20 20 20 20 29 0a  |    ).        ).|
000002c0  0a 50 41 54 54 45 52 4e  20 28 20 78 5f 73 69 7a  |.PATTERN ( x_siz|
000002d0  65 20 3d 20 36 30 2c 20  20 20 20 20 20 20 20 20  |e = 60,         |
000002e0  20 20 20 20 20 20 20 20  7b 20 2a 2a 20 43 68 65  |        { ** Che|
000002f0  63 6b 65 72 65 64 20 70  61 74 74 65 72 6e 20 2a  |ckered pattern *|
00000300  2a 20 7d 0a 20 20 20 20  20 20 20 20 20 20 79 5f  |* }.          y_|
00000310  73 69 7a 65 20 3d 20 36  30 2c 0a 20 20 20 20 20  |size = 60,.     |
00000320  20 20 20 20 20 6e 61 6d  65 20 20 20 3d 20 43 48  |     name   = CH|
00000330  45 43 4b 2c 0a 20 20 20  20 20 20 20 20 20 20 52  |ECK,.          R|
00000340  45 43 54 41 4e 47 4c 45  20 28 0a 20 20 20 20 20  |ECTANGLE (.     |
00000350  20 20 20 20 20 20 20 73  74 61 72 74 5f 78 20 3d  |       start_x =|
00000360  20 30 2c 0a 20 20 20 20  20 20 20 20 20 20 20 20  | 0,.            |
00000370  73 74 61 72 74 5f 79 20  3d 20 30 2c 0a 20 20 20  |start_y = 0,.   |
00000380  20 20 20 20 20 20 20 20  20 65 6e 64 5f 78 20 20  |         end_x  |
00000390  20 3d 20 33 30 2c 0a 20  20 20 20 20 20 20 20 20  | = 30,.         |
000003a0  20 20 20 65 6e 64 5f 79  20 20 20 3d 20 33 30 2c  |   end_y   = 30,|
000003b0  0a 20 20 20 20 20 20 20  20 20 20 20 20 64 69 66  |.            dif|
000003c0  66 20 20 20 20 3d 20 28  2e 31 2c 31 2e 30 2c 2e  |f    = (.1,1.0,.|
000003d0  31 29 2c 0a 20 20 20 20  20 20 20 20 20 20 29 0a  |1),.          ).|
000003e0  20 20 20 20 20 20 20 20  20 20 52 45 43 54 41 4e  |          RECTAN|
000003f0  47 4c 45 20 28 0a 20 20  20 20 20 20 20 20 20 20  |GLE (.          |
00000400  20 20 73 74 61 72 74 5f  78 20 3d 20 33 30 2c 0a  |  start_x = 30,.|
00000410  20 20 20 20 20 20 20 20  20 20 20 20 73 74 61 72  |            star|
00000420  74 5f 79 20 3d 20 33 30  2c 0a 20 20 20 20 20 20  |t_y = 30,.      |
00000430  20 20 20 20 20 20 65 6e  64 5f 78 20 20 20 3d 20  |      end_x   = |
00000440  36 30 2c 0a 20 20 20 20  20 20 20 20 20 20 20 20  |60,.            |
00000450  65 6e 64 5f 79 20 20 20  3d 20 36 30 2c 0a 20 20  |end_y   = 60,.  |
00000460  20 20 20 20 20 20 20 20  20 20 64 69 66 66 20 20  |          diff  |
00000470  20 20 3d 20 28 2e 31 2c  31 2e 30 2c 2e 31 29 2c  |  = (.1,1.0,.1),|
00000480  0a 20 20 20 20 20 20 20  20 20 20 29 0a 20 20 20  |.          ).   |
00000490  20 20 20 20 20 29 0a 0a  50 41 54 54 45 52 4e 20  |     )..PATTERN |
000004a0  28 20 78 5f 73 69 7a 65  20 3d 20 34 30 2c 20 20  |( x_size = 40,  |
000004b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 7b  |               {|
000004c0  20 2a 2a 20 43 68 65 63  6b 65 72 65 64 20 70 61  | ** Checkered pa|
000004d0  74 74 65 72 6e 20 2a 2a  20 7d 0a 20 20 20 20 20  |ttern ** }.     |
000004e0  20 20 20 20 20 79 5f 73  69 7a 65 20 3d 20 34 30  |     y_size = 40|
000004f0  2c 0a 20 20 20 20 20 20  20 20 20 20 6e 61 6d 65  |,.          name|
00000500  20 20 20 3d 20 43 48 45  43 4b 5f 42 4c 55 45 2c  |   = CHECK_BLUE,|
00000510  0a 20 20 20 20 20 20 20  20 20 20 52 45 43 54 41  |.          RECTA|
00000520  4e 47 4c 45 20 28 0a 20  20 20 20 20 20 20 20 20  |NGLE (.         |
00000530  20 20 20 73 74 61 72 74  5f 78 20 3d 20 30 2c 0a  |   start_x = 0,.|
00000540  20 20 20 20 20 20 20 20  20 20 20 20 73 74 61 72  |            star|
00000550  74 5f 79 20 3d 20 30 2c  0a 20 20 20 20 20 20 20  |t_y = 0,.       |
00000560  20 20 20 20 20 65 6e 64  5f 78 20 20 20 3d 20 32  |     end_x   = 2|
00000570  30 2c 0a 20 20 20 20 20  20 20 20 20 20 20 20 65  |0,.            e|
00000580  6e 64 5f 79 20 20 20 3d  20 32 30 2c 0a 20 20 20  |nd_y   = 20,.   |
00000590  20 20 20 20 20 20 20 20  20 64 69 66 66 20 20 20  |         diff   |
000005a0  20 3d 20 28 2e 37 2c 2e  32 2c 2e 37 29 0a 20 20  | = (.7,.2,.7).  |
000005b0  20 20 20 20 20 20 20 20  20 20 61 6d 62 20 20 20  |          amb   |
000005c0  20 20 3d 20 28 2e 33 32  2c 20 2e 33 32 2c 20 2e  |  = (.32, .32, .|
000005d0  33 32 29 2c 0a 20 20 20  20 20 20 20 20 20 20 20  |32),.           |
000005e0  20 72 65 66 6c 65 63 74  20 3d 20 2e 35 35 0a 20  | reflect = .55. |
000005f0  20 20 20 20 20 20 20 20  20 20 20 73 72 65 66 6c  |           srefl|
00000600  65 63 74 3d 20 32 30 0a  20 20 20 20 20 20 20 20  |ect= 20.        |
00000610  20 20 29 0a 20 20 20 20  20 20 20 20 20 20 52 45  |  ).          RE|
00000620  43 54 41 4e 47 4c 45 20  28 0a 20 20 20 20 20 20  |CTANGLE (.      |
00000630  20 20 20 20 20 20 73 74  61 72 74 5f 78 20 3d 20  |      start_x = |
00000640  32 30 2c 0a 20 20 20 20  20 20 20 20 20 20 20 20  |20,.            |
00000650  73 74 61 72 74 5f 79 20  3d 20 32 30 2c 0a 20 20  |start_y = 20,.  |
00000660  20 20 20 20 20 20 20 20  20 20 65 6e 64 5f 78 20  |          end_x |
00000670  20 20 3d 20 34 30 2c 0a  20 20 20 20 20 20 20 20  |  = 40,.        |
00000680  20 20 20 20 65 6e 64 5f  79 20 20 20 3d 20 34 30  |    end_y   = 40|
00000690  2c 0a 20 20 20 20 20 20  20 20 20 20 20 20 64 69  |,.            di|
000006a0  66 66 20 20 20 20 3d 20  28 2e 37 2c 2e 35 2c 2e  |ff    = (.7,.5,.|
000006b0  37 29 2c 0a 20 20 20 20  20 20 20 20 20 20 20 20  |7),.            |
000006c0  61 6d 62 20 20 20 20 20  3d 20 28 2e 33 32 2c 20  |amb     = (.32, |
000006d0  2e 33 32 2c 20 2e 33 32  29 2c 0a 20 20 20 20 20  |.32, .32),.     |
000006e0  20 20 20 20 20 20 20 72  65 66 6c 65 63 74 20 3d  |       reflect =|
000006f0  20 2e 35 35 0a 20 20 20  20 20 20 20 20 20 20 20  | .55.           |
00000700  20 73 72 65 66 6c 65 63  74 3d 20 32 30 0a 20 20  | sreflect= 20.  |
00000710  20 20 20 20 20 20 20 20  29 0a 20 20 20 20 20 20  |        ).      |
00000720  20 20 29 0a 50 41 54 54  45 52 4e 20 28 20 78 5f  |  ).PATTERN ( x_|
00000730  73 69 7a 65 20 3d 20 38  30 2c 20 20 20 20 20 20  |size = 80,      |
00000740  20 20 20 20 20 20 20 20  20 20 20 20 20 20 7b 20  |              { |
00000750  2a 2a 20 62 72 69 63 6b  20 70 61 74 74 65 72 6e  |** brick pattern|
00000760  20 2a 2a 20 7d 0a 20 20  20 20 20 20 20 20 20 20  | ** }.          |
00000770  79 5f 73 69 7a 65 20 3d  20 35 30 2c 0a 20 20 20  |y_size = 50,.   |
00000780  20 20 20 20 20 20 20 6e  61 6d 65 20 20 20 3d 20  |       name   = |
00000790  42 52 49 43 4b 2c 0a 20  20 20 20 20 20 20 20 20  |BRICK,.         |
000007a0  20 52 45 43 54 41 4e 47  4c 45 20 28 20 20 20 20  | RECTANGLE (    |
000007b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000007c0  20 7b 20 31 73 74 20 68  61 6c 66 20 62 72 69 63  | { 1st half bric|
000007d0  6b 20 31 20 7d 0a 20 20  20 20 20 20 20 20 20 20  |k 1 }.          |
000007e0  20 20 73 74 61 72 74 5f  78 20 3d 20 30 2c 20 73  |  start_x = 0, s|
000007f0  74 61 72 74 5f 79 20 3d  20 32 2c 0a 20 20 20 20  |tart_y = 2,.    |
00000800  20 20 20 20 20 20 20 20  65 6e 64 5f 78 20 20 20  |        end_x   |
00000810  3d 20 31 38 2c 20 65 6e  64 5f 79 20 20 20 3d 20  |= 18, end_y   = |
00000820  32 33 2c 0a 20 20 20 20  20 20 20 20 20 20 20 20  |23,.            |
00000830  64 69 66 66 20 20 20 20  3d 20 28 31 2e 30 30 2c  |diff    = (1.00,|
00000840  20 2e 32 30 2c 20 2e 32  30 29 3b 0a 20 20 20 20  | .20, .20);.    |
00000850  20 20 20 20 20 20 29 0a  20 20 20 20 20 20 20 20  |      ).        |
00000860  20 20 52 45 43 54 41 4e  47 4c 45 20 28 20 20 20  |  RECTANGLE (   |
00000870  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000880  20 20 7b 20 32 6e 64 20  68 61 6c 64 20 62 72 69  |  { 2nd hald bri|
00000890  63 6b 20 31 20 7d 0a 20  20 20 20 20 20 20 20 20  |ck 1 }.         |
000008a0  20 20 20 73 74 61 72 74  5f 78 20 3d 20 36 32 2c  |   start_x = 62,|
000008b0  20 73 74 61 72 74 5f 79  20 3d 20 32 2c 0a 20 20  | start_y = 2,.  |
000008c0  20 20 20 20 20 20 20 20  20 20 65 6e 64 5f 78 20  |          end_x |
000008d0  20 20 3d 20 38 30 2c 20  65 6e 64 5f 79 20 20 20  |  = 80, end_y   |
000008e0  3d 20 32 33 2c 0a 20 20  20 20 20 20 20 20 20 20  |= 23,.          |
000008f0  20 20 64 69 66 66 20 20  20 20 3d 20 28 31 2e 30  |  diff    = (1.0|
00000900  30 2c 20 2e 32 30 2c 20  2e 32 30 29 3b 0a 20 20  |0, .20, .20);.  |
00000910  20 20 20 20 20 20 20 20  29 0a 20 20 20 20 20 20  |        ).      |
00000920  20 20 20 20 52 45 43 54  41 4e 47 4c 45 20 28 20  |    RECTANGLE ( |
00000930  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000940  20 20 20 20 7b 20 62 72  69 63 6b 20 32 20 7d 0a  |    { brick 2 }.|
00000950  20 20 20 20 20 20 20 20  20 20 20 20 73 74 61 72  |            star|
00000960  74 5f 78 20 3d 20 32 32  2c 20 73 74 61 72 74 5f  |t_x = 22, start_|
00000970  79 20 3d 20 32 2c 0a 20  20 20 20 20 20 20 20 20  |y = 2,.         |
00000980  20 20 20 65 6e 64 5f 78  20 20 20 3d 20 35 38 2c  |   end_x   = 58,|
00000990  20 65 6e 64 5f 79 20 20  20 3d 20 32 33 2c 0a 20  | end_y   = 23,. |
000009a0  20 20 20 20 20 20 20 20  20 20 20 64 69 66 66 20  |           diff |
000009b0  20 20 20 3d 20 28 2e 38  30 2c 20 2e 32 30 2c 20  |   = (.80, .20, |
000009c0  2e 32 30 29 3b 0a 20 20  20 20 20 20 20 20 20 20  |.20);.          |
000009d0  29 0a 20 20 20 20 20 20  20 20 20 20 52 45 43 54  |).          RECT|
000009e0  41 4e 47 4c 45 20 28 20  20 20 20 20 20 20 20 20  |ANGLE (         |
000009f0  20 20 20 20 20 20 20 20  20 20 20 20 7b 20 62 72  |            { br|
00000a00  69 63 6b 20 33 20 7d 0a  20 20 20 20 20 20 20 20  |ick 3 }.        |
00000a10  20 20 20 20 73 74 61 72  74 5f 78 20 3d 20 32 2c  |    start_x = 2,|
00000a20  20 73 74 61 72 74 5f 79  20 3d 20 32 37 2c 0a 20  | start_y = 27,. |
00000a30  20 20 20 20 20 20 20 20  20 20 20 65 6e 64 5f 78  |           end_x|
00000a40  20 20 20 3d 20 33 38 2c  20 65 6e 64 5f 79 20 20  |   = 38, end_y  |
00000a50  20 3d 20 34 38 2c 0a 20  20 20 20 20 20 20 20 20  | = 48,.         |
00000a60  20 20 20 64 69 66 66 20  20 20 20 3d 20 28 2e 38  |   diff    = (.8|
00000a70  35 2c 20 2e 33 35 2c 20  2e 31 30 29 3b 0a 20 20  |5, .35, .10);.  |
00000a80  20 20 20 20 20 20 20 20  29 0a 20 20 20 20 20 20  |        ).      |
00000a90  20 20 20 20 52 45 43 54  41 4e 47 4c 45 20 28 20  |    RECTANGLE ( |
00000aa0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000ab0  20 20 20 20 7b 20 62 72  69 63 6b 20 34 20 7d 0a  |    { brick 4 }.|
00000ac0  20 20 20 20 20 20 20 20  20 20 20 20 73 74 61 72  |            star|
00000ad0  74 5f 78 20 3d 20 34 32  2c 20 73 74 61 72 74 5f  |t_x = 42, start_|
00000ae0  79 20 3d 20 32 37 2c 0a  20 20 20 20 20 20 20 20  |y = 27,.        |
00000af0  20 20 20 20 65 6e 64 5f  78 20 20 20 3d 20 37 38  |    end_x   = 78|
00000b00  2c 20 65 6e 64 5f 79 20  20 20 3d 20 34 38 2c 0a  |, end_y   = 48,.|
00000b10  20 20 20 20 20 20 20 20  20 20 20 20 64 69 66 66  |            diff|
00000b20  20 20 20 20 3d 20 28 2e  37 30 2c 20 2e 32 35 2c  |    = (.70, .25,|
00000b30  20 2e 32 30 29 3b 0a 20  20 20 20 20 20 20 20 20  | .20);.         |
00000b40  20 29 0a 20 20 20 20 20  20 20 20 29 0a 0a 7b 20  | ).        )..{ |
00000b50  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000b60  2a 2a 2a 2a 2a 20 20 4f  42 4a 45 43 54 53 20 20  |*****  OBJECTS  |
00000b70  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000b80  2a 2a 2a 2a 2a 20 7d 0a  0a 7b 20 2a 2a 20 67 72  |***** }..{ ** gr|
00000b90  6f 75 6e 64 20 2a 2a 20  7d 0a 0a 50 41 52 41 4c  |ound ** }..PARAL|
00000ba0  4c 45 4c 4f 47 52 41 4d  20 28 20 6c 6f 63 20 20  |LELOGRAM ( loc  |
00000bb0  3d 20 28 20 20 2d 31 30  30 30 30 2c 20 30 2c 20  |= (  -10000, 0, |
00000bc0  20 2d 31 30 30 30 30 29  2c 0a 20 20 20 20 20 20  | -10000),.      |
00000bd0  20 20 20 20 20 20 20 20  20 20 76 31 20 20 20 3d  |          v1   =|
00000be0  20 28 32 30 30 30 30 2c  20 30 2c 20 20 20 20 30  | (20000, 0,    0|
00000bf0  29 2c 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |),.             |
00000c00  20 20 20 76 32 20 20 20  3d 20 28 20 20 30 2c 20  |   v2   = (  0, |
00000c10  30 2c 20 32 30 30 30 30  29 2c 0a 0a 20 20 20 20  |0, 20000),..    |
00000c20  20 20 20 20 20 20 20 20  20 20 20 20 64 69 66 66  |            diff|
00000c30  20 3d 20 28 20 20 2e 38  2c 20 2e 38 2c 20 30 29  | = (  .8, .8, 0)|
00000c40  2c 0a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |,.              |
00000c50  20 20 70 61 74 74 65 72  6e 20 3d 20 43 48 45 43  |  pattern = CHEC|
00000c60  4b 0a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |K.              |
00000c70  20 20 78 6d 75 6c 74 20  3d 20 32 0a 20 20 20 20  |  xmult = 2.    |
00000c80  20 20 20 20 20 20 20 20  20 20 20 20 79 6d 75 6c  |            ymul|
00000c90  74 20 3d 20 32 0a 20 20  20 20 20 20 20 20 20 20  |t = 2.          |
00000ca0  20 20 20 20 29 0a 0a 0a  42 45 47 49 4e 5f 42 42  |    )...BEGIN_BB|
00000cb0  4f 58 0a 0a 20 20 20 20  42 45 47 49 4e 5f 42 42  |OX..    BEGIN_BB|
00000cc0  4f 58 0a 0a 20 20 20 20  20 20 20 20 53 50 48 45  |OX..        SPHE|
00000cd0  52 45 20 28 20 6c 6f 63  20 3d 20 28 32 30 30 2c  |RE ( loc = (200,|
00000ce0  20 35 30 2c 20 2d 38 30  29 2c 0a 20 20 20 20 20  | 50, -80),.     |
00000cf0  20 20 20 20 20 20 20 20  20 20 20 20 72 61 64 69  |            radi|
00000d00  75 73 20 3d 20 33 35 2c  0a 20 20 20 20 20 20 20  |us = 35,.       |
00000d10  20 20 20 20 20 20 20 20  20 20 64 69 66 66 20 3d  |          diff =|
00000d20  20 28 2e 37 2c 20 2e 33  2c 20 2e 35 29 2c 0a 0a  | (.7, .3, .5),..|
00000d30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000d40  20 70 61 74 74 65 72 6e  20 3d 20 4d 49 52 52 4f  | pattern = MIRRO|
00000d50  52 5f 53 54 52 49 50 45  2c 0a 20 20 20 20 20 20  |R_STRIPE,.      |
00000d60  20 20 20 20 20 20 20 20  20 20 20 78 6d 75 6c 74  |           xmult|
00000d70  20 20 20 3d 20 31 2e 35  2c 0a 20 20 20 20 20 20  |   = 1.5,.      |
00000d80  20 20 20 20 20 20 20 20  20 20 20 79 6d 75 6c 74  |           ymult|
00000d90  20 20 20 3d 20 31 2e 35  0a 20 20 20 20 20 20 20  |   = 1.5.       |
00000da0  20 20 20 20 20 20 20 20  29 0a 0a 20 20 20 20 20  |        )..     |
00000db0  20 20 20 51 55 41 44 52  41 54 49 43 20 28 20 6c  |   QUADRATIC ( l|
00000dc0  6f 63 20 3d 20 28 32 30  30 2c 20 30 2c 20 2d 38  |oc = (200, 0, -8|
00000dd0  30 29 2c 0a 0a 20 20 20  20 20 20 20 20 20 20 20  |0),..           |
00000de0  20 20 20 20 20 20 20 20  20 61 20 20 20 20 3d 20  |         a    = |
00000df0  31 2c 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |1,.             |
00000e00  20 20 20 20 20 20 20 62  20 20 20 20 3d 20 30 2c  |       b    = 0,|
00000e10  0a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000e20  20 20 20 20 20 63 20 20  20 20 3d 20 31 2c 0a 20  |     c    = 1,. |
00000e30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000e40  20 20 20 64 20 20 20 20  3d 20 31 35 30 2c 0a 20  |   d    = 150,. |
00000e50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000e60  20 20 20 78 6d 69 6e 20  3d 20 2d 31 33 2c 0a 20  |   xmin = -13,. |
00000e70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000e80  20 20 20 78 6d 61 78 20  3d 20 31 33 2c 0a 20 20  |   xmax = 13,.  |
00000e90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000ea0  20 20 79 6d 69 6e 20 3d  20 30 2c 0a 20 20 20 20  |  ymin = 0,.    |
00000eb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000ec0  79 6d 61 78 20 3d 20 35  30 2c 0a 20 20 20 20 20  |ymax = 50,.     |
00000ed0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 7a  |               z|
00000ee0  6d 69 6e 20 3d 20 2d 31  33 2c 0a 20 20 20 20 20  |min = -13,.     |
00000ef0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 7a  |               z|
00000f00  6d 61 78 20 3d 20 31 33  2c 0a 0a 20 20 20 20 20  |max = 13,..     |
00000f10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 64  |               d|
00000f20  69 66 66 20 3d 20 28 2e  31 2c 20 2e 31 2c 20 2e  |iff = (.1, .1, .|
00000f30  31 29 2c 0a 20 20 20 20  20 20 20 20 20 20 20 20  |1),.            |
00000f40  20 20 20 20 20 20 20 20  6d 69 72 72 6f 72 20 3d  |        mirror =|
00000f50  20 28 2e 38 2c 20 2e 38  2c 20 2e 38 29 0a 20 20  | (.8, .8, .8).  |
00000f60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000f70  29 0a 0a 20 20 20 20 45  4e 44 5f 42 42 4f 58 0a  |)..    END_BBOX.|
00000f80  0a 0a 20 20 20 20 42 45  47 49 4e 5f 42 42 4f 58  |..    BEGIN_BBOX|
00000f90  0a 0a 20 20 20 20 20 20  20 20 53 50 48 45 52 45  |..        SPHERE|
00000fa0  20 28 20 6c 6f 63 20 20  20 20 20 20 3d 20 28 32  | ( loc      = (2|
00000fb0  30 30 2c 20 39 30 2c 20  38 30 29 2c 0a 20 20 20  |00, 90, 80),.   |
00000fc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 72 61  |              ra|
00000fd0  64 69 75 73 20 20 20 3d  20 33 35 2c 0a 20 20 20  |dius   = 35,.   |
00000fe0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 64 69  |              di|
00000ff0  66 66 20 20 20 20 20 3d  20 28 2e 33 2c 20 2e 33  |ff     = (.3, .3|
00001000  2c 20 2e 38 29 2c 0a 20  20 20 20 20 20 20 20 20  |, .8),.         |
00001010  20 20 20 20 20 20 20 20  61 6d 62 20 20 20 20 20  |        amb     |
00001020  20 3d 20 28 2e 33 32 2c  20 2e 33 32 2c 20 2e 33  | = (.32, .32, .3|
00001030  32 29 2c 0a 20 20 20 20  20 20 20 20 20 20 20 20  |2),.            |
00001040  20 20 20 20 20 72 65 66  6c 65 63 74 20 20 3d 20  |     reflect  = |
00001050  2e 34 30 0a 20 20 20 20  20 20 20 20 20 20 20 20  |.40.            |
00001060  20 20 20 20 20 73 72 65  66 6c 65 63 74 20 3d 20  |     sreflect = |
00001070  32 30 0a 0a 20 20 20 20  20 20 20 20 20 20 20 20  |20..            |
00001080  20 20 20 20 20 70 61 74  74 65 72 6e 20 3d 20 43  |     pattern = C|
00001090  48 45 43 4b 5f 42 4c 55  45 2c 0a 20 20 20 20 20  |HECK_BLUE,.     |
000010a0  20 20 20 20 20 20 20 20  20 20 20 20 78 6d 75 6c  |            xmul|
000010b0  74 20 20 20 3d 20 31 2e  30 2c 0a 20 20 20 20 20  |t   = 1.0,.     |
000010c0  20 20 20 20 20 20 20 20  20 20 20 20 79 6d 75 6c  |            ymul|
000010d0  74 20 20 20 3d 20 31 2e  30 0a 20 20 20 20 20 20  |t   = 1.0.      |
000010e0  20 20 20 20 20 20 20 20  20 29 0a 0a 20 20 20 20  |         )..    |
000010f0  20 20 20 20 51 55 41 44  52 41 54 49 43 20 28 20  |    QUADRATIC ( |
00001100  6c 6f 63 20 3d 20 28 32  30 30 2c 20 30 2c 20 38  |loc = (200, 0, 8|
00001110  30 29 2c 0a 0a 20 20 20  20 20 20 20 20 20 20 20  |0),..           |
00001120  20 20 20 20 20 20 20 20  20 61 20 20 20 20 3d 20  |         a    = |
00001130  31 2c 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |1,.             |
00001140  20 20 20 20 20 20 20 62  20 20 20 20 3d 20 30 2c  |       b    = 0,|
00001150  0a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00001160  20 20 20 20 20 63 20 20  20 20 3d 20 31 2c 0a 20  |     c    = 1,. |
00001170  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001180  20 20 20 64 20 20 20 20  3d 20 31 35 30 2c 0a 20  |   d    = 150,. |
00001190  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000011a0  20 20 20 78 6d 69 6e 20  3d 20 2d 31 33 2c 0a 20  |   xmin = -13,. |
000011b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000011c0  20 20 20 78 6d 61 78 20  3d 20 31 33 2c 0a 20 20  |   xmax = 13,.  |
000011d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000011e0  20 20 79 6d 69 6e 20 3d  20 30 2c 0a 20 20 20 20  |  ymin = 0,.    |
000011f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001200  79 6d 61 78 20 3d 20 39  30 2c 0a 20 20 20 20 20  |ymax = 90,.     |
00001210  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 7a  |               z|
00001220  6d 69 6e 20 3d 20 2d 31  33 2c 0a 20 20 20 20 20  |min = -13,.     |
00001230  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 7a  |               z|
00001240  6d 61 78 20 3d 20 31 33  2c 0a 0a 20 20 20 20 20  |max = 13,..     |
00001250  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 64  |               d|
00001260  69 66 66 20 3d 20 28 2e  31 2c 20 2e 31 2c 20 2e  |iff = (.1, .1, .|
00001270  31 29 2c 0a 20 20 20 20  20 20 20 20 20 20 20 20  |1),.            |
00001280  20 20 20 20 20 20 20 20  6d 69 72 72 6f 72 20 3d  |        mirror =|
00001290  20 28 2e 38 2c 20 2e 38  2c 20 2e 38 29 0a 20 20  | (.8, .8, .8).  |
000012a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000012b0  29 0a 0a 20 20 20 20 45  4e 44 5f 42 42 4f 58 0a  |)..    END_BBOX.|
000012c0  0a 45 4e 44 5f 42 42 4f  58 0a 0a 0a 42 45 47 49  |.END_BBOX...BEGI|
000012d0  4e 5f 42 42 4f 58 0a 0a  20 20 20 20 7b 20 2a 2a  |N_BBOX..    { **|
000012e0  20 61 20 73 6d 61 6c 6c  20 62 72 69 63 6b 20 77  | a small brick w|
000012f0  61 6c 6c 20 2a 2a 20 7d  0a 0a 20 20 20 20 50 41  |all ** }..    PA|
00001300  52 41 4c 4c 45 4c 4f 47  52 41 4d 20 28 20 6c 6f  |RALLELOGRAM ( lo|
00001310  63 20 3d 20 28 31 35 30  2c 20 30 30 2c 20 2d 31  |c = (150, 00, -1|
00001320  35 29 2c 0a 20 20 20 20  20 20 20 20 20 20 20 20  |5),.            |
00001330  20 20 20 20 20 20 20 20  76 31 20 20 3d 20 28 30  |        v1  = (0|
00001340  2c 20 30 2c 20 33 30 29  2c 0a 20 20 20 20 20 20  |, 0, 30),.      |
00001350  20 20 20 20 20 20 20 20  20 20 20 20 20 20 76 32  |              v2|
00001360  20 20 3d 20 28 30 2c 20  31 30 30 2c 20 30 29 0a  |  = (0, 100, 0).|
00001370  0a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00001380  20 20 20 20 20 64 69 66  66 20 3d 20 28 31 2c 20  |     diff = (1, |
00001390  31 2c 20 31 29 2c 0a 20  20 20 20 20 20 20 20 20  |1, 1),.         |
000013a0  20 20 20 20 20 20 20 20  20 20 20 70 61 74 74 65  |           patte|
000013b0  72 6e 20 3d 20 42 52 49  43 4b 0a 0a 20 20 20 20  |rn = BRICK..    |
000013c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000013d0  78 6d 75 6c 74 20 3d 20  2e 35 2c 0a 20 20 20 20  |xmult = .5,.    |
000013e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000013f0  79 6d 75 6c 74 20 3d 20  2e 35 0a 20 20 20 20 20  |ymult = .5.     |
00001400  20 20 20 20 20 20 20 20  20 20 20 20 20 29 0a 0a  |             )..|
00001410  20 20 20 20 50 41 52 41  4c 4c 45 4c 4f 47 52 41  |    PARALLELOGRA|
00001420  4d 20 28 20 6c 6f 63 20  3d 20 28 31 35 30 2c 20  |M ( loc = (150, |
00001430  30 30 2c 20 2d 31 35 29  2c 0a 20 20 20 20 20 20  |00, -15),.      |
00001440  20 20 20 20 20 20 20 20  20 20 20 20 20 20 76 31  |              v1|
00001450  20 20 3d 20 28 31 30 30  2c 20 30 2c 20 30 29 2c  |  = (100, 0, 0),|
00001460  0a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00001470  20 20 20 20 20 76 32 20  20 3d 20 28 30 2c 20 31  |     v2  = (0, 1|
00001480  30 30 2c 20 30 29 0a 0a  20 20 20 20 20 20 20 20  |00, 0)..        |
00001490  20 20 20 20 20 20 20 20  20 20 20 20 64 69 66 66  |            diff|
000014a0  20 3d 20 28 31 2c 20 31  2c 20 31 29 2c 0a 20 20  | = (1, 1, 1),.  |
000014b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000014c0  20 20 70 61 74 74 65 72  6e 20 3d 20 42 52 49 43  |  pattern = BRIC|
000014d0  4b 0a 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |K..             |
000014e0  20 20 20 20 20 20 20 78  6d 75 6c 74 20 3d 20 2e  |       xmult = .|
000014f0  35 2c 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |5,.             |
00001500  20 20 20 20 20 20 20 79  6d 75 6c 74 20 3d 20 2e  |       ymult = .|
00001510  35 0a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |5.              |
00001520  20 20 20 20 29 0a 0a 20  20 20 20 50 41 52 41 4c  |    )..    PARAL|
00001530  4c 45 4c 4f 47 52 41 4d  20 28 20 6c 6f 63 20 3d  |LELOGRAM ( loc =|
00001540  20 28 31 35 30 2c 20 30  30 2c 20 31 35 29 2c 0a  | (150, 00, 15),.|
00001550  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001560  20 20 20 20 76 31 20 20  3d 20 28 31 30 30 2c 20  |    v1  = (100, |
00001570  30 2c 20 30 29 2c 0a 20  20 20 20 20 20 20 20 20  |0, 0),.         |
00001580  20 20 20 20 20 20 20 20  20 20 20 76 32 20 20 3d  |           v2  =|
00001590  20 28 30 2c 20 31 30 30  2c 20 30 29 0a 0a 20 20  | (0, 100, 0)..  |
000015a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000015b0  20 20 64 69 66 66 20 3d  20 28 31 2c 20 31 2c 20  |  diff = (1, 1, |
000015c0  31 29 2c 0a 20 20 20 20  20 20 20 20 20 20 20 20  |1),.            |
000015d0  20 20 20 20 20 20 20 20  70 61 74 74 65 72 6e 20  |        pattern |
000015e0  3d 20 42 52 49 43 4b 0a  0a 20 20 20 20 20 20 20  |= BRICK..       |
000015f0  20 20 20 20 20 20 20 20  20 20 20 20 20 78 6d 75  |             xmu|
00001600  6c 74 20 3d 20 2e 35 2c  0a 20 20 20 20 20 20 20  |lt = .5,.       |
00001610  20 20 20 20 20 20 20 20  20 20 20 20 20 79 6d 75  |             ymu|
00001620  6c 74 20 3d 20 2e 35 0a  20 20 20 20 20 20 20 20  |lt = .5.        |
00001630  20 20 20 20 20 20 20 20  20 20 29 0a 0a 45 4e 44  |          )..END|
00001640  5f 42 42 4f 58 0a 0a 0a  7b 20 2a 2a 20 41 6e 20  |_BBOX...{ ** An |
00001650  6f 62 73 65 72 76 65 72  20 2a 2a 20 7d 0a 0a 4f  |observer ** }..O|
00001660  42 53 45 52 56 45 52 20  28 20 6c 6f 63 20 20 20  |BSERVER ( loc   |
00001670  20 3d 20 28 2d 32 30 20  2c 20 37 30 2c 20 2d 34  | = (-20 , 70, -4|
00001680  30 29 2c 0a 20 20 20 20  20 20 20 20 20 20 20 6c  |0),.           l|
00001690  6f 6f 6b 61 74 20 3d 20  28 32 30 30 2c 20 35 30  |ookat = (200, 50|
000016a0  2c 20 30 29 0a 20 20 20  20 20 20 20 20 20 29 0a  |, 0).         ).|
000016b0  0a 7b 20 2a 2a 20 41 20  6c 61 6d 70 20 2a 2a 20  |.{ ** A lamp ** |
000016c0  7d 0a 0a 4c 41 4d 50 20  28 20 6c 6f 63 20 3d 20  |}..LAMP ( loc = |
000016d0  28 31 32 30 2c 20 31 32  30 2c 20 2d 35 30 29 2c  |(120, 120, -50),|
000016e0  0a 20 20 20 20 20 20 20  72 61 64 69 75 73 20 3d  |.       radius =|
000016f0  20 35 2c 0a 20 20 20 20  20 20 20 64 69 73 74 20  | 5,.       dist |
00001700  3d 20 38 30 0a 20 20 20  20 20 29 0a 0a 4c 41 4d  |= 80.     )..LAM|
00001710  50 20 28 20 6c 6f 63 20  3d 20 28 31 32 30 2c 20  |P ( loc = (120, |
00001720  31 35 30 2c 20 38 30 29  2c 0a 20 20 20 20 20 20  |150, 80),.      |
00001730  20 72 61 64 69 75 73 20  3d 20 35 2c 0a 20 20 20  | radius = 5,.   |
00001740  20 20 20 20 64 69 73 74  20 3d 20 37 30 0a 20 20  |    dist = 70.  |
00001750  20 20 20 29 0a 0a 53 4b  59 20 20 28 20 68 6f 72  |   )..SKY  ( hor|
00001760  69 7a 20 20 3d 20 28 2e  32 2c 20 2e 32 2c 20 2e  |iz  = (.2, .2, .|
00001770  35 35 29 2c 0a 20 20 20  20 20 20 20 7a 65 6e 69  |55),.       zeni|
00001780  74 68 20 3d 20 28 2e 31  2c 20 2e 31 2c 20 2e 32  |th = (.1, .1, .2|
00001790  35 29 2c 0a 20 20 20 20  20 20 20 64 69 74 68 65  |5),.       dithe|
000017a0  72 20 3d 20 34 0a 20 20  20 20 20 29 0a 0a 46 4f  |r = 4.     )..FO|
000017b0  43 5f 4c 45 4e 47 54 48  20 3d 20 35 30 0a 0a 0a  |C_LENGTH = 50...|
000017c0  0a                                                |.|
000017c1