home *** CD-ROM | disk | FTP | other *** search
/ X-Ray / X-Ray.iso / gfx-soft / dust / examples / oldexamples / stageit < prev    next >
Encoding:
AmigaDOS Script File  |  1996-09-20  |  1.2 KB  |  49 lines
  1. .key project,obj,from,to
  2. .bra {
  3. .ket }
  4. ;this script creates an Imagine3.1-staging file for an object-sequence
  5.  
  6. ;Parameters:
  7. ; project: full path of the Imagine-project, e.g. "hd1:imagine/wave.imp"
  8. ;     obj: object-base-name with path, e.g. "hd0:obj"
  9. ;    from: first object, e.g. 1
  10. ;    last: last object
  11.  
  12. ;Example: stageit hd1:Grafix/Imagine3.1/test.imp shit:obj 1 12
  13.  
  14. ;Required software: Dust, ISL3.x, CEd and Ed (quickstarter) in your C:-drawer,
  15. ;the Rexx-Master must be active, too.
  16.  
  17. ;init
  18. clear
  19. set echo=off
  20.  
  21. echo "Creating a backup of the old staging-file"
  22. copy {project}/staging {project}/staging.o
  23.  
  24. echo "Creating a-Dust-script"
  25. echo >T:Dust.tmp "staging3({obj},{from},{to},{from},{to},T:staging.tmp)"
  26.  
  27. echo "Running Dust"
  28. Dust T:Dust.tmp
  29.  
  30. echo "Running Destage"
  31. destage {project}/staging T:staging.a
  32.  
  33. echo "Running CEd"
  34.  Ed T:staging.a
  35.  rx "address 'rexx_ced' 'search for {obj}.'"
  36.  rx "address 'rexx_ced' 'Beg of line'"
  37.  rx "address 'rexx_ced' 'Delete line'"
  38.  rx "address 'rexx_ced' Include file 'T:staging.tmp'"
  39.  rx "address 'rexx_ced' 'Save'"
  40.  rx "address 'rexx_ced' 'Quit'"
  41.  
  42. echo "Running Restage"
  43. restage T:staging.a {project}/staging
  44.  
  45. ;clean up
  46. delete >NIL: T:Dust.tmp T:staging.a T:staging.tmp
  47.  
  48. echo "Bye !"
  49.