home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Graphics / PerfectPaint / rexx / text / Relief.rx < prev    next >
Text File  |  1999-08-15  |  428b  |  43 lines
  1. /*
  2.     Arexx Text Script
  3. */
  4.  
  5.     options results
  6.   parse ARG Port x y b
  7.     ADDRESS value Port
  8.  
  9.     pp_AvoidRefresh
  10.  
  11.     pp_UpdateUndo
  12.  
  13.     texte=""
  14.  
  15.     pp_GetApen
  16.     Aclr=result
  17.  
  18.     pp_ClosestColorD Aclr 80
  19.     C0=result
  20.  
  21.     pp_SetApen C0
  22.     pp_TextEffect 1 1
  23.     pp_textMake texte
  24.     pp_TextDraw x y
  25.  
  26.     pp_SetApen Aclr
  27.     pp_TextEffect 0 1
  28.     pp_TextMake texte
  29.     pp_TextDraw x y
  30.  
  31.     pp_TextEffect 2 2
  32.     pp_textMake texte
  33.     pp_TextDraw x+1 y+1
  34.  
  35.  
  36.     pp_PermitRefresh
  37.     
  38.  
  39.  
  40.     
  41.  
  42.     
  43.