home *** CD-ROM | disk | FTP | other *** search
/ Visual FX for Image FX / VisualFX for Image FX 3.adf / Files / SetUp / 03 / 01.rexx next >
Encoding:
OS/2 REXX Batch file  |  1997-09-10  |  3.1 KB  |  114 lines
  1. /*
  2.                                  Visual FX
  3.                                     For
  4.                                  Image FX
  5.                                SetUp Script
  6.                            Written By J.L. White
  7.  
  8.                          (C)1997 Merlin's Software
  9.  
  10. */
  11. parse arg Num Frames
  12. options results
  13. address "IMAGEFX.1"
  14. Quotes = '22'X
  15.     RequestResponse "Do You Need Instructions?"
  16.     if rc = 0 then do
  17.         call Docs()
  18.         end    
  19.     ReDraw On
  20.     Gadget.1 = ' Select Background Type! '
  21.     Gadget.2 = ' Use Seamless Image '
  22.     Gadget.3 = ' Use Texture & Color '
  23.     ListRequest 3 Gadget
  24.     BackType = 0
  25.     if result = 2 then BackType = 0
  26.     if result = 3 then BackType = 1
  27.  
  28.  
  29.     if BackType = 0 then do
  30.         LoadBuffer "VFXIFX:Images/Pics/Seamless.Pic" Force
  31.         RequestNotify "Look At Examples For FileName Then Click 
  32.         RequestFile '"Select File To Use For Background!" "VFXIFX:Images/Seamless" ""'
  33.         BrushName = result
  34.         Color = 1
  35.         end
  36.  
  37.     if BackType = 1 then do
  38.         LoadBuffer "VFXIFX:Images/Pics/Textures.Pic" Force
  39.         RequestNotify "Look At Examples For FileName Then Click "Quotes"Okay"Quotes""
  40.         RequestFile '"Select File To Use For Background!" "VFXIFX:Images/Textures" ""'
  41.         BrushName = result
  42.         ActiveColor 2
  43.         RequestNotify "Click On Color To Use For Highlights Then Click "Quotes"Okay"Quotes""
  44.         ActiveColor
  45.         Color = result
  46.         ActiveColor 1
  47.         end
  48.  
  49.  
  50.  
  51.     Height = 480
  52.     Width = 640
  53.     if exists("libs:flyer.library") then do
  54.         Height = 480
  55.         Width = 752
  56.         end
  57.     
  58.     text1 = '"Move X"'
  59.     text2 = '"Move Y"'
  60.     Gadget.1  = 'SLIDER LE=70 TE=4 WD=150 HT=14 LB='text1' IN=1 LO=-10 HI=10 LV=%-3ld'
  61.     Gadget.2  = 'SLIDER LE=70 TE=22 WD=150 HT=14 LB='text2' IN=1 LO=-10 HI=10 LV=%-3ld'
  62.     Gadget.3 = 'INTEGER 60  40 50 14 "Width:"' Width
  63.     Gadget.4 = 'INTEGER 200  40 50 14 "Height:"' Height
  64.     Gadget.5 = 'END'
  65.     NewComplexRequest  '"Select X & Y Movements & Screen Size!"' Gadget 270 60
  66.     if rc ~= 0 then do
  67.         XOff = 0
  68.         YOff = 0
  69.         end
  70.     else do
  71.         XOff = RESULT.1
  72.         YOff = RESULT.2
  73.         Width = RESULT.3
  74.         Height = RESULT.4
  75.         end
  76. RequestNumber '"Enter Number Of Frames To Process!"' Frames
  77. End = result
  78.  
  79. call open TempFile,"VFXIFX:TempDrawer/"strip(Num),W
  80. call writeln TempFile,BrushName
  81. call writeln TempFile,Color
  82. call writeln TempFile,BackType
  83. call writeln TempFile,Width
  84. call writeln TempFile,Height
  85. call writeln TempFile,XOff
  86. call writeln TempFile,YOff
  87. call writeln TempFile,End
  88. call close TempFile
  89. exit
  90.  
  91.  
  92.  
  93. Docs:
  94.  
  95.     text1 = '"This effect takes a seamless image and scrolls it on"'
  96.     text2 = '"the X & Y axis (larger = faster). We supply some but"'
  97.     text3 = '"use any image that you wish as long as it is seamless."'
  98.     text4 = '"The program will fill the screen and move it in the"'
  99.     text5 = '"selected direction for you. Just tell it how long you"'
  100.     text6 = '"want it to scroll (how many frames). This is perfect"'
  101.     text7 = '"for use with CG and scroll pages."'
  102.  
  103.     Gadget.1  = 'TEXT LE=10 TE=4 LB='text1' '
  104.     Gadget.2  = 'TEXT LE=10 TE=14 LB='text2' '
  105.     Gadget.3  = 'TEXT LE=10 TE=24 LB='text3' '
  106.     Gadget.4  = 'TEXT LE=10 TE=34 LB='text4' '
  107.     Gadget.5  = 'TEXT LE=10 TE=44 LB='text5' '
  108.     Gadget.6  = 'TEXT LE=10 TE=54 LB='text6' '
  109.     Gadget.7  = 'TEXT LE=10 TE=64 LB='text7' '
  110.     Gadget.8 = 'END'
  111.     NewComplexRequest  '"Instructions For Effect #01"' Gadget 400 76
  112.  
  113. return
  114.