home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 127 / af127a.adf / PerfectPaint.lzx / PerfectPaint / rexx / general / SaveNewIcon.rx < prev    next >
Text File  |  1999-06-17  |  1KB  |  80 lines
  1. /*     arexx Script 
  2.     Save NEwIcon
  3.     You need "Inject Brush" from NewIcon V3 Archives in C:
  4.     
  5. */
  6.  
  7.     options results 
  8.     parse ARG Port1 b
  9.  
  10.         ADDRESS value Port1 
  11.     
  12.     P=SUBSTR(Port1,15,1)
  13.     say P
  14.     pp_SetBrush 1
  15.     pp_GetWidthB
  16.     w1=result
  17.     pp_GetHeightB
  18.     h1=result
  19.     pp_GetDepthB
  20.     d1=result
  21.     
  22.     Bname1='ram:t/B.1.'||P
  23.     Bname2='ram:t/B.2.'||P
  24.  
  25.     error=1
  26.     ADDRESS COMMAND
  27.     if (EXISTS(Bname1))&(EXISTS(Bname2)) THEN error=0
  28.  
  29.     ADDRESS value Port1
  30.     if error=1 then DO
  31.         pp_Warn 'This*script*requires|two*Brushes'
  32.         EXIT
  33.     END
  34.  
  35.     pp_SetBrush 2
  36.     pp_GetWidthB
  37.     w2=result
  38.     if w1~=w2 THEN DO
  39.         pp_Warn 'Brushes*must*have|the*same*width.'
  40.     EXIT
  41.     END
  42.  
  43.     pp_GetHeightB
  44.     h2=result
  45.     if h1~=h2 THEN DO
  46.         pp_Warn 'Brushes*must*have|the*same*height.'
  47.     EXIT
  48.     END
  49.  
  50.     pp_GetDepthB
  51.     d2=result
  52.     if d1~=d2 THEN DO
  53.         pp_Warn 'Brushes*must*have|the*same*depth.'
  54.     EXIT
  55.     END
  56.  
  57.     IF h1>93|w1>93 THEN DO
  58.          pp_Warn 'Maximum*icon*size*is|93x93'
  59.     EXIT
  60.     END
  61.     
  62.     pp_askfile 'Select*a*.info*file'
  63.     file=result
  64.  
  65.     IF RIGHT(file,5)~='.info' THEN DO
  66.         file=file||'.info'
  67.     END
  68.     
  69.     ADDRESS COMMAND
  70.     if ~EXISTS(file) THEN DO
  71.         'COPY >nil: PerfectPaint:Icons/NI.info '||'"'||file||'"'
  72.     END
  73.  
  74.     'C:injectbrush '||' "'||file||'" '||Bname1||' '||Bname2||' FORCE'
  75.  
  76.  
  77.  
  78.  
  79.  
  80.