home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / autofx / EOT_Straw.ifx.pre < prev    next >
Encoding:
Text File  |  1996-04-23  |  1.4 KB  |  54 lines
  1. /*
  2.  * $VER: EOT_Straw.ifx.pre 2.6 (24.04.96)
  3.  * Copyright © 1992-1996 Nova Design, Inc.
  4.  *
  5.  * Written by Ola Eric Olsson
  6.  *
  7.  */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. base  = 'autofx_straw_'
  12.  
  13. linesize  = GETCLIP(base||'size')
  14. density   = GETCLIP(base||'density')
  15. min       = GETCLIP(base||'minangle')
  16. max       = GETCLIP(base||'maxangle')
  17.  
  18. IF linesize = "" THEN linesize = 15
  19. IF density  = "" THEN density = 3
  20. IF min      = "" THEN min = 0
  21. IF max      = "" THEN max = 359
  22.  
  23. /******************************************************************/
  24. /** File requester with gadgets.                                 **/
  25. /******************************************************************/
  26.  
  27. title = '"EOT_straw"'
  28.  
  29. text1  = '"Final LineSize:"'
  30. text2  = '"Density:"'
  31. text3  = '"Minimum Angle:"'
  32. text4  = '"Maximum Angle:"'
  33.  
  34. gad.1  = 'SLIDER LE=130 TE=10 WD=150 HT=15 LB='text1' IN='linesize' LO=2 HI=100 LV=%-3ld'
  35. gad.2  = 'SLIDER LE=130 TE=30 WD=150 HT=15 LB='text2' IN='density' LO=2 HI=100 LV=%-3ld'
  36. gad.3  = 'SLIDER LE=130 TE=50 WD=150 HT=15 LB='text3' IN='min' LO=0 HI=359 LV=%-3ld'
  37. gad.4  = 'SLIDER LE=130 TE=70 WD=150 HT=15 LB='text4' IN='max' LO=0 HI=359 LV=%-3ld'
  38. gad.5  = 'END'
  39.  
  40. newcomplexrequest title gad 340 100
  41. IF rc ~= 0 THEN EXIT rc
  42.  
  43. linesize = RESULT.1
  44. density  = RESULT.2
  45. min      = RESULT.3
  46. max      = RESULT.4
  47.  
  48. CALL SETCLIP(base||'size', linesize)
  49. CALL SETCLIP(base||'density', density)
  50. CALL SETCLIP(base||'minangle', min)
  51. CALL SETCLIP(base||'maxangle', max)
  52.  
  53. EXIT
  54.