home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d724 / donsgenies.lha / DonsGenies / DonsGenies.lha / ForADPro / frameprocessor.adpro < prev   
Text File  |  1992-07-26  |  2KB  |  87 lines
  1. /* Program to use ADPro to resize a numbered series of pics and maybe reduce the number of colours */
  2.  
  3. trace r
  4.  
  5. options results
  6. address "ADPro"
  7.  
  8. lformat "UNIVERSAL"
  9. sformat = "IFF"
  10.  
  11. render_type
  12. colours = ADPro_result
  13. screen_type
  14. stype = ADPro_result
  15.  
  16. getfile '"Select first file of sequence..."'
  17. if rc~=0 then do
  18.     okay1 "No file selected"
  19.     exit
  20.     end
  21.  
  22. filename = ADPro_result
  23.  
  24. getnumber '"Output width (pixels)"' 320 16 1280
  25. if rc~=0 then do
  26.     okay1 "User aborted program"
  27.     exit
  28.     end
  29. width = ADPro_result
  30.  
  31. getnumber '"Output height (pixels)"' 256 16 1024
  32. if rc~=0 then do
  33.     okay1 "User aborted program"
  34.     exit
  35.     end
  36. height = ADPro_result
  37.  
  38. /* strip off number from end of filename */
  39. do i = 1 to length(filename)
  40.     endofname = right(filename,i)
  41.     if verify(endofname,"0123456789") ~=0 then break
  42.     end
  43. numberlength = length(endofname)-1
  44.  
  45. if numberlength ~= 0 then do
  46.     filenumber = substr(endofname,2)
  47.     filebase = left(filename,length(filename)-numberlength)
  48.  
  49.     do i = 1 to 100   /* safety limit of 100 files  */
  50.         currentnumber = right(filenumber,numberlength,"0")
  51.         fullname = filebase||currentnumber
  52.         load fullname
  53.         if rc ~=0 then break
  54.         abs_scale width height
  55.         render_type colours   /* number of colours  */
  56.         screen_type stype  /* PAL/NTSC, overscan, etc */
  57.         execute
  58.  
  59.         newname = filebase||"2"||currentnumber
  60.         save newname "IMAGE"
  61.         if rc~=0 then do
  62.             okay1 '"Trouble saving file "||newname'
  63.             exit
  64.             end
  65.         filenumber = filenumber+1
  66.         end
  67.     end   /* end of multiple files */
  68.  
  69. else do    /* single file  */
  70.     load filename
  71.     if rc ~=0 then break
  72.     abs_scale width height
  73.     render_type colours   /* number of colours  */
  74.     screen_type stype  /* PAL,overscan, etc  */
  75.     execute
  76.     newname = filename||"2"
  77.     save newname "IMAGE"
  78.     if rc~=0 then do
  79.         okay1 '"Trouble saving file "||newname'
  80.         exit
  81.         end
  82.     end
  83.  
  84. exit
  85. end
  86.  
  87.