home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Graphics / PerfectPaint / rexx / text / Shine.rx < prev    next >
Text File  |  1999-12-10  |  1KB  |  82 lines
  1. /*
  2.     Arexx Text Script
  3. */
  4.  
  5.     options results
  6.   parse ARG Port x y b
  7.  
  8.     ADDRESS value Port
  9.     pp_AvoidRefresh
  10.  
  11.     F=10
  12.     ADDRESS COMMAND
  13.     if EXISTS('PerfectPaint:Prefs/Rexx_Prefs/Shine') THEN DO
  14.         IF OPEN('lfile','PerfectPaint:Prefs/Rexx_Prefs/Shine', "R") then DO
  15.             F = READLN('lfile')    
  16.             CALL CLOSE('lfile')
  17.         END
  18.     END
  19.  
  20.     ADDRESS value Port
  21.     pp_DialogInit 150 55 "*Shine*" 1
  22.         pp_Integer 0 60 5 50 16 "Flow" 1 F
  23.     pp_Dialog
  24.     rc=result
  25.     if rc=0 then
  26.         do
  27.             pp_PermitRefresh
  28.             EXIT
  29.         end    
  30.  
  31.     pp_UpdateUndo    
  32.         
  33.     pp_GetDialog 0
  34.     F=result
  35.  
  36.     CALL SavePrefs('Shine',F)
  37.     ADDRESS value Port
  38.  
  39.     pp_GetApen
  40.     clr=result
  41.  
  42.     pp_ClosestColor 255 255 255
  43.     black=result
  44.  
  45.     pp_SetApen black
  46.  
  47.     pp_EffectOn
  48.     pp_Airbrush 90 F
  49.  
  50.     pp_TextDraw x y
  51.     pp_EffectOff
  52.  
  53.     pp_SetApen clr
  54.  
  55.     pp_TextDraw x y
  56.  
  57.     pp_PermitRefresh
  58.  
  59. EXIT
  60.  
  61. SavePrefs: PROCEDURE
  62.     
  63.     Prefname='PerfectPaint:Prefs/Rexx_Prefs/'||ARG(1)
  64.  
  65.     if EXISTS(Prefname) THEN DO
  66.         ADDRESS COMMAND
  67.         'delete >nil: '||Prefname
  68.     END
  69.  
  70.     IF OPEN('pfile',PrefName,'W') THEN DO
  71.  
  72.     do i=2 to ARG()
  73.         CALL WRITELN('pfile',ARG(i))
  74.     end
  75.  
  76.     CALL CLOSE('pfile')
  77.  
  78. RETURN
  79.     
  80.  
  81.     
  82.