home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / grafica / redfix / rexx / autofx / colortocmap.ifx.pre < prev    next >
Text File  |  1999-11-07  |  2KB  |  64 lines
  1. /*
  2.  * $VER: ColorToCMAP.ifx.pre (AutoFX Arexx script) 1.0 (07.11.99) ® 1999 by Przemyslaw 'SENSEI' Gruchala
  3.  *
  4.  * Arexx script for AutoFX. Made for the REDFiX modules package.
  5.  *
  6.  * Based on the Render_Foreign.ifx.pre written by Thomas Krehbiel
  7.  *
  8.  * Convert main buffer to a CMAP.
  9.  *
  10.  * Inputs:
  11.  *    Word(Arg(1),1) = Sequence number
  12.  *    Word(Arg(1),2) = Total number of frames (N)
  13.  *
  14.  * Returns:
  15.  *    0 if successful, non-zero on failure
  16.  *
  17.  */
  18.  
  19. OPTIONS RESULTS
  20.  
  21. base = 'Autofx_ColorToCMAP_'
  22.  
  23. dithtype = GETCLIP(base||'DithType')
  24. dithdir  = GETCLIP(base||'DithDir')
  25. ditherr  = GETCLIP(base||'DithErr')
  26. colors   = GETCLIP(base||'Colors')
  27.  
  28. IF dithtype = "" THEN dithtype = 1
  29. IF dithdir  = "" THEN dithdir  = 2
  30. IF ditherr  = "" THEN ditherr  = 0
  31. IF colors   = "" THEN colors   = 7
  32.  
  33. Gadget.1 = 'CYCLE 100  5 90 12 "Dither:"' dithtype '"None/Floyd/FloydR/EDD/Order"'
  34. Gadget.2 = 'CYCLE 200  5 90 12 " "' dithdir '"L-to-R/R-to-L/ZigZag"'
  35. Gadget.3 = 'CYCLE 300  5 90 12 " "' ditherr '"None/Low/Medium/High"'
  36. Gadget.4 = 'CYCLE 300 20 90 12 "Colors:"' colors '"2/4/8/16/32/64/128/256"'
  37. Gadget.5 = 'END'
  38.  
  39. NewComplexRequest '"ColorToCMAP Settings"' Gadget 410 40
  40. IF rc ~= 0 THEN EXIT rc
  41.  
  42. dithtype = result.1
  43. dithdir  = result.2
  44. ditherr  = result.3
  45. colors   = result.4
  46.  
  47. colorarray.0 = 2
  48. colorarray.1 = 4
  49. colorarray.2 = 8
  50. colorarray.3 = 16
  51. colorarray.4 = 32
  52. colorarray.5 = 64
  53. colorarray.6 = 128
  54. colorarray.7 = 256
  55.  
  56. colors = colorarray.colors
  57.  
  58. CALL SETCLIP(base||'DithType', dithtype)
  59. CALL SETCLIP(base||'DithDir', dithdir)
  60. CALL SETCLIP(base||'DithErr', ditherr)
  61. CALL SETCLIP(base||'Colors', colors)
  62.  
  63. EXIT
  64.