home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / commercialdemos / arteffect2.0 / rexx / lines.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-25  |  1KB  |  40 lines
  1. /*
  2. */
  3.  
  4. address "ArtEffect"
  5.  
  6. options results
  7.  
  8. /* apply to current picture */
  9. line 0 20 320 20 pt pen mode color str 100
  10. line 0 40 320 40 pt pen mode lighten str 100
  11. line 0 60 320 60 pt pen mode hue str 100
  12. line 0 80 320 80 pt pen mode saturation str 100
  13. line 0 100 320 100 pt pen mode huesat str 100
  14.  
  15. line 0 120 320 20 pt brush mode color str 100
  16. line 0 140 320 40 pt brush mode lighten str 100
  17. line 0 160 320 60 pt brush mode hue str 100
  18. line 0 180 320 80 pt brush mode saturation str 100
  19. line 0 200 320 100 pt brush mode huesat str 100
  20.  
  21. /* open new picture */
  22. new w 320 h 220 name "Test"
  23.  
  24. line 0 20 320 20 pt pen mode color str 100
  25. line 0 40 320 40 pt pen mode lighten str 100
  26. line 0 60 320 60 pt pen mode hue str 100
  27. line 0 80 320 80 pt pen mode sat str 100
  28. say rc2   /* SAT was not possible, this prints out the error */
  29. line 0 80 320 80 pt pen mode saturation str 100
  30. line 0 100 320 100 pt pen mode huesat str 100
  31.  
  32. line 0 120 320 20 pt brush mode color str 100
  33. line 0 140 320 40 pt brush mode lighten str 100
  34. line 0 160 320 60 pt brush mode hue str 100
  35. line 0 180 320 80 pt brush mode sat str 100
  36. say rc2   /* SAT was not possible, this prints out the error */
  37. line 0 180 320 80 pt brush mode saturation str 100
  38. line 0 200 320 100 pt brush mode huesat str 100
  39.  
  40.