home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / autofx / Edge_Simple.ifx.pre < prev    next >
Encoding:
Text File  |  1994-10-26  |  633 b   |  33 lines
  1. /*
  2.  * SimpleEdge.ifx.pre
  3.  * Written by Thomas Krehbiel
  4.  *
  5.  * Simple Edge Detect effect.
  6.  *
  7.  * Inputs:
  8.  *    Word(Arg(1),1) = Sequence number (?)
  9.  *    Word(Arg(1),2) = Total number of frames (N)
  10.  *
  11.  * Returns:
  12.  *    0 if successful, non-zero on failure
  13.  *
  14.  */
  15.  
  16. OPTIONS RESULTS
  17.  
  18. startedge   = GETCLIP('Autofx_SimpleEdge_Start')
  19.  
  20. IF startedge = "" THEN startedge = 25
  21.  
  22. Gadget.1    = 'INTEGER 250  5 60 14 "Edge Detect Threshold:"' startedge 'LO=1 HI=255'
  23. Gadget.2    = 'END'
  24.  
  25. NewComplexRequest '"Simple Edge Detect"' Gadget 330 40
  26. IF rc ~= 0 THEN EXIT rc
  27.  
  28. startedge = result.1
  29.  
  30. CALL SETCLIP('Autofx_SimpleEdge_Start', startedge)
  31.  
  32. EXIT
  33.