home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l043 / 3.ddi / ASPECT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-11-02  |  475 b   |  25 lines
  1. uses
  2.   Graph;
  3. var
  4.   Gd, Gm : integer;
  5.   Xasp, Yasp : word;
  6.   XSideLength, YSideLength : integer;
  7.  
  8. begin
  9.   Gd := Detect;
  10.   InitGraph(Gd, Gm, '');
  11.   if GraphResult <> grOk then
  12.     Halt(1);
  13.   GetAspectRatio(Xasp, Yasp);
  14.   XSideLength := 20;
  15.  
  16.   { Adjust Y length for aspect ratio }
  17.   YSideLength := Round((Xasp/Yasp)*XSideLength);
  18.  
  19.   { Draw a "square" rectangle on the screen }
  20.   Rectangle(0, 0, XSideLength, YSideLength);
  21.  
  22.   Readln;
  23.   CloseGraph;
  24. end.
  25.