==============================================================================================================================================
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 10 01 08 00 00 00  E6 00 BB 00 91 00 67 00  3C 00 12 00 12 00 54 45  54 52 41 2E 43 00 01 00  d.►☺◘...µ.╗.æ.g.<.↕.↕.TETRA.C.☺.
00000040  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 00 00  ☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺...
00000060  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 01 00 01  GRAPHB.C.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺
00000080  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 01 00 01  .☺.☺.☺.☺...MATHB.C.☺.☺.☺.☺.☺.☺.☺
000000A0  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  00 01 00 00 00 54 45 54  52 41 2E 43 00 01 00 01  .☺.☺.☺.☺.☺.☺.☺.☺.☺...TETRA.C.☺.☺
000000C0  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 00 00 47  .☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺...G
000000E0  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 01 00 01 00  RAPHB.C.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.
00000100  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 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 00 00 65 00 D8 00  0E 00 1C 00 B6 00 00 00  ☺.☺.☺.☺.☺.☺.☺.☺.☺...e.╪.♫.∟.╢...
00000140  17 00 2E 00 45 00 49 00  59 00 6A 00 7D 00 8A 00  9C 00 A3 00 A8 00 AC 00  B2 00 5C 42 4C 53 43 5C  ↨...E.I.Y.j.}.è.£.ú.¿.¼.▓.\BLSC\
00000160  4D 4F 44 45 4C 5C 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  MODEL\MAKEOBJS.C.\BLSC\MODEL\CON
00000180  45 50 59 52 4D 2E 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  EPYRM.C.\BLSC\MODEL\CYLINDER.C.*
000001A0  2E 2A 00 5C 42 4C 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  .*.\BLSC\MODEL\*.C.\WORK\GRAPH3.
000001C0  49 4E 43 00 5C 42 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  INC.\BLSC\SCNSCRPT\*.C.\WORK\G*.
000001E0  49 4E 43 00 43 3A 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  INC.C:\TEMP\TMP\*.DOC.C:*.ME.*.R
00000200  54 00 2A 2E 48 00 2A 2E  50 41 53 00 2A 2E 43 00  78 00 8B 00 0F 00 1E 00  67 00 00 00 04 00 0B 00  T.*.H.*.PAS.*.C.x.ï.☼.▲.g...♦.♂.
00000220  14 00 1B 00 23 00 2B 00  32 00 3E 00 42 00 4D 00  52 00 57 00 5D 00 5E 00  74 64 61 00 76 65 63 73  ¶.←.#.+.2.>.B.M.R.W.].^.tda.vecs
00000240  75 62 00 76 65 63 63 72  6F 73 73 00 76 65 63 64  6F 74 00 76 65 63 63 6F  70 79 00 76 65 63 61 64  ub.veccross.vecdot.veccopy.vecad
00000260  64 33 00 76 65 63 61 64  64 00 76 65 63 73 63 61  6C 6D 75 6C 74 00 76 65  63 00 64 72 61 77 6C 69  d3.vecadd.vecscalmult.vec.drawli
00000280  6E 65 33 64 00 63 6F 73  64 00 73 69 6E 64 00 72  6F 75 6E 64 00 00 69 6E  74 70 6F 77 65 72 00 79  ne3d.cosd.sind.round..intpower.y
000002A0  00 91 00 0F 00 1E 00 6D  00 00 00 05 00 09 00 10  00 19 00 20 00 28 00 30  00 37 00 43 00 47 00 54  .æ.☼.▲.m...♣.○.►.↓. .(.0.7.C.G.T
000002C0  00 59 00 5E 00 64 00 42  79 74 65 00 54 44 41 00  56 65 63 53 75 62 00 56  65 63 43 72 6F 73 73 00  .Y.^.d.Byte.TDA.VecSub.VecCross.
000002E0  56 65 63 44 6F 74 00 56  65 63 43 6F 70 79 00 56  65 63 41 64 64 33 00 56  65 63 41 64 64 00 56 65  VecDot.VecCopy.VecAdd3.VecAdd.Ve
00000300  63 53 63 61 6C 4D 75 6C  74 00 56 65 63 00 44 72  61 77 5F 4C 69 6E 65 5F  33 44 00 43 6F 73 44 00  cScalMult.Vec.Draw_Line_3D.CosD.
00000320  53 69 6E 44 00 52 6F 75  6E 64 00 49 6E 74 50 6F  77 65 72 00 7A 00 14 00  02 00 04 00 0A 00 00 00  SinD.Round.IntPower.z.¶.☻.♦.◙...
00000340  06 00 2A 2E 4F 42 4A 00  2A 2E 43 00 F4 01 2C 05  1E 00 00 19 00 00 0F 05  40 15 0F 05 40 15 04 00  ♠.*.OBJ.*.C.⌠☺,♣▲..↓..☼♣@§☼♣@§♦.
00000360  20 20 07 00 00 00 00 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    •...........↕..↓...◄O↨.◄O↨☻.0♪
00000380  34 00 01 19 00 01 00 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  4.☺↓.☺.☺O↨.☺O►....☺.¥☻☺.ë☻......
000003A0  00 00 00 00 00 00 00 00  00 00 01 00 99 02 01 00  9D 02 00 00 53 00 00 19  00 01 00 01 4F 17 01 02  ..........☺.Ö☻☺.¥☻..S..↓.☺.☺O↨☺☻
000003C0  4F 17 00 00 00 00 43 3A  5C 42 4C 53 43 5C 52 54  53 43 52 50 54 5C 54 4D  50 5C 42 4F 55 4E 43 45  O↨....C:\BLSC\RTSCRPT\TMP\BOUNCE
000003E0  2E 50 41 53 00 5D 00 CC  00 10 00 B8 00 01 00 01  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  .PAS.].╠.►.╕.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺
00000400  00 01 00 01 00 00 00 4E  00 00 19 00 01 00 01 4F  17 00 01 4F 10 00 00 00  00 43 3A 5C 42 4C 53 43  .☺.☺...N..↓.☺.☺O↨.☺O►....C:\BLSC
00000420  5C 52 54 53 43 52 50 54  5C 42 4F 55 4E 43 45 32  2E 43 00 01 00 01 00 01  00 01 00 01 00 01 00 01  \RTSCRPT\BOUNCE2.C.☺.☺.☺.☺.☺.☺.☺
00000440  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  00 01 00 00 00 50 00 00  19 00 01 00 01 4F 17 00  .☺.☺.☺.☺.☺.☺.☺.☺.☺...P..↓.☺.☺O↨.
00000460  01 4F 10 00 00 00 00 43  3A 5C 42 4C 53 43 5C 52  54 53 43 52 50 54 5C 54  4D 50 5C 52 4F 42 4F 54  ☺O►....C:\BLSC\RTSCRPT\TMP\ROBOT
00000480  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.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺
000004A0  00 01 00 00 00 52 00 00  19 00 01 00 01 4F 17 01  02 4F 17 00 00 00 00 43  3A 5C 42 4C 53 43 5C 52  .☺...R..↓.☺.☺O↨☺☻O↨....C:\BLSC\R
000004C0  54 53 43 52 50 54 5C 54  4D 50 5C 52 4F 42 4F 54  2E 50 41 53 00 01 00 01  00 11 00 AF 00 01 00 01  TSCRPT\TMP\ROBOT.PAS.☺.☺.◄.».☺.☺
000004E0  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  00 01 00 01 00 00 00 53  00 00 19 00 01 00 01 4F  .☺.☺.☺.☺.☺.☺.☺.☺.☺.☺...S..↓.☺.☺O
00000500  17 00 01 4F 10 00 00 00  00 43 3A 5C 42 4C 53 43  5C 52 54 53 43 52 50 54  5C 54 4D 50 5C 4E 45 57  ↨.☺O►....C:\BLSC\RTSCRPT\TMP\NEW
00000520  54 43 52 41 44 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  TCRAD.C.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.
00000540  01 00 0B 00 01 00 0B 00  00 00 52 00 00 19 00 01  00 01 4F 17 00 01 4F 10  00 00 00 00 43 3A 5C 42  ☺.♂.☺.♂...R..↓.☺.☺O↨.☺O►....C:\B
00000560  4C 53 43 5C 52 54 53 43  52 50 54 5C 54 4D 50 5C  50 49 41 4E 4F 2E 50 41  53 00 01 00 15 00 01 00  LSC\RTSCRPT\TMP\PIANO.PAS.☺.§.☺.
00000580  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 50 00 00 19  ☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺...P..↓
000005A0  00 01 00 01 4F 17 00 01  4F 10 00 00 00 00 43 3A  5C 42 4C 53 43 5C 52 54  53 43 52 50 54 5C 54 4D  .☺.☺O↨.☺O►....C:\BLSC\RTSCRPT\TM
000005C0  50 5C 50 49 41 4E 4F 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  P\PIANO.C.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.
000005E0  01 00 01 00 0B 00 01 00  0B 00 00 00 53 00 00 19  00 01 00 01 4F 17 00 01  4F 10 00 00 00 00 43 3A  ☺.☺.♂.☺.♂...S..↓.☺.☺O↨.☺O►....C:
00000600  5C 42 4C 53 43 5C 52 54  53 43 52 50 54 5C 54 4D  50 5C 54 45 54 53 50 48  52 32 2E 43 00 01 00 01  \BLSC\RTSCRPT\TMP\TETSPHR2.C.☺.☺
00000620  00 01 00 01 00 01 00 01  00 01 00 A5 00 01 00 01  00 01 00 01 00 01 00 0D  00 01 00 0D 00 00 00 55  .☺.☺.☺.☺.☺.Ñ.☺.☺.☺.☺.☺.♪.☺.♪...U
00000640  00 00 19 00 00 01 02 4F  17 00 01 4F 10 00 00 00  00 43 3A 5C 42 4C 53 43  5C 52 54 53 43 52 50 54  ..↓..☺☻O↨.☺O►....C:\BLSC\RTSCRPT
00000660  5C 54 4D 50 5C 54 45 54  53 50 48 52 32 2E 50 41  53 00 01 00 01 00 01 00  86 00 01 00 01 00 01 00  \TMP\TETSPHR2.PAS.☺.☺.☺.å.☺.☺.☺.
00000680  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 00 00 52 00 00 19  00 00 01 02 4F 17 00 01  ☺.☺.☺.☺.☺.☺.☺.☺.☺...R..↓..☺☻O↨.☺
000006A0  4F 10 00 00 00 00 43 3A  5C 42 4C 53 43 5C 52 54  53 43 52 50 54 5C 54 4D  50 5C 54 45 54 52 41 2E  O►....C:\BLSC\RTSCRPT\TMP\TETRA.
000006C0  50 41 53 00 01 00 B8 00  01 00 B8 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  PAS.☺.╕.☺.╕.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.
000006E0  01 00 01 00 00 00 12 00  00 19 00 00 00 11 4F 17  00 11 4F 17 08 00 00 00  4C 00 00 19 00 00 00 01  ☺.☺...↕..↓...◄O↨.◄O↨◘...L..↓...☺
00000700  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 54 45 54 52 41 2E  O►.☺O►....C:\BLSC\RTSCRPT\TETRA.
00000720  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 00  C.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.
00000740  01 00 00 00 4F 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  ☺...O..↓...☺O►.☺O►....C:\BLSC\RT
00000760  53 43 52 50 54 5C 54 45  54 53 50 48 52 32 2E 43  00 01 00 01 00 01 00 01  00 01 00 01 00 01 00 01  SCRPT\TETSPHR2.C.☺.☺.☺.☺.☺.☺.☺.☺
00000780  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 4F  .☺.☺.☺.☺.☺.☺.☺.☺...O..↓...☺O►.☺O
000007A0  10 00 00 00 00 43 3A 5C  42 4C 53 43 5C 52 54 53  43 52 50 54 5C 54 45 54  53 50 48 52 32 2E 43 00  ►....C:\BLSC\RTSCRPT\TETSPHR2.C.
000007C0  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  ☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.
000007E0  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
00000800  52 50 54 5C 57 41 56 45  53 2E 43 00 01 00 01 00  01 00 01 00 01 00 01 00  01 00 01 00 01 00 01 00  RPT\WAVES.C.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.
00000820  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 00 00  ☺.☺.☺.☺.☺.☺...N..↓...☺O►.☺O►....
00000840  43 3A 5C 42 4C 53 43 5C  52 54 53 43 52 50 54 5C  57 41 56 59 4F 52 42 2E  43 00 01 00 01 00 01 00  C:\BLSC\RTSCRPT\WAVYORB.C.☺.☺.☺.
00000860  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 F6 01 9D 3F  ☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺...÷☺¥?
00000880  4D 41 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  MATERIAL♪◙   TYPE    = MIRROR♪◙ 
000008A0  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 20 3D    TEXTURE = SMOOTH♪◙   AMBRFL  =
000008C0  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♪◙   
000008E0  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
00000900  2E 37 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  .700♪◙   SPCRFL  =    0.300    0
00000920  2E 33 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  .300    0.300♪◙   GLOSS   =   50
00000940  2E 30 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  .000♪◙♪◙MATERIAL♪◙   TYPE    = R
00000960  45 44 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  EDMIRROR♪◙   TEXTURE = SMOOTH♪◙ 
00000980  20 20 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    AMBRFL  =    0.000    0.000   
000009A0  20 30 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   0.000♪◙   DIFRFL  =    0.700   
000009C0  20 30 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   0.000    0.000♪◙   SPCRFL  =   
000009E0  20 30 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   0.300    0.000    0.000♪◙   GLO
00000A00  53 53 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  SS   =   50.000♪◙♪◙MATERIAL♪◙   
00000A20  54 59 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  TYPE    = GREENMIRROR♪◙   TEXTUR
00000A40  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 20 20 30 2E 30 30  E = SMOOTH♪◙   AMBRFL  =    0.00
00000A60  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 46 52 46 4C 20 20  0    0.000    0.000♪◙   DIFRFL  
00000A80  3D 20 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  =    0.000    0.700    0.000♪◙  
00000AA0  20 53 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   SPCRFL  =    0.000    0.300    
00000AC0  30 2E 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  0.000♪◙   GLOSS   =   50.000♪◙♪◙
00000AE0  4D 41 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  MATERIAL♪◙   TYPE    = BLUEMIRRO
00000B00  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 41 4D 42 52 46  R♪◙   TEXTURE = SMOOTH♪◙   AMBRF
00000B20  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 2E 30 30 30 0D  L  =    0.000    0.000    0.000♪
00000B40  0A 20 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  ◙   DIFRFL  =    0.000    0.000 
00000B60  20 20 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     0.700♪◙   SPCRFL  =    0.000 
00000B80  20 20 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     0.000    0.300♪◙   GLOSS   = 
00000BA0  20 20 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    50.000♪◙MATERIAL♪◙   TYPE    =
00000BC0  20 43 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   CHROME♪◙   TEXTURE = SMOOTH♪◙  
00000BE0  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 20 20   AMBRFL  =    0.100    0.100    
00000C00  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 31 30 30 20 20 20 20  0.100♪◙   DIFRFL  =    0.100    
00000C20  30 2E 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  0.100    0.100♪◙   SPCRFL  =    
00000C40  30 2E 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  0.800    0.800    0.800♪◙   GLOS
00000C60  53 20 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  S   =   40.000♪◙♪◙♪◙MATERIAL♪◙  
00000C80  20 54 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   TYPE    = BRASS♪◙   TEXTURE = S
00000CA0  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 31 30 30 20 20 20 20  MOOTH♪◙   AMBRFL  =    0.100    
00000CC0  30 2E 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  0.100    0.100♪◙   DIFRFL  =    
00000CE0  30 2E 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  0.300    0.300    0.300♪◙   SPCR
00000D00  46 4C 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  FL  =    0.600    0.500    0.250
00000D20  0D 0A 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  ♪◙   GLOSS   =   30.000♪◙MATERIA
00000D40  4C 0D 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  L♪◙   TYPE    = WATER♪◙   TEXTUR
00000D60  45 20 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  E = GRIT♪◙   AMBRFL  =    0.100 
00000D80  20 20 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     0.100    0.300♪◙   DIFRFL  = 
00000DA0  20 20 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     0.100    0.300    0.300♪◙   S
00000DC0  50 43 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  PCRFL  =    0.100    0.100    0.
00000DE0  34 30 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  400♪◙   GLOSS   =    3.000♪◙MATE
00000E00  52 49 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  RIAL♪◙   TYPE    = PLASTICTILE♪◙
00000E20  20 20 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     TEXTURE = CHECKER♪◙   AMBRFL 
00000E40  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 31 30 30 0D 0A 20   =    0.100    0.100    0.100♪◙ 
00000E60  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 2E 37 30 30 20 20 20    DIFRFL  =    0.700    0.700   
00000E80  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 32 30 30 20 20 20   0.700♪◙   SPCRFL  =    0.200   
00000EA0  20 30 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   0.200    0.200♪◙   GLOSS   =   
00000EC0  20 34 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   4.000♪◙♪◙CHECK♪◙   TILE1   =   
00000EE0  20 31 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   1.000    0.000    0.000♪◙   TIL
00000F00  45 32 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  E2   =    0.200    0.200    0.20
00000F20  30 0D 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  0♪◙   TILE    =    0.02♪◙MATERIA
00000F40  4C 0D 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  L♪◙   TYPE    = ITALIANMARBLE♪◙ 
00000F60  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 3D 20 20    TEXTURE = WOOD♪◙   AMBRFL  =  
00000F80  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 44 49    0.100    0.100    0.100♪◙   DI
00000FA0  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
00000FC0  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 2E 32  00♪◙   SPCRFL  =    0.200    0.2
00000FE0  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 31 30 2E 30  00    0.200♪◙   GLOSS   =   10.0
00001000  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 4F 41 4B 57 4F  00♪◙MATERIAL♪◙   TYPE    = OAKWO
00001020  4F 44 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  OD♪◙   TEXTURE = WOOD♪◙   AMBRFL
00001040  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 0A    =    0.200    0.200    0.200♪◙
00001060  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 2E 34 30 30 20 20     DIFRFL  =    0.700    0.400  
00001080  20 20 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    0.300♪◙   SPCRFL  =    0.100  
000010A0  20 20 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    0.100    0.100♪◙   GLOSS   =  
000010C0  20 20 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    5.000♪◙MATERIAL♪◙   TYPE    = 
000010E0  47 52 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  GRASS♪◙   TEXTURE = GRIT♪◙   AMB
00001100  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 20 20 30 2E 32 30  RFL  =    0.200    0.200    0.20
00001120  30 0D 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  0♪◙   DIFRFL  =    0.600    0.80
00001140  30 20 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  0    0.250♪◙   SPCRFL  =    0.00
00001160  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 20 20 20  0    0.000    0.000♪◙   GLOSS   
00001180  3D 20 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  =    0.000♪◙♪◙♪◙MATERIAL♪◙   TYP
000011A0  45 20 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  E    = CEMENT♪◙   TEXTURE = GRIT
000011C0  0D 0A 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  ♪◙   AMBRFL  =    0.200    0.200
000011E0  20 20 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      0.200♪◙   DIFRFL  =    0.800
00001200  20 20 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      0.800    0.800♪◙   SPCRFL  =
00001220  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♪◙   
00001240  47 4C 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  GLOSS   =    0.000♪◙MATERIAL♪◙  
00001260  20 54 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   TYPE    = BLACKCHROME♪◙   TEXTU
00001280  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 20 20 31 2E 30  RE = SMOOTH♪◙   AMBRFL  =    1.0
000012A0  30 30 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  00    1.000    1.000♪◙   DIFRFL 
000012C0  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♪◙ 
000012E0  20 20 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    SPCRFL  =    0.000    0.000   
00001300  20 30 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   0.000♪◙   GLOSS   =   40.000♪◙P
00001320  59 52 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  YRAMID♪◙   LOC     = -200.000 99
00001340  39 39 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  99.000    0.000♪◙   V1      =  4
00001360  30 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 56 32 20  00.000    0.000    0.000♪◙   V2 
00001380  20 20 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       =    0.000  400.000    0.00
000013A0  30 0D 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  0♪◙   HEIGHT  = 1200.000♪◙   MAT
000013C0  4C 20 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  L    = BLACKCHROME♪◙LAMP♪◙   LOC
000013E0  20 20 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       = 1000.000 -999.000 1000.00
00001400  30 0D 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  0♪◙   RADIUS  =  700.000♪◙   INT
00001420  45 4E 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  ENS  =    1.000    1.000    0.90
00001440  30 0D 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  0♪◙○○aquamarine           0.4392
00001460  31 36 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  16 0.858824 0.576471♪◙○○black   
00001480  20 20 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               0.000000 0.000000 0
000014A0  2E 30 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  .000000♪◙○○blue                 
000014C0  30 2E 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  0.000000 0.000000 1.000000♪◙○○bl
000014E0  75 65 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  ue_violet          0.623529 0.37
00001500  32 35 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  2549 0.623529♪◙○○brown          
00001520  20 20 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        0.647059 0.164706 0.164706
00001540  0D 0A 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  ♪◙○○cadet_blue           0.37254
00001560  39 20 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  9 0.623529 0.623529♪◙○○coral    
00001580  20 20 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              1.000000 0.498039 0.
000015A0  30 30 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  000000♪◙○○cornflower_blue      0
000015C0  2E 32 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  .258824 0.258824 0.435294♪◙○○cya
000015E0  6E 20 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  n                 0.000000 1.000
00001600  30 30 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  000 1.000000♪◙○○dark_green      
00001620  20 20 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       0.184314 0.309804 0.184314♪
00001640  0A 09 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  ◙○○dark_olive_green     0.309804
00001660  20 30 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   0.309804 0.184314♪◙○○dark_orchi
00001680  64 20 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  d          0.600000 0.196078 0.8
000016A0  30 30 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  00000♪◙○○dark_slate_blue      0.
000016C0  34 31 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  419608 0.137255 0.556863♪◙○○dark
000016E0  5F 73 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  _slate_gray      0.184314 0.3098
00001700  30 34 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  04 0.309804♪◙○○dark_slate_grey  
00001720  20 20 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      0.184314 0.309804 0.309804♪◙
00001740  09 09 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  ○○dark_turquoise       0.439216 
00001760  30 2E 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  0.576471 0.858824♪◙○○dim_gray   
00001780  20 20 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            0.329412 0.329412 0.32
000017A0  39 34 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  9412♪◙○○dim_grey             0.3
000017C0  32 39 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  29412 0.329412 0.329412♪◙○○fireb
000017E0  72 69 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  rick            0.556863 0.13725
00001800  35 20 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  5 0.137255♪◙○○forest_green      
00001820  20 20 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     0.137255 0.556863 0.137255♪◙○
00001840  09 67 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  ○gold                 0.800000 0
00001860  2E 34 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  .498039 0.196078♪◙○○goldenrod   
00001880  20 20 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           0.858824 0.858824 0.439
000018A0  32 31 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  216♪◙○○gray                 0.75
000018C0  32 39 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  2941 0.752941 0.752941♪◙○○green 
000018E0  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 30                 0.000000 1.000000
00001900  20 30 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   0.000000♪◙○○green_yellow       
00001920  20 20 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    0.576471 0.858824 0.439216♪◙○○
00001940  67 72 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  grey                 0.752941 0.
00001960  37 35 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  752941 0.752941♪◙○○indian_red   
00001980  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 31 38 34 33          0.309804 0.184314 0.1843
000019A0  31 34 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  14♪◙○○khaki                0.623
000019C0  35 32 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  529 0.623529 0.372549♪◙○○light_b
000019E0  6C 75 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  lue           0.749020 0.847059 
00001A00  30 2E 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  0.847059♪◙○○light_gray          
00001A20  20 30 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   0.658824 0.658824 0.658824♪◙○○l
00001A40  69 67 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  ight_grey           0.658824 0.6
00001A60  35 38 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  58824 0.658824♪◙○○light_steel_bl
00001A80  75 65 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  ue     0.560784 0.560784 0.73725
00001AA0  35 0D 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  5♪◙○○lime_green           0.1960
00001AC0  37 38 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  78 0.800000 0.196078♪◙○○magenta 
00001AE0  20 20 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               1.000000 0.000000 1
00001B00  2E 30 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  .000000♪◙○○maroon               
00001B20  30 2E 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  0.556863 0.137255 0.419608♪◙○○me
00001B40  64 69 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  dium_aquamarine    0.196078 0.80
00001B60  30 30 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  0000 0.600000♪◙○○medium_blue    
00001B80  20 20 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        0.196078 0.196078 0.800000
00001BA0  0D 0A 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  ♪◙○○medium_forest_green  0.41960
00001BC0  38 20 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  8 0.556863 0.137255♪◙○○medium_go
00001BE0  6C 64 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  ldenrod     0.917647 0.917647 0.
00001C00  36 37 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  678431♪◙○○medium_orchid        0
00001C20  2E 35 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  .576471 0.439216 0.858824♪◙○○med
00001C40  69 75 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  ium_sea_green     0.258824 0.435
00001C60  32 39 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  294 0.258824♪◙○○medium_slate_blu
00001C80  65 20 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  e    0.498039 0.000000 1.000000♪
00001CA0  0A 09 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  ◙○○medium_spring_green  0.498039
00001CC0  20 31 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   1.000000 0.000000♪◙○○medium_tur
00001CE0  71 75 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  quoise     0.439216 0.858824 0.8
00001D00  35 38 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  58824♪◙○○medium_violet_red    0.
00001D20  38 35 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  858824 0.439216 0.576471♪◙○○midn
00001D40  69 67 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  ight_blue        0.184314 0.1843
00001D60  31 34 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  14 0.309804♪◙○○navy             
00001D80  20 20 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      0.137255 0.137255 0.556863♪◙
00001DA0  09 09 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  ○○navy_blue            0.137255 
00001DC0  30 2E 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  0.137255 0.556863♪◙○○orange     
00001DE0  20 20 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            0.800000 0.196078 0.19
00001E00  36 30 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  6078♪◙○○orange_red           1.0
00001E20  30 30 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  00000 0.000000 0.498039♪◙○○orchi
00001E40  64 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 34 33 39 32 31  d               0.858824 0.43921
00001E60  36 20 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  6 0.858824♪◙○○pale_green        
00001E80  20 20 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     0.560784 0.737255 0.560784♪◙○
00001EA0  09 70 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  ○pink                 0.737255 0
00001EC0  2E 35 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  .560784 0.560784♪◙○○plum        
00001EE0  20 20 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           0.917647 0.678431 0.917
00001F00  36 34 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  647♪◙○○red                  1.00
00001F20  30 30 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  0000 0.000000 0.000000♪◙○○salmon
00001F40  20 20 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                 0.435294 0.258824
00001F60  20 30 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   0.258824♪◙○○sea_green          
00001F80  20 20 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    0.137255 0.556863 0.419608♪◙○○
00001FA0  73 69 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  sienna               0.556863 0.
00001FC0  34 31 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  419608 0.137255♪◙○○sky_blue     
00001FE0  20 20 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          0.196078 0.600000 0.8000
00002000  30 30 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  00♪◙○○slate_blue           0.000
00002020  30 30 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  000 0.498039 1.000000♪◙○○spring_
00002040  67 72 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  green         0.000000 1.000000 
00002060  30 2E 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  0.498039♪◙○○steel_blue          
00002080  20 30 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   0.137255 0.419608 0.556863♪◙○○t
000020A0  61 6E 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  an                  0.858824 0.5
000020C0  37 36 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  76471 0.439216♪◙○○thistle       
000020E0  20 20 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         0.847059 0.749020 0.84705
00002100  39 0D 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  9♪◙○○turquoise            0.6784
00002120  33 31 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  31 0.917647 0.917647♪◙○○violet  
00002140  20 20 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               0.309804 0.184314 0
00002160  2E 33 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  .309804♪◙○○violet_red           
00002180  30 2E 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  0.800000 0.196078 0.600000♪◙○○wh
000021A0  65 61 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  eat                0.847059 0.84
000021C0  37 30 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  7059 0.749020♪◙○○white          
000021E0  20 20 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        0.988235 0.988235 0.988235
00002200  0D 0A 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  ♪◙○○yellow               1.00000
00002220  30 20 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  0 1.000000 0.000000♪◙○○yellow_gr
00002240  65 65 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  een         0.600000 0.800000 0.
00002260  31 39 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  196078♪◙typedef unsigned char   
00002280  20 20 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     Byte;♪◙typedef unsigned int  
000022A0  20 20 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       Word;♪◙typedef enum {false,
000022C0  20 74 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   true} Boolean;♪◙typedef struct♪
000022E0  0A 7B 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  ◙{♪◙  Byte Red;♪◙  Byte Grn;♪◙  
00002300  42 79 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  Byte Blu;♪◙}♪◙RGB;♪◙♪◙typedef RG
00002320  42 20 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  B PaletteRegister[256];♪◙♪◙void 
00002340  53 65 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  Set_Graphics_Mode()♪◙{♪◙  if((XR
00002360  65 73 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  es<321) && (YRes<201))♪◙    Init
00002380  47 72 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  Graphics(19);♪◙  else♪◙  {♪◙    
000023A0  69 66 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  if((XRes<641) && (YRes<351))♪◙  
000023C0  20 20 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      InitGraphics(45);♪◙    else♪
000023E0  0A 20 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  ◙    {♪◙      if((XRes<641) && (
00002400  59 52 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  YRes<481))♪◙○InitGraphics(46);♪◙
00002420  20 20 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        else♪◙      {♪◙○if((XRes<8
00002440  30 31 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  01) && (YRes<601))♪◙○  InitGraph
00002460  69 63 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  ics(48);♪◙○else♪◙○  InitGraphics
00002480  28 35 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  (56);♪◙      }♪◙    }♪◙  }♪◙}♪◙ 
000024A0  20 50 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   Pic_File=fopen(P_Name, "w+b");♪
000024C0  0A 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  ◙  for(y=0; y<7; y++);♪◙  {♪◙   
000024E0  20 66 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   fputc(253, Pic_File);♪◙    fput
00002500  63 28 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  c(20, Pic_File);♪◙    fputc(41, 
00002520  50 69 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  Pic_File);♪◙    fputc(14, Pic_Fi
00002540  6C 65 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  le);♪◙    fputc(0, Pic_File);♪◙ 
00002560  20 20 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     fputc(9, Pic_File);♪◙    fput
00002580  63 28 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  c(3, Pic_File);♪◙  }♪◙void GetSc
000025A0  65 6E 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  eneFile()♪◙{♪◙  int i;♪◙  Byte x
000025C0  2C 20 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  , y;♪◙♪◙  printf("\nEnter File N
000025E0  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 77  ame -> ");♪◙  x=wherex();♪◙  y=w
00002600  68 65 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  herey();♪◙  gets(SceneFile);♪◙  
00002620  69 66 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  if(!(strcmp(SceneFile, "")))♪◙  
00002640  7B 0D 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  {♪◙    strcpy(SceneFile, "CUBEPL
00002660  41 4E 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  AN");♪◙    gotoxy(x, y);♪◙    pu
00002680  74 73 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  ts(SceneFile);♪◙  }♪◙  puts("");
000026A0  0D 0A 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  ♪◙  for(i=0; i<strlen(SceneFile)
000026C0  3B 20 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  ; i++)♪◙    SceneFile[i]=toupper
000026E0  28 53 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  (SceneFile[i]);♪◙}♪◙♪◙void Save_
00002700  50 69 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  Picture()♪◙{♪◙  Word x, y;♪◙  By
00002720  74 65 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  te d;♪◙  FILE *Out_File;♪◙♪◙  Ou
00002740  74 5F 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  t_File=fopen("TEMP.TGA", "w+b");
00002760  0D 0A 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  ♪◙  for(y=0; y<7; y++);♪◙  {♪◙  
00002780  20 20 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    putw(256, Out_File);♪◙    putw
000027A0  28 31 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  (1, Out_File);♪◙    putw(0, Out_
000027C0  46 69 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  File);♪◙    putc(1, Out_File);♪◙
000027E0  20 20 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      putc(24, Out_File);♪◙    put
00002800  77 28 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  w(0, Out_File);♪◙    putw(0, Out
00002820  5F 46 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  _File);♪◙    putw(XRes, Out_File
00002840  29 3B 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  );♪◙    putw(YRes, Out_File);♪◙ 
00002860  20 20 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     putw(CRes, Out_File);♪◙  }♪◙ 
00002880  20 66 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   for(y=0; y<256; y++)♪◙  {♪◙    
000028A0  66 70 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  fputc((PalArray[y].Blu)<<2, Out_
000028C0  46 69 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  File);♪◙    fputc((PalArray[y].G
000028E0  72 6E 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  rn)<<2, Out_File);♪◙    fputc((P
00002900  61 6C 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  alArray[y].Red)<<2, Out_File);♪◙
00002920  20 20 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    }♪◙  for(y=YRes; y>0; y--)♪◙  
00002940  7B 0D 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  {♪◙    for(x=0; x<XRes; x++)♪◙  
00002960  20 20 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    {♪◙      d=GetPixel(x, y-1);♪◙
00002980  20 20 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        fputc(d, Out_File);♪◙    }
000029A0  0D 0A 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  ♪◙  }♪◙  fcloseall();♪◙}♪◙♪◙#inc
000029C0  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 64 6F 73 2E 68 22  lude "stdio.h"♪◙#include "dos.h"
000029E0  0D 0A 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  ♪◙#include "conio.h"♪◙#include "
00002A00  64 65 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  defs.h"♪◙♪◙void Set_Text_Screen(
00002A20  69 6E 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  int tc, int tb)♪◙{♪◙  textcolor(
00002A40  74 63 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  tc);♪◙  textbackground(tb);♪◙  c
00002A60  6C 72 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  lrscr();♪◙}♪◙installuserdriver("
00002A80  53 56 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  SVGA256",DetectVGA256);♪◙♪◙; ***
00002AA0  2A 2A 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  ******************** Function st
00002AC0  6F 72 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  oredac() ***********************
00002AE0  2A 2A 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  *****♪◙♪◙;○Function to Store the
00002B00  20 64 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   dacbox[][] array into VGA,♪◙;○c
00002B20  61 6C 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  alled from loaddac() durring ini
00002B40  74 69 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  tialization.♪◙♪◙storedac○proc♪◙○
00002B60  70 75 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  push○es○○○; need ES == DS tempor
00002B80  61 72 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  arily♪◙○push○ds○○○;  ...♪◙○pop○e
00002BA0  73 09 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  s○○○;  ...♪◙○mov○ax,1012h○○; get
00002BC0  20 74 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   the old DAC values♪◙○mov○bx,0○○
00002BE0  09 3B 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  ○;  (assuming, of course, they e
00002C00  78 69 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  xist)♪◙○mov○cx,256○○○;  ...♪◙○mo
00002C20  76 09 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  v○dx,offset dacbox○;  ...♪◙○int○
00002C40  31 30 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  10h○○○; do it.♪◙○pop○es○○○;  ...
00002C60  0D 0A 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  ♪◙○ret♪◙storedac endp♪◙Ç☻^☺ô♪◙ex
00002C80  74 65 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  tern int  XRes, YRes;♪◙extern Wo
00002CA0  72 64 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  rd MaxXRes, MaxYRes;♪◙extern Wor
00002CC0  64 20 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  d MaxX, MaxY;♪◙extern Boolean Pe
00002CE0  72 73 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  rspectivePlot;♪◙extern float   M
00002D00  78 2C 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  x, My, Mz, ds;♪◙extern Boolean D
00002D20  72 61 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  raw_Axis_And_Palette;♪◙#include 
00002D40  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 23 69 6E  "stdio.h"♪◙#include "dos.h"♪◙#in
00002D60  63 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  clude "defs.h"♪◙#include "global
00002D80  73 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 23 69 6E 63 6C 75  s.h"♪◙#include "mathb.h"♪◙#inclu
00002DA0  64 65 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  de "graphb.h"♪◙MASM %1 %1 NUL NU
00002DC0  4C 0D 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  L♪◙IF ERRORLEVEL 1 GOTO PROBLEM♪
00002DE0  0A 4C 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  ◙LINK %1 @AUTOLINK♪◙EXE2BIN %1 %
00002E00  31 2E 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  1.DRV♪◙DEL %1.EXE♪◙DEL %1.OBJ♪◙:
00002E20  50 52 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  PROBLEM♪◙#define NumVerticiesInF
00002E40  61 63 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  acet 4♪◙#define MaxVertexNumInFa
00002E60  63 65 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  cet 4♪◙#define ScaleData 23000♪◙
00002E80  23 64 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  #define ScaleImage 100♪◙♪◙/*♪◙#d
00002EA0  65 66 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  efine MaxFacet 1678○     ○      
00002EC0  69 6E 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  independant : MaxFacet  = n♪◙#de
00002EE0  66 69 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  fine MaxVertex 6712○     ○      
00002F00  76 65 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  verticies   MaxVertex = 4 * n♪◙*
00002F20  2F 0D 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  /♪◙♪◙#define MaxFacet 3600♪◙#def
00002F40  69 6E 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  ine MaxVertex 3721♪◙♪◙int LastVe
00002F60  72 74 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  rtex, LastFacet;♪◙int LastVertex
00002F80  4E 75 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  NumInFacet;♪◙int VertexNum, Face
00002FA0  74 4E 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  tNum;♪◙int VertexNumInFacet;♪◙TD
00002FC0  49 41 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  IA Vertex[MaxVertex+1];♪◙static 
00002FE0  69 6E 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  int far *Facet;♪◙♪◙float InvScal
00003000  65 44 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  eData, InvScaleImage;♪◙typedef c
00003020  68 61 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  har Name[20];♪◙Name FileName;♪◙t
00003040  79 70 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  ypedef struct{♪◙  int x;♪◙  int 
00003060  79 3B 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  y;♪◙} PixelVector;♪◙♪◙typedef Pi
00003080  78 65 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  xelVector PixelArray[NumVerticie
000030A0  73 49 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  sInFacet+2];♪◙typedef TDA VoxelA
000030C0  72 72 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  rray[NumVerticiesInFacet+1];♪◙♪◙
000030E0  76 6F 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  void InitVertexBuffer()♪◙void Lo
00003100  61 64 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  adData(Name FileName)♪◙void Save
00003120  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 50 75 74 57 69 72  Data(Name FileName)♪◙void PutWir
00003140  65 46 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  eFacet(PixelArray Pts, Byte Colo
00003160  72 29 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  r)♪◙void PutFacet(PixelArray Fac
00003180  65 32 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  e2d, Byte Color, Byte Intens)♪◙v
000031A0  6F 69 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  oid Get_ANI_File_Name()♪◙{♪◙  By
000031C0  74 65 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  te x, y;♪◙♪◙  textcolor(YELLOW);
000031E0  0D 0A 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  ♪◙  textbackground(BLUE);♪◙  got
00003200  6F 78 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  oxy(1, 8);♪◙  cprintf("Enter Fil
00003220  65 20 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  e Name -> ");♪◙  x=wherex();♪◙  
00003240  79 3D 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  y=wherey();♪◙  textcolor(WHITE+B
00003260  4C 49 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  LINK);♪◙  cprintf("%s", "SPHRPLA
00003280  4E 22 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  N");♪◙  textcolor(YELLOW);♪◙  go
000032A0  74 6F 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  toxy(x, y);♪◙  while(!(kbhit()))
000032C0  3B 0D 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  ;♪◙  cprintf("            ");♪◙ 
000032E0  20 67 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   gotoxy(x, y);♪◙  gets(File_Name
00003300  29 3B 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  );♪◙  if(!(strcmp(File_Name, "")
00003320  29 29 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  ))♪◙    strcpy(File_Name, "SPHRP
00003340  4C 41 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  LAN");♪◙  strupr(File_Name);♪◙  
00003360  73 74 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  strcat(File_Name, ".ANI");♪◙  go
00003380  74 6F 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  toxy(1, 8);♪◙  printf("         
000033A0  20 20 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                        ");♪◙  tex
000033C0  74 63 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  tcolor(WHITE+BLINK);♪◙  gotoxy(1
000033E0  2C 20 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  , 8);♪◙  cprintf("Loading ");♪◙ 
00003400  20 74 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   textcolor(YELLOW);♪◙  cprintf("
00003420  25 73 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  %s", File_Name);♪◙}♪◙Palette_Reg
00003440  69 73 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  ister Pal;♪◙♪◙void Grey_Palette(
00003460  50 61 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  Palette_Register Pal)♪◙{♪◙  Word
00003480  20 69 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   i;♪◙♪◙  for(i=0; i<64; i++)♪◙  
000034A0  7B 0D 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  {♪◙    Pal[i].Red=i;♪◙    Pal[i]
000034C0  2E 47 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  .Grn=i;♪◙    Pal[i].Blu=i;♪◙  }♪
000034E0  0A 7D 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  ◙}♪◙#include "stdio.h"♪◙#include
00003500  20 22 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   "math.h"♪◙#include "defs.h"♪◙#i
00003520  6E 63 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  nclude "mathb.h"♪◙void ClearPale
00003540  74 74 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  tte(PaletteRegister Color)♪◙♪◙{ 
00003560  57 6F 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  Word i;♪◙♪◙  for(i=0; i<=255; i+
00003580  2B 29 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  +)♪◙  {♪◙    Color[i].Red=0;♪◙  
000035A0  20 20 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    Color[i].Grn=0;♪◙    Color[i].
000035C0  42 6C 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  Blu=0;♪◙  }♪◙}♪◙void Get_Screen_
000035E0  4C 69 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  Line(Word Line, char buf[64])♪◙{
00003600  0D 0A 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  ♪◙  long L_Offset;♪◙  Word Offse
00003620  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 78 41 30 30 30 3B 0D  t, Page;♪◙  Word Screen=0xA000;♪
00003640  0A 20 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  ◙  Word Old_Page;♪◙  Word lx, ly
00003660  3B 0D 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  ;♪◙  Byte d;♪◙♪◙  if(Line<YRes)♪
00003680  0A 20 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  ◙  {♪◙    Old_Page=0;♪◙    switc
000036A0  68 28 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  h(Res)♪◙    {♪◙      case High_R
000036C0  65 73 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  es :   Offset=Pre_Calc_Y1[Line+Y
000036E0  5F 4F 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  _Off];♪◙○○○Page=((Line>>6)<<4);♪
00003700  0A 09 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  ◙○○○if(Page!=Old_Page)♪◙○○○{♪◙○○
00003720  09 20 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  ○  outpw(0x3CD, Page);♪◙○○○  Old
00003740  5F 50 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  _Page=Page;♪◙○○○}♪◙○○○movedata(S
00003760  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 2C 20 58  creen, Offset, _DS, (Word)buf, X
00003780  52 65 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  Res);♪◙○○○break;♪◙      case Med
000037A0  69 75 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  ium_Res : Line+=Y_Off;♪◙○○○for(l
000037C0  78 3D 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  x=X_Off; lx<(XRes+X_Off); lx++)♪
000037E0  0A 09 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  ◙○○○{♪◙○○○  d=Get_Pixel(lx, Line
00003800  29 3B 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  );♪◙○○○  buf[lx]=d;♪◙○○○}♪◙○○○br
00003820  65 61 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  eak;♪◙○case Low_Res  : Offset=Pr
00003840  65 5F 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  e_Calc_Y1[Line+Y_Off];♪◙○○○moved
00003860  61 74 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  ata(Screen, Offset, _DS, (Word)b
00003880  75 66 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  uf, XRes);♪◙○○○break;♪◙    }♪◙  
000038A0  7D 0D 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  }♪◙}♪◙♪◙  while(!isdigit(c[0]))♪
000038C0  0A 20 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  ◙  {♪◙    while(!kbhit());♪◙    
000038E0  63 5B 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  c[0]=getch();♪◙  }♪◙  return(ato
00003900  69 28 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  i(c));♪◙Byte b[1024];♪◙♪◙void Ge
00003920  74 5F 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  t_Screen_Line(Word Line)♪◙{♪◙  W
00003940  6F 72 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  ord Offset, Page;♪◙  Word Screen
00003960  3D 30 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  =0xA000;♪◙  Word lx, ly;♪◙  Byte
00003980  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 20 7B 0D 0A 20 20 20   d;♪◙♪◙  if(Line<YRes)♪◙  {♪◙   
000039A0  20 66 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   for(lx=0; lx<XRes; lx++)♪◙    {
000039C0  0D 0A 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  ♪◙      d=Get_Pixel(lx, Line);♪◙
000039E0  20 20 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        b[lx]=d;♪◙    }♪◙  }♪◙}♪◙♪
00003A00  0A 76 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  ◙void Write_PCX_Line(Word y)♪◙{♪
00003A20  0A 20 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  ◙  Word t=0;♪◙  Byte i=0;♪◙♪◙  G
00003A40  65 74 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  et_Screen_Line(y);♪◙  do♪◙  {♪◙ 
00003A60  20 20 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     i=0;♪◙    while((b[t+i]==b[t+
00003A80  69 2B 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  i+1]) && ((t+i)<XRes) && (i<63))
00003AA0  2B 2B 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  ++i;♪◙    if(i>0)♪◙    {♪◙      
00003AC0  66 70 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  fputc(i|0xc0, Out_File);♪◙      
00003AE0  66 70 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  fputc(b[t], Out_File);♪◙      t+
00003B00  3D 69 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  =i;♪◙    }♪◙    else♪◙    {♪◙   
00003B20  20 20 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     if(((b[t])&0xc0)==0xc0)♪◙○fpu
00003B40  74 63 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  tc(0xc1, Out_File);♪◙      fputc
00003B60  28 62 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  (b[t++], Out_File);♪◙    }♪◙  }♪
00003B80  0A 20 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  ◙  while(t<XRes);♪◙}♪◙♪◙void Sav
00003BA0  65 5F 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  e_PCX()♪◙{♪◙  Word y;♪◙♪◙  if((O
00003BC0  75 74 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  ut_File=fopen(File_Name_2, "wb")
00003BE0  29 3D 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  )==NULL)♪◙  {♪◙    ungetch(32);♪
00003C00  0A 20 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  ◙    Exit_Graphics();♪◙    print
00003C20  66 28 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  f("Cannot open output file!\n\nH
00003C40  69 74 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  it any key to exit....");♪◙    g
00003C60  65 74 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  etch();♪◙    exit(1);♪◙  }♪◙  pu
00003C80  74 63 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  tc(0x0a, Out_File);♪◙  putc(5, O
00003CA0  75 74 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  ut_File);♪◙  putc(1, Out_File);♪
00003CC0  0A 20 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  ◙  putc(8, Out_File);♪◙  putw(0,
00003CE0  20 4F 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   Out_File);♪◙  putw(0, Out_File)
00003D00  3B 0D 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  ;♪◙  putw(XRes-1, Out_File);♪◙  
00003D20  70 75 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  putw(YRes-1, Out_File);♪◙  putw(
00003D40  58 52 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  XRes, Out_File);♪◙  putw(YRes, O
00003D60  75 74 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  ut_File);♪◙  for(y=0; y<49; y++)
00003D80  0D 0A 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  ♪◙   putc(0, Out_File);♪◙  putc(
00003DA0  31 2C 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  1, Out_File);♪◙  putw(XRes, Out_
00003DC0  46 69 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  File);♪◙  putw(2, Out_File);♪◙  
00003DE0  66 6F 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  for(y=0; y<58; y++)♪◙   putc(0, 
00003E00  4F 75 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  Out_File);♪◙  for(y=0; y<YRes; y
00003E20  2B 2B 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  ++)♪◙    Write_PCX_Line(y);♪◙  p
00003E40  75 74 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  utc(0x0C, Out_File);♪◙  for(y=0;
00003E60  20 79 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   y<256; y++)♪◙  {♪◙    putc(((Pa
00003E80  6C 5B 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  l[y].Red)<<2), Out_File);♪◙    p
00003EA0  75 74 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  utc(((Pal[y].Grn)<<2), Out_File)
00003EC0  3B 0D 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  ;♪◙    putc(((Pal[y].Blu)<<2), O
00003EE0  75 74 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  ut_File);♪◙  }♪◙  fclose(Out_Fil
00003F00  65 29 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  e);♪◙}♪◙float MIN(float a, float
00003F20  20 62 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   b)♪◙float MAX(float a, float b)
00003F40  0D 0A 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  ♪◙float MIN3(float a, float b, f
00003F60  6C 6F 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  loat c)♪◙float MAX3(float a, flo
00003F80  61 74 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  at b, float c)♪◙float MIN4(float
00003FA0  20 61 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   a, float b, float c, float d)♪◙
00003FC0  66 6C 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  float MAX4(float a, float b, flo
00003FE0  61 74 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  at c, float d)♪◙void VecMin(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 4D 61 78 28 54 44  a, TDA b, TDA c)♪◙void VecMax(TD
00004020  41 20 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  A a, TDA b, TDA c)♪◙void VecNega
00004040  74 65 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  te(TDA A)♪◙void InitRand(float S
00004060  65 65 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  eed)♪◙int RandInt(Word Range)♪◙f
00004080  6C 6F 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  loat Rand()♪◙Byte Get_Pixel_2(Wo
000040A0  72 64 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  rd x, Word y)♪◙#include "stdio.h
000040C0  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 61  "♪◙#include "dos.h"♪◙#include "a
000040E0  6C 6C 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  lloc.h"♪◙#include "string.h"♪◙#i
00004100  6E 63 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  nclude "defs.h"♪◙#include "globa
00004120  6C 73 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  ls.h"♪◙#include "mathb.h"♪◙♪◙#de
00004140  66 69 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  fine states 36♪◙#define maxstate
00004160  20 73 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   states-1♪◙♪◙typedef Byte state[
00004180  33 36 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  36];♪◙typedef state rulei;♪◙type
000041A0  64 65 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  def rulei rule[36];♪◙typedef cha
000041C0  72 20 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  r name[33];♪◙♪◙name rulefilename
000041E0  3B 0D 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  ;♪◙FILE *rulefile;♪◙rule far *ru
00004200  6C 65 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  les;♪◙Word i, j, k;♪◙int x;♪◙Byt
00004220  65 20 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  e o;♪◙Byte r;♪◙void writerulefil
00004240  65 28 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  e()♪◙{♪◙  fwrite(rules, sizeof(r
00004260  75 6C 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  ule), 36, rulefile);♪◙  fclose(r
00004280  75 6C 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  ulefile);♪◙}♪◙  strcpy(rulefilen
000042A0  61 6D 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  ame, "RULE.CA");♪◙  if((rulefile
000042C0  3D 66 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  =fopen(rulefilename, "wb"))==NUL
000042E0  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 6F 70 65 6E 20  L)♪◙  {♪◙    printf("can't open 
00004300  66 69 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  file.\n");♪◙    exit(1);♪◙  }♪◙ 
00004320  20 72 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   rules=farcalloc(36, sizeof(rule
00004340  29 29 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  ));♪◙  if(rules==NULL)♪◙  {♪◙   
00004360  20 70 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   printf("can't get the mem!\n");
00004380  0D 0A 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  ♪◙    exit(1);♪◙  }♪◙  fwrite(ru
000043A0  6C 65 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  les, sizeof(rule), 36, rulefile)
000043C0  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 66  ;♪◙typedef state rulei;♪◙typedef
000043E0  20 72 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   rulei rule[36];♪◙rules=farcallo
00004400  63 28 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  c(36, sizeof(rule));♪◙  if(rules
00004420  3D 3D 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  ==NULL)♪◙  {♪◙    printf("can't 
00004440  67 65 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  get the mem!\n");♪◙    exit(1);♪
00004460  0A 20 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  ◙  }♪◙  ♪◙void Clear_Screen()♪◙{
00004480  0D 0A 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  ♪◙  Set_Graphics_Mode(160, 100);
000044A0  0D 0A 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  ♪◙  Init_Palette(PalArray);♪◙  S
000044C0  65 74 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  et_Palette(PalArray);♪◙}♪◙#defin
000044E0  65 20 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  e PiOver180 0.01745♪◙♪◙float Sin
00004500  44 28 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  D(float a)♪◙{♪◙  return (sin(a *
00004520  20 50 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   PiOver180));♪◙}♪◙♪◙float CosD(f
00004540  6C 6F 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  loat a)♪◙{♪◙  return (cos(a * Pi
00004560  4F 76 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  Over180));♪◙}♪◙union  REGS reg;♪
00004580  0A 73 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  ◙struct SREGS inreg;♪◙void Set_M
000045A0  6F 64 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  ode(int Mode)♪◙{♪◙  reg.h.ah=0;♪
000045C0  0A 20 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  ◙  reg.h.al=Mode;♪◙  int86(0x10,
000045E0  26 72 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  &reg,&reg);♪◙}♪◙LAMPS♪◙   REFLAM
00004600  50 20 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  P = FALSE♪◙   LAMPREF =    0.000
00004620  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 53 54 45 46 46 20 3D      0.000    0.000♪◙   DISTEFF =
00004640  20 20 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      0.300♪◙   TRANS   =    0.000
00004660  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 44 45 58 20 20 20 3D      0.000    0.000♪◙   INDEX   =
00004680  20 20 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      1.000♪◙MATERIAL♪◙   TYPE    
000046A0  3D 20 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  = WATER♪◙   TEXTURE = OCEANWAVES
000046C0  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 31 30 30  ♪◙   AMBRFL  =    0.100    0.100
000046E0  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 20 30 2E 31 30 30      0.300♪◙   DIFRFL  =    0.100
00004700  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 20 20 3D      0.300    0.300♪◙   SPCRFL  =
00004720  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 30 0D 0A 20 20 20      0.100    0.100    0.400♪◙   
00004740  47 4C 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  GLOSS   =    3.000♪◙   TRANS   =
00004760  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♪◙   
00004780  49 4E 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  INDEX   =    1.000♪◙   AMPL    =
000047A0  20 20 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      0.550♪◙   PHASE   =  0.00000
000047C0  30 30 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  000000000E+0000♪◙#include "stdio
000047E0  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 75 64 65 20  .h"♪◙#include "dos.h"♪◙#include 
00004800  22 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 FF FF 00  "math.h"♪◙#include "defs.h"♪◙  .
00004820  00                                                                                                  .