home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Graphics / PerfectPaint / rexx / text / Deco.rx < prev    next >
Text File  |  1999-08-14  |  519b  |  50 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.     pp_GetApen
  14.     Aclr=result
  15.  
  16.     pp_GetBpen
  17.     Bclr=result
  18.  
  19.     pp_ClosestColor 0 0 0
  20.     black=result
  21.     pp_SetApen black
  22.  
  23.     texte=""
  24.  
  25.     pp_EffectOn
  26.     pp_Airbrush 90 5
  27.     pp_TextEffect 1 2
  28.     pp_TextMake texte
  29.     pp_TextDraw x y
  30.     pp_EffectOff
  31.  
  32.     pp_TextEffect 0 5
  33.     pp_SetApen Bclr
  34.     pp_TextMake texte
  35.     pp_TextDraw x y
  36.  
  37.     pp_TextEffect 2 1
  38.     pp_SetApen Aclr
  39.     pp_TextMake texte
  40.     pp_TextDraw x-1 y-1
  41.  
  42.     pp_PermitRefresh
  43.  
  44.     
  45.  
  46.  
  47.     
  48.  
  49.     
  50.