home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 127 / af127a.adf / PerfectPaint.lzx / PerfectPaint / rexx / general / LoadADPro_Brush.rx < prev    next >
Text File  |  1999-06-17  |  782b  |  49 lines
  1. /* LoadAdpro Brush*/
  2.  
  3.     options results
  4.     parse ARG Port b
  5.  
  6.     IF ~SHOW('P','ADPro') THEN
  7.         DO
  8.             ADDRESS value Port
  9.         pp_Warn "Can't*locate*ADPro"
  10.       EXIT
  11.         END
  12.  
  13.     ADDRESS value Port
  14.         pp_GetDepth
  15.         a=2**result
  16.         pp_Psave 'ram:t/ppptemp'
  17.  
  18.     pp_DialogInit 250 90 "*Load*ADPro*Brush*" 1
  19.         pp_Cycle 0 100 20 100 16 "Dithering" 1 "No|Floyd" 0
  20.     pp_Dialog    
  21.  
  22.     rc=result
  23.     if rc=0 then
  24.         do
  25.             EXIT
  26.         end    
  27.  
  28.     pp_GetDialog 0
  29.     d=result
  30.  
  31.     ADDRESS 'ADPro'
  32.         ADPRO_TO_FRONT
  33.         AVAIL_MODES_ONLY OFF
  34.         PLOAD 'ram:t/ppptemp'
  35.         PSTATUS "LOCKED"
  36.         SFORMAT "IFF"
  37.     SCREEN_TYPE "NONINTERLACED"
  38.         RENDER_TYPE a
  39.         DITHER d
  40.         EXECUTE
  41.         SAVE 'ram:t/pptemp' "IMAGE"
  42.  
  43.     ADDRESS value Port
  44.         pp_ShowScreen
  45.         pp_BLoad 'ram:t/pptemp'
  46.  
  47.     ADDRESS COMMAND
  48.         'delete >nil: ram:t/pptemp'
  49.         'delete >nil: ram:t/ppptemp'