home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Painting / HF-DS2.DMS / in.adf / DSdir1.lha / Rexx / BurstLarge.dsrx < prev    next >
Encoding:
Text File  |  1996-10-31  |  2.7 KB  |  123 lines
  1. /* Allow commands to return results */
  2.  
  3. options results
  4.  
  5. /* On error, goto ERROR:. Comment out this line if you wish to */
  6. /* perform your own error checking. */
  7.  
  8. signal on error
  9.  
  10. 'PROJECT_LOCK'
  11.  
  12. /* BEGIN PROGRAM *************************************************/
  13.  
  14. /*
  15. PROGRAM:     BurstLarge.dsdr
  16. DESCRIPTION:     Draws a large "burst" shape and places it into the
  17.         clipboard.
  18.         You may then place the shape by dragging it
  19.         onto the page.
  20. DATE:        29/10/96
  21. AUTHOR:        Andy Dean
  22. */
  23.  
  24. REDRAW_OFF
  25.  
  26. CREATE_BEZIER CLOSED 0.042in 0.238in L,
  27.     0.230in 0.241in L,
  28.     0.173in 0.038in L,
  29.     0.327in 0.215in L,
  30.     0.376in 0.032in L,
  31.     0.476in 0.207in L,
  32.     0.556in 0.072in L,
  33.     0.616in 0.212in L,
  34.     0.699in 0.044in L,
  35.     0.736in 0.210in L,
  36.     0.868in 0.087in L,
  37.     0.825in 0.244in L,
  38.     0.994in 0.278in L,
  39.     0.856in 0.335in L,
  40.     0.913in 0.530in L,
  41.     0.779in 0.413in L,
  42.     0.711in 0.567in L,
  43.     0.639in 0.421in L,
  44.     0.568in 0.593in L,
  45.     0.510in 0.441in L,
  46.     0.416in 0.561in L,
  47.     0.347in 0.424in L,
  48.     0.250in 0.561in L,
  49.     0.222in 0.407in L,
  50.     0.067in 0.450in L,
  51.     0.176in 0.330in
  52.  
  53. CUT
  54.  
  55. REDRAW_ON
  56.  
  57. PASTE
  58.  
  59. /* END PROGRAM ***************************************************/
  60.  
  61. 'PROJECT_UNLOCK'
  62.  
  63. exit
  64.  
  65. /* On ERROR */
  66.  
  67. ERROR:
  68.  
  69. 'PROJECT_UNLOCK'
  70.  
  71. /* If we get here, either an error occurred with the command's */
  72. /* execution or there was an error with the command itself. */
  73. /* In the former case, rc2 contains the error message and in */
  74. /* the latter, rc2 contains an error number. SIGL contains */
  75. /* the line number of the command which caused the jump */
  76. /* to ERROR: */
  77.  
  78. if datatype(rc2,'NUMERIC') == 1 then do
  79.     /* See if we can describe the error with a string */
  80.  
  81.     select
  82.         when rc2 == 103 then
  83.             err_string = "ERROR 103, "||,
  84.                 "out of memory at line "||SIGL
  85.         when rc2 == 114 then
  86.             err_string = "ERROR 114, "||,
  87.                 "bad command template at line "||SIGL
  88.         when rc2 == 115 then
  89.             err_string = "ERROR 115, "||,
  90.                 "bad number for /N argument at line "||SIGL
  91.         when rc2 == 116 then
  92.             err_string = "ERROR 116, "||,
  93.                 "required argument missing at line "||SIGL
  94.         when rc2 == 117 then
  95.             err_string = "ERROR 117, "||,
  96.                 "value after keywork missing at line "||SIGL
  97.         when rc2 == 118 then
  98.             err_string = "ERROR 118, "||,
  99.                 "wrong number of arguments at line "||SIGL
  100.         when rc2 == 119 then
  101.             err_string = "ERROR 119, "||,
  102.                 "unmatched quotes at line "||SIGL
  103.         when rc2 == 120 then
  104.             err_string = "ERROR 120, "||,
  105.                 "line too long at line "||SIGL
  106.         when rc2 == 236 then
  107.             err_string = "ERROR 236, "||,
  108.                 "unknown command at line "||SIGL
  109.         otherwise
  110.             err_string = "ERROR "||rc2||", at line "||SIGL
  111.         end
  112.     end
  113. else if rc2 == 'RC2' then do
  114.     err_string = "ERROR in command at line "||SIGL
  115.     end
  116. else do
  117.     err_string = rc2||", line "||SIGL
  118.     end
  119.  
  120. req_message TEXT '"'err_string'"'
  121.  
  122. exit
  123.