home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / sharewar / FFE / GRAPH.SWG / 0027_RIX.pas < prev    next >
Pascal/Delphi Source File  |  1997-05-11  |  2KB  |  69 lines
  1. Subj : RIX, SC?
  2. Keys : RIX,SCI,SCF,COLORIX,FILE,FORMAT
  3.  
  4. - ColoRIX is a trademark of RIX SoftWorks.
  5.  
  6. - RIX screen file extensions:
  7.  
  8.   resolutions      colors      extensions
  9.  
  10.     320x200          16           SCD
  11.     640x200          16           SCE
  12.     640x350          16           SCR
  13.     640x480          16           SCP
  14.     800x600          16           SCG
  15.     1024x768         16           SCU
  16.  
  17.     320x200          256          SCI
  18.     320x400          256          SCK
  19.     360x480          256          SCQ
  20.     640x400          256          SCL
  21.     640x480          256          SCF
  22.     800x600          256          SCN
  23.     1024x768         256          SCO
  24.  
  25.     TEXT                          SCZ
  26.  
  27. - Uncompressed 256 color image:
  28.   - The first four bytes are "RIX3";
  29.   - After 10 bytes pallete;
  30.   - After 778 bytes RAW data.
  31.  
  32. - Example (PASCAL):
  33.  
  34. { LOAD ColoRIX SCI FILES (320x200x256c) }
  35. { Eduardo Motta Buhrnheim (MINGO)       }
  36. { mingo@n3.com.br                       }
  37. { P.O.Box, 3159, Manaus, Amazonas,      }
  38. { Brazil, 69001-970.                    }
  39.  
  40. PROCEDURE LOADSCI(NOME:STRING);
  41. VAR
  42. K:CHAR;
  43. RPAL:ARRAY[0..767] OF BYTE;
  44. DATA:FILE;
  45. SCREEN:ARRAY[1..64000] OF BYTE ABSOLUTE $A000:0000;
  46. X:BYTE;
  47. BEGIN
  48. ASSIGN(DATA,NOME);
  49. RESET(DATA,1);
  50. SEEK(DATA,10);BLOCKREAD(DATA,RPAL,768); { Carrega a palheta }
  51. MMODO($13);
  52. FOR X:=0 TO 255 DO
  53.    MTPAL(X,RPAL[X*3],RPAL[X*3+1],RPAL[X*3+2]);
  54. SEEK(DATA,778);BLOCKREAD(DATA,SCREEN,64000);CLOSE(DATA); { RAW data }
  55. REPEAT UNTIL KEYPRESSED;
  56. K:=READKEY;
  57. MMODO($3);
  58. END;
  59.  
  60. FROM: EDUARDO MOTTA BUHRNHEIM (MINGO)
  61.       mingo@n3.com.br
  62.       P.O.Box, 3159, Manaus, Amazonas,
  63.       Brazil, 69001-970.
  64.  
  65. EXTENSIONS: RIX,SCD,SCE,SCR,SCP,SCG,SCU,SCI,SCK,SCQ,SCL,SCF,SCN,SCO,SCZ
  66. OCCURENCES: PC
  67. PROGRAMS: ColoRIX
  68.  
  69.