home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / SYS / Rexx / Prescript.TSM < prev    next >
Text File  |  1995-02-05  |  2KB  |  45 lines
  1. /* example Prescript script file for TSMorph */
  2. /* This is the default do nothing script     */
  3. /* $VER: Prescript_TSM 3.1 (5.2.95)
  4.  */
  5. parse arg Base
  6. Frame       = 0   /* current frame number starting from 1      */
  7. TotalFrames = 1   /* total number of frames                    */
  8. Single      = 2   /* Single image warp, 0 for two image morph  */
  9. Movement    = 3   /* movement * 1024                           */
  10. Red1        = 4   /* red portion of image 1 * 1024             */
  11. Green1      = 5   /* green portion of image 1 * 1024           */
  12. Blue1       = 6   /* blue portion of image 1 * 1024            */
  13. Red2        = 7   /* red portion of image 2 * 1024             */
  14. Green2      = 8   /* green portion of image 2 * 1024           */
  15. Blue2       = 9   /* blue portion of image 2 * 1024            */
  16. Produce     = 10  /* actually produce output file              */
  17. RPlus       = 11  /* Add to Red                                */
  18. GPlus       = 12  /* Add to Green                              */
  19. BPlus       = 13  /* Add to Blue                               */
  20. RMinus      = 14  /* Subtract from Red                         */
  21. GMinus      = 15  /* Subtract from Green                       */
  22. BMinus      = 16  /* Subtract from blue                        */
  23. DX          = 17  /* X Skip                                    */
  24. DY          = 18  /* Y SKip                                    */
  25. Start       = 19  /* Start Frame Number                        */
  26.  
  27. /* To read the value of e.g Movement use:
  28.    integer_variable = GetValue(Base,Movement)
  29. */
  30.  
  31. /* To set the value of e.g. Produce to 0 use:
  32.    call StoreValue(Base,Produce,0)
  33. */
  34.  
  35. exit
  36.  
  37. GetValue:Procedure
  38.    Parse arg XBase, XAdd
  39.    return C2D(IMPORT(D2C(STRIP(XBase) + (STRIP(Xadd) * 4),4),4))
  40.  
  41. StoreValue:Procedure
  42.    Parse arg XBase, XAdd, XVal
  43.    call EXPORT(D2C(STRIP(XBase) + (STRIP(Xadd) * 4),4),D2C(XVal,4),4)
  44.    return
  45.