home *** CD-ROM | disk | FTP | other *** search
/ Internet 53 / INTERNET53.iso / pc / software / windows / graphics / pspplugs / afhbevel / afhbev2a.afs < prev    next >
Encoding:
Text File  |  1996-03-03  |  932 b   |  30 lines
  1. %RGB-1.0
  2. 28
  3. 255
  4. 0
  5. 76
  6. 99
  7. 149
  8. 0
  9. 7
  10. ((x<ctl(7))&&(y>=x)&&(y<Y-x))?scl(c,0,255,ctl(0),ctl(1)*2)+ctl(
  11. 4)-128:((y<ctl(7))&&(x>y)&&(x<X-y))?scl(c,0,255,ctl(0),ctl(1)*2
  12. )-ctl(4)+128:((X-x<=ctl(7))&&(Y-y>=X-x)&&(y>x-X))?scl(c,0,255,c
  13. tl(2),ctl(3)*2)+ctl(5)-128:((Y-y<=ctl(7))&&(X-x>Y-y)&&(x>y-Y))?
  14. scl(c,0,255,ctl(2),ctl(3)*2)-ctl(5)+128:c
  15.  
  16. ((x<ctl(7))&&(y>=x)&&(y<Y-x))?scl(c,0,255,ctl(0),ctl(1)*2)+ctl(
  17. 4)-128:((y<ctl(7))&&(x>y)&&(x<X-y))?scl(c,0,255,ctl(0),ctl(1)*2
  18. )-ctl(4)+128:((X-x<=ctl(7))&&(Y-y>=X-x)&&(y>x-X))?scl(c,0,255,c
  19. tl(2),ctl(3)*2)+ctl(5)-128:((Y-y<=ctl(7))&&(X-x>Y-y)&&(x>y-Y))?
  20. scl(c,0,255,ctl(2),ctl(3)*2)-ctl(5)+128:c
  21.  
  22. ((x<ctl(7))&&(y>=x)&&(y<Y-x))?scl(c,0,255,ctl(0),ctl(1)*2)+ctl(
  23. 4)-128:((y<ctl(7))&&(x>y)&&(x<X-y))?scl(c,0,255,ctl(0),ctl(1)*2
  24. )-ctl(4)+128:((X-x<=ctl(7))&&(Y-y>=X-x)&&(y>x-X))?scl(c,0,255,c
  25. tl(2),ctl(3)*2)+ctl(5)-128:((Y-y<=ctl(7))&&(X-x>Y-y)&&(x>y-Y))?
  26. scl(c,0,255,ctl(2),ctl(3)*2)-ctl(5)+128:c
  27.  
  28. a
  29.  
  30.