home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / commercialdemos / arteffect2.0 / rexx / polygon.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-04  |  776b  |  36 lines
  1. /*
  2.  * Polygons
  3.  *
  4.  * ARexx Example for: new, palette, polygon
  5.  * Author: A. Pratsch
  6.  * This script is Public Domain
  7.  */
  8.  
  9. address "ArtEffect"
  10.  
  11. new w 400 h 400 "Polygons"
  12.  
  13. /*do forever*/
  14.     /*
  15.     cr=random(0,255);
  16.     cg=random(0,255);
  17.     cb=random(0,255);
  18.     'palette r 'cr' g 'cr' b 'cb' quiet'
  19.     */
  20.  
  21.     x1=random(1,399)
  22.     y1=random(1,399)
  23.     x2=random(1,399)
  24.     y2=random(1,399)
  25.     x3=random(1,399)
  26.     y3=random(1,399)
  27.     x4=random(1,399)
  28.     y4=random(1,399)
  29.  
  30.     'rectangle pt fill mode gradient strength 80 'x1' 'y1' 'x3' 'y3
  31.     'polygon pt fill mode color strength 50 'x1' 'y1' 'x2' 'y2' 'x3' 'y3' 'x4' 'y4
  32.     'polygon pt airbrush mode color strength 100 'x1' 'y1' 'x2' 'y2' 'x3' 'y3' 'x4' 'y4
  33.     'polygon pt cut mode color strength 50 'x1' 'y1' 'x2' 'y2' 'x3' 'y3' 'x4' 'y4
  34.     changebrush sw 10 sh 10
  35. /*end*/
  36.