home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 September / PCWorld_1999-09_cd.bin / Software / Servis / CDHIEP / Setup_IEP.EXE / GRLENS13.AFS < prev    next >
Encoding:
Text File  |  1997-10-29  |  471 b   |  23 lines
  1. %RGB-1.0
  2. 75
  3. 178
  4. 195
  5. 0
  6. 0
  7. 0
  8. 0
  9. 0
  10. put(x-val(0,0,X),0),put(y-val(1,Y,0),1), put(get(0)*get(0)+get(
  11. 1)*get(1),2),\rput(val(2,0,min(X/2,Y/2)),6), put(get(0)*get(6)*
  12. get(6)/get(2),3),\rput(get(1)*get(6)*get(6)/get(2),4),\rput(sqr
  13. (get(2))==get(6) || get(2)==0 || (x-get(3) > X)\r|| (x-get(3) <
  14.  0) || (y-get(4) > Y) || (y-get(4) < 0),5),\rget(5)?ctl(3+z) : 
  15. src(x-get(3),y-get(4),z)\r
  16.  
  17. get(5)?ctl(3+z) : src(x-get(3),y-get(4),z)\r
  18.  
  19. get(5)?ctl(3+z) : src(x-get(3),y-get(4),z)
  20.  
  21. a
  22.  
  23.