home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / software / grafica / perfectpaint / rexx / text / shadow.rx < prev    next >
Encoding:
Text File  |  1999-08-16  |  687 b   |  62 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.     SX=-2
  12.     SY=-2
  13.     F=5
  14.  
  15.     pp_DialogInit 150 95 "*Shadow*" 3
  16.         pp_Integer 0 60 5 50 16 "Shift*X" 1 SX
  17.         pp_Integer 1 60 25 50 16 "Shift*Y" 1 SY
  18.         pp_Integer 2 60 45 50 16 "Flow" 1 F
  19.     pp_Dialog
  20.     rc=result
  21.     if rc=0 then
  22.         do
  23.             pp_PermitRefresh
  24.             EXIT
  25.         end    
  26.  
  27.     pp_UpdateUndo    
  28.         
  29.     pp_GetDialog 0
  30.     SX=result
  31.  
  32.     pp_GetDialog 1
  33.     SY=result
  34.  
  35.     pp_GetDialog 2
  36.     F=result
  37.     
  38.     pp_UpdateUndo
  39.  
  40.     pp_GetApen
  41.     clr=result
  42.  
  43.     pp_ClosestColor 0 0 0
  44.     black=result
  45.  
  46.     pp_SetApen black
  47.  
  48.     pp_EffectOn
  49.     pp_Airbrush 90 F
  50.  
  51.     pp_TextDraw x+SX y+SY
  52.     pp_EffectOff
  53.  
  54.     pp_SetApen clr
  55.  
  56.     pp_TextDraw x y
  57.  
  58.     pp_PermitRefresh
  59.     
  60.  
  61.     
  62.