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