home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / OS2API / ADDTYPE.ADS next >
Text File  |  1995-01-18  |  1KB  |  24 lines
  1. --
  2. -- ╔═══════════════════════════════════════════════════════════════════╗
  3. -- ║       D E S I G N   E N G I N E R I N G              ║D║S║        ║
  4. -- ║            S O F T W A R E                           ╚═╩═╝        ║
  5. -- ║                                                                   ║
  6. -- ║        Package   ADDTYPE  some array types                        ║
  7. -- ║                                                                   ║
  8. -- ║        Author :  Leonid Dulman     1995                           ║
  9. -- ║                                                                   ║
  10. -- ╚═══════════════════════════════════════════════════════════════════╝
  11. --
  12. package addtype  is
  13.  
  14.  type vector is array(integer range <>  )                  of float;
  15.  type matrix is array(integer range <> ,integer range <> ) of float;
  16.  type ivector is array(integer range <>  )                 of integer;
  17.  type imatrix is array(integer range <> ,integer range <> ) of integer;
  18.  type bvector is array(integer range <>  )                  of boolean;
  19.  type bmatrix is array(integer range <> ,integer range <> ) of boolean;
  20.  type tenzor is array(integer range <> ,integer range <>,integer range <>) of float;
  21.  type itenzor is array(integer range <> ,integer range <>,integer range <>) of integer;
  22.  type btenzor is array(integer range <> ,integer range <>,integer range <>) of boolean;
  23. end addtype;
  24.