home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / gfx / ImageDesk / rexx / MakeAnimazing.IDesk < prev    next >
Text File  |  1995-04-05  |  2KB  |  47 lines
  1. /* generates catalogs from the 'ANIMAZING' CD */
  2.  
  3. /* --------------------- standard startup ----------------------- */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. if( ADDRESS() ~= "IDESK_REXXPORT" ) then
  8.     ADDRESS IDESK_REXXPORT
  9.  
  10. /* -------------------------------------------------------------- */
  11.  
  12. IDREQUEST "Abort|Continue" '"This Script requires the AniMazing CD.'||'0A'x||'It will take at least 6 hours to generate all catalogs!"'
  13. if (RESULT = 1) then exit
  14.  
  15. IDGETPATH '"Where to store the catalogs?"'
  16. if (RC > 0) then exit
  17. catdir = RESULT
  18.  
  19. if (right(catdir, 1) ~= ':') then
  20.     catdir = catdir || '/'
  21.  
  22.  
  23. SETTPREFS DITHER TRUE
  24. SETTPREFS TSIZE STD
  25.  
  26. GENCAT '"'||catdir||BAUTEN.cat||'"' "AMAZING:GIF/BAUTEN" "#?.GIF"
  27. GENCAT '"'||catdir||DIVERSE.cat||'"' "AMAZING:GIF/DIVERSE" "#?.GIF"
  28. GENCAT '"'||catdir||FLUGZEUG.cat||'"' "AMAZING:GIF/FLUGZEUG" "#?.GIF"
  29. GENCAT '"'||catdir||HAWAI.cat||'"' "AMAZING:GIF/HAWAI" "#?.GIF"
  30. GENCAT '"'||catdir||HINTERGR.cat||'"' "AMAZING:GIF/HINTERGR" "#?.GIF"
  31. GENCAT '"'||catdir||KORSIKA.cat||'"' "AMAZING:GIF/KORSIKA" "#?.GIF"
  32. GENCAT '"'||catdir||KUNST.cat||'"' "AMAZING:GIF/KUNST" "#?.GIF"
  33. GENCAT '"'||catdir||LANDSCHF.cat||'"' "AMAZING:GIF/LANDSCHF" "#?.GIF"
  34. GENCAT '"'||catdir||MENSCHEN.cat||'"' "AMAZING:GIF/MENSCHEN" "#?.GIF"
  35. GENCAT '"'||catdir||MUSIK.cat||'"' "AMAZING:GIF/MUSIK" "#?.GIF"
  36. GENCAT '"'||catdir||NATUR.cat||'"' "AMAZING:GIF/NATUR" "#?.GIF"
  37. GENCAT '"'||catdir||PAPUA.cat||'"' "AMAZING:GIF/PAPUA" "#?.GIF"
  38. GENCAT '"'||catdir||RAYTRACE.cat||'"' "AMAZING:GIF/RAYTRACE" "#?.GIF"
  39. GENCAT '"'||catdir||TECHNIK.cat||'"' "AMAZING:GIF/TECHNIK" "#?.GIF"
  40. GENCAT '"'||catdir||TIERE.cat||'"' "AMAZING:GIF/TIERE" "#?.GIF"
  41. GENCAT '"'||catdir||TRANSPRT.cat||'"' "AMAZING:GIF/TRANSPRT" "#?.GIF"
  42. GENCAT '"'||catdir||TRUECOLO.cat||'"' "AMAZING:GIF/TRUECOLO" "#?.TGA"
  43. GENCAT '"'||catdir||DE_PCX.cat||'"' "AMAZING:PCX/DE_PCX" "#?.PCX"
  44. GENCAT '"'||catdir||PB_PCX.cat||'"' "AMAZING:PCX/PB_PCX" "#?.PCX"
  45.  
  46. IDREQUEST OK '"Catalogs have been stored to:'||'0A'x||catdir'"'
  47.