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