home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / commercialdemos / arteffect2.0 / rexx / ellipse.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-11  |  932b  |  46 lines
  1. /*
  2.     demo for new, createbrush, brushattr, ellipse, circle
  3. */
  4.  
  5. address "ArtEffect"
  6.  
  7. options results
  8.  
  9. /* open new picture */
  10. new w 320 h 220 name "Test"
  11. createbrush rec size 20 prop 50 angle 45
  12.  
  13. entries = ""
  14. do i=1 to 128
  15.     value = i*i/64-1
  16.     entries = entries || value
  17.     if i~=128 then entries = entries || ','
  18. end
  19. brushattr intensity entries
  20. if rc~=0 then say rc2
  21.  
  22. entries = ""
  23. do i=1 to 128
  24.     value = 127+i*i*i/16384
  25.     entries = entries || value
  26.     if i~=128 then entries = entries || ','
  27. end
  28. brushattr density entries
  29. if rc~=0 then say rc2
  30.  
  31. entries = ""
  32. do i=1 to 128
  33.     entries = entries || 8
  34.     if i~=128 then entries = entries || ','
  35. end
  36. brushattr roughness entries
  37. if rc~=0 then say rc2
  38.  
  39. ellipse 160 100 50 25 pt fill mode color str 50
  40. ellipse 160 110 50 25 pt airbrush mode color str 100
  41. ellipse 160 120 15 25 pt cut
  42.  
  43. circle 160 100 50 pt fill mode color str 100
  44. circle 160 120 50 pt airbrush mode color str 50
  45. circle 160 140 50 pt cut
  46.