home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Graphics / TimeMachine / timemachine / rexx / TM_LayerBlend.ifx < prev    next >
Text File  |  1999-08-08  |  377b  |  29 lines
  1. /************
  2. TM_LayerPosition.ifx for Time Machine
  3. ************/
  4.  
  5. options results
  6.  
  7. activelayer
  8. parse var result LayerNum
  9.  
  10. if rc ~=0 then 
  11.     do
  12.     requestnotify "Not possible on the background!"
  13.     exit
  14.     end
  15.  
  16. if LayerNum=0 then 
  17.     do
  18.     requestnotify "Not possible on the background!"
  19.     exit
  20.     end
  21.  
  22.  
  23.  
  24.  
  25. layerblend
  26. parse var result blend
  27.  
  28. call setclip('TM_Layer'LayerNum'Blend',blend)
  29. exit