home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / 3DANIM.ZIP / MATRIX.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-06-28  |  237 b   |  11 lines
  1. procedure init(var form :matrixtype);
  2. {initializes the generic matrix}
  3. var
  4. i : integer;
  5.  
  6. begin
  7.      fillchar(form,96,char(0));
  8.      for i:= 0 to 3 do                      {put 1's diagonaly}
  9.          form [i+1,i+1]:= 1;
  10. end;
  11.