home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / commercialdemos / arteffect2.0 / rexx / createborder.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-28  |  1KB  |  48 lines
  1. /*
  2.     Create Border
  3.     Copyright © 1997 A. Pratsch
  4.     ArtEffect ARexx Script
  5. */
  6.  
  7. options results
  8.  
  9. address "ArtEffect"
  10.  
  11. requestnumber title '"Create Border"' def 10 min 4 max 100 unit 'Pixel' prompt 'Size'
  12. bordersize = result
  13.  
  14. /* get picture dimensions into pic.width & pic.height */
  15. get stem pic. pictureinfo
  16.  
  17. /* outer polygon points */
  18. x1 = 0
  19. y1 = 0
  20. x2 = pic.width
  21. y2 = pic.height
  22.  
  23. /* inner polygon points */
  24. ix1 = bordersize
  25. iy1 = bordersize
  26. ix2 = pic.width-bordersize
  27. iy2 = pic.height-bordersize
  28.  
  29. /* color graduate (leave all presets unchanged) */
  30. gradient = 'linear,,,:'
  31.  
  32. /* top */
  33. points = x1 y1   x2 y1   ix2 iy1   ix1 iy1
  34. 'polygon strength 100 gradient 'gradient'0,0,0,'bordersize points
  35.  
  36. /* bottom */
  37. points = x1 y2   x2 y2   ix2 iy2   ix1 iy2
  38. 'polygon strength 100 gradient 'gradient'0,'y2',0,'iy2 points
  39.  
  40. /* left */
  41. points = x1 y1   ix1 iy1   ix1 iy2   x1 y2
  42. 'polygon strength 100 gradient 'gradient'0,0,'ix1',0' points
  43.  
  44. /* right */
  45. points = x2 y1   ix2 iy1   ix2 iy2   x2 y2
  46. 'polygon strength 100 gradient 'gradient || x2',0,'ix2',0' points
  47.  
  48.