home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TEGA02.ZIP / GPBALL.P < prev    next >
Encoding:
Text File  |  1986-02-02  |  643 b   |  14 lines
  1. {                                                                             }
  2. {       EGA Graphic Primitive for Turbo Pascal 3.01A, Version 01MAR86.        }
  3. {       (C) 1986 by Kent Cedola, 2015 Meadow Lake Ct., Norfolk, VA, 23518     }
  4. {                                                                             }
  5.  
  6. procedure GPBALL1(a1,a2,x1,x2,y1,y2,flg: Integer; var shade; merge,color,
  7.                    x,y,r: Integer); external 'GPBALL.BIN';
  8.  
  9. procedure GPBALL(radius: Integer);
  10. begin
  11.   GPBALL1(GDASPC1,GDASPC2,GDVW_X1,GDVW_X2,GDVW_Y1,GDVW_Y2,GDS_FLG,GDSHADE1,
  12.            GDMERGE,GDCOLOR,GDCUR_X,GDCUR_Y,radius);
  13. end;
  14.