Metropoli BBS
VIEWER: die&card.dsk MODE: BINARY (HEX)
==============================================================================================================================================
OFFSET    00 01 02 03 04 05 06 07  08 09 0A 0B 0C 0D 0E 0F  10 11 12 13 14 15 16 17  18 19 1A 1B 1C 1D 1E 1F
----------------------------------------------------------------------------------------------------------------------------------------------
00000000  54 75 72 62 6F 20 43 20  43 6F 6E 74 65 78 74 20  46 69 6C 65 20 1A 00 01  0D 12 17 01 1A 00 00 09  Turbo C Context File ...
00000020  64 00 16 01 08 00 00 00  EC 00 C1 00 94 00 6A 00  3F 00 12 00 12 00 44 49  45 26 43 41 52 44 2E 43  d......ö.j.?...DIE&CARD.C
00000040  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  ................
00000060  00 00 00 47 52 41 50 48  42 2E 43 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  ...GRAPHB.C...........
00000080  01 00 01 00 01 00 01 00  01 00 01 00 00 00 4D 41  54 48 42 2E 43 00 01 00  01 00 01 00 01 00 01 00  ........MATHB.C......
000000A0  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 00 00  44 49 45 26 43 41 52 44  .............DIE&CARD
000000C0  2E 43 00 01 00 01 00 01  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  .C...............
000000E0  00 01 00 00 00 47 52 41  50 48 42 2E 43 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  ....GRAPHB.C..........
00000100  01 00 01 00 01 00 01 00  01 00 01 00 01 00 00 00  4D 41 54 48 42 2E 43 00  01 00 01 00 01 00 01 00  .........MATHB.C.....
00000120  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  00 00 65 00 E6 00 0E 00  ..............e.µ..
00000140  1C 00 C4 00 00 00 14 00  2B 00 42 00 59 00 5D 00  6D 00 7E 00 91 00 9E 00  B0 00 B7 00 BC 00 C0 00  .....+.B.Y.].m.~.æ......
00000160  5C 42 4C 53 43 5C 4D 4F  44 45 4C 5C 53 48 50 4D  4B 2E 48 00 5C 42 4C 53  43 5C 4D 4F 44 45 4C 5C  \BLSC\MODEL\SHPMK.H.\BLSC\MODEL\
00000180  4D 41 4B 45 4F 42 4A 53  2E 43 00 5C 42 4C 53 43  5C 4D 4F 44 45 4C 5C 43  4F 4E 45 50 59 52 4D 2E  MAKEOBJS.C.\BLSC\MODEL\CONEPYRM.
000001A0  43 00 5C 42 4C 53 43 5C  4D 4F 44 45 4C 5C 43 59  4C 49 4E 44 45 52 2E 43  00 2A 2E 2A 00 5C 42 4C  C.\BLSC\MODEL\CYLINDER.C.*.*.\BL
000001C0  53 43 5C 4D 4F 44 45 4C  5C 2A 2E 43 00 5C 57 4F  52 4B 5C 47 52 41 50 48  33 2E 49 4E 43 00 5C 42  SC\MODEL\*.C.\WORK\GRAPH3.INC.\B
000001E0  4C 53 43 5C 53 43 4E 53  43 52 50 54 5C 2A 2E 43  00 5C 57 4F 52 4B 5C 47  2A 2E 49 4E 43 00 43 3A  LSC\SCNSCRPT\*.C.\WORK\G*.INC.C:
00000200  5C 54 45 4D 50 5C 54 4D  50 5C 2A 2E 44 4F 43 00  43 3A 2A 2E 4D 45 00 2A  2E 52 54 00 2A 2E 48 00  \TEMP\TMP\*.DOC.C:*.ME.*.RT.*.H.
00000220  2A 2E 43 00 78 00 8C 00  0E 00 1C 00 6A 00 00 00  0A 00 11 00 1B 00 22 00  2A 00 3A 00 3F 00 44 00  *.C.x.î...j......".*.:.?.D.
00000240  4B 00 55 00 58 00 5F 00  66 00 72 61 6E 64 6F 6D  69 7A 65 00 72 61 6E 64  6F 6D 00 52 61 6E 64 6F  K.U.X._.f.randomize.random.Rando
00000260  6D 69 7A 65 00 52 61 6E  64 6F 6D 00 69 6E 74 65  67 65 72 00 50 61 6C 65  74 74 65 52 65 67 69 73  mize.Random.integer.PaletteRegis
00000280  74 65 72 00 42 52 53 43  00 69 74 27 73 00 49 6E  74 65 6E 73 00 50 69 4F  76 65 72 31 38 30 00 33  ter.BRSC.it's.Intens.PiOver180.3
000002A0  32 00 76 65 63 73 75 62  00 76 65 63 61 64 64 00  76 65 63 00 79 00 95 00  0F 00 1E 00 71 00 00 00  2.vecsub.vecadd.vec.y.ò...q...
000002C0  05 00 0A 00 14 00 26 00  2D 00 34 00 38 00 49 00  4D 00 52 00 5E 00 5F 00  66 00 6D 00 42 79 74 65  ...&.-.4.8.I.M.R.^._.f.m.Byte
000002E0  00 57 6F 72 64 00 50 61  6C 5F 41 72 72 61 79 00  43 61 72 74 65 73 69 61  6E 5F 50 6C 6F 74 5F 33  .Word.Pal_Array.Cartesian_Plot_3
00000300  44 00 52 61 6E 64 6F 6D  00 72 61 6E 64 6F 6D 00  69 6E 74 00 50 61 6C 65  74 74 65 5F 52 65 67 69  D.Random.random.int.Palette_Regi
00000320  73 74 65 72 00 69 74 73  00 43 6F 6C 72 00 50 69  5F 4F 76 65 72 5F 31 38  30 00 00 56 65 63 53 75  ster.its.Colr.Pi_Over_180..VecSu
00000340  62 00 56 65 63 41 64 64  00 56 65 63 00 7A 00 14  00 02 00 04 00 0A 00 00  00 06 00 2A 2E 4F 42 4A  b.VecAdd.Vec.z........*.OBJ
00000360  00 2A 2E 43 00 F4 01 F1  04 1E 00 00 19 00 00 0F  05 40 15 0F 05 40 15 04  00 20 20 07 00 00 00 00  .*.C.±....@§@§.  ....
00000380  00 00 00 00 00 2E 00 12  00 00 19 00 00 00 11 4F  17 00 11 4F 17 02 00 30  0D 34 00 01 19 00 01 00  ............O.O.04...
000003A0  01 4F 17 00 01 4F 10 00  00 00 00 01 00 9D 02 01  00 89 02 00 00 00 00 00  00 00 00 00 00 00 00 00  O.O.....¥.ë.............
000003C0  00 00 00 01 00 99 02 01  00 9D 02 00 00 4B 00 00  19 00 01 00 01 4F 17 00  01 4F 10 00 00 00 00 43  ....Ö.¥..K....O.O....C
000003E0  3A 5C 42 4C 53 43 5C 52  54 53 43 52 50 54 5C 44  45 53 4B 2E 43 00 01 00  0B 00 01 00 01 00 01 00  :\BLSC\RTSCRPT\DESK.C......
00000400  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  0B 00 01 00 0B 00 00 00  12 00 00 19 00 00 00 11  ..................
00000420  4F 17 00 11 4F 17 08 00  10 00 4F 00 00 19 00 01  00 01 4F 17 00 01 4F 10  00 00 00 00 43 3A 5C 42  O.O..O....O.O....C:\B
00000440  4C 53 43 5C 52 54 53 43  52 50 54 5C 44 49 45 26  43 41 52 44 2E 43 00 01  00 01 00 01 00 01 00 01  LSC\RTSCRPT\DIE&CARD.C.....
00000460  00 01 00 01 00 C8 00 01  00 01 00 01 00 01 00 01  00 0C 00 01 00 0C 00 00  00 4A 00 00 19 00 00 00  ..............J.....
00000480  01 4F 10 00 01 4F 10 00  00 00 00 43 3A 5C 42 4C  53 43 5C 52 54 53 43 52  50 54 5C 44 4E 41 2E 43  O.O....C:\BLSC\RTSCRPT\DNA.C
000004A0  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  ................
000004C0  00 00 00 4D 00 00 19 00  00 00 01 4F 10 00 01 4F  10 00 00 00 00 43 3A 5C  42 4C 53 43 5C 52 54 53  ...M.....O.O....C:\BLSC\RTS
000004E0  43 52 50 54 5C 45 4E 47  49 4E 45 2E 43 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  CRPT\ENGINE.C..........
00000500  01 00 01 00 01 00 01 00  01 00 01 00 01 00 00 00  4E 00 00 19 00 00 00 01  4F 10 00 01 4F 10 00 00  .........N.....O.O..
00000520  00 00 43 3A 5C 42 4C 53  43 5C 52 54 53 43 52 50  54 5C 46 4C 59 4F 56 45  52 2E 43 00 01 00 01 00  ..C:\BLSC\RTSCRPT\FLYOVER.C...
00000540  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 00 00 4A 00  ................J.
00000560  00 19 00 00 00 01 4F 10  00 01 4F 10 00 00 00 00  43 3A 5C 42 4C 53 43 5C  52 54 53 43 52 50 54 5C  ....O.O....C:\BLSC\RTSCRPT\
00000580  4D 26 54 2E 43 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  M&T.C..............
000005A0  01 00 01 00 01 00 00 00  4C 00 00 19 00 00 00 01  4F 10 00 01 4F 10 00 00  00 00 43 3A 5C 42 4C 53  .....L.....O.O....C:\BLS
000005C0  43 5C 52 54 53 43 52 50  54 5C 4D 4F 55 4E 54 2E  43 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  C\RTSCRPT\MOUNT.C........
000005E0  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 00 00 4F 00 00 19  00 00 00 01 4F 10 00 01  ...........O.....O.
00000600  4F 10 00 00 00 00 43 3A  5C 42 4C 53 43 5C 52 54  53 43 52 50 54 5C 4E 45  57 54 43 52 41 44 2E 43  O....C:\BLSC\RTSCRPT\NEWTCRAD.C
00000620  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  ................
00000640  00 00 00 4C 00 00 19 00  00 00 01 4F 10 00 01 4F  10 00 00 00 00 43 3A 5C  42 4C 53 43 5C 52 54 53  ...L.....O.O....C:\BLSC\RTS
00000660  43 52 50 54 5C 4F 52 42  49 54 2E 43 00 01 00 01  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  CRPT\ORBIT.C..........
00000680  00 01 00 01 00 01 00 01  00 01 00 01 00 00 00 4C  00 00 19 00 00 00 01 4F  10 00 01 4F 10 00 00 00  .........L.....O.O...
000006A0  00 43 3A 5C 42 4C 53 43  5C 52 54 53 43 52 50 54  5C 50 49 41 4E 4F 2E 43  00 01 00 01 00 01 00 01  .C:\BLSC\RTSCRPT\PIANO.C....
000006C0  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  00 00 00 4F 00 00 19 00  ...............O...
000006E0  00 00 01 4F 10 00 01 4F  10 00 00 00 00 43 3A 5C  42 4C 53 43 5C 52 54 53  43 52 50 54 5C 50 4F 4F  ..O.O....C:\BLSC\RTSCRPT\POO
00000700  4C 54 41 42 4C 2E 43 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  LTABL.C.............
00000720  01 00 01 00 01 00 01 00  00 00 4C 00 00 19 00 00  00 01 4F 10 00 01 4F 10  00 00 00 00 43 3A 5C 42  ......L.....O.O....C:\B
00000740  4C 53 43 5C 52 54 53 43  52 50 54 5C 52 4F 42 4F  54 2E 43 00 01 00 01 00  01 00 01 00 01 00 01 00  LSC\RTSCRPT\ROBOT.C.......
00000760  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 00 00 4C 00  00 19 00 00 00 01 4F 10  ............L.....O
00000780  00 01 4F 10 00 00 00 00  43 3A 5C 42 4C 53 43 5C  52 54 53 43 52 50 54 5C  53 50 49 4E 32 2E 43 00  .O....C:\BLSC\RTSCRPT\SPIN2.C.
000007A0  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  ................
000007C0  00 00 4C 00 00 19 00 00  00 01 4F 10 00 01 4F 10  00 00 00 00 43 3A 5C 42  4C 53 43 5C 52 54 53 43  ..L.....O.O....C:\BLSC\RTSC
000007E0  52 50 54 5C 54 45 54 52  41 2E 43 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  RPT\TETRA.C...........
00000800  01 00 01 00 01 00 01 00  01 00 01 00 00 00 4C 00  00 19 00 00 00 01 4F 10  00 01 4F 10 00 00 00 00  ........L.....O.O....
00000820  43 3A 5C 42 4C 53 43 5C  52 54 53 43 52 50 54 5C  54 45 54 52 41 2E 43 00  01 00 01 00 01 00 01 00  C:\BLSC\RTSCRPT\TETRA.C.....
00000840  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  00 00 F6 01 9D 3F 4D 41  ..............÷¥?MA
00000860  54 45 52 49 41 4C 0D 0A  20 20 20 54 59 50 45 20  20 20 20 3D 20 4D 49 52  52 4F 52 0D 0A 20 20 20  TERIAL   TYPE    = MIRROR   
00000880  54 45 58 54 55 52 45 20  3D 20 53 4D 4F 4F 54 48  0D 0A 20 20 20 41 4D 42  52 46 4C 20 20 3D 20 20  TEXTURE = SMOOTH   AMBRFL  =  
000008A0  20 20 30 2E 30 30 30 20  20 20 20 30 2E 30 30 30  20 20 20 20 30 2E 30 30  30 0D 0A 20 20 20 44 49    0.000    0.000    0.000   DI
000008C0  46 52 46 4C 20 20 3D 20  20 20 20 30 2E 37 30 30  20 20 20 20 30 2E 37 30  30 20 20 20 20 30 2E 37  FRFL  =    0.700    0.700    0.7
000008E0  30 30 0D 0A 20 20 20 53  50 43 52 46 4C 20 20 3D  20 20 20 20 30 2E 33 30  30 20 20 20 20 30 2E 33  00   SPCRFL  =    0.300    0.3
00000900  30 30 20 20 20 20 30 2E  33 30 30 0D 0A 20 20 20  47 4C 4F 53 53 20 20 20  3D 20 20 20 35 30 2E 30  00    0.300   GLOSS   =   50.0
00000920  30 30 0D 0A 0D 0A 4D 41  54 45 52 49 41 4C 0D 0A  20 20 20 54 59 50 45 20  20 20 20 3D 20 52 45 44  00MATERIAL   TYPE    = RED
00000940  4D 49 52 52 4F 52 0D 0A  20 20 20 54 45 58 54 55  52 45 20 3D 20 53 4D 4F  4F 54 48 0D 0A 20 20 20  MIRROR   TEXTURE = SMOOTH   
00000960  41 4D 42 52 46 4C 20 20  3D 20 20 20 20 30 2E 30  30 30 20 20 20 20 30 2E  30 30 30 20 20 20 20 30  AMBRFL  =    0.000    0.000    0
00000980  2E 30 30 30 0D 0A 20 20  20 44 49 46 52 46 4C 20  20 3D 20 20 20 20 30 2E  37 30 30 20 20 20 20 30  .000   DIFRFL  =    0.700    0
000009A0  2E 30 30 30 20 20 20 20  30 2E 30 30 30 0D 0A 20  20 20 53 50 43 52 46 4C  20 20 3D 20 20 20 20 30  .000    0.000   SPCRFL  =    0
000009C0  2E 33 30 30 20 20 20 20  30 2E 30 30 30 20 20 20  20 30 2E 30 30 30 0D 0A  20 20 20 47 4C 4F 53 53  .300    0.000    0.000   GLOSS
000009E0  20 20 20 3D 20 20 20 35  30 2E 30 30 30 0D 0A 0D  0A 4D 41 54 45 52 49 41  4C 0D 0A 20 20 20 54 59     =   50.000MATERIAL   TY
00000A00  50 45 20 20 20 20 3D 20  47 52 45 45 4E 4D 49 52  52 4F 52 0D 0A 20 20 20  54 45 58 54 55 52 45 20  PE    = GREENMIRROR   TEXTURE 
00000A20  3D 20 53 4D 4F 4F 54 48  0D 0A 20 20 20 41 4D 42  52 46 4C 20 20 3D 20 20  20 20 30 2E 30 30 30 20  = SMOOTH   AMBRFL  =    0.000 
00000A40  20 20 20 30 2E 30 30 30  20 20 20 20 30 2E 30 30  30 0D 0A 20 20 20 44 49  46 52 46 4C 20 20 3D 20     0.000    0.000   DIFRFL  = 
00000A60  20 20 20 30 2E 30 30 30  20 20 20 20 30 2E 37 30  30 20 20 20 20 30 2E 30  30 30 0D 0A 20 20 20 53     0.000    0.700    0.000   S
00000A80  50 43 52 46 4C 20 20 3D  20 20 20 20 30 2E 30 30  30 20 20 20 20 30 2E 33  30 30 20 20 20 20 30 2E  PCRFL  =    0.000    0.300    0.
00000AA0  30 30 30 0D 0A 20 20 20  47 4C 4F 53 53 20 20 20  3D 20 20 20 35 30 2E 30  30 30 0D 0A 0D 0A 4D 41  000   GLOSS   =   50.000MA
00000AC0  54 45 52 49 41 4C 0D 0A  20 20 20 54 59 50 45 20  20 20 20 3D 20 42 4C 55  45 4D 49 52 52 4F 52 0D  TERIAL   TYPE    = BLUEMIRROR
00000AE0  0A 20 20 20 54 45 58 54  55 52 45 20 3D 20 53 4D  4F 4F 54 48 0D 0A 20 20  20 41 4D 42 52 46 4C 20     TEXTURE = SMOOTH   AMBRFL 
00000B00  20 3D 20 20 20 20 30 2E  30 30 30 20 20 20 20 30  2E 30 30 30 20 20 20 20  30 2E 30 30 30 0D 0A 20   =    0.000    0.000    0.000 
00000B20  20 20 44 49 46 52 46 4C  20 20 3D 20 20 20 20 30  2E 30 30 30 20 20 20 20  30 2E 30 30 30 20 20 20    DIFRFL  =    0.000    0.000   
00000B40  20 30 2E 37 30 30 0D 0A  20 20 20 53 50 43 52 46  4C 20 20 3D 20 20 20 20  30 2E 30 30 30 20 20 20   0.700   SPCRFL  =    0.000   
00000B60  20 30 2E 30 30 30 20 20  20 20 30 2E 33 30 30 0D  0A 20 20 20 47 4C 4F 53  53 20 20 20 3D 20 20 20   0.000    0.300   GLOSS   =   
00000B80  35 30 2E 30 30 30 0D 0A  4D 41 54 45 52 49 41 4C  0D 0A 20 20 20 54 59 50  45 20 20 20 20 3D 20 43  50.000MATERIAL   TYPE    = C
00000BA0  48 52 4F 4D 45 0D 0A 20  20 20 54 45 58 54 55 52  45 20 3D 20 53 4D 4F 4F  54 48 0D 0A 20 20 20 41  HROME   TEXTURE = SMOOTH   A
00000BC0  4D 42 52 46 4C 20 20 3D  20 20 20 20 30 2E 31 30  30 20 20 20 20 30 2E 31  30 30 20 20 20 20 30 2E  MBRFL  =    0.100    0.100    0.
00000BE0  31 30 30 0D 0A 20 20 20  44 49 46 52 46 4C 20 20  3D 20 20 20 20 30 2E 31  30 30 20 20 20 20 30 2E  100   DIFRFL  =    0.100    0.
00000C00  31 30 30 20 20 20 20 30  2E 31 30 30 0D 0A 20 20  20 53 50 43 52 46 4C 20  20 3D 20 20 20 20 30 2E  100    0.100   SPCRFL  =    0.
00000C20  38 30 30 20 20 20 20 30  2E 38 30 30 20 20 20 20  30 2E 38 30 30 0D 0A 20  20 20 47 4C 4F 53 53 20  800    0.800    0.800   GLOSS 
00000C40  20 20 3D 20 20 20 34 30  2E 30 30 30 0D 0A 0D 0A  0D 0A 4D 41 54 45 52 49  41 4C 0D 0A 20 20 20 54    =   40.000MATERIAL   T
00000C60  59 50 45 20 20 20 20 3D  20 42 52 41 53 53 0D 0A  20 20 20 54 45 58 54 55  52 45 20 3D 20 53 4D 4F  YPE    = BRASS   TEXTURE = SMO
00000C80  4F 54 48 0D 0A 20 20 20  41 4D 42 52 46 4C 20 20  3D 20 20 20 20 30 2E 31  30 30 20 20 20 20 30 2E  OTH   AMBRFL  =    0.100    0.
00000CA0  31 30 30 20 20 20 20 30  2E 31 30 30 0D 0A 20 20  20 44 49 46 52 46 4C 20  20 3D 20 20 20 20 30 2E  100    0.100   DIFRFL  =    0.
00000CC0  33 30 30 20 20 20 20 30  2E 33 30 30 20 20 20 20  30 2E 33 30 30 0D 0A 20  20 20 53 50 43 52 46 4C  300    0.300    0.300   SPCRFL
00000CE0  20 20 3D 20 20 20 20 30  2E 36 30 30 20 20 20 20  30 2E 35 30 30 20 20 20  20 30 2E 32 35 30 0D 0A    =    0.600    0.500    0.250
00000D00  20 20 20 47 4C 4F 53 53  20 20 20 3D 20 20 20 33  30 2E 30 30 30 0D 0A 4D  41 54 45 52 49 41 4C 0D     GLOSS   =   30.000MATERIAL
00000D20  0A 20 20 20 54 59 50 45  20 20 20 20 3D 20 57 41  54 45 52 0D 0A 20 20 20  54 45 58 54 55 52 45 20     TYPE    = WATER   TEXTURE 
00000D40  3D 20 47 52 49 54 0D 0A  20 20 20 41 4D 42 52 46  4C 20 20 3D 20 20 20 20  30 2E 31 30 30 20 20 20  = GRIT   AMBRFL  =    0.100   
00000D60  20 30 2E 31 30 30 20 20  20 20 30 2E 33 30 30 0D  0A 20 20 20 44 49 46 52  46 4C 20 20 3D 20 20 20   0.100    0.300   DIFRFL  =   
00000D80  20 30 2E 31 30 30 20 20  20 20 30 2E 33 30 30 20  20 20 20 30 2E 33 30 30  0D 0A 20 20 20 53 50 43   0.100    0.300    0.300   SPC
00000DA0  52 46 4C 20 20 3D 20 20  20 20 30 2E 31 30 30 20  20 20 20 30 2E 31 30 30  20 20 20 20 30 2E 34 30  RFL  =    0.100    0.100    0.40
00000DC0  30 0D 0A 20 20 20 47 4C  4F 53 53 20 20 20 3D 20  20 20 20 33 2E 30 30 30  0D 0A 4D 41 54 45 52 49  0   GLOSS   =    3.000MATERI
00000DE0  41 4C 0D 0A 20 20 20 54  59 50 45 20 20 20 20 3D  20 50 4C 41 53 54 49 43  54 49 4C 45 0D 0A 20 20  AL   TYPE    = PLASTICTILE  
00000E00  20 54 45 58 54 55 52 45  20 3D 20 43 48 45 43 4B  45 52 0D 0A 20 20 20 41  4D 42 52 46 4C 20 20 3D   TEXTURE = CHECKER   AMBRFL  =
00000E20  20 20 20 20 30 2E 31 30  30 20 20 20 20 30 2E 31  30 30 20 20 20 20 30 2E  31 30 30 0D 0A 20 20 20      0.100    0.100    0.100   
00000E40  44 49 46 52 46 4C 20 20  3D 20 20 20 20 30 2E 37  30 30 20 20 20 20 30 2E  37 30 30 20 20 20 20 30  DIFRFL  =    0.700    0.700    0
00000E60  2E 37 30 30 0D 0A 20 20  20 53 50 43 52 46 4C 20  20 3D 20 20 20 20 30 2E  32 30 30 20 20 20 20 30  .700   SPCRFL  =    0.200    0
00000E80  2E 32 30 30 20 20 20 20  30 2E 32 30 30 0D 0A 20  20 20 47 4C 4F 53 53 20  20 20 3D 20 20 20 20 34  .200    0.200   GLOSS   =    4
00000EA0  2E 30 30 30 0D 0A 0D 0A  43 48 45 43 4B 0D 0A 20  20 20 54 49 4C 45 31 20  20 20 3D 20 20 20 20 31  .000CHECK   TILE1   =    1
00000EC0  2E 30 30 30 20 20 20 20  30 2E 30 30 30 20 20 20  20 30 2E 30 30 30 0D 0A  20 20 20 54 49 4C 45 32  .000    0.000    0.000   TILE2
00000EE0  20 20 20 3D 20 20 20 20  30 2E 32 30 30 20 20 20  20 30 2E 32 30 30 20 20  20 20 30 2E 32 30 30 0D     =    0.200    0.200    0.200
00000F00  0A 20 20 20 54 49 4C 45  20 20 20 20 3D 20 20 20  20 30 2E 30 32 0D 0A 4D  41 54 45 52 49 41 4C 0D     TILE    =    0.02MATERIAL
00000F20  0A 20 20 20 54 59 50 45  20 20 20 20 3D 20 49 54  41 4C 49 41 4E 4D 41 52  42 4C 45 0D 0A 20 20 20     TYPE    = ITALIANMARBLE   
00000F40  54 45 58 54 55 52 45 20  3D 20 57 4F 4F 44 0D 0A  20 20 20 41 4D 42 52 46  4C 20 20 3D 20 20 20 20  TEXTURE = WOOD   AMBRFL  =    
00000F60  30 2E 31 30 30 20 20 20  20 30 2E 31 30 30 20 20  20 20 30 2E 31 30 30 0D  0A 20 20 20 44 49 46 52  0.100    0.100    0.100   DIFR
00000F80  46 4C 20 20 3D 20 20 20  20 30 2E 37 30 30 20 20  20 20 30 2E 37 30 30 20  20 20 20 30 2E 37 30 30  FL  =    0.700    0.700    0.700
00000FA0  0D 0A 20 20 20 53 50 43  52 46 4C 20 20 3D 20 20  20 20 30 2E 32 30 30 20  20 20 20 30 2E 32 30 30     SPCRFL  =    0.200    0.200
00000FC0  20 20 20 20 30 2E 32 30  30 0D 0A 20 20 20 47 4C  4F 53 53 20 20 20 3D 20  20 20 31 30 2E 30 30 30      0.200   GLOSS   =   10.000
00000FE0  0D 0A 4D 41 54 45 52 49  41 4C 0D 0A 20 20 20 54  59 50 45 20 20 20 20 3D  20 4F 41 4B 57 4F 4F 44  MATERIAL   TYPE    = OAKWOOD
00001000  0D 0A 20 20 20 54 45 58  54 55 52 45 20 3D 20 57  4F 4F 44 0D 0A 20 20 20  41 4D 42 52 46 4C 20 20     TEXTURE = WOOD   AMBRFL  
00001020  3D 20 20 20 20 30 2E 32  30 30 20 20 20 20 30 2E  32 30 30 20 20 20 20 30  2E 32 30 30 0D 0A 20 20  =    0.200    0.200    0.200  
00001040  20 44 49 46 52 46 4C 20  20 3D 20 20 20 20 30 2E  37 30 30 20 20 20 20 30  2E 34 30 30 20 20 20 20   DIFRFL  =    0.700    0.400    
00001060  30 2E 33 30 30 0D 0A 20  20 20 53 50 43 52 46 4C  20 20 3D 20 20 20 20 30  2E 31 30 30 20 20 20 20  0.300   SPCRFL  =    0.100    
00001080  30 2E 31 30 30 20 20 20  20 30 2E 31 30 30 0D 0A  20 20 20 47 4C 4F 53 53  20 20 20 3D 20 20 20 20  0.100    0.100   GLOSS   =    
000010A0  35 2E 30 30 30 0D 0A 4D  41 54 45 52 49 41 4C 0D  0A 20 20 20 54 59 50 45  20 20 20 20 3D 20 47 52  5.000MATERIAL   TYPE    = GR
000010C0  41 53 53 0D 0A 20 20 20  54 45 58 54 55 52 45 20  3D 20 47 52 49 54 0D 0A  20 20 20 41 4D 42 52 46  ASS   TEXTURE = GRIT   AMBRF
000010E0  4C 20 20 3D 20 20 20 20  30 2E 32 30 30 20 20 20  20 30 2E 32 30 30 20 20  20 20 30 2E 32 30 30 0D  L  =    0.200    0.200    0.200
00001100  0A 20 20 20 44 49 46 52  46 4C 20 20 3D 20 20 20  20 30 2E 36 30 30 20 20  20 20 30 2E 38 30 30 20     DIFRFL  =    0.600    0.800 
00001120  20 20 20 30 2E 32 35 30  0D 0A 20 20 20 53 50 43  52 46 4C 20 20 3D 20 20  20 20 30 2E 30 30 30 20     0.250   SPCRFL  =    0.000 
00001140  20 20 20 30 2E 30 30 30  20 20 20 20 30 2E 30 30  30 0D 0A 20 20 20 47 4C  4F 53 53 20 20 20 3D 20     0.000    0.000   GLOSS   = 
00001160  20 20 20 30 2E 30 30 30  0D 0A 0D 0A 0D 0A 4D 41  54 45 52 49 41 4C 0D 0A  20 20 20 54 59 50 45 20     0.000MATERIAL   TYPE 
00001180  20 20 20 3D 20 43 45 4D  45 4E 54 0D 0A 20 20 20  54 45 58 54 55 52 45 20  3D 20 47 52 49 54 0D 0A     = CEMENT   TEXTURE = GRIT
000011A0  20 20 20 41 4D 42 52 46  4C 20 20 3D 20 20 20 20  30 2E 32 30 30 20 20 20  20 30 2E 32 30 30 20 20     AMBRFL  =    0.200    0.200  
000011C0  20 20 30 2E 32 30 30 0D  0A 20 20 20 44 49 46 52  46 4C 20 20 3D 20 20 20  20 30 2E 38 30 30 20 20    0.200   DIFRFL  =    0.800  
000011E0  20 20 30 2E 38 30 30 20  20 20 20 30 2E 38 30 30  0D 0A 20 20 20 53 50 43  52 46 4C 20 20 3D 20 20    0.800    0.800   SPCRFL  =  
00001200  20 20 30 2E 30 30 30 20  20 20 20 30 2E 30 30 30  20 20 20 20 30 2E 30 30  30 0D 0A 20 20 20 47 4C    0.000    0.000    0.000   GL
00001220  4F 53 53 20 20 20 3D 20  20 20 20 30 2E 30 30 30  0D 0A 4D 41 54 45 52 49  41 4C 0D 0A 20 20 20 54  OSS   =    0.000MATERIAL   T
00001240  59 50 45 20 20 20 20 3D  20 42 4C 41 43 4B 43 48  52 4F 4D 45 0D 0A 20 20  20 54 45 58 54 55 52 45  YPE    = BLACKCHROME   TEXTURE
00001260  20 3D 20 53 4D 4F 4F 54  48 0D 0A 20 20 20 41 4D  42 52 46 4C 20 20 3D 20  20 20 20 31 2E 30 30 30   = SMOOTH   AMBRFL  =    1.000
00001280  20 20 20 20 31 2E 30 30  30 20 20 20 20 31 2E 30  30 30 0D 0A 20 20 20 44  49 46 52 46 4C 20 20 3D      1.000    1.000   DIFRFL  =
000012A0  20 20 20 20 30 2E 30 30  30 20 20 20 20 30 2E 30  30 30 20 20 20 20 30 2E  30 30 30 0D 0A 20 20 20      0.000    0.000    0.000   
000012C0  53 50 43 52 46 4C 20 20  3D 20 20 20 20 30 2E 30  30 30 20 20 20 20 30 2E  30 30 30 20 20 20 20 30  SPCRFL  =    0.000    0.000    0
000012E0  2E 30 30 30 0D 0A 20 20  20 47 4C 4F 53 53 20 20  20 3D 20 20 20 34 30 2E  30 30 30 0D 0A 50 59 52  .000   GLOSS   =   40.000PYR
00001300  41 4D 49 44 0D 0A 20 20  20 4C 4F 43 20 20 20 20  20 3D 20 2D 32 30 30 2E  30 30 30 20 39 39 39 39  AMID   LOC     = -200.000 9999
00001320  2E 30 30 30 20 20 20 20  30 2E 30 30 30 0D 0A 20  20 20 56 31 20 20 20 20  20 20 3D 20 20 34 30 30  .000    0.000   V1      =  400
00001340  2E 30 30 30 20 20 20 20  30 2E 30 30 30 20 20 20  20 30 2E 30 30 30 0D 0A  20 20 20 56 32 20 20 20  .000    0.000    0.000   V2   
00001360  20 20 20 3D 20 20 20 20  30 2E 30 30 30 20 20 34  30 30 2E 30 30 30 20 20  20 20 30 2E 30 30 30 0D     =    0.000  400.000    0.000
00001380  0A 20 20 20 48 45 49 47  48 54 20 20 3D 20 31 32  30 30 2E 30 30 30 0D 0A  20 20 20 4D 41 54 4C 20     HEIGHT  = 1200.000   MATL 
000013A0  20 20 20 3D 20 42 4C 41  43 4B 43 48 52 4F 4D 45  0D 0A 4C 41 4D 50 0D 0A  20 20 20 4C 4F 43 20 20     = BLACKCHROMELAMP   LOC  
000013C0  20 20 20 3D 20 31 30 30  30 2E 30 30 30 20 2D 39  39 39 2E 30 30 30 20 31  30 30 30 2E 30 30 30 0D     = 1000.000 -999.000 1000.000
000013E0  0A 20 20 20 52 41 44 49  55 53 20 20 3D 20 20 37  30 30 2E 30 30 30 0D 0A  20 20 20 49 4E 54 45 4E     RADIUS  =  700.000   INTEN
00001400  53 20 20 3D 20 20 20 20  31 2E 30 30 30 20 20 20  20 31 2E 30 30 30 20 20  20 20 30 2E 39 30 30 0D  S  =    1.000    1.000    0.900
00001420  0A 09 09 61 71 75 61 6D  61 72 69 6E 65 20 20 20  20 20 20 20 20 20 20 20  30 2E 34 33 39 32 31 36  aquamarine           0.439216
00001440  20 30 2E 38 35 38 38 32  34 20 30 2E 35 37 36 34  37 31 0D 0A 09 09 62 6C  61 63 6B 20 20 20 20 20   0.858824 0.576471black     
00001460  20 20 20 20 20 20 20 20  20 20 20 30 2E 30 30 30  30 30 30 20 30 2E 30 30  30 30 30 30 20 30 2E 30             0.000000 0.000000 0.0
00001480  30 30 30 30 30 0D 0A 09  09 62 6C 75 65 20 20 20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 30 2E  00000blue                 0.
000014A0  30 30 30 30 30 30 20 30  2E 30 30 30 30 30 30 20  31 2E 30 30 30 30 30 30  0D 0A 09 09 62 6C 75 65  000000 0.000000 1.000000blue
000014C0  5F 76 69 6F 6C 65 74 20  20 20 20 20 20 20 20 20  20 30 2E 36 32 33 35 32  39 20 30 2E 33 37 32 35  _violet          0.623529 0.3725
000014E0  34 39 20 30 2E 36 32 33  35 32 39 0D 0A 09 09 62  72 6F 77 6E 20 20 20 20  20 20 20 20 20 20 20 20  49 0.623529brown            
00001500  20 20 20 20 30 2E 36 34  37 30 35 39 20 30 2E 31  36 34 37 30 36 20 30 2E  31 36 34 37 30 36 0D 0A      0.647059 0.164706 0.164706
00001520  09 09 63 61 64 65 74 5F  62 6C 75 65 20 20 20 20  20 20 20 20 20 20 20 30  2E 33 37 32 35 34 39 20  cadet_blue           0.372549 
00001540  30 2E 36 32 33 35 32 39  20 30 2E 36 32 33 35 32  39 0D 0A 09 09 63 6F 72  61 6C 20 20 20 20 20 20  0.623529 0.623529coral      
00001560  20 20 20 20 20 20 20 20  20 20 31 2E 30 30 30 30  30 30 20 30 2E 34 39 38  30 33 39 20 30 2E 30 30            1.000000 0.498039 0.00
00001580  30 30 30 30 0D 0A 09 09  63 6F 72 6E 66 6C 6F 77  65 72 5F 62 6C 75 65 20  20 20 20 20 20 30 2E 32  0000cornflower_blue      0.2
000015A0  35 38 38 32 34 20 30 2E  32 35 38 38 32 34 20 30  2E 34 33 35 32 39 34 0D  0A 09 09 63 79 61 6E 20  58824 0.258824 0.435294cyan 
000015C0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  30 2E 30 30 30 30 30 30  20 31 2E 30 30 30 30 30                  0.000000 1.00000
000015E0  30 20 31 2E 30 30 30 30  30 30 0D 0A 09 09 64 61  72 6B 5F 67 72 65 65 6E  20 20 20 20 20 20 20 20  0 1.000000dark_green        
00001600  20 20 20 30 2E 31 38 34  33 31 34 20 30 2E 33 30  39 38 30 34 20 30 2E 31  38 34 33 31 34 0D 0A 09     0.184314 0.309804 0.184314
00001620  09 64 61 72 6B 5F 6F 6C  69 76 65 5F 67 72 65 65  6E 20 20 20 20 20 30 2E  33 30 39 38 30 34 20 30  dark_olive_green     0.309804 0
00001640  2E 33 30 39 38 30 34 20  30 2E 31 38 34 33 31 34  0D 0A 09 09 64 61 72 6B  5F 6F 72 63 68 69 64 20  .309804 0.184314dark_orchid 
00001660  20 20 20 20 20 20 20 20  20 30 2E 36 30 30 30 30  30 20 30 2E 31 39 36 30  37 38 20 30 2E 38 30 30           0.600000 0.196078 0.800
00001680  30 30 30 0D 0A 09 09 64  61 72 6B 5F 73 6C 61 74  65 5F 62 6C 75 65 20 20  20 20 20 20 30 2E 34 31  000dark_slate_blue      0.41
000016A0  39 36 30 38 20 30 2E 31  33 37 32 35 35 20 30 2E  35 35 36 38 36 33 0D 0A  09 09 64 61 72 6B 5F 73  9608 0.137255 0.556863dark_s
000016C0  6C 61 74 65 5F 67 72 61  79 20 20 20 20 20 20 30  2E 31 38 34 33 31 34 20  30 2E 33 30 39 38 30 34  late_gray      0.184314 0.309804
000016E0  20 30 2E 33 30 39 38 30  34 0D 0A 09 09 64 61 72  6B 5F 73 6C 61 74 65 5F  67 72 65 79 20 20 20 20   0.309804dark_slate_grey    
00001700  20 20 30 2E 31 38 34 33  31 34 20 30 2E 33 30 39  38 30 34 20 30 2E 33 30  39 38 30 34 0D 0A 09 09    0.184314 0.309804 0.309804
00001720  64 61 72 6B 5F 74 75 72  71 75 6F 69 73 65 20 20  20 20 20 20 20 30 2E 34  33 39 32 31 36 20 30 2E  dark_turquoise       0.439216 0.
00001740  35 37 36 34 37 31 20 30  2E 38 35 38 38 32 34 0D  0A 09 09 64 69 6D 5F 67  72 61 79 20 20 20 20 20  576471 0.858824dim_gray     
00001760  20 20 20 20 20 20 20 20  30 2E 33 32 39 34 31 32  20 30 2E 33 32 39 34 31  32 20 30 2E 33 32 39 34          0.329412 0.329412 0.3294
00001780  31 32 0D 0A 09 09 64 69  6D 5F 67 72 65 79 20 20  20 20 20 20 20 20 20 20  20 20 20 30 2E 33 32 39  12dim_grey             0.329
000017A0  34 31 32 20 30 2E 33 32  39 34 31 32 20 30 2E 33  32 39 34 31 32 0D 0A 09  09 66 69 72 65 62 72 69  412 0.329412 0.329412firebri
000017C0  63 6B 20 20 20 20 20 20  20 20 20 20 20 20 30 2E  35 35 36 38 36 33 20 30  2E 31 33 37 32 35 35 20  ck            0.556863 0.137255 
000017E0  30 2E 31 33 37 32 35 35  0D 0A 09 09 66 6F 72 65  73 74 5F 67 72 65 65 6E  20 20 20 20 20 20 20 20  0.137255forest_green        
00001800  20 30 2E 31 33 37 32 35  35 20 30 2E 35 35 36 38  36 33 20 30 2E 31 33 37  32 35 35 0D 0A 09 09 67   0.137255 0.556863 0.137255g
00001820  6F 6C 64 20 20 20 20 20  20 20 20 20 20 20 20 20  20 20 20 20 30 2E 38 30  30 30 30 30 20 30 2E 34  old                 0.800000 0.4
00001840  39 38 30 33 39 20 30 2E  31 39 36 30 37 38 0D 0A  09 09 67 6F 6C 64 65 6E  72 6F 64 20 20 20 20 20  98039 0.196078goldenrod     
00001860  20 20 20 20 20 20 20 30  2E 38 35 38 38 32 34 20  30 2E 38 35 38 38 32 34  20 30 2E 34 33 39 32 31         0.858824 0.858824 0.43921
00001880  36 0D 0A 09 09 67 72 61  79 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  20 20 30 2E 37 35 32 39  6gray                 0.7529
000018A0  34 31 20 30 2E 37 35 32  39 34 31 20 30 2E 37 35  32 39 34 31 0D 0A 09 09  67 72 65 65 6E 20 20 20  41 0.752941 0.752941green   
000018C0  20 20 20 20 20 20 20 20  20 20 20 20 20 30 2E 30  30 30 30 30 30 20 31 2E  30 30 30 30 30 30 20 30               0.000000 1.000000 0
000018E0  2E 30 30 30 30 30 30 0D  0A 09 09 67 72 65 65 6E  5F 79 65 6C 6C 6F 77 20  20 20 20 20 20 20 20 20  .000000green_yellow         
00001900  30 2E 35 37 36 34 37 31  20 30 2E 38 35 38 38 32  34 20 30 2E 34 33 39 32  31 36 0D 0A 09 09 67 72  0.576471 0.858824 0.439216gr
00001920  65 79 20 20 20 20 20 20  20 20 20 20 20 20 20 20  20 20 20 30 2E 37 35 32  39 34 31 20 30 2E 37 35  ey                 0.752941 0.75
00001940  32 39 34 31 20 30 2E 37  35 32 39 34 31 0D 0A 09  09 69 6E 64 69 61 6E 5F  72 65 64 20 20 20 20 20  2941 0.752941indian_red     
00001960  20 20 20 20 20 20 30 2E  33 30 39 38 30 34 20 30  2E 31 38 34 33 31 34 20  30 2E 31 38 34 33 31 34        0.309804 0.184314 0.184314
00001980  0D 0A 09 09 6B 68 61 6B  69 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  20 30 2E 36 32 33 35 32  khaki                0.62352
000019A0  39 20 30 2E 36 32 33 35  32 39 20 30 2E 33 37 32  35 34 39 0D 0A 09 09 6C  69 67 68 74 5F 62 6C 75  9 0.623529 0.372549light_blu
000019C0  65 20 20 20 20 20 20 20  20 20 20 20 30 2E 37 34  39 30 32 30 20 30 2E 38  34 37 30 35 39 20 30 2E  e           0.749020 0.847059 0.
000019E0  38 34 37 30 35 39 0D 0A  09 09 6C 69 67 68 74 5F  67 72 61 79 20 20 20 20  20 20 20 20 20 20 20 30  847059light_gray           0
00001A00  2E 36 35 38 38 32 34 20  30 2E 36 35 38 38 32 34  20 30 2E 36 35 38 38 32  34 0D 0A 09 09 6C 69 67  .658824 0.658824 0.658824lig
00001A20  68 74 5F 67 72 65 79 20  20 20 20 20 20 20 20 20  20 20 30 2E 36 35 38 38  32 34 20 30 2E 36 35 38  ht_grey           0.658824 0.658
00001A40  38 32 34 20 30 2E 36 35  38 38 32 34 0D 0A 09 09  6C 69 67 68 74 5F 73 74  65 65 6C 5F 62 6C 75 65  824 0.658824light_steel_blue
00001A60  20 20 20 20 20 30 2E 35  36 30 37 38 34 20 30 2E  35 36 30 37 38 34 20 30  2E 37 33 37 32 35 35 0D       0.560784 0.560784 0.737255
00001A80  0A 09 09 6C 69 6D 65 5F  67 72 65 65 6E 20 20 20  20 20 20 20 20 20 20 20  30 2E 31 39 36 30 37 38  lime_green           0.196078
00001AA0  20 30 2E 38 30 30 30 30  30 20 30 2E 31 39 36 30  37 38 0D 0A 09 09 6D 61  67 65 6E 74 61 20 20 20   0.800000 0.196078magenta   
00001AC0  20 20 20 20 20 20 20 20  20 20 20 31 2E 30 30 30  30 30 30 20 30 2E 30 30  30 30 30 30 20 31 2E 30             1.000000 0.000000 1.0
00001AE0  30 30 30 30 30 0D 0A 09  09 6D 61 72 6F 6F 6E 20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 30 2E  00000maroon               0.
00001B00  35 35 36 38 36 33 20 30  2E 31 33 37 32 35 35 20  30 2E 34 31 39 36 30 38  0D 0A 09 09 6D 65 64 69  556863 0.137255 0.419608medi
00001B20  75 6D 5F 61 71 75 61 6D  61 72 69 6E 65 20 20 20  20 30 2E 31 39 36 30 37  38 20 30 2E 38 30 30 30  um_aquamarine    0.196078 0.8000
00001B40  30 30 20 30 2E 36 30 30  30 30 30 0D 0A 09 09 6D  65 64 69 75 6D 5F 62 6C  75 65 20 20 20 20 20 20  00 0.600000medium_blue      
00001B60  20 20 20 20 30 2E 31 39  36 30 37 38 20 30 2E 31  39 36 30 37 38 20 30 2E  38 30 30 30 30 30 0D 0A      0.196078 0.196078 0.800000
00001B80  09 09 6D 65 64 69 75 6D  5F 66 6F 72 65 73 74 5F  67 72 65 65 6E 20 20 30  2E 34 31 39 36 30 38 20  medium_forest_green  0.419608 
00001BA0  30 2E 35 35 36 38 36 33  20 30 2E 31 33 37 32 35  35 0D 0A 09 09 6D 65 64  69 75 6D 5F 67 6F 6C 64  0.556863 0.137255medium_gold
00001BC0  65 6E 72 6F 64 20 20 20  20 20 30 2E 39 31 37 36  34 37 20 30 2E 39 31 37  36 34 37 20 30 2E 36 37  enrod     0.917647 0.917647 0.67
00001BE0  38 34 33 31 0D 0A 09 09  6D 65 64 69 75 6D 5F 6F  72 63 68 69 64 20 20 20  20 20 20 20 20 30 2E 35  8431medium_orchid        0.5
00001C00  37 36 34 37 31 20 30 2E  34 33 39 32 31 36 20 30  2E 38 35 38 38 32 34 0D  0A 09 09 6D 65 64 69 75  76471 0.439216 0.858824mediu
00001C20  6D 5F 73 65 61 5F 67 72  65 65 6E 20 20 20 20 20  30 2E 32 35 38 38 32 34  20 30 2E 34 33 35 32 39  m_sea_green     0.258824 0.43529
00001C40  34 20 30 2E 32 35 38 38  32 34 0D 0A 09 09 6D 65  64 69 75 6D 5F 73 6C 61  74 65 5F 62 6C 75 65 20  4 0.258824medium_slate_blue 
00001C60  20 20 20 30 2E 34 39 38  30 33 39 20 30 2E 30 30  30 30 30 30 20 31 2E 30  30 30 30 30 30 0D 0A 09     0.498039 0.000000 1.000000
00001C80  09 6D 65 64 69 75 6D 5F  73 70 72 69 6E 67 5F 67  72 65 65 6E 20 20 30 2E  34 39 38 30 33 39 20 31  medium_spring_green  0.498039 1
00001CA0  2E 30 30 30 30 30 30 20  30 2E 30 30 30 30 30 30  0D 0A 09 09 6D 65 64 69  75 6D 5F 74 75 72 71 75  .000000 0.000000medium_turqu
00001CC0  6F 69 73 65 20 20 20 20  20 30 2E 34 33 39 32 31  36 20 30 2E 38 35 38 38  32 34 20 30 2E 38 35 38  oise     0.439216 0.858824 0.858
00001CE0  38 32 34 0D 0A 09 09 6D  65 64 69 75 6D 5F 76 69  6F 6C 65 74 5F 72 65 64  20 20 20 20 30 2E 38 35  824medium_violet_red    0.85
00001D00  38 38 32 34 20 30 2E 34  33 39 32 31 36 20 30 2E  35 37 36 34 37 31 0D 0A  09 09 6D 69 64 6E 69 67  8824 0.439216 0.576471midnig
00001D20  68 74 5F 62 6C 75 65 20  20 20 20 20 20 20 20 30  2E 31 38 34 33 31 34 20  30 2E 31 38 34 33 31 34  ht_blue        0.184314 0.184314
00001D40  20 30 2E 33 30 39 38 30  34 0D 0A 09 09 6E 61 76  79 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20   0.309804navy               
00001D60  20 20 30 2E 31 33 37 32  35 35 20 30 2E 31 33 37  32 35 35 20 30 2E 35 35  36 38 36 33 0D 0A 09 09    0.137255 0.137255 0.556863
00001D80  6E 61 76 79 5F 62 6C 75  65 20 20 20 20 20 20 20  20 20 20 20 20 30 2E 31  33 37 32 35 35 20 30 2E  navy_blue            0.137255 0.
00001DA0  31 33 37 32 35 35 20 30  2E 35 35 36 38 36 33 0D  0A 09 09 6F 72 61 6E 67  65 20 20 20 20 20 20 20  137255 0.556863orange       
00001DC0  20 20 20 20 20 20 20 20  30 2E 38 30 30 30 30 30  20 30 2E 31 39 36 30 37  38 20 30 2E 31 39 36 30          0.800000 0.196078 0.1960
00001DE0  37 38 0D 0A 09 09 6F 72  61 6E 67 65 5F 72 65 64  20 20 20 20 20 20 20 20  20 20 20 31 2E 30 30 30  78orange_red           1.000
00001E00  30 30 30 20 30 2E 30 30  30 30 30 30 20 30 2E 34  39 38 30 33 39 0D 0A 09  09 6F 72 63 68 69 64 20  000 0.000000 0.498039orchid 
00001E20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 30 2E  38 35 38 38 32 34 20 30  2E 34 33 39 32 31 36 20                0.858824 0.439216 
00001E40  30 2E 38 35 38 38 32 34  0D 0A 09 09 70 61 6C 65  5F 67 72 65 65 6E 20 20  20 20 20 20 20 20 20 20  0.858824pale_green          
00001E60  20 30 2E 35 36 30 37 38  34 20 30 2E 37 33 37 32  35 35 20 30 2E 35 36 30  37 38 34 0D 0A 09 09 70   0.560784 0.737255 0.560784p
00001E80  69 6E 6B 20 20 20 20 20  20 20 20 20 20 20 20 20  20 20 20 20 30 2E 37 33  37 32 35 35 20 30 2E 35  ink                 0.737255 0.5
00001EA0  36 30 37 38 34 20 30 2E  35 36 30 37 38 34 0D 0A  09 09 70 6C 75 6D 20 20  20 20 20 20 20 20 20 20  60784 0.560784plum          
00001EC0  20 20 20 20 20 20 20 30  2E 39 31 37 36 34 37 20  30 2E 36 37 38 34 33 31  20 30 2E 39 31 37 36 34         0.917647 0.678431 0.91764
00001EE0  37 0D 0A 09 09 72 65 64  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  20 20 31 2E 30 30 30 30  7red                  1.0000
00001F00  30 30 20 30 2E 30 30 30  30 30 30 20 30 2E 30 30  30 30 30 30 0D 0A 09 09  73 61 6C 6D 6F 6E 20 20  00 0.000000 0.000000salmon  
00001F20  20 20 20 20 20 20 20 20  20 20 20 20 20 30 2E 34  33 35 32 39 34 20 30 2E  32 35 38 38 32 34 20 30               0.435294 0.258824 0
00001F40  2E 32 35 38 38 32 34 0D  0A 09 09 73 65 61 5F 67  72 65 65 6E 20 20 20 20  20 20 20 20 20 20 20 20  .258824sea_green            
00001F60  30 2E 31 33 37 32 35 35  20 30 2E 35 35 36 38 36  33 20 30 2E 34 31 39 36  30 38 0D 0A 09 09 73 69  0.137255 0.556863 0.419608si
00001F80  65 6E 6E 61 20 20 20 20  20 20 20 20 20 20 20 20  20 20 20 30 2E 35 35 36  38 36 33 20 30 2E 34 31  enna               0.556863 0.41
00001FA0  39 36 30 38 20 30 2E 31  33 37 32 35 35 0D 0A 09  09 73 6B 79 5F 62 6C 75  65 20 20 20 20 20 20 20  9608 0.137255sky_blue       
00001FC0  20 20 20 20 20 20 30 2E  31 39 36 30 37 38 20 30  2E 36 30 30 30 30 30 20  30 2E 38 30 30 30 30 30        0.196078 0.600000 0.800000
00001FE0  0D 0A 09 09 73 6C 61 74  65 5F 62 6C 75 65 20 20  20 20 20 20 20 20 20 20  20 30 2E 30 30 30 30 30  slate_blue           0.00000
00002000  30 20 30 2E 34 39 38 30  33 39 20 31 2E 30 30 30  30 30 30 0D 0A 09 09 73  70 72 69 6E 67 5F 67 72  0 0.498039 1.000000spring_gr
00002020  65 65 6E 20 20 20 20 20  20 20 20 20 30 2E 30 30  30 30 30 30 20 31 2E 30  30 30 30 30 30 20 30 2E  een         0.000000 1.000000 0.
00002040  34 39 38 30 33 39 0D 0A  09 09 73 74 65 65 6C 5F  62 6C 75 65 20 20 20 20  20 20 20 20 20 20 20 30  498039steel_blue           0
00002060  2E 31 33 37 32 35 35 20  30 2E 34 31 39 36 30 38  20 30 2E 35 35 36 38 36  33 0D 0A 09 09 74 61 6E  .137255 0.419608 0.556863tan
00002080  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  20 20 30 2E 38 35 38 38  32 34 20 30 2E 35 37 36                    0.858824 0.576
000020A0  34 37 31 20 30 2E 34 33  39 32 31 36 0D 0A 09 09  74 68 69 73 74 6C 65 20  20 20 20 20 20 20 20 20  471 0.439216thistle         
000020C0  20 20 20 20 20 30 2E 38  34 37 30 35 39 20 30 2E  37 34 39 30 32 30 20 30  2E 38 34 37 30 35 39 0D       0.847059 0.749020 0.847059
000020E0  0A 09 09 74 75 72 71 75  6F 69 73 65 20 20 20 20  20 20 20 20 20 20 20 20  30 2E 36 37 38 34 33 31  turquoise            0.678431
00002100  20 30 2E 39 31 37 36 34  37 20 30 2E 39 31 37 36  34 37 0D 0A 09 09 76 69  6F 6C 65 74 20 20 20 20   0.917647 0.917647violet    
00002120  20 20 20 20 20 20 20 20  20 20 20 30 2E 33 30 39  38 30 34 20 30 2E 31 38  34 33 31 34 20 30 2E 33             0.309804 0.184314 0.3
00002140  30 39 38 30 34 0D 0A 09  09 76 69 6F 6C 65 74 5F  72 65 64 20 20 20 20 20  20 20 20 20 20 20 30 2E  09804violet_red           0.
00002160  38 30 30 30 30 30 20 30  2E 31 39 36 30 37 38 20  30 2E 36 30 30 30 30 30  0D 0A 09 09 77 68 65 61  800000 0.196078 0.600000whea
00002180  74 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  20 30 2E 38 34 37 30 35  39 20 30 2E 38 34 37 30  t                0.847059 0.8470
000021A0  35 39 20 30 2E 37 34 39  30 32 30 0D 0A 09 09 77  68 69 74 65 20 20 20 20  20 20 20 20 20 20 20 20  59 0.749020white            
000021C0  20 20 20 20 30 2E 39 38  38 32 33 35 20 30 2E 39  38 38 32 33 35 20 30 2E  39 38 38 32 33 35 0D 0A      0.988235 0.988235 0.988235
000021E0  09 09 79 65 6C 6C 6F 77  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 31  2E 30 30 30 30 30 30 20  yellow               1.000000 
00002200  31 2E 30 30 30 30 30 30  20 30 2E 30 30 30 30 30  30 0D 0A 09 09 79 65 6C  6C 6F 77 5F 67 72 65 65  1.000000 0.000000yellow_gree
00002220  6E 20 20 20 20 20 20 20  20 20 30 2E 36 30 30 30  30 30 20 30 2E 38 30 30  30 30 30 20 30 2E 31 39  n         0.600000 0.800000 0.19
00002240  36 30 37 38 0D 0A 74 79  70 65 64 65 66 20 75 6E  73 69 67 6E 65 64 20 63  68 61 72 20 20 20 20 20  6078typedef unsigned char     
00002260  20 42 79 74 65 3B 0D 0A  74 79 70 65 64 65 66 20  75 6E 73 69 67 6E 65 64  20 69 6E 74 20 20 20 20   Byte;typedef unsigned int    
00002280  20 20 20 57 6F 72 64 3B  0D 0A 74 79 70 65 64 65  66 20 65 6E 75 6D 20 7B  66 61 6C 73 65 2C 20 74     Word;typedef enum {false, t
000022A0  72 75 65 7D 20 42 6F 6F  6C 65 61 6E 3B 0D 0A 74  79 70 65 64 65 66 20 73  74 72 75 63 74 0D 0A 7B  rue} Boolean;typedef struct{
000022C0  0D 0A 20 20 42 79 74 65  20 52 65 64 3B 0D 0A 20  20 42 79 74 65 20 47 72  6E 3B 0D 0A 20 20 42 79    Byte Red;  Byte Grn;  By
000022E0  74 65 20 42 6C 75 3B 0D  0A 7D 0D 0A 52 47 42 3B  0D 0A 0D 0A 74 79 70 65  64 65 66 20 52 47 42 20  te Blu;}RGB;typedef RGB 
00002300  50 61 6C 65 74 74 65 52  65 67 69 73 74 65 72 5B  32 35 36 5D 3B 0D 0A 0D  0A 76 6F 69 64 20 53 65  PaletteRegister[256];void Se
00002320  74 5F 47 72 61 70 68 69  63 73 5F 4D 6F 64 65 28  29 0D 0A 7B 0D 0A 20 20  69 66 28 28 58 52 65 73  t_Graphics_Mode(){  if((XRes
00002340  3C 33 32 31 29 20 26 26  20 28 59 52 65 73 3C 32  30 31 29 29 0D 0A 20 20  20 20 49 6E 69 74 47 72  <321) && (YRes<201))    InitGr
00002360  61 70 68 69 63 73 28 31  39 29 3B 0D 0A 20 20 65  6C 73 65 0D 0A 20 20 7B  0D 0A 20 20 20 20 69 66  aphics(19);  else  {    if
00002380  28 28 58 52 65 73 3C 36  34 31 29 20 26 26 20 28  59 52 65 73 3C 33 35 31  29 29 0D 0A 20 20 20 20  ((XRes<641) && (YRes<351))    
000023A0  20 20 49 6E 69 74 47 72  61 70 68 69 63 73 28 34  35 29 3B 0D 0A 20 20 20  20 65 6C 73 65 0D 0A 20    InitGraphics(45);    else 
000023C0  20 20 20 7B 0D 0A 20 20  20 20 20 20 69 66 28 28  58 52 65 73 3C 36 34 31  29 20 26 26 20 28 59 52     {      if((XRes<641) && (YR
000023E0  65 73 3C 34 38 31 29 29  0D 0A 09 49 6E 69 74 47  72 61 70 68 69 63 73 28  34 36 29 3B 0D 0A 20 20  es<481))InitGraphics(46);  
00002400  20 20 20 20 65 6C 73 65  0D 0A 20 20 20 20 20 20  7B 0D 0A 09 69 66 28 28  58 52 65 73 3C 38 30 31      else      {if((XRes<801
00002420  29 20 26 26 20 28 59 52  65 73 3C 36 30 31 29 29  0D 0A 09 20 20 49 6E 69  74 47 72 61 70 68 69 63  ) && (YRes<601))  InitGraphic
00002440  73 28 34 38 29 3B 0D 0A  09 65 6C 73 65 0D 0A 09  20 20 49 6E 69 74 47 72  61 70 68 69 63 73 28 35  s(48);else  InitGraphics(5
00002460  36 29 3B 0D 0A 20 20 20  20 20 20 7D 0D 0A 20 20  20 20 7D 0D 0A 20 20 7D  0D 0A 7D 0D 0A 20 20 50  6);      }    }  }}  P
00002480  69 63 5F 46 69 6C 65 3D  66 6F 70 65 6E 28 50 5F  4E 61 6D 65 2C 20 22 77  2B 62 22 29 3B 0D 0A 20  ic_File=fopen(P_Name, "w+b"); 
000024A0  20 66 6F 72 28 79 3D 30  3B 20 79 3C 37 3B 20 79  2B 2B 29 3B 0D 0A 20 20  7B 0D 0A 20 20 20 20 66   for(y=0; y<7; y++);  {    f
000024C0  70 75 74 63 28 32 35 33  2C 20 50 69 63 5F 46 69  6C 65 29 3B 0D 0A 20 20  20 20 66 70 75 74 63 28  putc(253, Pic_File);    fputc(
000024E0  32 30 2C 20 50 69 63 5F  46 69 6C 65 29 3B 0D 0A  20 20 20 20 66 70 75 74  63 28 34 31 2C 20 50 69  20, Pic_File);    fputc(41, Pi
00002500  63 5F 46 69 6C 65 29 3B  0D 0A 20 20 20 20 66 70  75 74 63 28 31 34 2C 20  50 69 63 5F 46 69 6C 65  c_File);    fputc(14, Pic_File
00002520  29 3B 0D 0A 20 20 20 20  66 70 75 74 63 28 30 2C  20 50 69 63 5F 46 69 6C  65 29 3B 0D 0A 20 20 20  );    fputc(0, Pic_File);   
00002540  20 66 70 75 74 63 28 39  2C 20 50 69 63 5F 46 69  6C 65 29 3B 0D 0A 20 20  20 20 66 70 75 74 63 28   fputc(9, Pic_File);    fputc(
00002560  33 2C 20 50 69 63 5F 46  69 6C 65 29 3B 0D 0A 20  20 7D 0D 0A 76 6F 69 64  20 47 65 74 53 63 65 6E  3, Pic_File);  }void GetScen
00002580  65 46 69 6C 65 28 29 0D  0A 7B 0D 0A 20 20 69 6E  74 20 69 3B 0D 0A 20 20  42 79 74 65 20 78 2C 20  eFile(){  int i;  Byte x, 
000025A0  79 3B 0D 0A 0D 0A 20 20  70 72 69 6E 74 66 28 22  5C 6E 45 6E 74 65 72 20  46 69 6C 65 20 4E 61 6D  y;  printf("\nEnter File Nam
000025C0  65 20 2D 3E 20 22 29 3B  0D 0A 20 20 78 3D 77 68  65 72 65 78 28 29 3B 0D  0A 20 20 79 3D 77 68 65  e -> ");  x=wherex();  y=whe
000025E0  72 65 79 28 29 3B 0D 0A  20 20 67 65 74 73 28 53  63 65 6E 65 46 69 6C 65  29 3B 0D 0A 20 20 69 66  rey();  gets(SceneFile);  if
00002600  28 21 28 73 74 72 63 6D  70 28 53 63 65 6E 65 46  69 6C 65 2C 20 22 22 29  29 29 0D 0A 20 20 7B 0D  (!(strcmp(SceneFile, "")))  {
00002620  0A 20 20 20 20 73 74 72  63 70 79 28 53 63 65 6E  65 46 69 6C 65 2C 20 22  43 55 42 45 50 4C 41 4E      strcpy(SceneFile, "CUBEPLAN
00002640  22 29 3B 0D 0A 20 20 20  20 67 6F 74 6F 78 79 28  78 2C 20 79 29 3B 0D 0A  20 20 20 20 70 75 74 73  ");    gotoxy(x, y);    puts
00002660  28 53 63 65 6E 65 46 69  6C 65 29 3B 0D 0A 20 20  7D 0D 0A 20 20 70 75 74  73 28 22 22 29 3B 0D 0A  (SceneFile);  }  puts("");
00002680  20 20 66 6F 72 28 69 3D  30 3B 20 69 3C 73 74 72  6C 65 6E 28 53 63 65 6E  65 46 69 6C 65 29 3B 20    for(i=0; i<strlen(SceneFile); 
000026A0  69 2B 2B 29 0D 0A 20 20  20 20 53 63 65 6E 65 46  69 6C 65 5B 69 5D 3D 74  6F 75 70 70 65 72 28 53  i++)    SceneFile[i]=toupper(S
000026C0  63 65 6E 65 46 69 6C 65  5B 69 5D 29 3B 0D 0A 7D  0D 0A 0D 0A 76 6F 69 64  20 53 61 76 65 5F 50 69  ceneFile[i]);}void Save_Pi
000026E0  63 74 75 72 65 28 29 0D  0A 7B 0D 0A 20 20 57 6F  72 64 20 78 2C 20 79 3B  0D 0A 20 20 42 79 74 65  cture(){  Word x, y;  Byte
00002700  20 64 3B 0D 0A 20 20 46  49 4C 45 20 2A 4F 75 74  5F 46 69 6C 65 3B 0D 0A  0D 0A 20 20 4F 75 74 5F   d;  FILE *Out_File;  Out_
00002720  46 69 6C 65 3D 66 6F 70  65 6E 28 22 54 45 4D 50  2E 54 47 41 22 2C 20 22  77 2B 62 22 29 3B 0D 0A  File=fopen("TEMP.TGA", "w+b");
00002740  20 20 66 6F 72 28 79 3D  30 3B 20 79 3C 37 3B 20  79 2B 2B 29 3B 0D 0A 20  20 7B 0D 0A 20 20 20 20    for(y=0; y<7; y++);  {    
00002760  70 75 74 77 28 32 35 36  2C 20 4F 75 74 5F 46 69  6C 65 29 3B 0D 0A 20 20  20 20 70 75 74 77 28 31  putw(256, Out_File);    putw(1
00002780  2C 20 4F 75 74 5F 46 69  6C 65 29 3B 0D 0A 20 20  20 20 70 75 74 77 28 30  2C 20 4F 75 74 5F 46 69  , Out_File);    putw(0, Out_Fi
000027A0  6C 65 29 3B 0D 0A 20 20  20 20 70 75 74 63 28 31  2C 20 4F 75 74 5F 46 69  6C 65 29 3B 0D 0A 20 20  le);    putc(1, Out_File);  
000027C0  20 20 70 75 74 63 28 32  34 2C 20 4F 75 74 5F 46  69 6C 65 29 3B 0D 0A 20  20 20 20 70 75 74 77 28    putc(24, Out_File);    putw(
000027E0  30 2C 20 4F 75 74 5F 46  69 6C 65 29 3B 0D 0A 20  20 20 20 70 75 74 77 28  30 2C 20 4F 75 74 5F 46  0, Out_File);    putw(0, Out_F
00002800  69 6C 65 29 3B 0D 0A 20  20 20 20 70 75 74 77 28  58 52 65 73 2C 20 4F 75  74 5F 46 69 6C 65 29 3B  ile);    putw(XRes, Out_File);
00002820  0D 0A 20 20 20 20 70 75  74 77 28 59 52 65 73 2C  20 4F 75 74 5F 46 69 6C  65 29 3B 0D 0A 20 20 20      putw(YRes, Out_File);   
00002840  20 70 75 74 77 28 43 52  65 73 2C 20 4F 75 74 5F  46 69 6C 65 29 3B 0D 0A  20 20 7D 0D 0A 20 20 66   putw(CRes, Out_File);  }  f
00002860  6F 72 28 79 3D 30 3B 20  79 3C 32 35 36 3B 20 79  2B 2B 29 0D 0A 20 20 7B  0D 0A 20 20 20 20 66 70  or(y=0; y<256; y++)  {    fp
00002880  75 74 63 28 28 50 61 6C  41 72 72 61 79 5B 79 5D  2E 42 6C 75 29 3C 3C 32  2C 20 4F 75 74 5F 46 69  utc((PalArray[y].Blu)<<2, Out_Fi
000028A0  6C 65 29 3B 0D 0A 20 20  20 20 66 70 75 74 63 28  28 50 61 6C 41 72 72 61  79 5B 79 5D 2E 47 72 6E  le);    fputc((PalArray[y].Grn
000028C0  29 3C 3C 32 2C 20 4F 75  74 5F 46 69 6C 65 29 3B  0D 0A 20 20 20 20 66 70  75 74 63 28 28 50 61 6C  )<<2, Out_File);    fputc((Pal
000028E0  41 72 72 61 79 5B 79 5D  2E 52 65 64 29 3C 3C 32  2C 20 4F 75 74 5F 46 69  6C 65 29 3B 0D 0A 20 20  Array[y].Red)<<2, Out_File);  
00002900  7D 0D 0A 20 20 66 6F 72  28 79 3D 59 52 65 73 3B  20 79 3E 30 3B 20 79 2D  2D 29 0D 0A 20 20 7B 0D  }  for(y=YRes; y>0; y--)  {
00002920  0A 20 20 20 20 66 6F 72  28 78 3D 30 3B 20 78 3C  58 52 65 73 3B 20 78 2B  2B 29 0D 0A 20 20 20 20      for(x=0; x<XRes; x++)    
00002940  7B 0D 0A 20 20 20 20 20  20 64 3D 47 65 74 50 69  78 65 6C 28 78 2C 20 79  2D 31 29 3B 0D 0A 20 20  {      d=GetPixel(x, y-1);  
00002960  20 20 20 20 66 70 75 74  63 28 64 2C 20 4F 75 74  5F 46 69 6C 65 29 3B 0D  0A 20 20 20 20 7D 0D 0A      fputc(d, Out_File);    }
00002980  20 20 7D 0D 0A 20 20 66  63 6C 6F 73 65 61 6C 6C  28 29 3B 0D 0A 7D 0D 0A  0D 0A 23 69 6E 63 6C 75    }  fcloseall();}#inclu
000029A0  64 65 20 22 73 74 64 69  6F 2E 68 22 0D 0A 23 69  6E 63 6C 75 64 65 20 22  64 6F 73 2E 68 22 0D 0A  de "stdio.h"#include "dos.h"
000029C0  23 69 6E 63 6C 75 64 65  20 22 63 6F 6E 69 6F 2E  68 22 0D 0A 23 69 6E 63  6C 75 64 65 20 22 64 65  #include "conio.h"#include "de
000029E0  66 73 2E 68 22 0D 0A 0D  0A 76 6F 69 64 20 53 65  74 5F 54 65 78 74 5F 53  63 72 65 65 6E 28 69 6E  fs.h"void Set_Text_Screen(in
00002A00  74 20 74 63 2C 20 69 6E  74 20 74 62 29 0D 0A 7B  0D 0A 20 20 74 65 78 74  63 6F 6C 6F 72 28 74 63  t tc, int tb){  textcolor(tc
00002A20  29 3B 0D 0A 20 20 74 65  78 74 62 61 63 6B 67 72  6F 75 6E 64 28 74 62 29  3B 0D 0A 20 20 63 6C 72  );  textbackground(tb);  clr
00002A40  73 63 72 28 29 3B 0D 0A  7D 0D 0A 69 6E 73 74 61  6C 6C 75 73 65 72 64 72  69 76 65 72 28 22 53 56  scr();}installuserdriver("SV
00002A60  47 41 32 35 36 22 2C 44  65 74 65 63 74 56 47 41  32 35 36 29 3B 0D 0A 0D  0A 3B 20 2A 2A 2A 2A 2A  GA256",DetectVGA256);; *****
00002A80  2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 20 46 75 6E 63 74  69 6F 6E 20 73 74 6F 72  ****************** Function stor
00002AA0  65 64 61 63 28 29 20 2A  2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  edac() *************************
00002AC0  2A 2A 2A 0D 0A 0D 0A 3B  09 46 75 6E 63 74 69 6F  6E 20 74 6F 20 53 74 6F  72 65 20 74 68 65 20 64  ***;Function to Store the d
00002AE0  61 63 62 6F 78 5B 5D 5B  5D 20 61 72 72 61 79 20  69 6E 74 6F 20 56 47 41  2C 0D 0A 3B 09 63 61 6C  acbox[][] array into VGA,;cal
00002B00  6C 65 64 20 66 72 6F 6D  20 6C 6F 61 64 64 61 63  28 29 20 64 75 72 72 69  6E 67 20 69 6E 69 74 69  led from loaddac() durring initi
00002B20  61 6C 69 7A 61 74 69 6F  6E 2E 0D 0A 0D 0A 73 74  6F 72 65 64 61 63 09 70  72 6F 63 0D 0A 09 70 75  alization.storedacprocpu
00002B40  73 68 09 65 73 09 09 09  3B 20 6E 65 65 64 20 45  53 20 3D 3D 20 44 53 20  74 65 6D 70 6F 72 61 72  shes; need ES == DS temporar
00002B60  69 6C 79 0D 0A 09 70 75  73 68 09 64 73 09 09 09  3B 20 20 2E 2E 2E 0D 0A  09 70 6F 70 09 65 73 09  ilypushds;  ...popes
00002B80  09 09 3B 20 20 2E 2E 2E  0D 0A 09 6D 6F 76 09 61  78 2C 31 30 31 32 68 09  09 3B 20 67 65 74 20 74  ;  ...movax,1012h; get t
00002BA0  68 65 20 6F 6C 64 20 44  41 43 20 76 61 6C 75 65  73 0D 0A 09 6D 6F 76 09  62 78 2C 30 09 09 09 3B  he old DAC valuesmovbx,0;
00002BC0  20 20 28 61 73 73 75 6D  69 6E 67 2C 20 6F 66 20  63 6F 75 72 73 65 2C 20  74 68 65 79 20 65 78 69    (assuming, of course, they exi
00002BE0  73 74 29 0D 0A 09 6D 6F  76 09 63 78 2C 32 35 36  09 09 09 3B 20 20 2E 2E  2E 0D 0A 09 6D 6F 76 09  st)movcx,256;  ...mov
00002C00  64 78 2C 6F 66 66 73 65  74 20 64 61 63 62 6F 78  09 3B 20 20 2E 2E 2E 0D  0A 09 69 6E 74 09 31 30  dx,offset dacbox;  ...int10
00002C20  68 09 09 09 3B 20 64 6F  20 69 74 2E 0D 0A 09 70  6F 70 09 65 73 09 09 09  3B 20 20 2E 2E 2E 0D 0A  h; do it.popes;  ...
00002C40  09 72 65 74 0D 0A 73 74  6F 72 65 64 61 63 20 65  6E 64 70 0D 0A 80 02 5E  01 93 0D 0A 65 78 74 65  retstoredac endpÇ^ôexte
00002C60  72 6E 20 69 6E 74 20 20  58 52 65 73 2C 20 59 52  65 73 3B 0D 0A 65 78 74  65 72 6E 20 57 6F 72 64  rn int  XRes, YRes;extern Word
00002C80  20 4D 61 78 58 52 65 73  2C 20 4D 61 78 59 52 65  73 3B 0D 0A 65 78 74 65  72 6E 20 57 6F 72 64 20   MaxXRes, MaxYRes;extern Word 
00002CA0  4D 61 78 58 2C 20 4D 61  78 59 3B 0D 0A 65 78 74  65 72 6E 20 42 6F 6F 6C  65 61 6E 20 50 65 72 73  MaxX, MaxY;extern Boolean Pers
00002CC0  70 65 63 74 69 76 65 50  6C 6F 74 3B 0D 0A 65 78  74 65 72 6E 20 66 6C 6F  61 74 20 20 20 4D 78 2C  pectivePlot;extern float   Mx,
00002CE0  20 4D 79 2C 20 4D 7A 2C  20 64 73 3B 0D 0A 65 78  74 65 72 6E 20 42 6F 6F  6C 65 61 6E 20 44 72 61   My, Mz, ds;extern Boolean Dra
00002D00  77 5F 41 78 69 73 5F 41  6E 64 5F 50 61 6C 65 74  74 65 3B 0D 0A 23 69 6E  63 6C 75 64 65 20 22 73  w_Axis_And_Palette;#include "s
00002D20  74 64 69 6F 2E 68 22 0D  0A 23 69 6E 63 6C 75 64  65 20 22 64 6F 73 2E 68  22 0D 0A 23 69 6E 63 6C  tdio.h"#include "dos.h"#incl
00002D40  75 64 65 20 22 64 65 66  73 2E 68 22 0D 0A 23 69  6E 63 6C 75 64 65 20 22  67 6C 6F 62 61 6C 73 2E  ude "defs.h"#include "globals.
00002D60  68 22 0D 0A 23 69 6E 63  6C 75 64 65 20 22 6D 61  74 68 62 2E 68 22 0D 0A  23 69 6E 63 6C 75 64 65  h"#include "mathb.h"#include
00002D80  20 22 67 72 61 70 68 62  2E 68 22 0D 0A 4D 41 53  4D 20 25 31 20 25 31 20  4E 55 4C 20 4E 55 4C 0D   "graphb.h"MASM %1 %1 NUL NUL
00002DA0  0A 49 46 20 45 52 52 4F  52 4C 45 56 45 4C 20 31  20 47 4F 54 4F 20 50 52  4F 42 4C 45 4D 0D 0A 4C  IF ERRORLEVEL 1 GOTO PROBLEML
00002DC0  49 4E 4B 20 25 31 20 40  41 55 54 4F 4C 49 4E 4B  0D 0A 45 58 45 32 42 49  4E 20 25 31 20 25 31 2E  INK %1 @AUTOLINKEXE2BIN %1 %1.
00002DE0  44 52 56 0D 0A 44 45 4C  20 25 31 2E 45 58 45 0D  0A 44 45 4C 20 25 31 2E  4F 42 4A 0D 0A 3A 50 52  DRVDEL %1.EXEDEL %1.OBJ:PR
00002E00  4F 42 4C 45 4D 0D 0A 23  64 65 66 69 6E 65 20 4E  75 6D 56 65 72 74 69 63  69 65 73 49 6E 46 61 63  OBLEM#define NumVerticiesInFac
00002E20  65 74 20 34 0D 0A 23 64  65 66 69 6E 65 20 4D 61  78 56 65 72 74 65 78 4E  75 6D 49 6E 46 61 63 65  et 4#define MaxVertexNumInFace
00002E40  74 20 34 0D 0A 23 64 65  66 69 6E 65 20 53 63 61  6C 65 44 61 74 61 20 32  33 30 30 30 0D 0A 23 64  t 4#define ScaleData 23000#d
00002E60  65 66 69 6E 65 20 53 63  61 6C 65 49 6D 61 67 65  20 31 30 30 0D 0A 0D 0A  2F 2A 0D 0A 23 64 65 66  efine ScaleImage 100/*#def
00002E80  69 6E 65 20 4D 61 78 46  61 63 65 74 20 31 36 37  38 09 20 20 20 20 20 09  20 20 20 20 20 20 69 6E  ine MaxFacet 1678           in
00002EA0  64 65 70 65 6E 64 61 6E  74 20 3A 20 4D 61 78 46  61 63 65 74 20 20 3D 20  6E 0D 0A 23 64 65 66 69  dependant : MaxFacet  = n#defi
00002EC0  6E 65 20 4D 61 78 56 65  72 74 65 78 20 36 37 31  32 09 20 20 20 20 20 09  20 20 20 20 20 20 76 65  ne MaxVertex 6712           ve
00002EE0  72 74 69 63 69 65 73 20  20 20 4D 61 78 56 65 72  74 65 78 20 3D 20 34 20  2A 20 6E 0D 0A 2A 2F 0D  rticies   MaxVertex = 4 * n*/
00002F00  0A 0D 0A 23 64 65 66 69  6E 65 20 4D 61 78 46 61  63 65 74 20 33 36 30 30  0D 0A 23 64 65 66 69 6E  #define MaxFacet 3600#defin
00002F20  65 20 4D 61 78 56 65 72  74 65 78 20 33 37 32 31  0D 0A 0D 0A 69 6E 74 20  4C 61 73 74 56 65 72 74  e MaxVertex 3721int LastVert
00002F40  65 78 2C 20 4C 61 73 74  46 61 63 65 74 3B 0D 0A  69 6E 74 20 4C 61 73 74  56 65 72 74 65 78 4E 75  ex, LastFacet;int LastVertexNu
00002F60  6D 49 6E 46 61 63 65 74  3B 0D 0A 69 6E 74 20 56  65 72 74 65 78 4E 75 6D  2C 20 46 61 63 65 74 4E  mInFacet;int VertexNum, FacetN
00002F80  75 6D 3B 0D 0A 69 6E 74  20 56 65 72 74 65 78 4E  75 6D 49 6E 46 61 63 65  74 3B 0D 0A 54 44 49 41  um;int VertexNumInFacet;TDIA
00002FA0  20 56 65 72 74 65 78 5B  4D 61 78 56 65 72 74 65  78 2B 31 5D 3B 0D 0A 73  74 61 74 69 63 20 69 6E   Vertex[MaxVertex+1];static in
00002FC0  74 20 66 61 72 20 2A 46  61 63 65 74 3B 0D 0A 0D  0A 66 6C 6F 61 74 20 49  6E 76 53 63 61 6C 65 44  t far *Facet;float InvScaleD
00002FE0  61 74 61 2C 20 49 6E 76  53 63 61 6C 65 49 6D 61  67 65 3B 0D 0A 74 79 70  65 64 65 66 20 63 68 61  ata, InvScaleImage;typedef cha
00003000  72 20 4E 61 6D 65 5B 32  30 5D 3B 0D 0A 4E 61 6D  65 20 46 69 6C 65 4E 61  6D 65 3B 0D 0A 74 79 70  r Name[20];Name FileName;typ
00003020  65 64 65 66 20 73 74 72  75 63 74 7B 0D 0A 20 20  69 6E 74 20 78 3B 0D 0A  20 20 69 6E 74 20 79 3B  edef struct{  int x;  int y;
00003040  0D 0A 7D 20 50 69 78 65  6C 56 65 63 74 6F 72 3B  0D 0A 0D 0A 74 79 70 65  64 65 66 20 50 69 78 65  } PixelVector;typedef Pixe
00003060  6C 56 65 63 74 6F 72 20  50 69 78 65 6C 41 72 72  61 79 5B 4E 75 6D 56 65  72 74 69 63 69 65 73 49  lVector PixelArray[NumVerticiesI
00003080  6E 46 61 63 65 74 2B 32  5D 3B 0D 0A 74 79 70 65  64 65 66 20 54 44 41 20  56 6F 78 65 6C 41 72 72  nFacet+2];typedef TDA VoxelArr
000030A0  61 79 5B 4E 75 6D 56 65  72 74 69 63 69 65 73 49  6E 46 61 63 65 74 2B 31  5D 3B 0D 0A 0D 0A 76 6F  ay[NumVerticiesInFacet+1];vo
000030C0  69 64 20 49 6E 69 74 56  65 72 74 65 78 42 75 66  66 65 72 28 29 0D 0A 76  6F 69 64 20 4C 6F 61 64  id InitVertexBuffer()void Load
000030E0  44 61 74 61 28 4E 61 6D  65 20 46 69 6C 65 4E 61  6D 65 29 0D 0A 76 6F 69  64 20 53 61 76 65 44 61  Data(Name FileName)void SaveDa
00003100  74 61 28 4E 61 6D 65 20  46 69 6C 65 4E 61 6D 65  29 0D 0A 76 6F 69 64 20  50 75 74 57 69 72 65 46  ta(Name FileName)void PutWireF
00003120  61 63 65 74 28 50 69 78  65 6C 41 72 72 61 79 20  50 74 73 2C 20 42 79 74  65 20 43 6F 6C 6F 72 29  acet(PixelArray Pts, Byte Color)
00003140  0D 0A 76 6F 69 64 20 50  75 74 46 61 63 65 74 28  50 69 78 65 6C 41 72 72  61 79 20 46 61 63 65 32  void PutFacet(PixelArray Face2
00003160  64 2C 20 42 79 74 65 20  43 6F 6C 6F 72 2C 20 42  79 74 65 20 49 6E 74 65  6E 73 29 0D 0A 76 6F 69  d, Byte Color, Byte Intens)voi
00003180  64 20 47 65 74 5F 41 4E  49 5F 46 69 6C 65 5F 4E  61 6D 65 28 29 0D 0A 7B  0D 0A 20 20 42 79 74 65  d Get_ANI_File_Name(){  Byte
000031A0  20 78 2C 20 79 3B 0D 0A  0D 0A 20 20 74 65 78 74  63 6F 6C 6F 72 28 59 45  4C 4C 4F 57 29 3B 0D 0A   x, y;  textcolor(YELLOW);
000031C0  20 20 74 65 78 74 62 61  63 6B 67 72 6F 75 6E 64  28 42 4C 55 45 29 3B 0D  0A 20 20 67 6F 74 6F 78    textbackground(BLUE);  gotox
000031E0  79 28 31 2C 20 38 29 3B  0D 0A 20 20 63 70 72 69  6E 74 66 28 22 45 6E 74  65 72 20 46 69 6C 65 20  y(1, 8);  cprintf("Enter File 
00003200  4E 61 6D 65 20 2D 3E 20  22 29 3B 0D 0A 20 20 78  3D 77 68 65 72 65 78 28  29 3B 0D 0A 20 20 79 3D  Name -> ");  x=wherex();  y=
00003220  77 68 65 72 65 79 28 29  3B 0D 0A 20 20 74 65 78  74 63 6F 6C 6F 72 28 57  48 49 54 45 2B 42 4C 49  wherey();  textcolor(WHITE+BLI
00003240  4E 4B 29 3B 0D 0A 20 20  63 70 72 69 6E 74 66 28  22 25 73 22 2C 20 22 53  50 48 52 50 4C 41 4E 22  NK);  cprintf("%s", "SPHRPLAN"
00003260  29 3B 0D 0A 20 20 74 65  78 74 63 6F 6C 6F 72 28  59 45 4C 4C 4F 57 29 3B  0D 0A 20 20 67 6F 74 6F  );  textcolor(YELLOW);  goto
00003280  78 79 28 78 2C 20 79 29  3B 0D 0A 20 20 77 68 69  6C 65 28 21 28 6B 62 68  69 74 28 29 29 29 3B 0D  xy(x, y);  while(!(kbhit()));
000032A0  0A 20 20 63 70 72 69 6E  74 66 28 22 20 20 20 20  20 20 20 20 20 20 20 20  22 29 3B 0D 0A 20 20 67    cprintf("            ");  g
000032C0  6F 74 6F 78 79 28 78 2C  20 79 29 3B 0D 0A 20 20  67 65 74 73 28 46 69 6C  65 5F 4E 61 6D 65 29 3B  otoxy(x, y);  gets(File_Name);
000032E0  0D 0A 20 20 69 66 28 21  28 73 74 72 63 6D 70 28  46 69 6C 65 5F 4E 61 6D  65 2C 20 22 22 29 29 29    if(!(strcmp(File_Name, "")))
00003300  0D 0A 20 20 20 20 73 74  72 63 70 79 28 46 69 6C  65 5F 4E 61 6D 65 2C 20  22 53 50 48 52 50 4C 41      strcpy(File_Name, "SPHRPLA
00003320  4E 22 29 3B 0D 0A 20 20  73 74 72 75 70 72 28 46  69 6C 65 5F 4E 61 6D 65  29 3B 0D 0A 20 20 73 74  N");  strupr(File_Name);  st
00003340  72 63 61 74 28 46 69 6C  65 5F 4E 61 6D 65 2C 20  22 2E 41 4E 49 22 29 3B  0D 0A 20 20 67 6F 74 6F  rcat(File_Name, ".ANI");  goto
00003360  78 79 28 31 2C 20 38 29  3B 0D 0A 20 20 70 72 69  6E 74 66 28 22 20 20 20  20 20 20 20 20 20 20 20  xy(1, 8);  printf("           
00003380  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  20 20 20 20 22 29 3B 0D  0A 20 20 74 65 78 74 63                      ");  textc
000033A0  6F 6C 6F 72 28 57 48 49  54 45 2B 42 4C 49 4E 4B  29 3B 0D 0A 20 20 67 6F  74 6F 78 79 28 31 2C 20  olor(WHITE+BLINK);  gotoxy(1, 
000033C0  38 29 3B 0D 0A 20 20 63  70 72 69 6E 74 66 28 22  4C 6F 61 64 69 6E 67 20  22 29 3B 0D 0A 20 20 74  8);  cprintf("Loading ");  t
000033E0  65 78 74 63 6F 6C 6F 72  28 59 45 4C 4C 4F 57 29  3B 0D 0A 20 20 63 70 72  69 6E 74 66 28 22 25 73  extcolor(YELLOW);  cprintf("%s
00003400  22 2C 20 46 69 6C 65 5F  4E 61 6D 65 29 3B 0D 0A  7D 0D 0A 50 61 6C 65 74  74 65 5F 52 65 67 69 73  ", File_Name);}Palette_Regis
00003420  74 65 72 20 50 61 6C 3B  0D 0A 0D 0A 76 6F 69 64  20 47 72 65 79 5F 50 61  6C 65 74 74 65 28 50 61  ter Pal;void Grey_Palette(Pa
00003440  6C 65 74 74 65 5F 52 65  67 69 73 74 65 72 20 50  61 6C 29 0D 0A 7B 0D 0A  20 20 57 6F 72 64 20 69  lette_Register Pal){  Word i
00003460  3B 0D 0A 0D 0A 20 20 66  6F 72 28 69 3D 30 3B 20  69 3C 36 34 3B 20 69 2B  2B 29 0D 0A 20 20 7B 0D  ;  for(i=0; i<64; i++)  {
00003480  0A 20 20 20 20 50 61 6C  5B 69 5D 2E 52 65 64 3D  69 3B 0D 0A 20 20 20 20  50 61 6C 5B 69 5D 2E 47      Pal[i].Red=i;    Pal[i].G
000034A0  72 6E 3D 69 3B 0D 0A 20  20 20 20 50 61 6C 5B 69  5D 2E 42 6C 75 3D 69 3B  0D 0A 20 20 7D 0D 0A 7D  rn=i;    Pal[i].Blu=i;  }}
000034C0  0D 0A 23 69 6E 63 6C 75  64 65 20 22 73 74 64 69  6F 2E 68 22 0D 0A 23 69  6E 63 6C 75 64 65 20 22  #include "stdio.h"#include "
000034E0  6D 61 74 68 2E 68 22 0D  0A 23 69 6E 63 6C 75 64  65 20 22 64 65 66 73 2E  68 22 0D 0A 23 69 6E 63  math.h"#include "defs.h"#inc
00003500  6C 75 64 65 20 22 6D 61  74 68 62 2E 68 22 0D 0A  76 6F 69 64 20 43 6C 65  61 72 50 61 6C 65 74 74  lude "mathb.h"void ClearPalett
00003520  65 28 50 61 6C 65 74 74  65 52 65 67 69 73 74 65  72 20 43 6F 6C 6F 72 29  0D 0A 0D 0A 7B 20 57 6F  e(PaletteRegister Color){ Wo
00003540  72 64 20 69 3B 0D 0A 0D  0A 20 20 66 6F 72 28 69  3D 30 3B 20 69 3C 3D 32  35 35 3B 20 69 2B 2B 29  rd i;  for(i=0; i<=255; i++)
00003560  0D 0A 20 20 7B 0D 0A 20  20 20 20 43 6F 6C 6F 72  5B 69 5D 2E 52 65 64 3D  30 3B 0D 0A 20 20 20 20    {    Color[i].Red=0;    
00003580  43 6F 6C 6F 72 5B 69 5D  2E 47 72 6E 3D 30 3B 0D  0A 20 20 20 20 43 6F 6C  6F 72 5B 69 5D 2E 42 6C  Color[i].Grn=0;    Color[i].Bl
000035A0  75 3D 30 3B 0D 0A 20 20  7D 0D 0A 7D 0D 0A 76 6F  69 64 20 47 65 74 5F 53  63 72 65 65 6E 5F 4C 69  u=0;  }}void Get_Screen_Li
000035C0  6E 65 28 57 6F 72 64 20  4C 69 6E 65 2C 20 63 68  61 72 20 62 75 66 5B 36  34 5D 29 0D 0A 7B 0D 0A  ne(Word Line, char buf[64]){
000035E0  20 20 6C 6F 6E 67 20 4C  5F 4F 66 66 73 65 74 3B  0D 0A 20 20 57 6F 72 64  20 4F 66 66 73 65 74 2C    long L_Offset;  Word Offset,
00003600  20 50 61 67 65 3B 0D 0A  20 20 57 6F 72 64 20 53  63 72 65 65 6E 3D 30 78  41 30 30 30 3B 0D 0A 20   Page;  Word Screen=0xA000; 
00003620  20 57 6F 72 64 20 4F 6C  64 5F 50 61 67 65 3B 0D  0A 20 20 57 6F 72 64 20  6C 78 2C 20 6C 79 3B 0D   Word Old_Page;  Word lx, ly;
00003640  0A 20 20 42 79 74 65 20  64 3B 0D 0A 0D 0A 20 20  69 66 28 4C 69 6E 65 3C  59 52 65 73 29 0D 0A 20    Byte d;  if(Line<YRes) 
00003660  20 7B 0D 0A 20 20 20 20  4F 6C 64 5F 50 61 67 65  3D 30 3B 0D 0A 20 20 20  20 73 77 69 74 63 68 28   {    Old_Page=0;    switch(
00003680  52 65 73 29 0D 0A 20 20  20 20 7B 0D 0A 20 20 20  20 20 20 63 61 73 65 20  48 69 67 68 5F 52 65 73  Res)    {      case High_Res
000036A0  20 3A 20 20 20 4F 66 66  73 65 74 3D 50 72 65 5F  43 61 6C 63 5F 59 31 5B  4C 69 6E 65 2B 59 5F 4F   :   Offset=Pre_Calc_Y1[Line+Y_O
000036C0  66 66 5D 3B 0D 0A 09 09  09 50 61 67 65 3D 28 28  4C 69 6E 65 3E 3E 36 29  3C 3C 34 29 3B 0D 0A 09  ff];Page=((Line>>6)<<4);
000036E0  09 09 69 66 28 50 61 67  65 21 3D 4F 6C 64 5F 50  61 67 65 29 0D 0A 09 09  09 7B 0D 0A 09 09 09 20  if(Page!=Old_Page){ 
00003700  20 6F 75 74 70 77 28 30  78 33 43 44 2C 20 50 61  67 65 29 3B 0D 0A 09 09  09 20 20 4F 6C 64 5F 50   outpw(0x3CD, Page);  Old_P
00003720  61 67 65 3D 50 61 67 65  3B 0D 0A 09 09 09 7D 0D  0A 09 09 09 6D 6F 76 65  64 61 74 61 28 53 63 72  age=Page;}movedata(Scr
00003740  65 65 6E 2C 20 4F 66 66  73 65 74 2C 20 5F 44 53  2C 20 28 57 6F 72 64 29  62 75 66 2C 20 58 52 65  een, Offset, _DS, (Word)buf, XRe
00003760  73 29 3B 0D 0A 09 09 09  62 72 65 61 6B 3B 0D 0A  20 20 20 20 20 20 63 61  73 65 20 4D 65 64 69 75  s);break;      case Mediu
00003780  6D 5F 52 65 73 20 3A 20  4C 69 6E 65 2B 3D 59 5F  4F 66 66 3B 0D 0A 09 09  09 66 6F 72 28 6C 78 3D  m_Res : Line+=Y_Off;for(lx=
000037A0  58 5F 4F 66 66 3B 20 6C  78 3C 28 58 52 65 73 2B  58 5F 4F 66 66 29 3B 20  6C 78 2B 2B 29 0D 0A 09  X_Off; lx<(XRes+X_Off); lx++)
000037C0  09 09 7B 0D 0A 09 09 09  20 20 64 3D 47 65 74 5F  50 69 78 65 6C 28 6C 78  2C 20 4C 69 6E 65 29 3B  {  d=Get_Pixel(lx, Line);
000037E0  0D 0A 09 09 09 20 20 62  75 66 5B 6C 78 5D 3D 64  3B 0D 0A 09 09 09 7D 0D  0A 09 09 09 62 72 65 61    buf[lx]=d;}brea
00003800  6B 3B 0D 0A 09 63 61 73  65 20 4C 6F 77 5F 52 65  73 20 20 3A 20 4F 66 66  73 65 74 3D 50 72 65 5F  k;case Low_Res  : Offset=Pre_
00003820  43 61 6C 63 5F 59 31 5B  4C 69 6E 65 2B 59 5F 4F  66 66 5D 3B 0D 0A 09 09  09 6D 6F 76 65 64 61 74  Calc_Y1[Line+Y_Off];movedat
00003840  61 28 53 63 72 65 65 6E  2C 20 4F 66 66 73 65 74  2C 20 5F 44 53 2C 20 28  57 6F 72 64 29 62 75 66  a(Screen, Offset, _DS, (Word)buf
00003860  2C 20 58 52 65 73 29 3B  0D 0A 09 09 09 62 72 65  61 6B 3B 0D 0A 20 20 20  20 7D 0D 0A 20 20 7D 0D  , XRes);break;    }  }
00003880  0A 7D 0D 0A 0D 0A 20 20  77 68 69 6C 65 28 21 69  73 64 69 67 69 74 28 63  5B 30 5D 29 29 0D 0A 20  }  while(!isdigit(c[0])) 
000038A0  20 7B 0D 0A 20 20 20 20  77 68 69 6C 65 28 21 6B  62 68 69 74 28 29 29 3B  0D 0A 20 20 20 20 63 5B   {    while(!kbhit());    c[
000038C0  30 5D 3D 67 65 74 63 68  28 29 3B 0D 0A 20 20 7D  0D 0A 20 20 72 65 74 75  72 6E 28 61 74 6F 69 28  0]=getch();  }  return(atoi(
000038E0  63 29 29 3B 0D 0A 42 79  74 65 20 62 5B 31 30 32  34 5D 3B 0D 0A 0D 0A 76  6F 69 64 20 47 65 74 5F  c));Byte b[1024];void Get_
00003900  53 63 72 65 65 6E 5F 4C  69 6E 65 28 57 6F 72 64  20 4C 69 6E 65 29 0D 0A  7B 0D 0A 20 20 57 6F 72  Screen_Line(Word Line){  Wor
00003920  64 20 4F 66 66 73 65 74  2C 20 50 61 67 65 3B 0D  0A 20 20 57 6F 72 64 20  53 63 72 65 65 6E 3D 30  d Offset, Page;  Word Screen=0
00003940  78 41 30 30 30 3B 0D 0A  20 20 57 6F 72 64 20 6C  78 2C 20 6C 79 3B 0D 0A  20 20 42 79 74 65 20 64  xA000;  Word lx, ly;  Byte d
00003960  3B 0D 0A 0D 0A 20 20 69  66 28 4C 69 6E 65 3C 59  52 65 73 29 0D 0A 20 20  7B 0D 0A 20 20 20 20 66  ;  if(Line<YRes)  {    f
00003980  6F 72 28 6C 78 3D 30 3B  20 6C 78 3C 58 52 65 73  3B 20 6C 78 2B 2B 29 0D  0A 20 20 20 20 7B 0D 0A  or(lx=0; lx<XRes; lx++)    {
000039A0  20 20 20 20 20 20 64 3D  47 65 74 5F 50 69 78 65  6C 28 6C 78 2C 20 4C 69  6E 65 29 3B 0D 0A 20 20        d=Get_Pixel(lx, Line);  
000039C0  20 20 20 20 62 5B 6C 78  5D 3D 64 3B 0D 0A 20 20  20 20 7D 0D 0A 20 20 7D  0D 0A 7D 0D 0A 0D 0A 76      b[lx]=d;    }  }}v
000039E0  6F 69 64 20 57 72 69 74  65 5F 50 43 58 5F 4C 69  6E 65 28 57 6F 72 64 20  79 29 0D 0A 7B 0D 0A 20  oid Write_PCX_Line(Word y){ 
00003A00  20 57 6F 72 64 20 74 3D  30 3B 0D 0A 20 20 42 79  74 65 20 69 3D 30 3B 0D  0A 0D 0A 20 20 47 65 74   Word t=0;  Byte i=0;  Get
00003A20  5F 53 63 72 65 65 6E 5F  4C 69 6E 65 28 79 29 3B  0D 0A 20 20 64 6F 0D 0A  20 20 7B 0D 0A 20 20 20  _Screen_Line(y);  do  {   
00003A40  20 69 3D 30 3B 0D 0A 20  20 20 20 77 68 69 6C 65  28 28 62 5B 74 2B 69 5D  3D 3D 62 5B 74 2B 69 2B   i=0;    while((b[t+i]==b[t+i+
00003A60  31 5D 29 20 26 26 20 28  28 74 2B 69 29 3C 58 52  65 73 29 20 26 26 20 28  69 3C 36 33 29 29 2B 2B  1]) && ((t+i)<XRes) && (i<63))++
00003A80  69 3B 0D 0A 20 20 20 20  69 66 28 69 3E 30 29 0D  0A 20 20 20 20 7B 0D 0A  20 20 20 20 20 20 66 70  i;    if(i>0)    {      fp
00003AA0  75 74 63 28 69 7C 30 78  63 30 2C 20 4F 75 74 5F  46 69 6C 65 29 3B 0D 0A  20 20 20 20 20 20 66 70  utc(i|0xc0, Out_File);      fp
00003AC0  75 74 63 28 62 5B 74 5D  2C 20 4F 75 74 5F 46 69  6C 65 29 3B 0D 0A 20 20  20 20 20 20 74 2B 3D 69  utc(b[t], Out_File);      t+=i
00003AE0  3B 0D 0A 20 20 20 20 7D  0D 0A 20 20 20 20 65 6C  73 65 0D 0A 20 20 20 20  7B 0D 0A 20 20 20 20 20  ;    }    else    {     
00003B00  20 69 66 28 28 28 62 5B  74 5D 29 26 30 78 63 30  29 3D 3D 30 78 63 30 29  0D 0A 09 66 70 75 74 63   if(((b[t])&0xc0)==0xc0)fputc
00003B20  28 30 78 63 31 2C 20 4F  75 74 5F 46 69 6C 65 29  3B 0D 0A 20 20 20 20 20  20 66 70 75 74 63 28 62  (0xc1, Out_File);      fputc(b
00003B40  5B 74 2B 2B 5D 2C 20 4F  75 74 5F 46 69 6C 65 29  3B 0D 0A 20 20 20 20 7D  0D 0A 20 20 7D 0D 0A 20  [t++], Out_File);    }  } 
00003B60  20 77 68 69 6C 65 28 74  3C 58 52 65 73 29 3B 0D  0A 7D 0D 0A 0D 0A 76 6F  69 64 20 53 61 76 65 5F   while(t<XRes);}void Save_
00003B80  50 43 58 28 29 0D 0A 7B  0D 0A 20 20 57 6F 72 64  20 79 3B 0D 0A 0D 0A 20  20 69 66 28 28 4F 75 74  PCX(){  Word y;  if((Out
00003BA0  5F 46 69 6C 65 3D 66 6F  70 65 6E 28 46 69 6C 65  5F 4E 61 6D 65 5F 32 2C  20 22 77 62 22 29 29 3D  _File=fopen(File_Name_2, "wb"))=
00003BC0  3D 4E 55 4C 4C 29 0D 0A  20 20 7B 0D 0A 20 20 20  20 75 6E 67 65 74 63 68  28 33 32 29 3B 0D 0A 20  =NULL)  {    ungetch(32); 
00003BE0  20 20 20 45 78 69 74 5F  47 72 61 70 68 69 63 73  28 29 3B 0D 0A 20 20 20  20 70 72 69 6E 74 66 28     Exit_Graphics();    printf(
00003C00  22 43 61 6E 6E 6F 74 20  6F 70 65 6E 20 6F 75 74  70 75 74 20 66 69 6C 65  21 5C 6E 5C 6E 48 69 74  "Cannot open output file!\n\nHit
00003C20  20 61 6E 79 20 6B 65 79  20 74 6F 20 65 78 69 74  2E 2E 2E 2E 22 29 3B 0D  0A 20 20 20 20 67 65 74   any key to exit....");    get
00003C40  63 68 28 29 3B 0D 0A 20  20 20 20 65 78 69 74 28  31 29 3B 0D 0A 20 20 7D  0D 0A 20 20 70 75 74 63  ch();    exit(1);  }  putc
00003C60  28 30 78 30 61 2C 20 4F  75 74 5F 46 69 6C 65 29  3B 0D 0A 20 20 70 75 74  63 28 35 2C 20 4F 75 74  (0x0a, Out_File);  putc(5, Out
00003C80  5F 46 69 6C 65 29 3B 0D  0A 20 20 70 75 74 63 28  31 2C 20 4F 75 74 5F 46  69 6C 65 29 3B 0D 0A 20  _File);  putc(1, Out_File); 
00003CA0  20 70 75 74 63 28 38 2C  20 4F 75 74 5F 46 69 6C  65 29 3B 0D 0A 20 20 70  75 74 77 28 30 2C 20 4F   putc(8, Out_File);  putw(0, O
00003CC0  75 74 5F 46 69 6C 65 29  3B 0D 0A 20 20 70 75 74  77 28 30 2C 20 4F 75 74  5F 46 69 6C 65 29 3B 0D  ut_File);  putw(0, Out_File);
00003CE0  0A 20 20 70 75 74 77 28  58 52 65 73 2D 31 2C 20  4F 75 74 5F 46 69 6C 65  29 3B 0D 0A 20 20 70 75    putw(XRes-1, Out_File);  pu
00003D00  74 77 28 59 52 65 73 2D  31 2C 20 4F 75 74 5F 46  69 6C 65 29 3B 0D 0A 20  20 70 75 74 77 28 58 52  tw(YRes-1, Out_File);  putw(XR
00003D20  65 73 2C 20 4F 75 74 5F  46 69 6C 65 29 3B 0D 0A  20 20 70 75 74 77 28 59  52 65 73 2C 20 4F 75 74  es, Out_File);  putw(YRes, Out
00003D40  5F 46 69 6C 65 29 3B 0D  0A 20 20 66 6F 72 28 79  3D 30 3B 20 79 3C 34 39  3B 20 79 2B 2B 29 0D 0A  _File);  for(y=0; y<49; y++)
00003D60  20 20 20 70 75 74 63 28  30 2C 20 4F 75 74 5F 46  69 6C 65 29 3B 0D 0A 20  20 70 75 74 63 28 31 2C     putc(0, Out_File);  putc(1,
00003D80  20 4F 75 74 5F 46 69 6C  65 29 3B 0D 0A 20 20 70  75 74 77 28 58 52 65 73  2C 20 4F 75 74 5F 46 69   Out_File);  putw(XRes, Out_Fi
00003DA0  6C 65 29 3B 0D 0A 20 20  70 75 74 77 28 32 2C 20  4F 75 74 5F 46 69 6C 65  29 3B 0D 0A 20 20 66 6F  le);  putw(2, Out_File);  fo
00003DC0  72 28 79 3D 30 3B 20 79  3C 35 38 3B 20 79 2B 2B  29 0D 0A 20 20 20 70 75  74 63 28 30 2C 20 4F 75  r(y=0; y<58; y++)   putc(0, Ou
00003DE0  74 5F 46 69 6C 65 29 3B  0D 0A 20 20 66 6F 72 28  79 3D 30 3B 20 79 3C 59  52 65 73 3B 20 79 2B 2B  t_File);  for(y=0; y<YRes; y++
00003E00  29 0D 0A 20 20 20 20 57  72 69 74 65 5F 50 43 58  5F 4C 69 6E 65 28 79 29  3B 0D 0A 20 20 70 75 74  )    Write_PCX_Line(y);  put
00003E20  63 28 30 78 30 43 2C 20  4F 75 74 5F 46 69 6C 65  29 3B 0D 0A 20 20 66 6F  72 28 79 3D 30 3B 20 79  c(0x0C, Out_File);  for(y=0; y
00003E40  3C 32 35 36 3B 20 79 2B  2B 29 0D 0A 20 20 7B 0D  0A 20 20 20 20 70 75 74  63 28 28 28 50 61 6C 5B  <256; y++)  {    putc(((Pal[
00003E60  79 5D 2E 52 65 64 29 3C  3C 32 29 2C 20 4F 75 74  5F 46 69 6C 65 29 3B 0D  0A 20 20 20 20 70 75 74  y].Red)<<2), Out_File);    put
00003E80  63 28 28 28 50 61 6C 5B  79 5D 2E 47 72 6E 29 3C  3C 32 29 2C 20 4F 75 74  5F 46 69 6C 65 29 3B 0D  c(((Pal[y].Grn)<<2), Out_File);
00003EA0  0A 20 20 20 20 70 75 74  63 28 28 28 50 61 6C 5B  79 5D 2E 42 6C 75 29 3C  3C 32 29 2C 20 4F 75 74      putc(((Pal[y].Blu)<<2), Out
00003EC0  5F 46 69 6C 65 29 3B 0D  0A 20 20 7D 0D 0A 20 20  66 63 6C 6F 73 65 28 4F  75 74 5F 46 69 6C 65 29  _File);  }  fclose(Out_File)
00003EE0  3B 0D 0A 7D 0D 0A 66 6C  6F 61 74 20 4D 49 4E 28  66 6C 6F 61 74 20 61 2C  20 66 6C 6F 61 74 20 62  ;}float MIN(float a, float b
00003F00  29 0D 0A 66 6C 6F 61 74  20 4D 41 58 28 66 6C 6F  61 74 20 61 2C 20 66 6C  6F 61 74 20 62 29 0D 0A  )float MAX(float a, float b)
00003F20  66 6C 6F 61 74 20 4D 49  4E 33 28 66 6C 6F 61 74  20 61 2C 20 66 6C 6F 61  74 20 62 2C 20 66 6C 6F  float MIN3(float a, float b, flo
00003F40  61 74 20 63 29 0D 0A 66  6C 6F 61 74 20 4D 41 58  33 28 66 6C 6F 61 74 20  61 2C 20 66 6C 6F 61 74  at c)float MAX3(float a, float
00003F60  20 62 2C 20 66 6C 6F 61  74 20 63 29 0D 0A 66 6C  6F 61 74 20 4D 49 4E 34  28 66 6C 6F 61 74 20 61   b, float c)float MIN4(float a
00003F80  2C 20 66 6C 6F 61 74 20  62 2C 20 66 6C 6F 61 74  20 63 2C 20 66 6C 6F 61  74 20 64 29 0D 0A 66 6C  , float b, float c, float d)fl
00003FA0  6F 61 74 20 4D 41 58 34  28 66 6C 6F 61 74 20 61  2C 20 66 6C 6F 61 74 20  62 2C 20 66 6C 6F 61 74  oat MAX4(float a, float b, float
00003FC0  20 63 2C 20 66 6C 6F 61  74 20 64 29 0D 0A 76 6F  69 64 20 56 65 63 4D 69  6E 28 54 44 41 20 61 2C   c, float d)void VecMin(TDA a,
00003FE0  20 54 44 41 20 62 2C 20  54 44 41 20 63 29 0D 0A  76 6F 69 64 20 56 65 63  4D 61 78 28 54 44 41 20   TDA b, TDA c)void VecMax(TDA 
00004000  61 2C 20 54 44 41 20 62  2C 20 54 44 41 20 63 29  0D 0A 76 6F 69 64 20 56  65 63 4E 65 67 61 74 65  a, TDA b, TDA c)void VecNegate
00004020  28 54 44 41 20 41 29 0D  0A 76 6F 69 64 20 49 6E  69 74 52 61 6E 64 28 66  6C 6F 61 74 20 53 65 65  (TDA A)void InitRand(float See
00004040  64 29 0D 0A 69 6E 74 20  52 61 6E 64 49 6E 74 28  57 6F 72 64 20 52 61 6E  67 65 29 0D 0A 66 6C 6F  d)int RandInt(Word Range)flo
00004060  61 74 20 52 61 6E 64 28  29 0D 0A 42 79 74 65 20  47 65 74 5F 50 69 78 65  6C 5F 32 28 57 6F 72 64  at Rand()Byte Get_Pixel_2(Word
00004080  20 78 2C 20 57 6F 72 64  20 79 29 0D 0A 23 69 6E  63 6C 75 64 65 20 22 73  74 64 69 6F 2E 68 22 0D   x, Word y)#include "stdio.h"
000040A0  0A 23 69 6E 63 6C 75 64  65 20 22 64 6F 73 2E 68  22 0D 0A 23 69 6E 63 6C  75 64 65 20 22 61 6C 6C  #include "dos.h"#include "all
000040C0  6F 63 2E 68 22 0D 0A 23  69 6E 63 6C 75 64 65 20  22 73 74 72 69 6E 67 2E  68 22 0D 0A 23 69 6E 63  oc.h"#include "string.h"#inc
000040E0  6C 75 64 65 20 22 64 65  66 73 2E 68 22 0D 0A 23  69 6E 63 6C 75 64 65 20  22 67 6C 6F 62 61 6C 73  lude "defs.h"#include "globals
00004100  2E 68 22 0D 0A 23 69 6E  63 6C 75 64 65 20 22 6D  61 74 68 62 2E 68 22 0D  0A 0D 0A 23 64 65 66 69  .h"#include "mathb.h"#defi
00004120  6E 65 20 73 74 61 74 65  73 20 33 36 0D 0A 23 64  65 66 69 6E 65 20 6D 61  78 73 74 61 74 65 20 73  ne states 36#define maxstate s
00004140  74 61 74 65 73 2D 31 0D  0A 0D 0A 74 79 70 65 64  65 66 20 42 79 74 65 20  73 74 61 74 65 5B 33 36  tates-1typedef Byte state[36
00004160  5D 3B 0D 0A 74 79 70 65  64 65 66 20 73 74 61 74  65 20 72 75 6C 65 69 3B  0D 0A 74 79 70 65 64 65  ];typedef state rulei;typede
00004180  66 20 72 75 6C 65 69 20  72 75 6C 65 5B 33 36 5D  3B 0D 0A 74 79 70 65 64  65 66 20 63 68 61 72 20  f rulei rule[36];typedef char 
000041A0  6E 61 6D 65 5B 33 33 5D  3B 0D 0A 0D 0A 6E 61 6D  65 20 72 75 6C 65 66 69  6C 65 6E 61 6D 65 3B 0D  name[33];name rulefilename;
000041C0  0A 46 49 4C 45 20 2A 72  75 6C 65 66 69 6C 65 3B  0D 0A 72 75 6C 65 20 66  61 72 20 2A 72 75 6C 65  FILE *rulefile;rule far *rule
000041E0  73 3B 0D 0A 57 6F 72 64  20 69 2C 20 6A 2C 20 6B  3B 0D 0A 69 6E 74 20 78  3B 0D 0A 42 79 74 65 20  s;Word i, j, k;int x;Byte 
00004200  6F 3B 0D 0A 42 79 74 65  20 72 3B 0D 0A 76 6F 69  64 20 77 72 69 74 65 72  75 6C 65 66 69 6C 65 28  o;Byte r;void writerulefile(
00004220  29 0D 0A 7B 0D 0A 20 20  66 77 72 69 74 65 28 72  75 6C 65 73 2C 20 73 69  7A 65 6F 66 28 72 75 6C  ){  fwrite(rules, sizeof(rul
00004240  65 29 2C 20 33 36 2C 20  72 75 6C 65 66 69 6C 65  29 3B 0D 0A 20 20 66 63  6C 6F 73 65 28 72 75 6C  e), 36, rulefile);  fclose(rul
00004260  65 66 69 6C 65 29 3B 0D  0A 7D 0D 0A 20 20 73 74  72 63 70 79 28 72 75 6C  65 66 69 6C 65 6E 61 6D  efile);}  strcpy(rulefilenam
00004280  65 2C 20 22 52 55 4C 45  2E 43 41 22 29 3B 0D 0A  20 20 69 66 28 28 72 75  6C 65 66 69 6C 65 3D 66  e, "RULE.CA");  if((rulefile=f
000042A0  6F 70 65 6E 28 72 75 6C  65 66 69 6C 65 6E 61 6D  65 2C 20 22 77 62 22 29  29 3D 3D 4E 55 4C 4C 29  open(rulefilename, "wb"))==NULL)
000042C0  0D 0A 20 20 7B 0D 0A 20  20 20 20 70 72 69 6E 74  66 28 22 63 61 6E 27 74  20 6F 70 65 6E 20 66 69    {    printf("can't open fi
000042E0  6C 65 2E 5C 6E 22 29 3B  0D 0A 20 20 20 20 65 78  69 74 28 31 29 3B 0D 0A  20 20 7D 0D 0A 20 20 72  le.\n");    exit(1);  }  r
00004300  75 6C 65 73 3D 66 61 72  63 61 6C 6C 6F 63 28 33  36 2C 20 73 69 7A 65 6F  66 28 72 75 6C 65 29 29  ules=farcalloc(36, sizeof(rule))
00004320  3B 0D 0A 20 20 69 66 28  72 75 6C 65 73 3D 3D 4E  55 4C 4C 29 0D 0A 20 20  7B 0D 0A 20 20 20 20 70  ;  if(rules==NULL)  {    p
00004340  72 69 6E 74 66 28 22 63  61 6E 27 74 20 67 65 74  20 74 68 65 20 6D 65 6D  21 5C 6E 22 29 3B 0D 0A  rintf("can't get the mem!\n");
00004360  20 20 20 20 65 78 69 74  28 31 29 3B 0D 0A 20 20  7D 0D 0A 20 20 66 77 72  69 74 65 28 72 75 6C 65      exit(1);  }  fwrite(rule
00004380  73 2C 20 73 69 7A 65 6F  66 28 72 75 6C 65 29 2C  20 33 36 2C 20 72 75 6C  65 66 69 6C 65 29 3B 0D  s, sizeof(rule), 36, rulefile);
000043A0  0A 74 79 70 65 64 65 66  20 73 74 61 74 65 20 72  75 6C 65 69 3B 0D 0A 74  79 70 65 64 65 66 20 72  typedef state rulei;typedef r
000043C0  75 6C 65 69 20 72 75 6C  65 5B 33 36 5D 3B 0D 0A  72 75 6C 65 73 3D 66 61  72 63 61 6C 6C 6F 63 28  ulei rule[36];rules=farcalloc(
000043E0  33 36 2C 20 73 69 7A 65  6F 66 28 72 75 6C 65 29  29 3B 0D 0A 20 20 69 66  28 72 75 6C 65 73 3D 3D  36, sizeof(rule));  if(rules==
00004400  4E 55 4C 4C 29 0D 0A 20  20 7B 0D 0A 20 20 20 20  70 72 69 6E 74 66 28 22  63 61 6E 27 74 20 67 65  NULL)  {    printf("can't ge
00004420  74 20 74 68 65 20 6D 65  6D 21 5C 6E 22 29 3B 0D  0A 20 20 20 20 65 78 69  74 28 31 29 3B 0D 0A 20  t the mem!\n");    exit(1); 
00004440  20 7D 0D 0A 20 20 0D 0A  76 6F 69 64 20 43 6C 65  61 72 5F 53 63 72 65 65  6E 28 29 0D 0A 7B 0D 0A   }  void Clear_Screen(){
00004460  20 20 53 65 74 5F 47 72  61 70 68 69 63 73 5F 4D  6F 64 65 28 31 36 30 2C  20 31 30 30 29 3B 0D 0A    Set_Graphics_Mode(160, 100);
00004480  20 20 49 6E 69 74 5F 50  61 6C 65 74 74 65 28 50  61 6C 41 72 72 61 79 29  3B 0D 0A 20 20 53 65 74    Init_Palette(PalArray);  Set
000044A0  5F 50 61 6C 65 74 74 65  28 50 61 6C 41 72 72 61  79 29 3B 0D 0A 7D 0D 0A  23 64 65 66 69 6E 65 20  _Palette(PalArray);}#define 
000044C0  50 69 4F 76 65 72 31 38  30 20 30 2E 30 31 37 34  35 0D 0A 0D 0A 66 6C 6F  61 74 20 53 69 6E 44 28  PiOver180 0.01745float SinD(
000044E0  66 6C 6F 61 74 20 61 29  0D 0A 7B 0D 0A 20 20 72  65 74 75 72 6E 20 28 73  69 6E 28 61 20 2A 20 50  float a){  return (sin(a * P
00004500  69 4F 76 65 72 31 38 30  29 29 3B 0D 0A 7D 0D 0A  0D 0A 66 6C 6F 61 74 20  43 6F 73 44 28 66 6C 6F  iOver180));}float CosD(flo
00004520  61 74 20 61 29 0D 0A 7B  0D 0A 20 20 72 65 74 75  72 6E 20 28 63 6F 73 28  61 20 2A 20 50 69 4F 76  at a){  return (cos(a * PiOv
00004540  65 72 31 38 30 29 29 3B  0D 0A 7D 0D 0A 75 6E 69  6F 6E 20 20 52 45 47 53  20 72 65 67 3B 0D 0A 73  er180));}union  REGS reg;s
00004560  74 72 75 63 74 20 53 52  45 47 53 20 69 6E 72 65  67 3B 0D 0A 76 6F 69 64  20 53 65 74 5F 4D 6F 64  truct SREGS inreg;void Set_Mod
00004580  65 28 69 6E 74 20 4D 6F  64 65 29 0D 0A 7B 0D 0A  20 20 72 65 67 2E 68 2E  61 68 3D 30 3B 0D 0A 20  e(int Mode){  reg.h.ah=0; 
000045A0  20 72 65 67 2E 68 2E 61  6C 3D 4D 6F 64 65 3B 0D  0A 20 20 69 6E 74 38 36  28 30 78 31 30 2C 26 72   reg.h.al=Mode;  int86(0x10,&r
000045C0  65 67 2C 26 72 65 67 29  3B 0D 0A 7D 0D 0A 4C 41  4D 50 53 0D 0A 20 20 20  52 45 46 4C 41 4D 50 20  eg,&reg);}LAMPS   REFLAMP 
000045E0  3D 20 46 41 4C 53 45 0D  0A 20 20 20 4C 41 4D 50  52 45 46 20 3D 20 20 20  20 30 2E 30 30 30 20 20  = FALSE   LAMPREF =    0.000  
00004600  20 20 30 2E 30 30 30 20  20 20 20 30 2E 30 30 30  0D 0A 20 20 20 44 49 53  54 45 46 46 20 3D 20 20    0.000    0.000   DISTEFF =  
00004620  20 20 30 2E 33 30 30 0D  0A 20 20 20 54 52 41 4E  53 20 20 20 3D 20 20 20  20 30 2E 30 30 30 20 20    0.300   TRANS   =    0.000  
00004640  20 20 30 2E 30 30 30 20  20 20 20 30 2E 30 30 30  0D 0A 20 20 20 49 4E 44  45 58 20 20 20 3D 20 20    0.000    0.000   INDEX   =  
00004660  20 20 31 2E 30 30 30 0D  0A 4D 41 54 45 52 49 41  4C 0D 0A 20 20 20 54 59  50 45 20 20 20 20 3D 20    1.000MATERIAL   TYPE    = 
00004680  57 41 54 45 52 0D 0A 20  20 20 54 45 58 54 55 52  45 20 3D 20 4F 43 45 41  4E 57 41 56 45 53 0D 0A  WATER   TEXTURE = OCEANWAVES
000046A0  20 20 20 41 4D 42 52 46  4C 20 20 3D 20 20 20 20  30 2E 31 30 30 20 20 20  20 30 2E 31 30 30 20 20     AMBRFL  =    0.100    0.100  
000046C0  20 20 30 2E 33 30 30 0D  0A 20 20 20 44 49 46 52  46 4C 20 20 3D 20 20 20  20 30 2E 31 30 30 20 20    0.300   DIFRFL  =    0.100  
000046E0  20 20 30 2E 33 30 30 20  20 20 20 30 2E 33 30 30  0D 0A 20 20 20 53 50 43  52 46 4C 20 20 3D 20 20    0.300    0.300   SPCRFL  =  
00004700  20 20 30 2E 31 30 30 20  20 20 20 30 2E 31 30 30  20 20 20 20 30 2E 34 30  30 0D 0A 20 20 20 47 4C    0.100    0.100    0.400   GL
00004720  4F 53 53 20 20 20 3D 20  20 20 20 33 2E 30 30 30  0D 0A 20 20 20 54 52 41  4E 53 20 20 20 3D 20 20  OSS   =    3.000   TRANS   =  
00004740  20 20 30 2E 30 30 30 20  20 20 20 30 2E 30 30 30  20 20 20 20 30 2E 30 30  30 0D 0A 20 20 20 49 4E    0.000    0.000    0.000   IN
00004760  44 45 58 20 20 20 3D 20  20 20 20 31 2E 30 30 30  0D 0A 20 20 20 41 4D 50  4C 20 20 20 20 3D 20 20  DEX   =    1.000   AMPL    =  
00004780  20 20 30 2E 35 35 30 0D  0A 20 20 20 50 48 41 53  45 20 20 20 3D 20 20 30  2E 30 30 30 30 30 30 30    0.550   PHASE   =  0.0000000
000047A0  30 30 30 30 30 30 30 45  2B 30 30 30 30 0D 0A 23  69 6E 63 6C 75 64 65 20  22 73 74 64 69 6F 2E 68  0000000E+0000#include "stdio.h
000047C0  22 0D 0A 23 69 6E 63 6C  75 64 65 20 22 64 6F 73  2E 68 22 0D 0A 23 69 6E  63 6C 75 64 65 20 22 6D  "#include "dos.h"#include "m
000047E0  61 74 68 2E 68 22 0D 0A  23 69 6E 63 6C 75 64 65  20 22 64 65 66 73 2E 68  22 0D 0A FF FF 00 00     ath.h"#include "defs.h"  ..
[ RETURN TO DIRECTORY ]