home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / ST_PASCA.LZH / USERTYP.I < prev   
Text File  |  1987-04-22  |  864b  |  19 lines
  1. (********************************************************)
  2. (* definicije uporabnih tipov                           *)
  3. (*      (c) IIF, 9.5.87                                 *)
  4. (********************************************************)
  5.  
  6.      array_of_integer = ARRAY[0..100] OF integer;
  7.      sprite: RECORD
  8.               x_spot: integer; { X-Abstand vom Ursprung }
  9.               y_spot: integer; { Y-Abstand vom Ursprung }
  10.               format: integer; { 0=VDI-Format, 1=XOR-Format }
  11.               bcolor: integer; { Hintergrundfarbe }
  12.               fcolor: integer; { Vordergrundfarbe }
  13.               mask  : ARRAY [0..15]
  14.                        OF RECORD
  15.                            background: integer; { Hintergrundmuster }
  16.                            foreground: integer  { Vordergrundmuster }
  17.                           END
  18.              END;
  19.